Código: Selecionar todos
#INCLUDE "TESTLBX5.CH"
#INCLUDE "FIVEWIN.CH"
FUNCTION Main()
local oLbx, oDlg, nItem := 0, oMeter, nMeter
local n, nSelected := 0, aSel := {}
DEFINE DIALOG oDlg RESOURCE "REINDEX"
REDEFINE LISTBOX oLbx VAR nItem ;
ID RIN_LISTBOX OF oDlg ;
ITEMS NomiFiles() ;
BITMAPS { "CHECKON", "CHECKOFF" } ;
ON DRAWITEM ( IIF(ascan(oLbx:GetSelItems(),nItem)>0, 1, 2) );
ON CHANGE (nSelected := oLbx:GetSelCount(), oDlg:AevalWhen());
COLOR "n/w"
REDEFINE button ID RIN_ALL OF oDLG ;
ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.t.) }), oLbx:Change())
REDEFINE button ID RIN_NONE OF oDLG ;
ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.f.) }), oLbx:Change());
WHEN nSelected > 0
REDEFINE button ID RIN_INDEX OF oDLG ;
ACTION reind(oLbx,"INDEX",oMeter), oLbx:Change();
WHEN nSelected > 0
REDEFINE button ID RIN_REINDEX OF oDLG ;
ACTION reind(oLbx,"REINDEX",oMeter), oLbx:Change();
WHEN nSelected > 0
REDEFINE button ID RIN_PACK OF oDLG ;
ACTION reind(oLbx,"PACK",oMeter), oLbx:Change();
WHEN nSelected > 0
REDEFINE button ID RIN_CANCEL of oDLG CANCEL;
ACTION oDlg:END()
REDEFINE METER oMeter VAR nMETER ID RIN_METER1 OF oDLG
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
//----------------------------------------------------------------------------//
STATIC FUNCTION REIND(oLbx,cAz,oMeter)
LOCAL cDbf
LOCAL cFILE
LOCAL cIND
LOCAL aIT := oLbx:GetSelItems(), n, nTag, nM
oLbx:oWnd:disable()
FOR n := 1 TO len(aIT)
Cursorwait()
oLbx:Select(aIT[n])
cDbf := upper(oLbx:aItems[aIT[n]])
cFILE := cFILENOEXT(cDBF)
cIND := cFILE + ORDBAGEXT()
oLbx:SetSel(aIt[n],.f.)
sysrefresh()
NEXT
oMETER:SETTOTAL(1)
oMETER:set(0)
oLbx:oWnd:enable()
cursorarrow()
RETURN NIL
STATIC FUNCTION NomiFiles()
RETURN {;
"TADTABPF.DBF", ;
"TADHLPPF.DBF", ;
"TADCLIPF.DBF", ;
"TADCL2PF.DBF", ;
"TADCALPF.DBF", ;
"TADMDIPF.DBF" ;
}
Código: Selecionar todos
* Browse Ficha Financeira
oDB_CADFIN := TXBrowse():New( oDld_CAD_ENT_DIV )
oDB_CADFIN:cAlias := 'cadfin'
oDB_CADFIN:bKeyDown :={|nKey| IF(nkey=13, T_ID_CADFIN:=cadfin->ID_CADFIN,( temp(), ) ) }
oDB_CADFIN:bChange :={|| T_ID_CADFIN:=cadfin->ID_CADFIN }
oDB_CADFIN:bLDblClick :={|| T_ID_CADFIN:=cadfin->ID_CADFIN }
oDB_CADFIN:nMarqueeStyle := MARQSTYLE_HIGHLROW
oDB_CADFIN:nColDividerStyle := LINESTYLE_BLACK
oDB_CADFIN:nRowDividerStyle := LINESTYLE_BLACK
oDB_CADFIN:lColDividerComplete := .F.
oDB_CADFIN:lFooter := .T.
oDB_CADFIN:lRecordSelector := .T.
oDB_CADFIN:nHeaderLines := 1.5
oDB_CADFIN:nDataLines := 1.5
*
oCol := oDB_CADFIN:AddCol()
oCol:bStrData := { || DTOC(cadfin->DATA_PGMTO) }
oCol:cHeader := "Data"
oCol:nDataStrAlign := AL_LEFT
oCol:nHeadStrAlign := AL_LEFT
*
oCol := oDB_CADFIN:AddCol()
oCol:bStrData := { || TRANSFORM(cadfin->VALOR_PGMTO,"@E 999,999.99") }
oCol:cHeader := "Valor"
oCol:nDataStrAlign := AL_LEFT
oCol:nHeadStrAlign := AL_LEFT
*
oCol := oDB_CADFIN:AddCol()
oCol:bStrData := { || cadfin->HISTORICO }
oCol:cHeader := "Histórico"
oCol:nDataStrAlign := AL_LEFT
oCol:nHeadStrAlign := AL_LEFT
*
oDB_CADFIN:CreateFromResource(4043)
*