Enviar formato Xls -Excel

[Jorge_T]

Buenos días,

Necesito ayuda de como enviar a formato "Excel" desde un browse, pero respentando los campos de fecha, numéricos con decimales, etc

Muchas gracias,

[acuellar]

Jorge

Tenes que usar: bEditValue y cEditPicture

Code: Select all  Expand view  RUN

oCol:bEditValue := { || FECHAING }

oCol:cEditPicture:="@Z 999,999.99"
oCol:bEditValue := { || IMPORTE }
 

[Jorge_T]

Muchas gracias Adhemar,

En el xBrowse en pantalla si veo bien los "pictures", el problema es que cuando lo envio a "calc" o "Excel" no respesta el punto decimal ni el separador de miles del picture y por lo tanto es como si no fuera numérico . Te adjunto una muestra de código, supongo que es una tonteria pero estoy atascado con esto y no logro solventarlo. Muchas gracias, saludos,

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "XBrowse.Ch"

function Main()
    local oDlg, oBrw
    local oWnd
   
    SET DATE BRITISH
    SET CENTURY ON

    USE ITEMS  
        /*  
        CCODE       Character         10        
        DETAIL      Character         50        
        PVP1        Numeric           14       5
        PVP2        Numeric           14       5
        PVP3        Numeric           14       5
        ARTIVA      Numeric            5       2
        LASTCHANGE  Date               8       0             
        */
   
    DEFINE DIALOG oDlg SIZE 1100,600 PIXEL
   
    @ 40, 20 XBROWSE oBrw SIZE -20,-20 PIXEL OF odlg;
            DATASOURCE "ITEMS" AUTOSORT;
            COLUMNS "CCODE", "DETAIL", "PVP1", "PVP2", "PVP3", "ARTIVA" ,"LASTCHANGE";
            CELL LINES noborder FOOTERS FASTEDIT      
           
            WITH OBJECT oBrw:aCols[3]  //columna pvp1
                :bEditValue := {|| PVP1   }
                :cEditPicture:= "@E 999,999.99999"
            END 
   
            WITH OBJECT oBrw:aCols[4]  //columna pvp2
                :cEditPicture:= "@E 999,999.99999"
            END
           
            WITH OBJECT oBrw:aCols[5]  //columna pvp3
                :cEditPicture:= "@E 999,999.99999"
            END
           
            WITH OBJECT oBrw:aCols[6]  //columna artiva
                :cEditPicture:= "@E 99.99"
            END

            WITH OBJECT oBrw                       
                :nEditTypes    := EDIT_GET                 
                :CreateFromCode()
            END   


    @ 2,2 BUTTONbmp obtn prompt " a To Calc LibreOffice"  SIZE 60,16 PIXEL OF oDlg tooltip "Calc" ACTION obrw:tocalc()

    ACTIVATE dialog oDlg Centered
   
RETURN