API tools faq
paste
rauljrz

Select desde una tabla - Extraido de Rinconfox

rauljrz
Mar 27th, 2018
299
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 3.09 KB | None | 0 0
raw download clone embed print report
  1. Esta es la respuesta para una consulta de como armar un select a partir de datos contenidos en una tabla
  2.  
  3. La tabla tablas contiene dos campos:
  4.  
  5. tablename: Nombre de las tablas. ej: Clientes, Camiones, etc
  6. fieldname: Son los campos de las tabla
  7. CLOSE DATABASE
  8.  
  9. LOCAL oGenerador, lcCadenaSQL
  10. oGenerador = CREATEOBJECT('generadorSQL')
  11.  
  12. lcCadenaSQL = oGenerador.getSelect('clientes')
  13. WAIT WINDOWS lcCadenaSQL
  15. *
  16. *|--------------------------------------------------------------------------
  17. *| generadorSQL.prg
  18. *|--------------------------------------------------------------------------
  19. *| Archivo principal del sistema
  20. *| Author......: Raúl Jrz (raul.jrz@gmail.com)
  21. *| Created.....:
  22. *| Purpose.....:
  23. *| Revisions...:
  24. *|
  25. */
  26. *-----------------------------------------------------------------------------------*
  27. DEFINE CLASS generadorSQL AS Custom
  28. *
  29. *-----------------------------------------------------------------------------------*
  30.  
  31.     *----------------------------------------------------------------------------*
  32.     FUNCTION init
  33.     *
  34.     *----------------------------------------------------------------------------*
  35.  
  36.     ENDFUNC
  37.    
  38.     *----------------------------------------------------------------------------*
  39.     FUNCTION getSelect
  40.     LPARAMETERS tcTableName
  41.     *
  42.     *----------------------------------------------------------------------------*
  43.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  44.         lcTableName=ALLTRIM(LOWER(tcTableName))
  45.         THIS.abrirTablaPrincipal()
  46.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  47.  
  48.         IF RECCOUNT('tmpTablas')>0 THEN
  49.             lcListField = ''
  50.             lcListWhere = ''
  51.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  52.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  53.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  54.             ENDSCAN
  55.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  56.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  57.            
  58.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  59.                                 +' WHERE '+lcListWhere
  60.         ENDIF
  61.        
  62.         IF USED('tmpTablas') THEN
  63.             USE IN tmpTablas
  64.         ENDIF
  65.         RETURN lcSelectReturn
  66.     ENDFUNC
  67.  
  68.     *----------------------------------------------------------------------------*
  69.     FUNCTION generaCursorTemporal
  70.     LPARAMETERS tcTableName, tcCursorName
  71.     *
  72.     *----------------------------------------------------------------------------*
  73.         SELECT tablename, fieldname ;
  74.             FROM tablas;
  75.                 WHERE tablas.tablename=tcTableName;
  76.                 INTO CURSOR (tcCursorName)
  77.     ENDFUNC
  78.    
  79.     *----------------------------------------------------------------------------*
  80.     FUNCTION abrirTablaPrincipal
  81.     *
  82.     *----------------------------------------------------------------------------*
  83.         IF !USED('tablas') THEN
  84.             IF !FILE('tablas.dbf') THEN
  85.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  86.                 USE IN tablas
  87.             ENDIF
  88.             USE tablas IN 0
  89.         ENDIF
  90.     ENDFUNC
  91.        
  92.     *----------------------------------------------------------------------------*
  93.     FUNCTION destroy
  94.     *
  95.     *----------------------------------------------------------------------------*
  96.  
  97.     ENDFUNC
  98.    
  99. ENDDEFI
  100. *
  101. *|--------------------------------------------------------------------------
  102. *| generadorSQL.prg
  103. *|--------------------------------------------------------------------------
  104. *| Archivo principal del sistema
  105. *| Author......: Raúl Jrz (raul.jrz@gmail.com)
  106. *| Created.....:
  107. *| Purpose.....:
  108. *| Revisions...:
  109. *|
  110. */
  111. *-----------------------------------------------------------------------------------*
  112. DEFINE CLASS generadorSQL AS Custom
  113. *
  114. *-----------------------------------------------------------------------------------*
  115.  
  116.     *----------------------------------------------------------------------------*
  117.     FUNCTION init
  118.     *
  119.     *----------------------------------------------------------------------------*
  120.  
  121.     ENDFUNC
  122.    
  123.     *----------------------------------------------------------------------------*
  124.     FUNCTION getSelect
  125.     LPARAMETERS tcTableName
  126.     *
  127.     *----------------------------------------------------------------------------*
  128.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  129.         lcTableName=ALLTRIM(LOWER(tcTableName))
  130.         THIS.abrirTablaPrincipal()
  131.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  132.  
  133.         IF RECCOUNT('tmpTablas')>0 THEN
  134.             lcListField = ''
  135.             lcListWhere = ''
  136.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  137.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  138.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  139.             ENDSCAN
  140.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  141.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  142.            
  143.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  144.                                 +' WHERE '+lcListWhere
  145.         ENDIF
  146.        
  147.         IF USED('tmpTablas') THEN
  148.             USE IN tmpTablas
  149.         ENDIF
  150.         RETURN lcSelectReturn
  151.     ENDFUNC
  152.  
  153.     *----------------------------------------------------------------------------*
  154.     FUNCTION generaCursorTemporal
  155.     LPARAMETERS tcTableName, tcCursorName
  156.     *
  157.     *----------------------------------------------------------------------------*
  158.         SELECT tablename, fieldname ;
  159.             FROM tablas;
  160.                 WHERE tablas.tablename=tcTableName;
  161.                 INTO CURSOR (tcCursorName)
  162.     ENDFUNC
  163.    
  164.     *----------------------------------------------------------------------------*
  165.     FUNCTION abrirTablaPrincipal
  166.     *
  167.     *----------------------------------------------------------------------------*
  168.         IF !USED('tablas') THEN
  169.             IF !FILE('tablas.dbf') THEN
  170.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  171.                 USE IN tablas
  172.             ENDIF
  173.             USE tablas IN 0
  174.         ENDIF
  175.     ENDFUNC
  176.        
  177.     *----------------------------------------------------------------------------*
  178.     FUNCTION destroy
  179.     *
  180.     *----------------------------------------------------------------------------*
  181.  
  182.     ENDFUNC
  183.    
  184. ENDDEFI
  185. *|--------------------------------------------------------------------------
  186. *| generadorSQL.prg
  187. *|--------------------------------------------------------------------------
  188. *| Archivo principal del sistema
  189. *| Author......: Raúl Jrz (raul.jrz@gmail.com)
  190. *| Created.....:
  191. *| Purpose.....:
  192. *| Revisions...:
  193. *|
  194. */
  195. *-----------------------------------------------------------------------------------*
  196. DEFINE CLASS generadorSQL AS Custom
  197. *
  198. *-----------------------------------------------------------------------------------*
  199.  
  200.     *----------------------------------------------------------------------------*
  201.     FUNCTION init
  202.     *
  203.     *----------------------------------------------------------------------------*
  204.  
  205.     ENDFUNC
  206.    
  207.     *----------------------------------------------------------------------------*
  208.     FUNCTION getSelect
  209.     LPARAMETERS tcTableName
  210.     *
  211.     *----------------------------------------------------------------------------*
  212.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  213.         lcTableName=ALLTRIM(LOWER(tcTableName))
  214.         THIS.abrirTablaPrincipal()
  215.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  216.  
  217.         IF RECCOUNT('tmpTablas')>0 THEN
  218.             lcListField = ''
  219.             lcListWhere = ''
  220.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  221.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  222.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  223.             ENDSCAN
  224.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  225.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  226.            
  227.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  228.                                 +' WHERE '+lcListWhere
  229.         ENDIF
  230.        
  231.         IF USED('tmpTablas') THEN
  232.             USE IN tmpTablas
  233.         ENDIF
  234.         RETURN lcSelectReturn
  235.     ENDFUNC
  236.  
  237.     *----------------------------------------------------------------------------*
  238.     FUNCTION generaCursorTemporal
  239.     LPARAMETERS tcTableName, tcCursorName
  240.     *
  241.     *----------------------------------------------------------------------------*
  242.         SELECT tablename, fieldname ;
  243.             FROM tablas;
  244.                 WHERE tablas.tablename=tcTableName;
  245.                 INTO CURSOR (tcCursorName)
  246.     ENDFUNC
  247.    
  248.     *----------------------------------------------------------------------------*
  249.     FUNCTION abrirTablaPrincipal
  250.     *
  251.     *----------------------------------------------------------------------------*
  252.         IF !USED('tablas') THEN
  253.             IF !FILE('tablas.dbf') THEN
  254.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  255.                 USE IN tablas
  256.             ENDIF
  257.             USE tablas IN 0
  258.         ENDIF
  259.     ENDFUNC
  260.        
  261.     *----------------------------------------------------------------------------*
  262.     FUNCTION destroy
  263.     *
  264.     *----------------------------------------------------------------------------*
  265.  
  266.     ENDFUNC
  267.    
  268. ENDDEFI
  269. *| generadorSQL.prg
  270. *|--------------------------------------------------------------------------
  271. *| Archivo principal del sistema
  272. *| Author......: Raúl Jrz (raul.jrz@gmail.com)
  273. *| Created.....:
  274. *| Purpose.....:
  275. *| Revisions...:
  276. *|
  277. */
  278. *-----------------------------------------------------------------------------------*
  279. DEFINE CLASS generadorSQL AS Custom
  280. *
  281. *-----------------------------------------------------------------------------------*
  282.  
  283.     *----------------------------------------------------------------------------*
  284.     FUNCTION init
  285.     *
  286.     *----------------------------------------------------------------------------*
  287.  
  288.     ENDFUNC
  289.    
  290.     *----------------------------------------------------------------------------*
  291.     FUNCTION getSelect
  292.     LPARAMETERS tcTableName
  293.     *
  294.     *----------------------------------------------------------------------------*
  295.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  296.         lcTableName=ALLTRIM(LOWER(tcTableName))
  297.         THIS.abrirTablaPrincipal()
  298.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  299.  
  300.         IF RECCOUNT('tmpTablas')>0 THEN
  301.             lcListField = ''
  302.             lcListWhere = ''
  303.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  304.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  305.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  306.             ENDSCAN
  307.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  308.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  309.            
  310.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  311.                                 +' WHERE '+lcListWhere
  312.         ENDIF
  313.        
  314.         IF USED('tmpTablas') THEN
  315.             USE IN tmpTablas
  316.         ENDIF
  317.         RETURN lcSelectReturn
  318.     ENDFUNC
  319.  
  320.     *----------------------------------------------------------------------------*
  321.     FUNCTION generaCursorTemporal
  322.     LPARAMETERS tcTableName, tcCursorName
  323.     *
  324.     *----------------------------------------------------------------------------*
  325.         SELECT tablename, fieldname ;
  326.             FROM tablas;
  327.                 WHERE tablas.tablename=tcTableName;
  328.                 INTO CURSOR (tcCursorName)
  329.     ENDFUNC
  330.    
  331.     *----------------------------------------------------------------------------*
  332.     FUNCTION abrirTablaPrincipal
  333.     *
  334.     *----------------------------------------------------------------------------*
  335.         IF !USED('tablas') THEN
  336.             IF !FILE('tablas.dbf') THEN
  337.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  338.                 USE IN tablas
  339.             ENDIF
  340.             USE tablas IN 0
  341.         ENDIF
  342.     ENDFUNC
  343.        
  344.     *----------------------------------------------------------------------------*
  345.     FUNCTION destroy
  346.     *
  347.     *----------------------------------------------------------------------------*
  348.  
  349.     ENDFUNC
  350.    
  351. ENDDEFI
  352. *|--------------------------------------------------------------------------
  353. *| Archivo principal del sistema
  354. *| Author......: Raúl Jrz (raul.jrz@gmail.com)
  355. *| Created.....:
  356. *| Purpose.....:
  357. *| Revisions...:
  358. *|
  359. */
  360. *-----------------------------------------------------------------------------------*
  361. DEFINE CLASS generadorSQL AS Custom
  362. *
  363. *-----------------------------------------------------------------------------------*
  364.  
  365.     *----------------------------------------------------------------------------*
  366.     FUNCTION init
  367.     *
  368.     *----------------------------------------------------------------------------*
  369.  
  370.     ENDFUNC
  371.    
  372.     *----------------------------------------------------------------------------*
  373.     FUNCTION getSelect
  374.     LPARAMETERS tcTableName
  375.     *
  376.     *----------------------------------------------------------------------------*
  377.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  378.         lcTableName=ALLTRIM(LOWER(tcTableName))
  379.         THIS.abrirTablaPrincipal()
  380.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  381.  
  382.         IF RECCOUNT('tmpTablas')>0 THEN
  383.             lcListField = ''
  384.             lcListWhere = ''
  385.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  386.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  387.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  388.             ENDSCAN
  389.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  390.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  391.            
  392.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  393.                                 +' WHERE '+lcListWhere
  394.         ENDIF
  395.        
  396.         IF USED('tmpTablas') THEN
  397.             USE IN tmpTablas
  398.         ENDIF
  399.         RETURN lcSelectReturn
  400.     ENDFUNC
  401.  
  402.     *----------------------------------------------------------------------------*
  403.     FUNCTION generaCursorTemporal
  404.     LPARAMETERS tcTableName, tcCursorName
  405.     *
  406.     *----------------------------------------------------------------------------*
  407.         SELECT tablename, fieldname ;
  408.             FROM tablas;
  409.                 WHERE tablas.tablename=tcTableName;
  410.                 INTO CURSOR (tcCursorName)
  411.     ENDFUNC
  412.    
  413.     *----------------------------------------------------------------------------*
  414.     FUNCTION abrirTablaPrincipal
  415.     *
  416.     *----------------------------------------------------------------------------*
  417.         IF !USED('tablas') THEN
  418.             IF !FILE('tablas.dbf') THEN
  419.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  420.                 USE IN tablas
  421.             ENDIF
  422.             USE tablas IN 0
  423.         ENDIF
  424.     ENDFUNC
  425.        
  426.     *----------------------------------------------------------------------------*
  427.     FUNCTION destroy
  428.     *
  429.     *----------------------------------------------------------------------------*
  430.  
  431.     ENDFUNC
  432.    
  433. ENDDEFI
  434. *| Archivo principal del sistema
  435. *| Author......: Raúl Jrz (raul.jrz@gmail.com)
  436. *| Created.....:
  437. *| Purpose.....:
  438. *| Revisions...:
  439. *|
  440. */
  441. *-----------------------------------------------------------------------------------*
  442. DEFINE CLASS generadorSQL AS Custom
  443. *
  444. *-----------------------------------------------------------------------------------*
  445.  
  446.     *----------------------------------------------------------------------------*
  447.     FUNCTION init
  448.     *
  449.     *----------------------------------------------------------------------------*
  450.  
  451.     ENDFUNC
  452.    
  453.     *----------------------------------------------------------------------------*
  454.     FUNCTION getSelect
  455.     LPARAMETERS tcTableName
  456.     *
  457.     *----------------------------------------------------------------------------*
  458.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  459.         lcTableName=ALLTRIM(LOWER(tcTableName))
  460.         THIS.abrirTablaPrincipal()
  461.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  462.  
  463.         IF RECCOUNT('tmpTablas')>0 THEN
  464.             lcListField = ''
  465.             lcListWhere = ''
  466.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  467.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  468.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  469.             ENDSCAN
  470.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  471.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  472.            
  473.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  474.                                 +' WHERE '+lcListWhere
  475.         ENDIF
  476.        
  477.         IF USED('tmpTablas') THEN
  478.             USE IN tmpTablas
  479.         ENDIF
  480.         RETURN lcSelectReturn
  481.     ENDFUNC
  482.  
  483.     *----------------------------------------------------------------------------*
  484.     FUNCTION generaCursorTemporal
  485.     LPARAMETERS tcTableName, tcCursorName
  486.     *
  487.     *----------------------------------------------------------------------------*
  488.         SELECT tablename, fieldname ;
  489.             FROM tablas;
  490.                 WHERE tablas.tablename=tcTableName;
  491.                 INTO CURSOR (tcCursorName)
  492.     ENDFUNC
  493.    
  494.     *----------------------------------------------------------------------------*
  495.     FUNCTION abrirTablaPrincipal
  496.     *
  497.     *----------------------------------------------------------------------------*
  498.         IF !USED('tablas') THEN
  499.             IF !FILE('tablas.dbf') THEN
  500.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  501.                 USE IN tablas
  502.             ENDIF
  503.             USE tablas IN 0
  504.         ENDIF
  505.     ENDFUNC
  506.        
  507.     *----------------------------------------------------------------------------*
  508.     FUNCTION destroy
  509.     *
  510.     *----------------------------------------------------------------------------*
  511.  
  512.     ENDFUNC
  513.    
  514. ENDDEFI
  515. *| Author......: Raúl Jrz (raul.jrz@gmail.com)
  516. *| Created.....:
  517. *| Purpose.....:
  518. *| Revisions...:
  519. *|
  520. */
  521. *-----------------------------------------------------------------------------------*
  522. DEFINE CLASS generadorSQL AS Custom
  523. *
  524. *-----------------------------------------------------------------------------------*
  525.  
  526.     *----------------------------------------------------------------------------*
  527.     FUNCTION init
  528.     *
  529.     *----------------------------------------------------------------------------*
  530.  
  531.     ENDFUNC
  532.    
  533.     *----------------------------------------------------------------------------*
  534.     FUNCTION getSelect
  535.     LPARAMETERS tcTableName
  536.     *
  537.     *----------------------------------------------------------------------------*
  538.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  539.         lcTableName=ALLTRIM(LOWER(tcTableName))
  540.         THIS.abrirTablaPrincipal()
  541.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  542.  
  543.         IF RECCOUNT('tmpTablas')>0 THEN
  544.             lcListField = ''
  545.             lcListWhere = ''
  546.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  547.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  548.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  549.             ENDSCAN
  550.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  551.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  552.            
  553.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  554.                                 +' WHERE '+lcListWhere
  555.         ENDIF
  556.        
  557.         IF USED('tmpTablas') THEN
  558.             USE IN tmpTablas
  559.         ENDIF
  560.         RETURN lcSelectReturn
  561.     ENDFUNC
  562.  
  563.     *----------------------------------------------------------------------------*
  564.     FUNCTION generaCursorTemporal
  565.     LPARAMETERS tcTableName, tcCursorName
  566.     *
  567.     *----------------------------------------------------------------------------*
  568.         SELECT tablename, fieldname ;
  569.             FROM tablas;
  570.                 WHERE tablas.tablename=tcTableName;
  571.                 INTO CURSOR (tcCursorName)
  572.     ENDFUNC
  573.    
  574.     *----------------------------------------------------------------------------*
  575.     FUNCTION abrirTablaPrincipal
  576.     *
  577.     *----------------------------------------------------------------------------*
  578.         IF !USED('tablas') THEN
  579.             IF !FILE('tablas.dbf') THEN
  580.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  581.                 USE IN tablas
  582.             ENDIF
  583.             USE tablas IN 0
  584.         ENDIF
  585.     ENDFUNC
  586.        
  587.     *----------------------------------------------------------------------------*
  588.     FUNCTION destroy
  589.     *
  590.     *----------------------------------------------------------------------------*
  591.  
  592.     ENDFUNC
  593.    
  594. ENDDEFI
  595. *| Created.....:
  596. *| Purpose.....:
  597. *| Revisions...:
  598. *|
  599. */
  600. *-----------------------------------------------------------------------------------*
  601. DEFINE CLASS generadorSQL AS Custom
  602. *
  603. *-----------------------------------------------------------------------------------*
  604.  
  605.     *----------------------------------------------------------------------------*
  606.     FUNCTION init
  607.     *
  608.     *----------------------------------------------------------------------------*
  609.  
  610.     ENDFUNC
  611.    
  612.     *----------------------------------------------------------------------------*
  613.     FUNCTION getSelect
  614.     LPARAMETERS tcTableName
  615.     *
  616.     *----------------------------------------------------------------------------*
  617.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  618.         lcTableName=ALLTRIM(LOWER(tcTableName))
  619.         THIS.abrirTablaPrincipal()
  620.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  621.  
  622.         IF RECCOUNT('tmpTablas')>0 THEN
  623.             lcListField = ''
  624.             lcListWhere = ''
  625.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  626.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  627.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  628.             ENDSCAN
  629.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  630.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  631.            
  632.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  633.                                 +' WHERE '+lcListWhere
  634.         ENDIF
  635.        
  636.         IF USED('tmpTablas') THEN
  637.             USE IN tmpTablas
  638.         ENDIF
  639.         RETURN lcSelectReturn
  640.     ENDFUNC
  641.  
  642.     *----------------------------------------------------------------------------*
  643.     FUNCTION generaCursorTemporal
  644.     LPARAMETERS tcTableName, tcCursorName
  645.     *
  646.     *----------------------------------------------------------------------------*
  647.         SELECT tablename, fieldname ;
  648.             FROM tablas;
  649.                 WHERE tablas.tablename=tcTableName;
  650.                 INTO CURSOR (tcCursorName)
  651.     ENDFUNC
  652.    
  653.     *----------------------------------------------------------------------------*
  654.     FUNCTION abrirTablaPrincipal
  655.     *
  656.     *----------------------------------------------------------------------------*
  657.         IF !USED('tablas') THEN
  658.             IF !FILE('tablas.dbf') THEN
  659.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  660.                 USE IN tablas
  661.             ENDIF
  662.             USE tablas IN 0
  663.         ENDIF
  664.     ENDFUNC
  665.        
  666.     *----------------------------------------------------------------------------*
  667.     FUNCTION destroy
  668.     *
  669.     *----------------------------------------------------------------------------*
  670.  
  671.     ENDFUNC
  672.    
  673. ENDDEFI
  674. *| Purpose.....:
  675. *| Revisions...:
  676. *|
  677. */
  678. *-----------------------------------------------------------------------------------*
  679. DEFINE CLASS generadorSQL AS Custom
  680. *
  681. *-----------------------------------------------------------------------------------*
  682.  
  683.     *----------------------------------------------------------------------------*
  684.     FUNCTION init
  685.     *
  686.     *----------------------------------------------------------------------------*
  687.  
  688.     ENDFUNC
  689.    
  690.     *----------------------------------------------------------------------------*
  691.     FUNCTION getSelect
  692.     LPARAMETERS tcTableName
  693.     *
  694.     *----------------------------------------------------------------------------*
  695.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  696.         lcTableName=ALLTRIM(LOWER(tcTableName))
  697.         THIS.abrirTablaPrincipal()
  698.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  699.  
  700.         IF RECCOUNT('tmpTablas')>0 THEN
  701.             lcListField = ''
  702.             lcListWhere = ''
  703.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  704.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  705.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  706.             ENDSCAN
  707.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  708.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  709.            
  710.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  711.                                 +' WHERE '+lcListWhere
  712.         ENDIF
  713.        
  714.         IF USED('tmpTablas') THEN
  715.             USE IN tmpTablas
  716.         ENDIF
  717.         RETURN lcSelectReturn
  718.     ENDFUNC
  719.  
  720.     *----------------------------------------------------------------------------*
  721.     FUNCTION generaCursorTemporal
  722.     LPARAMETERS tcTableName, tcCursorName
  723.     *
  724.     *----------------------------------------------------------------------------*
  725.         SELECT tablename, fieldname ;
  726.             FROM tablas;
  727.                 WHERE tablas.tablename=tcTableName;
  728.                 INTO CURSOR (tcCursorName)
  729.     ENDFUNC
  730.    
  731.     *----------------------------------------------------------------------------*
  732.     FUNCTION abrirTablaPrincipal
  733.     *
  734.     *----------------------------------------------------------------------------*
  735.         IF !USED('tablas') THEN
  736.             IF !FILE('tablas.dbf') THEN
  737.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  738.                 USE IN tablas
  739.             ENDIF
  740.             USE tablas IN 0
  741.         ENDIF
  742.     ENDFUNC
  743.        
  744.     *----------------------------------------------------------------------------*
  745.     FUNCTION destroy
  746.     *
  747.     *----------------------------------------------------------------------------*
  748.  
  749.     ENDFUNC
  750.    
  751. ENDDEFI
  752. *| Revisions...:
  753. *|
  754. */
  755. *-----------------------------------------------------------------------------------*
  756. DEFINE CLASS generadorSQL AS Custom
  757. *
  758. *-----------------------------------------------------------------------------------*
  759.  
  760.     *----------------------------------------------------------------------------*
  761.     FUNCTION init
  762.     *
  763.     *----------------------------------------------------------------------------*
  764.  
  765.     ENDFUNC
  766.    
  767.     *----------------------------------------------------------------------------*
  768.     FUNCTION getSelect
  769.     LPARAMETERS tcTableName
  770.     *
  771.     *----------------------------------------------------------------------------*
  772.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  773.         lcTableName=ALLTRIM(LOWER(tcTableName))
  774.         THIS.abrirTablaPrincipal()
  775.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  776.  
  777.         IF RECCOUNT('tmpTablas')>0 THEN
  778.             lcListField = ''
  779.             lcListWhere = ''
  780.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  781.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  782.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  783.             ENDSCAN
  784.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  785.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  786.            
  787.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  788.                                 +' WHERE '+lcListWhere
  789.         ENDIF
  790.        
  791.         IF USED('tmpTablas') THEN
  792.             USE IN tmpTablas
  793.         ENDIF
  794.         RETURN lcSelectReturn
  795.     ENDFUNC
  796.  
  797.     *----------------------------------------------------------------------------*
  798.     FUNCTION generaCursorTemporal
  799.     LPARAMETERS tcTableName, tcCursorName
  800.     *
  801.     *----------------------------------------------------------------------------*
  802.         SELECT tablename, fieldname ;
  803.             FROM tablas;
  804.                 WHERE tablas.tablename=tcTableName;
  805.                 INTO CURSOR (tcCursorName)
  806.     ENDFUNC
  807.    
  808.     *----------------------------------------------------------------------------*
  809.     FUNCTION abrirTablaPrincipal
  810.     *
  811.     *----------------------------------------------------------------------------*
  812.         IF !USED('tablas') THEN
  813.             IF !FILE('tablas.dbf') THEN
  814.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  815.                 USE IN tablas
  816.             ENDIF
  817.             USE tablas IN 0
  818.         ENDIF
  819.     ENDFUNC
  820.        
  821.     *----------------------------------------------------------------------------*
  822.     FUNCTION destroy
  823.     *
  824.     *----------------------------------------------------------------------------*
  825.  
  826.     ENDFUNC
  827.    
  828. ENDDEFI
  829. *|
  830. */
  831. *-----------------------------------------------------------------------------------*
  832. DEFINE CLASS generadorSQL AS Custom
  833. *
  834. *-----------------------------------------------------------------------------------*
  835.  
  836.     *----------------------------------------------------------------------------*
  837.     FUNCTION init
  838.     *
  839.     *----------------------------------------------------------------------------*
  840.  
  841.     ENDFUNC
  842.    
  843.     *----------------------------------------------------------------------------*
  844.     FUNCTION getSelect
  845.     LPARAMETERS tcTableName
  846.     *
  847.     *----------------------------------------------------------------------------*
  848.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  849.         lcTableName=ALLTRIM(LOWER(tcTableName))
  850.         THIS.abrirTablaPrincipal()
  851.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  852.  
  853.         IF RECCOUNT('tmpTablas')>0 THEN
  854.             lcListField = ''
  855.             lcListWhere = ''
  856.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  857.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  858.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  859.             ENDSCAN
  860.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  861.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  862.            
  863.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  864.                                 +' WHERE '+lcListWhere
  865.         ENDIF
  866.        
  867.         IF USED('tmpTablas') THEN
  868.             USE IN tmpTablas
  869.         ENDIF
  870.         RETURN lcSelectReturn
  871.     ENDFUNC
  872.  
  873.     *----------------------------------------------------------------------------*
  874.     FUNCTION generaCursorTemporal
  875.     LPARAMETERS tcTableName, tcCursorName
  876.     *
  877.     *----------------------------------------------------------------------------*
  878.         SELECT tablename, fieldname ;
  879.             FROM tablas;
  880.                 WHERE tablas.tablename=tcTableName;
  881.                 INTO CURSOR (tcCursorName)
  882.     ENDFUNC
  883.    
  884.     *----------------------------------------------------------------------------*
  885.     FUNCTION abrirTablaPrincipal
  886.     *
  887.     *----------------------------------------------------------------------------*
  888.         IF !USED('tablas') THEN
  889.             IF !FILE('tablas.dbf') THEN
  890.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  891.                 USE IN tablas
  892.             ENDIF
  893.             USE tablas IN 0
  894.         ENDIF
  895.     ENDFUNC
  896.        
  897.     *----------------------------------------------------------------------------*
  898.     FUNCTION destroy
  899.     *
  900.     *----------------------------------------------------------------------------*
  901.  
  902.     ENDFUNC
  903.    
  904. ENDDEFI
  905. */
  906. *-----------------------------------------------------------------------------------*
  907. DEFINE CLASS generadorSQL AS Custom
  908. *
  909. *-----------------------------------------------------------------------------------*
  910.  
  911.     *----------------------------------------------------------------------------*
  912.     FUNCTION init
  913.     *
  914.     *----------------------------------------------------------------------------*
  915.  
  916.     ENDFUNC
  917.    
  918.     *----------------------------------------------------------------------------*
  919.     FUNCTION getSelect
  920.     LPARAMETERS tcTableName
  921.     *
  922.     *----------------------------------------------------------------------------*
  923.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  924.         lcTableName=ALLTRIM(LOWER(tcTableName))
  925.         THIS.abrirTablaPrincipal()
  926.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  927.  
  928.         IF RECCOUNT('tmpTablas')>0 THEN
  929.             lcListField = ''
  930.             lcListWhere = ''
  931.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  932.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  933.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  934.             ENDSCAN
  935.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  936.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  937.            
  938.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  939.                                 +' WHERE '+lcListWhere
  940.         ENDIF
  941.        
  942.         IF USED('tmpTablas') THEN
  943.             USE IN tmpTablas
  944.         ENDIF
  945.         RETURN lcSelectReturn
  946.     ENDFUNC
  947.  
  948.     *----------------------------------------------------------------------------*
  949.     FUNCTION generaCursorTemporal
  950.     LPARAMETERS tcTableName, tcCursorName
  951.     *
  952.     *----------------------------------------------------------------------------*
  953.         SELECT tablename, fieldname ;
  954.             FROM tablas;
  955.                 WHERE tablas.tablename=tcTableName;
  956.                 INTO CURSOR (tcCursorName)
  957.     ENDFUNC
  958.    
  959.     *----------------------------------------------------------------------------*
  960.     FUNCTION abrirTablaPrincipal
  961.     *
  962.     *----------------------------------------------------------------------------*
  963.         IF !USED('tablas') THEN
  964.             IF !FILE('tablas.dbf') THEN
  965.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  966.                 USE IN tablas
  967.             ENDIF
  968.             USE tablas IN 0
  969.         ENDIF
  970.     ENDFUNC
  971.        
  972.     *----------------------------------------------------------------------------*
  973.     FUNCTION destroy
  974.     *
  975.     *----------------------------------------------------------------------------*
  976.  
  977.     ENDFUNC
  978.    
  979. ENDDEFI
  980. *-----------------------------------------------------------------------------------*
  981. DEFINE CLASS generadorSQL AS Custom
  982. *
  983. *-----------------------------------------------------------------------------------*
  984.  
  985.     *----------------------------------------------------------------------------*
  986.     FUNCTION init
  987.     *
  988.     *----------------------------------------------------------------------------*
  989.  
  990.     ENDFUNC
  991.    
  992.     *----------------------------------------------------------------------------*
  993.     FUNCTION getSelect
  994.     LPARAMETERS tcTableName
  995.     *
  996.     *----------------------------------------------------------------------------*
  997.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  998.         lcTableName=ALLTRIM(LOWER(tcTableName))
  999.         THIS.abrirTablaPrincipal()
  1000.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  1001.  
  1002.         IF RECCOUNT('tmpTablas')>0 THEN
  1003.             lcListField = ''
  1004.             lcListWhere = ''
  1005.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  1006.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  1007.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  1008.             ENDSCAN
  1009.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  1010.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  1011.            
  1012.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  1013.                                 +' WHERE '+lcListWhere
  1014.         ENDIF
  1015.        
  1016.         IF USED('tmpTablas') THEN
  1017.             USE IN tmpTablas
  1018.         ENDIF
  1019.         RETURN lcSelectReturn
  1020.     ENDFUNC
  1021.  
  1022.     *----------------------------------------------------------------------------*
  1023.     FUNCTION generaCursorTemporal
  1024.     LPARAMETERS tcTableName, tcCursorName
  1025.     *
  1026.     *----------------------------------------------------------------------------*
  1027.         SELECT tablename, fieldname ;
  1028.             FROM tablas;
  1029.                 WHERE tablas.tablename=tcTableName;
  1030.                 INTO CURSOR (tcCursorName)
  1031.     ENDFUNC
  1032.    
  1033.     *----------------------------------------------------------------------------*
  1034.     FUNCTION abrirTablaPrincipal
  1035.     *
  1036.     *----------------------------------------------------------------------------*
  1037.         IF !USED('tablas') THEN
  1038.             IF !FILE('tablas.dbf') THEN
  1039.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  1040.                 USE IN tablas
  1041.             ENDIF
  1042.             USE tablas IN 0
  1043.         ENDIF
  1044.     ENDFUNC
  1045.        
  1046.     *----------------------------------------------------------------------------*
  1047.     FUNCTION destroy
  1048.     *
  1049.     *----------------------------------------------------------------------------*
  1050.  
  1051.     ENDFUNC
  1052.    
  1053. ENDDEFI
  1054. *
  1055. *-----------------------------------------------------------------------------------*
  1056.  
  1057.     *----------------------------------------------------------------------------*
  1058.     FUNCTION init
  1059.     *
  1060.     *----------------------------------------------------------------------------*
  1061.  
  1062.     ENDFUNC
  1063.    
  1064.     *----------------------------------------------------------------------------*
  1065.     FUNCTION getSelect
  1066.     LPARAMETERS tcTableName
  1067.     *
  1068.     *----------------------------------------------------------------------------*
  1069.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  1070.         lcTableName=ALLTRIM(LOWER(tcTableName))
  1071.         THIS.abrirTablaPrincipal()
  1072.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  1073.  
  1074.         IF RECCOUNT('tmpTablas')>0 THEN
  1075.             lcListField = ''
  1076.             lcListWhere = ''
  1077.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  1078.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  1079.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  1080.             ENDSCAN
  1081.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  1082.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  1083.            
  1084.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  1085.                                 +' WHERE '+lcListWhere
  1086.         ENDIF
  1087.        
  1088.         IF USED('tmpTablas') THEN
  1089.             USE IN tmpTablas
  1090.         ENDIF
  1091.         RETURN lcSelectReturn
  1092.     ENDFUNC
  1093.  
  1094.     *----------------------------------------------------------------------------*
  1095.     FUNCTION generaCursorTemporal
  1096.     LPARAMETERS tcTableName, tcCursorName
  1097.     *
  1098.     *----------------------------------------------------------------------------*
  1099.         SELECT tablename, fieldname ;
  1100.             FROM tablas;
  1101.                 WHERE tablas.tablename=tcTableName;
  1102.                 INTO CURSOR (tcCursorName)
  1103.     ENDFUNC
  1104.    
  1105.     *----------------------------------------------------------------------------*
  1106.     FUNCTION abrirTablaPrincipal
  1107.     *
  1108.     *----------------------------------------------------------------------------*
  1109.         IF !USED('tablas') THEN
  1110.             IF !FILE('tablas.dbf') THEN
  1111.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  1112.                 USE IN tablas
  1113.             ENDIF
  1114.             USE tablas IN 0
  1115.         ENDIF
  1116.     ENDFUNC
  1117.        
  1118.     *----------------------------------------------------------------------------*
  1119.     FUNCTION destroy
  1120.     *
  1121.     *----------------------------------------------------------------------------*
  1122.  
  1123.     ENDFUNC
  1124.    
  1125. ENDDEFI
  1126. *-----------------------------------------------------------------------------------*
  1127.  
  1128.     *----------------------------------------------------------------------------*
  1129.     FUNCTION init
  1130.     *
  1131.     *----------------------------------------------------------------------------*
  1132.  
  1133.     ENDFUNC
  1134.    
  1135.     *----------------------------------------------------------------------------*
  1136.     FUNCTION getSelect
  1137.     LPARAMETERS tcTableName
  1138.     *
  1139.     *----------------------------------------------------------------------------*
  1140.         LOCAL lcTableName, lcListField, lcListWhere, lcSelectReturn
  1141.         lcTableName=ALLTRIM(LOWER(tcTableName))
  1142.         THIS.abrirTablaPrincipal()
  1143.         THIS.generaCursorTemporal(lcTableName, 'tmpTablas')
  1144.  
  1145.         IF RECCOUNT('tmpTablas')>0 THEN
  1146.             lcListField = ''
  1147.             lcListWhere = ''
  1148.             SCAN REST WHILE tmpTablas.tablename=lcTableName
  1149.                 lcListField = lcListField + ALLTRIM(tmpTablas.FieldName) + ', '
  1150.                 lcListWhere = lcListWhere + '!EMPTY('+ALLTRIM(tmpTablas.FieldName)+') AND '
  1151.             ENDSCAN
  1152.             lcListField = SUBSTR(lcListField,1,LEN(lcListField)-2)
  1153.             lcListWhere = SUBSTR(lcListWhere,1,LEN(lcListWhere)-4)
  1154.            
  1155.             lcSelectReturn = 'SELECT '+lcListField + " FROM "+lcTableName;
  1156.                                 +' WHERE '+lcListWhere
  1157.         ENDIF
  1158.        
  1159.         IF USED('tmpTablas') THEN
  1160.             USE IN tmpTablas
  1161.         ENDIF
  1162.         RETURN lcSelectReturn
  1163.     ENDFUNC
  1164.  
  1165.     *----------------------------------------------------------------------------*
  1166.     FUNCTION generaCursorTemporal
  1167.     LPARAMETERS tcTableName, tcCursorName
  1168.     *
  1169.     *----------------------------------------------------------------------------*
  1170.         SELECT tablename, fieldname ;
  1171.             FROM tablas;
  1172.                 WHERE tablas.tablename=tcTableName;
  1173.                 INTO CURSOR (tcCursorName)
  1174.     ENDFUNC
  1175.    
  1176.     *----------------------------------------------------------------------------*
  1177.     FUNCTION abrirTablaPrincipal
  1178.     *
  1179.     *----------------------------------------------------------------------------*
  1180.         IF !USED('tablas') THEN
  1181.             IF !FILE('tablas.dbf') THEN
  1182.                 CREATE TABLE tablas (tablename   C(12), fieldname  C(12))
  1183.                 USE IN tablas
  1184.             ENDIF
  1185.             USE tablas IN 0
  1186.         ENDIF
  1187.     ENDFUNC
  1188.        
  1189.     *----------------------------------------------------------------------------*
  1190.     FUNCTION destroy
  1191.     *
  1192.     *----------------------------------------------------------------------------*
  1193.  
  1194.     ENDFUNC
  1195.    
  1196. ENDDEFINE
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!