FiveTech Software tech support forums

... ',"tipoCodAut":"E","codAut":'+wwcae+'}' cJason=StrToBase64( cJason ) cOrigen=cOrigen+cJason cDestino:="FactQR.bmp" //"FactQR.jpg" QRCode(cOrigen,cDestino) SayBitmap(25.0, 16.0, 2.5, 2.5, ".\factQR.bmp", oPrn ) ...

Srs buenas tardes estoy creando un programa de respaldos simples la idea es solo realizar una copia lo hallo facil con copy file ( cOrigen ) to ( cDestino ) PEROOO el destino toma la fecha y hora actual que realizo la copia Existe alguna funcion o algo en harbour que me copie respetando la fecha ...

... es el comportamiento que deseas ) Drag/Drop de list boxes a Browse NO FUNCIONA ( no veo el codigo para esto: If cOrigen == "LBX" .and. cDestino == "BRW" ) Saludos

... Saludos Jorge //----------------------------------------------------------------------------// function GeneraQR() Local cOrigen, cJason, cDestino, ElTxt cOrigen:="https://www.afip.gob.ar/fe/qr/?p=" cJason:='{"ver":1,"fecha":"2020-10-13","cuit":30000000007,"ptoVta":10,"tipoCmp":1,"nroCmp":94,"importe":12100,"moneda":"DOL","ctz":65,"tipoDocRec":80,"nroDocRec":20000000001,"tipoCodAut":"E","codAut":70417054367476}' ...

//----------------------------------------------------------------------------// function GeneraQR() Local cOrigen, cJason, cDestino, ElTxt cOrigen:="https://www.afip.gob.ar/fe/qr/?p=" cJason:='{"ver":1,"fecha":"2020-10-13","cuit":30000000007,"ptoVta":10,"tipoCmp":1,"nroCmp":94,"importe":12100,"moneda":"DOL","ctz":65,"tipoDocRec":80,"nroDocRec":20000000001,"tipoCodAut":"E","codAut":70417054367476}' ...

... //AQUI: si estos estan omitidos, siempre quedarán abiertos los documentos * oWord:Quit() Function G_Francisco2() Local oWord, oSel, oDoc,cOrigen,cDestino,cFile,cSave, Nom1,rut1,naci1 local oActiveDoc,aArrReplace, n cOrigen := "C:\Desa\FichasWin\Doc\Doc_Bases\" cDestino := "C:\Desa\FichasWin\Doc\Doc_Bases\" ...

... extensiones y diferentes tamaños. Desde hace un par de días, no estoy pudiendo descargar porque no me funciona correctamente, escribo el ejemplo: cDestino:="c:\archivos\archivo.rtf" cFile:="archivo.rtf" nHandle:=FCreate(cDestino) IF !FError() # 0 FWrite(nHandle,cFile,len(cFile)) ...

... de una cadena de caracteres ------------------------------------------------------------------------------ Sintaxis AT(<cBúsqueda>, <cDestino>) --> nPosición Argumentos <cBúsqueda> es la subcadena de caracteres que se va a buscar. <cDestino> es la cadena de caracteres ...

... parece que ese es tu problema //----------------------------------------------------------------------------------------------- Function GMAILME (cDestino,cAsunto,cTexto,cAdjunto ) Local oEmailCfg,oEmailMsg,oError,cHtml Local cServer:= GetPvProfString("Enviador","SERVERSTP" ...

Hola Ernesto así lo hago yo Function GMAILME (cDestino,cAsunto,cTexto,cAdjunto ) Local oEmailCfg,oEmailMsg,oError,cHtml /* Local ListaEmail:= GetPvProfString("Reportes","EMAIL","NO", cIniFile) Local xserver := GetPvProfString("Reportes","SERVEREMAIL","", ...

... cLogin := "jbricenotapia@gmail.com" Local cPassword := "xxxxx" local cRemitente:= "jbricenotapia@gmail.com" Local cDestino := "peflores@terra.cl" Local cAsunto := "prueba con Gestin " Local cMensaje := "Cuerpo del mensaje"+CRLF+CRLF+CRLF ...

... cLogin := "jbricenotapia@gmail.com" Local cPassword := "xxxxx" local cRemitente:= "jbricenotapia@gmail.com" Local cDestino := "syscom31@hotmail.com" Local cAsunto := "prueba con Gestin " Local cMensaje := "Cuerpo del mensaje"+CRLF+CRLF+CRLF ...

yo lo hago de esta forma y funciona Function GMAILBK (cDestino,cAsunto,cTexto,cAdjunto ) Local oEmailCfg,oEmailMsg,oError,cHtml Local cServer:= GetPvProfString("Enviador","SERVERSTP" ,"", cIniFile) Local nPortEmail:=VAL(GetPvProfString("Enviador","EMAILPUERTO","25", ...

Carlos,

Prueba así:

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

Yo uso waitrun y/o msgrun. Aqui tienes un ejemplo:

bAction:=RTRIM(impresor->ESTACION) + "\BTPDF.bat -multi -o " + cDestino + " -quiet -out pdf -c 5 -l listaemf.txt"

TRY
MsgRun ( '...','PDF', {|oDlg1| WaitRun(bAction, 0) })
CATCH

END


Prueba si funciona.