FiveTech Software tech support forums

... CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic orsPed:CursorType := adOpenDynamic ...

... CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic orsPed:CursorType := adOpenDynamic ...

... CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic orsPed:CursorType := adOpenDynamic ...

... CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic orsPed:CursorType := adOpenDynamic ...

... cSubject :TextBody = cMsg For x := 1 To Len( aAttach ) if aAttach[x] <> NIL :AddAttachment(AllTrim(aAttach[x])) endif Next :Send() END WITH lRet := .t. CATCH MsgInfo("No fue posible enviar el correo") lRet := .f. END Es parte del codigo , si trato con la versión que tenia anteriormente ...

... aAttach := {} LOCAL aCc := "" //??? LOCAL lHtml := .F. LOCAL lSSL := .F. LOCAL cPort := "465" LOCAL lNotification := .F. LOCAL lRet := .F. Any parameter missing..??

No quiero que al cliente le aparezca el error, el código que he puesto en ErrSysW.prg está en la función ErrorDialog (e) y hago el return lRet antes de que aparezca el diálogo de error.

... = Nil        nVeces++        M->oAnnos:oADO:CONECTAR ()    enddo    if M->oAnnos:oADO:oCon # Nil        lRet := .t.        return lRet    // Necesito que no se salga del programa. Actualmente me genera hb_out.log y se sale.    endif   endif  La variable ...

Resolved but also not run ok put at the end of the function FW_ExcelToDbf before lRet: = FW_ArrayToDBF (adata, If (Empty (cFieldList), If (Empty (aHead), nil, aHead), cFieldList), bProgress) this line aData: = ArrTranspose (aDATA) only there is another problem on ...

... DBLCLICK (lacepto:= .t.,odlg:end()) of odlg olbm:setfocus() olbm:bSkip := { | nRecs | odbf:Skipper( nRecs ) } 1-Quite esta parte olbm:bSeek := {|lRet| olbm:DbfSeek(.T.) } oLbm:bkeydown := {|nkey,nflags| iif(nKey = VK_RETURN, nBut:setfocus(),.f.)} olbm:nClrBackFocus := CLR_CYAN olbm:nClrForeFocus ...

... local cUser :="root" local cPassword :=" " local cDbName := "Base" local cTabla := "Tabla" local lRet local oMySql, oDb, oDlg MsgInfo( "Empiezo..." ) SET DATE FORMAT TO "DD/MM/YYYY" DEFINE DIALOG oDlg FROM 2, 2 TO 14, 35; TITLE ...

... Yo hago algo parecido con un servicio aqui en Venezuela METHOD Enviarsms(cOrden,cTlf) CLASS TServicio LOCAL cMensa:="" LOCAL cHost,lRet:=.F. LOCAL oHttp,cFuncion,oError,cTextohtml,cXml,xDato,nReg:=0,nI:=0 if empty(cTlf) msgstop("No hay celular para enviar mensaje","verifique ...

... autorizadas que dan soporte tecnico. alli tienes una opcion de utilitario donde bajas manuales y demas. Static Function AbroDllPrinter() LOCAL lRet:=.F. LOCAL cDllName:="TFHKADIR.DLL" hFiscalDll:=LoadLib32(cDllName) if Abs( hFiscalDLL ) <= 32 MsgAlert( "Error code: " ...

... autorizadas que dan soporte tecnico. alli tienes una opcion de utilitario donde bajas manuales y demas. Static Function AbroDllPrinter() LOCAL lRet:=.F. LOCAL cDllName:="TFHKADIR.DLL" hFiscalDll:=LoadLib32(cDllName) if Abs( hFiscalDLL ) <= 32 MsgAlert( "Error code: " ...

... Enrico above you can see how i send mails, but in destination body email the caracters display wrong. Thanks! Static Function Config_Mail() local lRet := .f. local oCfg, oError local cServ := "smtp.gmail.com" local nPort := "465" local lAut := .t. local lSSL := .t. local cUser ...