by russimicro » Thu Dec 23, 2010 2:31 pm
FUNCTION ConectaServerFTP(cNomSer,cNomUsr,cClaUsr,cDocNit,oFtp)
cServer := cNomSer //change ftpserver to the real name or ip of your ftp server
cUser := cNomUsr // change ftpuser to an valid user on ftpserer
cPassword := cClaUsr // change ftppass to an valid password for ftpuser
cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer
cUser:= strtran(cUser,"@","&at;")
oUrl := tUrl():New( cUrl )
IF At( "@", cUser ) > 0
oUrl:cUserID := strtran(cUser,"&at;","@")
oUrl:cPassword := cPassword
ENDIF
oFTP := tIPClientFtp():New( oUrl, .T. )
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.
oFTP:Open( )
IF oFtp <> NIL
RETURN .T.
ENDIF
RETURN .F.
******************************************************************************
FUNCTION SubeTablasFacturasFtp(cNitEmp,cCiaDes,cCodVen,oFtp)
LOCAL cLocFil := ""
LOCAL cRemFil := ""
LOCAL cUniLoc := "\zerusmovil\"+cCiaDes+"\"+cCodVen+"\temp\"
LOCAL cUniRem := "moviles/"+cNitEmp+"/"+cCiaDes+"/"+cCodVen+"/"
cLocFil := cUniLoc+"FACTURAS.CSV"
cRemFil := cUniRem+"FACTURAS.CSV"
SELECT MOV_FAC
MOV_FAC->( DBGOTOP() )
IF MOV_FAC->( !EOF() )
COPY TO &(cLocFil) DELIMITED WITH ( { [], [,] } )
IF HB_FSize(cLocFil) > 0
oFtp:UpLoadFile( cLocFil, cRemFil )
ENDIF
ENDIF
RETURN .T.
***************************************************************************
FUNCTION BajaTablasFtp(cNitEmp,cCiaDes,cCodVen)
LOCAL cUniFtp := "moviles/"+cNitEmp+"/"+cCiaDes+"/"+cCodVen+"/"
LOCAL cUniDes := "C:\TEMP"
LOCAL aVecArc := oFtp:listFiles(cUniFtp + "/" + "*.TXT")
LOCAL J := 0, cNomArc := ""
LOCAL nLonArc := 27 // TAMA¥O DEL NOMBRE DE ARCHIVOS.TXT
FOR J := 1 TO LEN(aVecArc)
cArcOri := aVecArc[J,1]
cNomArc := SUBS(aVecArc[J,1],LEN(aVecArc[J,1]) - nLonArc )
cArcDes := cUniDes+"\"+cNomArc
IF ( oFtp:fileSize(cArcOri) > 0 )
oFtp:DownLoadFile( cArcDes, cArcOri )
AnexarTxtTem(cUniDes,cArcDes,cNomArc,"PEDIDOS",oFtp,cArcOri) // FUNCTION PROPIA
ENDIF
NEXT J
RETURN
********************************************************************************
Johnson Russi