FiveTech Software tech support forums

... T.

FUNCTION GrafTempo( xContNow, xContTotal )

THREAD STATIC aStatic := { 0, 0, "", "" }
LOCAL nSecondsNow, nSecondsRemaining, nSecondsElapsed, nCont, nPos, cTxt, cCorAnt
LOCAL nPercent, cTexto, mSetDevice

xContNow := iif( xContNow == NIL, "", xContNow )
IF Empty( aStatic[ GRAF_TXT_BAR ...

... nSele := Select()
LOCAL cAvulso
LOCAL cField, nLen
LOCAL oMes,oEmp,oAvu
LOCAL oPan, aCargo, cAno,lAllOk, nPos, aTemp, a
// LOCAL cComp
LOCAL nConti:=0
LOCAL nContador :=0
LOCAL nContador2:=0
local lEnd := .f.


PUBLIC cComp
PUBLIC cMesANO


oPan := SWPanelWindow( "Função Testa Processo ...

... Forum
Tengo este codigo como hago para que me tome los valores de STATE diferentes deacuerdo a la opcion

Caso 1
No lo toma el valor toma el ultimo nCont

nBtn := 0    FOR nCont = 1 TO Len( ::acButtons )              @ pos, iif( nCont == 1 ...

... 2, "0" ) + "-" + Padl( Day( date() ), 2, "0" ) + "T" + time() + "</CreDtTm>"
FWriteLn( nHandle , cadena )
cadena := "<NbOfTxs>" + AllTrim( Str( nCont ) ) + "</NbOfTxs>"
FWriteLn( nHandle , cadena )
cadena := "<CtrlSum>" + AllTrim( Transform( nTotImp, cPictImpSEPA(.F.) ) ) + "</CtrlSum ...

... tpdf():new( cPath )
titpdef( oPdf )

o

function main()
local oPDF
oPDF := PDFClass():New()
oPDF:nType := 1
oPDF:cFileName := "ARQUIVO.PDF"
oPDF:Begin()
foR nCont = 1 TO 1000
oPDF:MaxRowTest()
oPDF:DrawText( oPDF:nRow++, 0, nCont )
NEXT
oPDF:END()
RETURN

Pero no tengo esta Clase. PDFClass()

Hola Amigos,,,
Asi me funciona desde recursos
...
..
REDEFINE METER oMeter1 VAR nMet1 ID 101 OF oDlg TOTAL 100 / 1.16
----
Avanza(oMeter1
--
Function Avanza(oMeter1)
local nCont
FOR nCont := 1 to 456
oMeter2:Set(nCont * 1.16)
SysWait(0.1)
NEXT nCont
Return(Nil)

Sorry,

I use this command :

hOldFnt := SelectObject( hDc, oFont:hFont )

ExtTextOut( hDc, nLinea, 22, {nLinea,22,nLinea+16,22+nwidth}, aText[nCont,1] )


I not remeber but exit a selectobject command to make trasparent ...


I'm trying to create a class to simulate for read a book ...

http&#58 ...

... solucionarlo :

MsgRun("Pegando Datos...","Por favor espere",{|| Cuenta_Pegados(oBrow) })

FUNCTION Cuenta_Pegados(oBrow)
oBrow:aCols[01]:cFooter := "("+Transform(nCont,"99,999")+")..."
oBrow:aCols[05]:cFooter := Transform(nTota,"999,999,999.99")
RETURN .T.

Solo Asi pude actualizar .

Saludos.

... with 5 sundays

this I need to calculate the work Hour in this month

this run ok ( thanks to all )

Function GetSunday( nMonth, nYear )
Local nCont := 0
Local nSunday := 0
Local dInizio := cTod("01/"+StrZero(nMonth,2)+"/"+StrZero(nYear,4))
nSunday:=Sundays(dInizio)
Return nSunday


function ...

... controls the gap between words. We must provide how many pixels we want to distribute (nAncho-nLong) and how many spaces are in the line (aText[nCont,2]-1). The function look after the pixels are allocated between all spaces (some spaces will be 1 pixel greater than others ...

... oDlg CENTER ; ON INIT aText := FormatText&#40;oDlg,oFont,cText,nAncho&#41;RETURN NILFUNCTION FormatText&#40;oDlg,oFont,cText,nAncho&#41; LOCAL nCont,nTokn,nCrLf LOCAL cTrozo,cLinea,lFinLin LOCAL aTexto := &#123;&#125; LOCAL hDc * hDc := oDlg:GetDc&#40;&#41; * cLinea := "" DO WHILE !Empty&#40 ...

... LOCAL nLin, nFil, nAncho, nLargo, nPie
LOCAL oBar, oFont, oFolder, oBrow, oTabs, oCol
LOCAL oWndMain, nRegis := Space(05), cTable
LOCAL nCont := 0
*--
IF oWndConj == NIL
*--
cTable := "contratos"

oTb := oApp:oServer:Query( "SELECT * FROM " + cTable )

IF oTb:LastRec() = 0
FOR nCont ...

... local oSalir, oNuevo, oModif, oImpri, oElimi, tCargalocal, oDlg, oLbx, oDatos, eDatos, oOrden
local nOrden, oAlgo, lAlgolocal, aCol, oBrw, cQuery, nCont, nLen, aListaaCol := ARRAY(2)

LOCAL cTablas:="",aTablas:={}, n:=0, cCmdSql

if oMySQL:TableExist( "kardex" )
MsgInfo("Tabla KARDEX ya existe ...

Holas.

.......
oPrn:=TDosPrn():New(nPuerto)
oPrn:StartPage() //
...
..}
nPosH := 1
FOR nCont := 1 TO nCopias
oPrn:Say(nPosH, nPosV, aDatCli[2])
...
..
.
NEXT
...
..
.

Wili.

Gracias por contestar. En principio creo que no se ha comprendido la cuestión.

Necesito imprimir un documento en una ...

Holas.

.......
oPrn:=TDosPrn():New(nPuerto)
oPrn:StartPage() //
...
..}
nPosH := 1
FOR nCont := 1 TO nCopias
oPrn:Say(nPosH, nPosV, aDatCli[2])
...
..
.
NEXT
...
..
.