FiveTech Software tech support forums

Code: Select all

oCol:bEditValue := { || FECHAING }

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

Code: Select all

#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