FiveTech Software tech support forums

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

Carlos, ACTIVATE DIALOG oDlg CENTERED MsgInfo( oDlg:nResult ) nResult vale 2 cuando se ha cancelado el diálogo Gracias Antonio, finalmente he tocado un poco la función a ver que tal. Sobre todo en cuanto a la llamada al método End() del DIALOG ( :End( ...

Carlos,

ACTIVATE DIALOG oDlg CENTERED

MsgInfo( oDlg:nResult )

nResult vale 2 cuando se ha cancelado el diálogo

... '@ €99,999.99' RIGHT FONT oFont UPDATE ... ACTIVATE DIALOG oDlgMod ; ON INIT (DlgCenter( oDlgMod, oGrid ), aGet[5]:aItems[2]:disable()) If oDlgMod:nresult == IDOK if msgYesNo( i18n("¿ save ?") ) oTariffa:costo := nCosto oTariffa:sconto := nSconto oTariffa:totale := nTotale oTariffa:save() ...