|
Export to Excel (pass table by parameter) |
Débuté par guillermo, 01 nov. 2005 23:43 - 1 réponse |
| |
| | | |
|
| |
Posté le 01 novembre 2005 - 23:43 |
Hi forum.... I generated in the global procedure the following procedure PROCEDURE Exportar(Tabla,Destino) sFile is string SWITCH Destino CASE "E" sFile = fSelect("", "", "Escriba el nombre del archivo","Excel files (*.xls) *.xls", "xls", fselCreate + fselExist ) CASE "W" sFile = fSelect("", "", "Escriba el nombre del archivo","Word files (*.rtf) *.rtf", "rtf", fselCreate + fselExist ) CASE "X" sFile = fSelect("", "", "Escriba el nombre del archivo","XML files (*.xml) *.xml", "xml", fselCreate + fselExist ) END IF sFile = "" THEN RETURN SWITCH Destino CASE "E" TableToExcel (Tabla, sFile) CASE "W" TableToWord (Tabla, sFile) CASE "X" TableToXML (Tabla, sFile) END IF YesNo(0,"¿Desea abrir el archivo generado ?") = Yes THEN ShellExecute(sFile) END I call the procedure .... Exportar(TA_Marcas_Moviles,"E").... then this error occurs Error in Global Procedure Exportar process, line 24. TableToExcel function called. Error caused by 1 parameter. TA_Marcas_Moviles control unknown.
What can I do? Thanks .... Guillermo |
| |
| |
| | | |
|
| | |
| |
Posté le 02 novembre 2005 - 15:08 |
Hi Guillermo, I assume, that your "Exportar" isn't a local procedure, right? Pass then the full qualified (wndMyWindow.tbMyTable) table name to your procedure. That should do it. Regards Raimund
Hi forum.... I generated in the global procedure the following procedure PROCEDURE Exportar(Tabla,Destino) sFile is string SWITCH Destino CASE "E" sFile = fSelect("", "", "Escriba el nombre del archivo","Excel files (*.xls) *.xls", "xls", fselCreate + fselExist ) CASE "W" sFile = fSelect("", "", "Escriba el nombre del archivo","Word files (*.rtf) *.rtf", "rtf", fselCreate + fselExist ) CASE "X" sFile = fSelect("", "", "Escriba el nombre del archivo","XML files (*.xml) *.xml", "xml", fselCreate + fselExist ) END IF sFile = "" THEN RETURN SWITCH Destino CASE "E" TableToExcel (Tabla, sFile) CASE "W" TableToWord (Tabla, sFile) CASE "X" TableToXML (Tabla, sFile) END IF YesNo(0,"¿Desea abrir el archivo generado ?") = Yes THEN ShellExecute(sFile) END I call the procedure .... Exportar(TA_Marcas_Moviles,"E").... then this error occurs Error in Global Procedure Exportar process, line 24. TableToExcel function called. Error caused by 1 parameter. TA_Marcas_Moviles control unknown.
What can I do? Thanks .... Guillermo
http://www.invitec.com |
| |
| |
| | | |
|
| | | | |
| | |
|