FiveTech Software tech support forums

... folder con su propio array, pero como no conozco muy bien esta clase me gustaría como saber como guardar los datos en un fichero dbf ejemplo: (cfichero)->fila := ¿? (cfichero)->columna := ¿? (cfichero)->pronfudo := ¿? (cfichero)->unidades := ¿? (cfichero)->articulo := ¿? Estos ...

... folder con su propio array, pero como no conozco muy bien esta clase me gustaría como saber como guardar los datos en un fichero dbf ejemplo: (cfichero)->fila := ¿? (cfichero)->columna := ¿? (cfichero)->pronfudo := ¿? (cfichero)->unidades := ¿? (cfichero)->articulo := ¿? Estos ...

... Errores corregidos: DBCREATE si existe mesa sólo puede sobrescribir la que como en cualquier otra rdd. Se estaba dando un error. hb_AdoRddFile (cFichero) si rddsetdefault == "ADORDD" que probar si el archivo existe en el PP de lo contrario, pasa al archivo normal () function.So se ...

... los demás.  Nueva SET ADO TABLENAME CON EL CAMINO DE ON / OFF  Nueva hb_AdoUpload (cBaseDir, CRDD, DBEngine, lOverWrite)  Nueva HB_adorddFile (cFichero) Reemplaza archivos ()  Nueva hb_ADOrddCOPYFILE (cTableOrigin, cTableDestination) Reemplaza CopyFile ()  Nueva hb_adordddir (cPath) imita el ...

... FUNCTION MAIN() //------------------------------------------------------------------------------------------------------------- LOCAL aStruct, cFichero, nRet := 0 // Idioma español para Harbour HB_LangSelect("ES") // Para mensajes, fechas, etc.. HB_CDPSELECT("ESWIN") // ...

... cAsunto := "prueba con Gestin " Local cMensaje := "Cuerpo del mensaje"+CRLF+CRLF+CRLF local cSSL := .T., cAuth := .T. local cFichero := nil // Control autentificación via SSL IF alltrim( cSMTP ) = "smtp.live.com" cSSL := .T. ELSEIF alltrim( cSMTP ) = "smtp.gmail.com" ...

... cAsunto := "prueba con Gestin " Local cMensaje := "Cuerpo del mensaje"+CRLF+CRLF+CRLF local cSSL := .T., cAuth := .T. local cFichero := nil // Control autentificación via SSL IF alltrim( cSMTP ) = "smtp.live.com" cSSL := .T. ELSEIF alltrim( cSMTP ) = "smtp.gmail.com" ...

¿ Que es mas adecuado para borrar ficheros ? . la version de siempre ferase( cfichero ) donde harbour borra el fichero . o usar DelFile( cFichero) donde delegamos al sistema el borrado . DLL32 FUNCTION DelFile( cFileName AS LPSTR ) ; AS BOOL PASCAL FROM "DeleteFileA" ...

Carlos,

Prueba así:

WITH OBJECT loMsg
:Configuration = loCfg
:From = cRemitente
:To = cDestino
:Subject = AnsiToOem( cAsunto )
:TextBody = AnsiToOem( cMensaje )
:AddAttachment( cFichero )
:Send()
END WITH

Hola mlolo, ¿Podrías probar una pequeña modificación? Donde dice // Creo el fichero. Lo hace correctamente if oVar:cHFichero := FCreate(oVar:cFichero, 0) == -1 MsgAlert("No se ha podido crear el fichero de exportación: "+oVar:cFichero) return .T. endif Cambiarlo por // Creo el fichero. ...

... static function CrearFichero() Local lLinea := "" // Creo el nombre del fichero. Tiene 21 caracteres + la extensión .txt oVar:cFichero := "COLE"+; "61420"+; Alltrim(Str(Year(Date())))+; Right("00"+Alltrim(Str(month(Date()))),2)+; Right("00"+Alltrim(Str(Day(Date()))),2)+; ...

... línea de código, para que nos abra el word (o comptible), y visualizar el documento: word:=shellexecute(GetHWnd32(oWnd:hWnd ),"open",CFICHERO,,"",) Ahora quiero ir más lejos, quisiera imprimir, usando la misma función, pero cambiando el "open" por "print", ...

... oGetPol:Refresh(),getInc:=AUTOS->poliza,oGetInc:Refresh(),ramo:="AUTOS",oRamos:Refresh(),rFicha:=AUTOS->ficha,oFicha:Refresh(),cFichero:=AUTOS->PDF) oBrwX:cTooltip :={ "POLIZAS DE AUTOS (C)Copyright 2010 - Por AIDA.", "POLIZARIUM",1,CLR_WHITE,CLR_HBLUE ...

... FO_READWRITE + FO_SHARED) // IF FERROR() !=0 TONE(500,2) MsgInfo("Error de apertura del fichero "+cFichero) ELSE FSeek( nHandle, 0, FS_SET ) nPos=AT("<IDENTIFICADORPFISICA>",cTexto) FSeek(nHandle,nPos+22) FRead(nHandle,@cNif,9) ............................................ ...

A mi me funciona de la siguiente forma:

SHELLEXECUTE (GetActiveWindow(), "open", cFichero, ' ', ' ', 5)

Siendo cFichero el nombre del fichero + extensión que quieres abrir.