FiveTech Software tech support forums

... 'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xDATABASE+';User Id='+xUSERID+';Password='+xPASSWORD ) nAdded++ CATCH oError MsgAlert( "SQL Insert Error" + cEol + cSqlIns + cEol + oError:Description, cTitle ) //lSql := .F. nError++ END IF ! EMPTY(cDestText) nBad ...

... and i might be wrong and I have to do some changes. Maybe a language-support is possible like ? METHOD Recall(cMsg1, cMsg2) CLASS TDataBase MsgAlert( cMsg1, cMsg2 ) //MsgAlert( "DataBase in use", "Please try again" ) I noticed a problem with PACK and ZAP ( all other functions ...

... en que me encuentro para poder mostrar los detalles que necesito en forma correcta? PD, como verán la línea: *oBrw:bLDblClick := {|| msgalert("VER DETALLES INCAPACIDAD","Detalles")} Está bloqueada, porque cuando le doy doble click al campo entra al modo edición ...

... {  color_1(),65535 } }        oCol:oHeaderFont := oFont1        oBrw:SetRDD()        *oBrw:bLDblClick := {|| msgalert("VER DETALLES INCAPACIDAD","Detalles")}                oBrw:Sucursal:lMergeVert   := .t.        *oBrw:nFreeze ...

... Me temo que cuando pasas por referencia el objeto, llega a tu segunda rutina como un texto y no como un objeto. Puedes verlo utilizando la función MsgAlert(Valtype( nombre_del_objeto)) Lo he probado y funciona correctamente : STATIC FUNCTION PRUEBA() LOCAL oDlg, oButton, oComboBox, aVariables, ...

... -14 BOLD   DEFINE DIALOG oDlgLQ SIZE 900,600 PIXEL TRUEPIXEL TITLE "LIQUIDACIONES"   DEFINE BUTTONBAR oBarC OF oDlgLQ SIZE 56,56 2013   MsgAlert(oQryConsu:Nombre)   @ 70,20 SAY oNomEmpre PROMPT oQryConsu:Nombre OF oDlgLQ FONT oFOnt14 // SIZE 200, 20 // COLOR CLR_NROJO   @ 150,20 ...

... ) ; uResult = FWCallDLL( cFarProc,nHandle,@cT,nMax ) ; If( ValType( "user32.dll" ) == "N",, FreeLibrary( _hDLL ) ) ; else ; MsgAlert( "Error code: " + LTrim( Str( _hDLL ) ) + " loading " + If( ValType( "user32.dll" ) == "C", "user32.dll", ...

... VALUES ("+cValues+")" // Esta ejecución Clase TMSCONNET de Eagle IF ("TMS"$oServer:Classname()) .AND. !oDb:ExecSQL(cSql) MsgAlert("Sentencia Rechazada "+cSql) RETURN .F. ENDIF ::cSqlExec:=cSql RETURN .T. METHOD End() RETURN NIL EXIT PROCEDURE SALIR() IF ValType(oDb)="O" ...

... tabela em MySQL na Internet. // // conectar FWConnect oDba Host cServer User cUsrAdm PassWord cPasAdm DB cDtaBas If oDba == Nil oDba:ShowError() MsgAlert("Não foi possível acessar o BD da aplicação","Atenção") Return(.f.) EndIf oDba:SelectDB(cDtaBas) oDba:lShowErrors(.t.) ...

... + ; ";uid=" + cUser + ; ";port=" + cPort + ; ";pwd=" + cPass ) xRfc:="XAXX010101XXX" If Empty(oCone) MsgAlert(" No se pudo establecer la conexion con la Base de Datos..","Atencion") Return(Nil) Else MsgAlert(" Se establecio ...

... , ; cSearchK := SPACE(40) , ; aSearch := {} , ; aGet[03] , ; cLb1 := 'File' // Client... _Client( cComp ) // Application call... IF PCOUNT()<2 MsgAlert( "Application Call not valid", PA[04] ) RETURN nil ENDIF // Index... IF ! NdxChk() QUIT ENDIF // Init... cLb1 := IF( "APEXASIA" ...

... is very useful in the programs I put in tablets. The operator does not have to press the confirm button as it does in the traditional msginfo () / msgalert () but the message must appear and disappear after n seconds so that the tablet can inform the operator in a simple example: the operator inserts ...

... CATCH TRY oOutLook := CreateObject( "Outlook.application" ) MsgWait("Ouverture Outlook !!","Info",2) CATCH MsgAlert( "Outlook not installed" ) return .T. END END * * oMailItem := oOutLook:Invoke("CreateItem", 0) oMailitem:to:="test1@skynet.be" ...

... 30 30 31 34 03", nByteslargo:= Len( cString ) retorno = .t. FOR mcont := 1 TO 10 IF ( nBytes := WriteComm( port,cString,nByteslargo)) <= 0 MsgAlert("Mando mal ENQ") retorno := .f. ELSE retorno := .t. exit ENDIF MsgWait("Enviando datos...","Aguarde",1) NEXT ...

... at the end I call -> CLEARKEYBOARD() the break only works once because the keybord-buffer still shows 13 At the end of the function I test with MsgAlert( LASTKEY(), "Lastkey" ) still shows 13 any idea :?: #pragma BEGINDUMP#include "windows.h"#include "hbapi.h"HB_FUNC( ...