FiveTech Software tech support forums

Antonio, a partir de que version funciona?
Porque me da error en FW_CopyToClipBoard( aFiles, 15 )
Error description: Error BASE/1066 Argument error: conditional

... to preview.prg. When the invoice button is pressed, these steps are executed: Best regards, Otto    oDevice := DEVICE   aFiles  := oDevice:aMeta   hMeta   := oMeta1:hMeta    cUniqueID := cUniqueID()       CursorWait()   ...

... files are displayed as images and other files are shown as attachments. Please try. Note: In the next version, the function FW_CopyToClipboard( aFiles ) checks for existence of the files and also coverts them to fullpath using FullName() function.

Enrico:

Thanks for your advice, with ? LEN(aFiles) I got a number 5 and
yes, the zip file has five files in.

With
FOR nVez := 1 TO Len(aFilInZip)
? aFilInZip[nVez]
NEXT

I got five five files name

My tools FWH2013 & Harbour

Best regards

Please check the content of aFiles and report back.

... es la unica diferencia que he encontrado. este mi proceso alguna sugerencia muy agradecidos: Function VerUpdate() local oInternet,oFtp,oWait local aFiles,cFile,mFile:={} local cServer := "ftp.servidor.com" local cUser := "user@servidor.com" local cpassword:= "clave" ...

Hi Willi,

Please, Try It:

oCN:Backup(aFiles,cDirBack + cFileBak+".bkp",{|cTable,nPos,nTot| oSay:SetText( "Copying "+Upper(cTable)+"..." ), oMtr:Set( (nPos / nTot) * 100 ),SysWait(0.1)})

... y luego para recuperarlo, lo descomprimo: nHandle:=FCreate(cTempZip) FWrite(nHandle,bFOTOS:fotografia,Len(bFOTOS:fotografia)) FClose(nHandle) aFiles:=hb_GetFilesInZip(cTempZip,.t.) Hb_UnZipFile(cTempZip,,.T.,,cTemp,aFiles[1],NIL) cFoto:=cTemp+aFiles[1,1] Espero te sirva... a mi me funciona ...

... un backup, hago uso de la función GetFilesToZip( cRuta, oBrowseZip ) para cargar previamente los archivos en un array, pero me devuelve siempre 0 aFiles := directory( cRuta + "\*.*",,, XBL_FILEWITHPATH ) nFiles := len( aFiles ) msginfo(str(nFiles)) --> siempre es 0. ¿Por qué?

... libro:=strzero(nlibro,6) LOCAL fecha:=strzero(day(dfecha),2)+strzero(month(dfecha),2)+str(year(dfecha),4) Local Clasedoc:=alltrim(cClasedoc) Local aFiles, aDir Local cFolder := cRaiz+"\"+CarpetaSAT+"\"+Libro+"\"+fecha+"\"+Clasedoc Local apunte :=libro+"-"+fecha ...

... ) if HB_DirExists( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT+"\"+apunte) msgalert("Ya existe ese apunte") aFiles:=Array( ADir( Curdrive()+":\"+cfILES+"\"+"*.*", aFiles ) ) if len(aFiles)==0 msgInfo("La carpeta esta vacía. ...

... día, necesito imprimir una imagen guardada en una tabla sql, que la guarde así: oRsFoto:Fields( "Foto" ):Value := STRTOHEX( MEMOREAD( aFiles[ i ] ) ) Estoy tratando de imprimirla así: ImprimirFoto( oRsFoto:Fields( "Foto" ):Value ) Function ImprimirFoto(wfoto) PRINT oPrn PREVIEW ...

>You can use png directly with combobox now FROM WHEN ? i MADE Local aFiles:={"ombrellone_verde.png",; "Palma_verde.png",; "cabina_verde.png",; "tenda_verde.png"} @ 2,5 COMBOBOX aGet[1] VAR nIcoElemento Items aElementiItems ...

... y gracias por su interés. En principio creo que es Firewall. Hice pruebas en 2 equipos distintos: En el PC con mi EXE permitido en Firewall: aFiles :=oFtp:Directory(ALLTRIM(cruta)+'/*.exe') devuelve aFiles lleno con un EXE encontrado y hace la actualización sin problemas. En otro PC con mi ...

Mira, suponiendo que el array en el que tenemos los ficheros sea aFiles local x ...For x = 1 to Len( aFiles )cArchDoc := aFiles[ x ]if Flock()   dbappend()   replace ARCHDOC1 WITH cArchdocelse   // Ojo el fichero no se ha ...