FiveTech Software tech support forums

Resolved with

local cAction:= aImg[5 ]
local bClick := &( "{|| " + cAction + "}" )

saw on fwh\samples\barsetup.prg

... you can mimic you templates ... Let me show How I did: LOCAL cUrl := "https://orbisws01.orbisfarma.com.mx/transaccion.asmx?WSDL" LOCAL cAction := "https://orbisws01.orbisfarma.com.mx/setTransactionInit" First, create a XML var .. cXML := '<?xml version="1.0" encoding="UTF-8" ...

... function. do case case AP_Method() == "GET" AP_RPuts( View( "default" ) ) case AP_Method() == "POST" do case case cAction == "save" ? "post save" Save() case cRequest == "login" Login() endcase endcase Best regards, Otto function Controller( ...

... { "url": "landingpage.prg", "type": "POST", data: {username: matchcode, password: code, action: cAction, --------------------------------------------------------------------------------------------------- function encrypedtime () local cVar: = ...

... Controller checks access: cookies user login and requested content depending on the AP_Method() GET or POSTan action is called ( cAction ) ----------------------------------------------------------- Controller calls view case AP_Method() == "GET" AP_RPuts( View( "default" ...

lo solucione asi , de esta manera puedo ejecutar la función mandadole como parámetro el elemento elegido
ATail( oDlg:aControls ):cAction += '+ "' + ff('+"+oGet1.value+"') + ':"'

donde en
function ff (xx)
buscar xx
grabar
return ()

... = "lupaMENUcliente.exe?valido:"+ ; document.getElementById( "oGet1" ).value + ":" ATail( oDlg:aControls ):cAction += '+ "' + ff(oGet1:value) + ':"' ACTIVATE DIALOG oDlg NOWAIT Else endif return nil function ff (xx) *=========== return (xx)

Silvina,

ATail( oDlg:aControls ):cAction += '+ "' + oGet1.value + ':"'

Revisa FiveWeb\samples\testcomb.prg

... BUTTON "Imprimdo Recibo" OF oDlg SIZE 200, 40 ACTION document.location = "lupaMENUcliente.exe?valido:" ATail( oDlg:aControls ):cAction += '+ "' + fff() + ':"' ACTIVATE DIALOG oDlg NOWAIT return nil function fff *=========== //ACA NECESITO EL VALOR ELEGIDO PARA GRAVARLO ...

... provide our Harbour variables values to javascript: @ 200, 200 BUTTON "test" ACTION "" OF oDlg ATail( oDlg:aControls ):cAction = 'MsgInfo("' + Alltrim( Str( Len( aParams ) ) ) + '")'

... "oGet3" ).value + ":" + ; document.getElementById( "oGet4" ).value + ":" ATail( oDlg:aControls ):cAction += '+ "' + aParams[ 4 ] + '"'

Uwe how you call caction ?

... ):Value nRecvLabels := oSqlUpd:Fields( "LABELS" ):Value // Close... oSqlUpd:Close() oSqlUpd:=NIL ENDIF // Delete... IF cAction=="D" lPass := MsgNoYes( "Are you sure you want to Cancel Receiving " + cRecvNo + "?", Ptitle ) IF ! lPass RETURN ...

... resourceheight ( no scrollar neded ) The width is igger resource-with ( scrollbar needed ) oIMAGE:bPainted := { |hDC| ADJ_ZOOM1(oImage, hDC, cAction, oZSelect1) } A Button : @ 5, 475 BTNBMP oBtn[5] FILENAME c_path1 + "Original.Bmp" ; SIZE 115, 50 OF oBar PIXEL BORDER ; // Width ...

... cCaption, cImgName, bAction, nAlign, ; nBmpAlign, nBmpWidth, nBmpHeight , oFont, cText, nTextAlign, oTextFont, oSubMetro, ; nGroup, cBackImage, cAction, cSub ) TMetroBtn():New( nX, nY, lLarge, Self, cCaption, cImgName, bAction, nAlign, ; nBmpAlign, nRatio , oFont, cText, nTextAlign, oTextFont, ...