FiveTech Support Forums

REDEFINE GET oGet[24] VAR aElectro:remito picture "9999-99999999"  ID 120  of oDlg1 update valid remito()

REDEFINE CHECKBOX oGet[28] VAR aElectro:lcheck id 124 of oDlg1  update

REDEFINE LISTBOX oLbx fields "" ID 114 of odlg1 UPDATE  
olbx:disable() 


///etc

STATIC FUNCTION REMITO()
local lCredito := .f.
if !aElectro:lcheck 
              aadd(aElectro:adet,{space(50),0,.t.})
              oLbx:enable()
              oLbx:SetArray(aElectro:aDet)    
                      oLbx:aheaders:= {"Detalle","Total"}
                      oLbx:aColSizes := {400,120} 

                       oLbx:bline:= {|nAt| nAt:= oLbx:nAt,;
                                             if(len(aElectro:aDet)<1 .or. nAt>len(aElectro:aDet),;
                                                 array(2),;
                                                 {  transform(aElectro:aDet[nAt,1],"@!"),;
                                                 transform(aElectro:aDet[nAt,2],"@ze 999,999.99")  }) }  
                       oLbx:aJustify := {HA_LEFT,HA_RIGHT}
                       oLbx:aHJustify :={HA_CENTER,HA_CENTER}
                       oLbx:lAutoedit := .t.
                       oLbx:lAdjlastcol:= .t.
                       oLbx:lAutoSkip := .t.
                       oLbx:nLineStyle := 3
                       oLbx:Set3Dstyle()     
               oLbx:bedit := {|nCol,cBuffer,lFirstedit| Editacelda(oLbx,ncol,cbuffer,lFirstedit,.f.,dfec)} 
               oLbx:refresh()
   return .t.
endif
///
luego la otra opción que es un array del tipo
aadd(adet,{0,"","",0,0,"",0,0,0})