FiveTech Software tech support forums

... endif ****************** Después index **************** index on _field->Albaran tag "Albaran" ; eval(oMeter1:Set(recno()),oMeter2:Set(++parci),SysRefresh()) oMeter1:nTotal =reccount() otext:SetText(otextos[6]) ***************** Y sobre éste tema tengo algunas preguntas ...

... ID 111 OF oCopia; PROMPT " " ; COLORS CLR_HGRAY, CLR_BLUE ; BARCOLOR CLR_HGREEN, CLR_BLUE REDEFINE SAY oSay3 ID 140 OF oCopia :cry: REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia; PROMPT " " ; COLORS CLR_HGRAY, CLR_BLUE ; BARCOLOR CLR_HRED, CLR_BLUE oCopia:bStart := { || SendFiles( aSource, ...

... ID 111 OF oCopia; PROMPT " " ; COLORS CLR_HGRAY, CLR_BLUE ; BARCOLOR CLR_HGREEN, CLR_BLUE REDEFINE SAY oSay3 ID 140 OF oCopia :cry: REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia; PROMPT " " ; COLORS CLR_HGRAY, CLR_BLUE ; BARCOLOR CLR_HRED, CLR_BLUE oCopia:bStart := { || SendFiles( aSource, ...

... static func GetFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) //-------------------------------------------------------------------- local n, hTarget, cBuffer := Space( nBufSize ), nBytes, ...

... <{key}>, [<.u.>] ) FUNCTION OpenDbfs() PRIVATE oDlg1,; oMeter1,; nMeter1 := 0,; oMeter2,; nMeter2 := 0,; lRetVal := .F.,; oOpenIco,; lDlgKill lDlgKill := .F. DEFINE DIALOG oDlg1 NAME "FLS_OPEN"; FONT oMainFont ...