FiveTech Software tech support forums

... //function WebView2_OnEval( cJson, hWebView ) // // local nAt := AScan( aWebViews, { | o | o:hWebView == hWebView } ), nResult // // if nAt != 0 .and. ! Empty( aWebViews[ nAt ]:bOnEval ) // nResult = Eval( aWebViews[ nAt ]:bOnEval, cJson, hWebView ) // endif // //return ...

... ):Cargo) endif dWork++ next next oDlg:Cargo := dDate ACTIVATE DIALOG oDlg CENTERED dSelect := oDlg:Cargo if oGet != NIL oGet:VarPut( If( oDlg:nResult == IDOK, dSelect, dDate ) ) oGet:Refresh() endif CLOSE FERIADOS return If( oDlg:nResult == IDOK, dSelect, ctod('//') ) //return If( oDlg:nResult ...

... #DEFINE DLL_OSAPI 0x0020 // __stdcall #DEFINE NULL Nil Static nHandle Static ConnLost , MsgArrvd, Delivered Function WPRA101_MQTT() Local nResult if !file( MQTTLIB ) Vt_Aviso("Arquivo " + MQTTLIB + " não localizado...",.T.) Return( Nil ) Endif nHandle := 0 cAddress ...

If I made IF oDlgBacheca:nresult == IDOK aDim = GetLabelDim( oPanel2:hWnd, cMessage , oFont:hFont ) oPanel:setsize(aDim[ 1 ] + 60, aDim[ 2 ] + 50) oPanel:SetColor( "N/W*" ) oPanel:bPainted = { | hDC | DrawTextTransparent( hDC, ...

... all the dialogs that I have already done for many years it is possible to use ( oDlg:end( IDOK ) ) and ( oDlg:end( IDCANCEL ) ) ? and use IF oDlg:nresult == IDOK orec:save() ENDIF if I have to change all the insertion dialogs to check the get controls with the lsave variable I prefer not to do ...

AScan( ASort( AClone( a ) ), { | n, nPos | n := cToD(a:cargo["fecha"]), If( nVal < n, nResult := AScan( a, n) ) - 1,), cToD(n) > nVal } )

estás seguro de que ese código te funciona bien ?

Gracias a ambos. tomo como ejemplo este: AScan( ASort( AClone( a ) ), { | n, nPos | If( nVal < n, nResult := AScan( a, n ) - 1,), n > nVal } ) en mi caso "n" voy a usarlo asi: cToD(a:cargo["fecha"]) Mi consulta: para que el codigo no quede tan largo ...

... hb_vfSize( cFileName ) ) el codigo que uso es este: function sFtpSubirFichero( cUrlFileName, cFileName, aUser, aPass ) local hCurl local nResult local aaUser := AllTrim(aUser) local aaPass := AllTrim(aPass) local aCadena := aaUser+":"+aaPass curl_global_init() if ! empty( hCurl ...

... hb_vfSize( cFileName ) ) el codigo que uso es este: function sFtpSubirFichero( cUrlFileName, cFileName, aUser, aPass ) local hCurl local nResult local aaUser := AllTrim(aUser) local aaPass := AllTrim(aPass) local aCadena := aaUser+":"+aaPass curl_global_init() if ! empty( hCurl ...

Tengo este código, y no me funciona. Todos los envios retornan 0 nResult devuelve 1 #include "c:\harb16\include\hbcurl.ch"#include "fivewin.ch"function Main()? curl_global_init()? FtpUploadFile( "sftp://10.10.1.6/test.prg", ...

... oGetland VAR lLandscape PROMPT "Stampa in Orizzontale"; SIZE 120,26 of oDlgStampa ACTIVATE DIALOG oDlgStampa CENTER IF oDlgStampa:nresult == IDOK ?llandscape // here is .t. bSetUp := {|oRep, oBrw, n, llandscape| MyRepSetup( oRep, oBrw, n,llandscape )} oBrw:Report("Elenco Categorie",.T.,,bSetUp ...

... {}, ; AEval( oBrw:aArrayData, { |a| If( a[ 3 ], AAdd( aCols, oBrowse:aCols[ a[ 2 ] ] ), nil ) } ), ; oDlgOptions:end( IDOK ) ) ... IF oDlgOptions:nresult == IDOK return aCols ENDIF return NIL everything works fine but my concern is that if the user does not click on the first column (checkbox) ...

... cFileName, aInfo, [lDate] ) Ahora, cFileName está predeterminado a SetLogFile() * Nueva función MapDrive( cDrive, cPath, cUser, cPassWord ) --> nResult (source\function\filename.prg) El valor de retorno 0 indica éxito. cPath puede ser una ruta UNC o puede usar una unidad ya mapeada. cPath puede ...

... LogFile( cFileName, aInfo, [lDate] ) Now, cFileName defaults fo SetLogFile() * New function MapDrive( cDrive, cPath, cUser, cPassWord ) --> nResult (function\filename.prg) Return value 0 indicates success cPath can be uncpath or can use aleady mapped drive. cPath can be a unicode path. If ...

... LogFile( cFileName, aInfo, [lDate] ) Now, cFileName defaults fo SetLogFile() * New function MapDrive( cDrive, cPath, cUser, cPassWord ) --> nResult (function\filename.prg) Return value 0 indicates success cPath can be uncpath or can use aleady mapped drive. cPath can be a unicode path. If ...