FiveTech Software tech support forums

Posted: **Tue Mar 16, 2021 1:38 pm**

Hola Amigos.

Necesito en forma urgente pasar completamente una Dbf a Excel, no se requiere ninguna exigencia especial, debe pasar los mismo campo y datos.

El requisito es hacerlo para Excel de Office 2010.

1. FW_DbfToExcel() = No funciona en Excel 2010 con campos Date()

2. ToExcel() = No uso Xbrowse.

En espera de su urgente ayuda, les saluda,

Antonio.

Posted: **Tue Mar 16, 2021 1:54 pm**

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=38145&p=227857&hilit=Pasar+DBF+a+EXCEL&sid=a5d012ed0b5d14d02e5e583200a7717d&sid=be8261c81a99f643c37c81ee05972ceb#p227857

Posted: **Tue Mar 16, 2021 2:31 pm**

Hola Karinha

Muchas gracias por responder.

De este link, aplique lo que explico, al igual que explique en un link anterior sobre el mismo problema.

FW_DbfToExcel(), cumpliria con mi necesidad, pero no convierte correctamente los campos fecha en Excel 2010.

Ejemplo: Fecha "15/01/2021", en excel Office 2010 lo muestra con el valor "44211".

Saludos,

Antonio

Posted: **Tue Mar 16, 2021 2:44 pm**

Muestra tú código final, no tengo excel 2010 para testes.

Saludos.

Posted: **Tue Mar 16, 2021 3:07 pm**

Muchas gracias Karinha.

Este simple codigo, abre la dbf y genera la planilla, cuando se abre excel con la planilla, esta tiene el campo fecha con el valor que indico arriba.

Ahora si esta misma dbf la abro directo desde excel, el campo fecha se muestra correctamente, lo que indica que es algo en la conversión que realiza FW_DbfToExcel().

Saludos

Antonio

Code: Select all Expand view: MsgRun(" GENERANDO PLANILLA EXCEL ", "Espere...") Sele 1 Use Ingreso Exclusive Ingreso->( FW_DbfToExcel()) MsgRun(" ABRIENDO Y CARGANDO PLANILLA EXCEL ", "Espere...")

Posted: **Tue Mar 16, 2021 3:28 pm**

Mira se ayuda:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37425&start=0

Saludos.

Posted: **Tue Mar 16, 2021 11:22 pm**

Amigo:

La rápida, abre la DBF con Excel y listo.

Saludos

Posted: **Wed Mar 17, 2021 8:45 am**

Code: Select all Expand view: USE CUSTOMER NEW VIA "DBFCDX" FW_DbfToExcel( "FIRST,CITY,AGE,HIREDATE,SALARY", , { || RECNO() < 6 } ) return nil

Posted: **Wed Mar 17, 2021 12:36 pm**

nageswaragunupudi wrote:
Code: Select all Expand view
USE CUSTOMER NEW VIA "DBFCDX" FW_DbfToExcel( "FIRST,CITY,AGE,HIREDATE,SALARY", , { || RECNO() < 6 } ) return nil

Amigo, muchas gracias por responder.

Aplique lo que me indicas, pero en Office 2010, pero para la fecha 15/01/2021 la cambia por 44211 y me entrega esto:
Fol_ing Fec_Ate Det_Pac
1984421 44211 SONIA PUELMA XXXXXX
1984432 44211 ISAAC IBAÑEZ RAMA
1984443 44211 EDGAR BARRA VURGOS
1984454 44211 ALBERTINA ORDENES VELIZ

En Office 365 funciona muy bien, pero mi cliente funciona con Office 2010.

Muchos saludos y muchas gracias.
Antonio

Code: Select all Expand view: Sele Ingreso FW_DbfToExcel( "Fol_ing,Fec_Ate,Det_Pac", , { || RECNO() < 100} )

Posted: **Wed Mar 17, 2021 12:39 pm**

Armando wrote:Amigo:

La rápida, abre la DBF con Excel y listo.

Saludos

Hola Armando, como estas.

Seria lo ideal para si el cliente lo quisiera asi, pero su requerimiento es que desde el boton "Genera Excel", se abra la planilla en su excel, no quiso que se guardara en el disco, la planilla desea hacer algunos controles y comparaciones con otras.

Muchas gracias y muchos saludos.

Antonio

Posted: **Wed Mar 17, 2021 3:58 pm**

Hola Amigos

No logro dar con la solución, usando Excel 2010.

He probado con:

Ingreso->(FW_DbfToExcel( ,,,,,, cSaveTo2 )) <--- Grando en Disco
o
Ingreso->( FW_DbfToExcel()) <--- Abriendo planilla directo a excel.

Incluso, pase la fecha como Character, para ver si cambiaba y nada.

Ambas opciones el campo fecha, no registra como un numero, como lo indico mas arriba.

Alguna idea para solución.

Saludos.

Antonio

Posted: **Wed Mar 17, 2021 6:46 pm**

Aplique lo que me indicas, pero en Office 2010, pero para la fecha 15/01/2021 la cambia por 44211 y me entrega esto:
Fol_ing Fec_Ate Det_Pac
1984421 44211 SONIA PUELMA XXXXXX
1984432 44211 ISAAC IBAÑEZ RAMA
1984443 44211 EDGAR BARRA VURGOS
1984454 44211 ALBERTINA ORDENES VELIZ

Una pregunta , si esta fecha(44211) intentas formatearla manualmente como fecha en otro formato, te lo cambiar a 15/01/2021 o tampoco ?

Saludos

Jose.

Posted: **Wed Mar 17, 2021 7:41 pm**

Hola Jose.

Muchas gracias por responder.

Revise el tipo de campo que viene el la planilla:

Campo Fecha en la base de datos: "Fec_Ate" , "D",08,0

Campo Fecha en planilla generada: Numero

Pero revisando todos los campos de la planilla, son tipo Número.

Muchos Saludos

Antonio

Estructura de la Base de datos completa:

Code: Select all Expand view: aStru :={{"Fol_Ing" , "N",10,0 },; {"Fec_Ate" , "D",08,0 },; {"Nom_Pac" , "C",35,0 },; {"Tip_Ate" , "C",4,0},; {"Cod_Esp" , "C",4,0},; {"Med_Tra" , "C",4,0 },; {"Tip_Pag" , "C",4,0 },; {"Val_Bon" , "N",10,0 },; {"Rut_Afi" , "C",12,0 },; {"Fol_Caj" , "N",10,0 },; {"Num_Bon" , "C",15,0 }}

Posted: **Thu Mar 18, 2021 2:01 am**

Please try:

Code: Select all Expand view: oSheet := FW_DbfToExcel( "Fol_ing,Fec_Ate,Det_Pac", , { || RECNO() < 100} ) oSheet:Columns( 2 ):NumberFormat := "dd/mm/yyyy"

Also, please let us know your version of FWH.

Posted: **Thu Mar 18, 2021 12:24 pm**

nageswaragunupudi wrote:Please try:
Code: Select all Expand view
oSheet := FW_DbfToExcel( "Fol_ing,Fec_Ate,Det_Pac", , { || RECNO() < 100} ) oSheet:Columns( 2 ):NumberFormat := "dd/mm/yyyy"

Also, please let us know your version of FWH.

Mr Roa,

Muy buen dia.

Muchas gracias por responder, como siempre Maestro.

Funciono Perfecto, ahora podre dormir tranquilo.

Muchos Saludos.
Antonio

FiveTech Software tech support forums

Pasar DBF a EXCEL "SOLUCIONADO"

Pasar DBF a EXCEL "SOLUCIONADO"

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL

Re: Pasar DBF a EXCEL