Practicamente uso esta clase en todas mis aplicaciones sin importar el RDD (NTX, CDX, ADS o SQL) y sin hacer cambios al c贸digo.
Tal vez les distraiga el uso de nClrM, LightColor() y SR_DBRefresh() pueden quitarlas o comentarlas y debe funcionar.
Estos son unos ejemplos del c贸digo usado en RC-eXtended:
Tal vez les distraiga el uso de nClrM, LightColor() y SR_DBRefresh() pueden quitarlas o comentarlas y debe funcionar.
Estos son unos ejemplos del c贸digo usado en RC-eXtended:
--- Muestra el Catalogo Contable
REDEFINE LISTBOX oBrw ;
FIELDS Desp_Cur(hBmp), Desp_Fld1(), Desp_Fld2();
HEADERS "", "N煤mero de Cuenta","Descripci贸n" ;
SIZES 15,110,315 ;
ALIAS (oDCat)->(Alias()) ID 110 OF oDlg
oBrw:nColAct:=2
oBrw:lFirst :=.T.
oBrw:lCellStyle :=.T.
oBrw:lAdjLastCol:=.F.
oBrw:nHeaderHeight:=15
oBrw:nClrForeHead:=CLR_BLUE
oBrw:bChange :={|| Refresca()}
oBrw:bLDblClick:={|| Desp_Mov()}
oBrw:bKeyDown :={|nKey| Val_nKey(nKey)}
oBrw:bRClicked :={|nRow,nCol| Pop_Menu(nRow,nCol,oDlg)}
IF DbSetDriver()<>"SQLRDD"
oBrw:nClrPane:={|| IF((oBrw:cAlias)->(OrdKeyNo())%2==0,nClrB,CLR_LGRAY)}
ENDIF
---
STAT FUNC Desp_Cur(hBmp) // cursor
RETURN (IF(oBrw:lSelect,bBmp,""))
STAT FUNC Desp_Fld1()
RETURN (IF((oDCat)->(IndexOrd())=1,Forma_Cta((oDCat)->CveCta,1),(oDCat)->DesCta))
STAT FUNC Desp_Fld2()
RETURN (IF((oDCat)->(IndexOrd())=1,(oDCat)->DesCta,Forma_Cta((oDCat)->CveCta,1)))--- Control del Registro de P贸lizas
FOR nI=1 TO 12
REDEFINE LISTBOX oBrw[nI] ;
FIELDS Desp_Fld1(), Desp_Fld2(), Desp_Fld3(), ;
(oDPol)->ConCor, DesI_Deb(), DesI_Hab(), Desp_Sta(aX,oBtn) ;
HEADER "Tipo", "N煤mero", "Fecha", "Concepto", "Debe", "Haber", "S" ;
SIZES 50, 50, 80,279,100,100, 15 ;
ALIAS (oDPol)->(Alias()) ID 110 OF oFld:aDialogs[nI]
oBrw[nI]:lCellStyle :=.T.
oBrw[nI]:lAdjLastCol :=.F.
oBrw[nI]:lDrawFooters:=.T.
oBrw[nI]:nHeaderHeight:=15
oBrw[nI]:nFooterHeight:=15
oBrw[nI]:nClrForeHead:=CLR_BLUE
oBrw[nI]:aJustify :={0,2,2,0,1,1,2}
oBrw[nI]:aFJustify :={2,0,1,0,1,1,2}
oBrw[nI]:bChange :={|| Refr_Ref()}
oBrw[nI]:bLDblClick:={|| Sol_Datos(.F.)}
oBrw[nI]:bKeyDown :={|nKey| Val_nKey(nKey)}
oBrw[nI]:bRClicked :={|nRow,nCol| Pop_Menu(nRow,nCol,oDlg)}
oBrw[nI]:aFooters :={|| {"","",Tran(oT:aTot[1],"9999 ")," P贸liza(s) ", ;
Tran(oT:aTot[2],"9999,999,999.99"),Tran(oT:aTot[3],"9999,999,999.99")}}
IF DbSetDriver()<>"SQLRDD"
oBrw[nI]:nClrPane:={|| IF((oDPol)->(OrdKeyNo())%2==0,nClrB,CLR_LGRAY)}
ENDIF
NEXT nI
---