FiveTech Software tech support forums

aCopy es la manera más rápida de hacer eso: ACopy() Copy elements from one array to another Syntax ACopy( <aSource>, <aTarget>, [<nStart>], [<nCount>], [<nTargetPos>] ) → aTarget Arguments aSource is the array to copy elements from. aTarget is the array to ...

Hola. También podés intentar asi:
AINS(aTarget, nPosition, aBlankEle, .t.)

... AClone(<aArray>)->aDuplicate ACopy(<aSource>,<aTarget>,[<nSourceStart>],[<nCount>],[<nTargetStart>])->aTarget ACos(<nRadians>)->nArcCosine AddASCII(<cString>,<nValue>,[<nPos>])->cNewString ...

... [<nFirstItem>], [<nFirstRow>]) -> nPosition AClone(<aArray>) -> aDuplicate ACopy(<aSource>, <aTarget>, [<nSourceStart>], [<nCount>], [<nTargetStart>]) -> aTarget ACos(<nRadians>) -> nArcCosine AddASCII( <cString>, ...

... by Firewall information if the program is not on the firewall list: It hangs on: // This creates the object normaly oFile = TFtpFile():New( aTarget[ n ], oFTP ) // It hangs on the line below: oFile:OpenWrite() It doesn't show any info, just hangs forewer... Is there any way I can catch the ...

... from one array to another ------------------------------------------------------------------------------ Syntax ACOPY(<aSource>, <aTarget>, [<nStart>], [<nCount>], [<nTargetPos>]) --> aTarget Arguments <aSource> is the array to copy elements from. ...

... código que vi por aquí: //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP oInternet := TInternet():New() if Empty( oInternet:hSession ...

Hi Rick Real simple and works well. Syntax - ASORT(<aTarget>, [<nStart>], [<nCount>], [<bOrder>]) --> aTarget Example ::aAll:=ASORT(::aAll,,,{|x,y| x[1]<y[1]}) Your code aSorted := ASORT(aLine,,,{|x,y| x[4]<y[4]}) There ...

... subir archivos a un ftp //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando al Sitio FTP...", "Espere...",; ...

... } ) //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando al Sitio FTP...", "Espere...",; ...

... with two criterias. Is there a way to make an order this I use for a dbf sort on lb02/a,lb11/a to &filelb on an Array using asort ? ASORT(<aTarget>, [<nStart>],[<nCount>], [<bOrder>]) --> aTarget The trick is made by bOrder. It recives 2 row like arrays , so you ...

... return nil function FTPSendFiles( cFTPSite, aSource, aTarget ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. local nBufSize := 4096 //2000 ...

... MisAreas() ENDIF return nil //----------------------------------------------------------------------------// function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := ...

... No es mia, venia como ejemplo en FW //----------------------------------------------------------------------------// function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := ...

... si se ven los archivos. //----------------------------------------------------------------------------// static function SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ) local nBytes, ...