FiveTech Support Forums

cAlias := cGetNewAlias( "UTILE2" )
   USE UTILE2 NEW ALIAS (cAlias) SHARED VIA "DBFCDX"
   SET ORDER TO TAG 1
   GO TOP
ordscope(0,chiavelocate)
ordscope(1,chiavelocate)
DbGotop()

DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12
DEFINE DIALOG oDlg SIZE 1000,600 PIXEL TITLE UTILE1->RAGSOC FONT oFont;
            
@ 10,10 XBROWSE oBrw SIZE -10,-30 PIXEL OF oDlg ;
            AUTOSORT FOOTERS LINES CELL ALIAS cAlias ;
            COLUMNS "DESCRI", "UM", "QUANTI", "PREZZO", "EXTRA", "SCONTO", "IMPORT", "COSTO/1000", ;
                    "PERCUT", "EURTON", "KGVEND" ;
            HEADERS "DESCRIZIONE", "UM", "QUANTITA'", "PREZZO", "EXTRA", ;
                    "SCONTO", "IMPORTO", "COSTO", "% UT", "UT/TN", "KG" ;
            PICTURES ,,'@E 9,999,999.99','@E 999.99999','@E 9.99999','@E 999.99','@E 9,999,999.99', ;
                     '@E 999.99999','@E 9999.99','@E 99999.99', '@E 99999.99' ;
            SIZES   280,,70,,,,70

oBrw:bLogicLen = { || reccount()}
            
if !Empty( oCol := oBrw:oCol( "KG" ) )
    oCol:nFooterType := AGGR_SUM
endif   

oBrw:MakeTotals()
oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED

oBrw:bLogicLen = { || reccount()}