FiveTech Software tech support forums

Code: Select all  Expand view

#include "FiveWin.ch"
function Main()
   local oDlg,  oBrw, oBtn
   use customer alias "customer"

   DEFINE DIALOG oDlg SIZE 980,400 PIXEL TITLE "REPORTE y EXPORTACION RAPIDA"
   oDlg:lHelpIcon := .f.
   @ 40,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      ALIAS "customer" AUTOCOLS ;
      CELL LINES FOOTERS NOBORDER  
   WITH OBJECT oBrw
      :CreateFromCode()
   END
   
   @ 08,10 BTNBMP oBtn ;
      PROMPT "Exportar" RESOURCE "EXCE" SIZE 30,30;
      PIXEL OF oDlg FLAT TOP ;
      ACTION oBrw:ToExcel()

   @ 08,50 BTNBMP oBtn ;
      PROMPT "Report" RESOURCE "IMPR" SIZE 30,30;
      PIXEL OF oDlg FLAT TOP ;
      ACTION oBrw:Report("Reporte de Personas",.t.)

   @ 08,90 BTNBMP oBtn ;
      PROMPT "Salir" RESOURCE "SALE" SIZE 30,30;
      PIXEL OF oDlg FLAT TOP ;
      ACTION oDlg:End()      

   ACTIVATE DIALOG oDlg CENTERED
   

return nil
 

karinha wrote:Buen día. Puedes hacer fácilmente ambas clases. Aunque, con TPRINTER.PRG, tendrás un DISPLAY() mucho mejor y su control es mucho más sencillo.

Gracias,

Regards, saludos.

karinha wrote:Buen día. Puedes hacer fácilmente ambas clases. Aunque, con TPRINTER.PRG, tendrás un DISPLAY() mucho mejor y su control es mucho más sencillo.

Gracias,

Regards, saludos.

cmsoft wrote:Si el objetivo es simplemente pasarlo a Excel, una buena opción sería mostrarlo en un Xbrowse y usar los métodos ToExcel y Report de xbrowse
Claro que tienes que configurar bien las columnas, pero es el camino más corto.

Code: Select all  Expand view

#include "FiveWin.ch"
function Main()
   local oDlg,  oBrw, oBtn
   use customer alias "customer"

   DEFINE DIALOG oDlg SIZE 980,400 PIXEL TITLE "REPORTE y EXPORTACION RAPIDA"
   oDlg:lHelpIcon := .f.
   @ 40,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      ALIAS "customer" AUTOCOLS ;
      CELL LINES FOOTERS NOBORDER  
   WITH OBJECT oBrw
      :CreateFromCode()
   END
   
   @ 08,10 BTNBMP oBtn ;
      PROMPT "Exportar" RESOURCE "EXCE" SIZE 30,30;
      PIXEL OF oDlg FLAT TOP ;
      ACTION oBrw:ToExcel()

   @ 08,50 BTNBMP oBtn ;
      PROMPT "Report" RESOURCE "IMPR" SIZE 30,30;
      PIXEL OF oDlg FLAT TOP ;
      ACTION oBrw:Report("Reporte de Personas",.t.)

   @ 08,90 BTNBMP oBtn ;
      PROMPT "Salir" RESOURCE "SALE" SIZE 30,30;
      PIXEL OF oDlg FLAT TOP ;
      ACTION oDlg:End()      

   ACTIVATE DIALOG oDlg CENTERED
   

return nil
 

karinha wrote:Antonio,

Buen día. Haga que el .DBF esté disponible en el Mega Upload y veré si puedo crear algo para usted.

Regards, saludos.

karinha wrote:Antonio, Se requiere permiso.

Use Mega Upload, és más simples:

https://mega.nz/

Regards, saludos.

remtec wrote:

karinha wrote:Antonio, Se requiere permiso.

Use Mega Upload, és más simples:

https://mega.nz/

Regards, saludos.

Hola João

Muchas gracias por su preocupacion.

Libere el acceso al link, para bajar el archivo, es de pocos registros.

Muchos Saludos

Antonio.

karinha wrote:

remtec wrote:

karinha wrote:Antonio, Se requiere permiso.

Use Mega Upload, és más simples:

https://mega.nz/

Regards, saludos.

Hola João

Muchas gracias por su preocupacion.

Libere el acceso al link, para bajar el archivo, es de pocos registros.

Muchos Saludos

Antonio.

Antonio, mira se ayuda. Usando REPORT.PRG

Dudas, pregunte.

link para download:

https://mega.nz/file/1dcU3brC#SmftI20Eq1EOZRt-AZmAYgLJu4XlH83JXZL8UBRzxW4

Regards, saludos.

Code: Select all  Expand view

// C:\FWH\SAMPLES\EXCELREM.PRG - kapiabafwh@gmail.com - 23/09/2022

#Include "FiveWin.ch"

// Defines para o segundo parâmetro - Ejemplo by Rochinha. FiveWin Brasil.

#define xlCSV            6 //        CSV    *.csv
#define xlCSVMSDOS      24 //        MSDOS CSV    *.csv
#define xlCSVWindows    23 //        Windows CSV    *.csv
#define xlDBF3           8 //        Dbase 3 format    *.dbf
#define xlExcel8        56 //        Excel 97-2003 Workbook    *.xls
#define xlHtml          44 //        HTML format    *.htm; *.html
#define xlTextMSDOS     21 //        MSDOS Text    *.txt

FUNCTION Main()

   HB_GCALL( .F. )

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET _3DLOOK ON
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON  // CONTROLA O :=, = e ==
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   MsgRun( "AGUARDE... ABRINDO OS BANCOS DE DADOS.   ",                      ;
           "Por Favor, Espere Abertura. Pode demorar.",                      ;
           { || WinExec( Excel_Remtec() ), 3 } )

   DbCommitAll()
   DbUnLockAll()
   DbCloseAll()
   FreeResources()
   Release All
   SysRefresh()
   HB_GCALL( .T. )

   CLEAR MEMORY

   PostQuitMessage( 0 )

   QUIT

RETURN NIL

FUNCTION Excel_Remtec()

   LOCAL oExcel, oWorkbook, oWorksheet

   TRY

      oExcel := TOleAuto():New( "Excel.Application" )

   CATCH

      TRY

         oExcel = CreateObject( "Excel.Application" )

      CATCH

         MsgInfo( "Excel is not installed on this PC. " + ;
                  "You need Excel to continue", "Ooooopppsss" )

         RETURN( .F. )

      END

   END

   oWorkbook := oExcel:WorkBooks

   // Apertura del *.DBF
   oWorkbook:Open( "c:\temp\REMTEC.DBF" )

   oExcel:DisplayAlerts := .F.
   oExcel:Visible       := .T.

   oWorksheet := oExcel:Get( "ActiveSheet" )

   // Graba
   oWorksheet:SaveAs( "c:\temp\tabela.CSV",  6 ) // Segundo parâmetro informa o tipo de saída
   oWorksheet:SaveAs( "c:\temp\tabela.XLS", 56 ) // Segundo parâmetro informa o tipo de saída

RETURN NIL
// FIN