FiveTech Software tech support forums

LOCAL pCompiled := hb_regexComp( "\s+\.\w\." )
LOCAL aMatch
LOCAL lRet := .t.
aMatch = hb_regex( pCompiled, alltrim(cText) )
if Empty( aMatch )
lRet := .f.
end
return lRet

... nada entro a la opcion modificar paso todos los GET y al dar aceptar se sale no llega al "x1" REDEFINE BUTTON ID 200 OF oDlg ACTION ( lRet := .T.,oDlg:End()) REDEFINE BUTTON ID 201 OF oDlg ACTION ( lRet := .F.,oDlg:End()) ACTIVATE DIALOG oDlg CENTERED ?"x1" If lRet ?"z5" ...

... { |o| If( o:lMOver, { CLR_BLACK, CLR_HRED }, nil ) } } ) return oBar Static Procedure AddReg(modo) local oDlg,oGet[10],oWait local cGet[10] local lRet := .F. If modo cGet[01] := Space(11) cGet[02] := Space(20) cGet[03] := Space(30) cGet[04] := Space(30) cGet[05] := Space(90) cGet[06] := Space(50) ...

... 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 ...