FiveTech Software tech support forums

...                 { "estado"        , "A"         }, ;                                             { "nota"          , cNota       } } )          oServer:Execute( cSqlDetalle, { nPresNum } )          IF lRestructuracion             cInfo := "Prestamo restructurado: ...

...                 { "estado"        , "A"         }, ;                                             { "nota"          , cNota       } } )          oServer:Execute( cSqlDetalle, { nPresNum } )          IF lRestructuracion             cInfo := "Prestamo restructurado: ...

... os2, os3, os4, os5, os6, ob3, ob4, ob5, ob6, oS7, oHand local oK1, oK2, oK3, oK4, oK5, oK7, aVal := {}, nAncho := 5, oCbx, oAcro, lAcro := .f., cNota := "OD", ; aItems := {}, aIt := { "OJO DERECHO", "OJO IZQUIERDO", "LOS DOS OJOS", "O.D.", "OD ...

... DATE() LOCAL GetList := {} LOCAL aCia := {"LIBERTY ","PH ","ARAG "} LOCAL CiaAseg := SPACE(25) LOCAL cClave2 := SPACE(1) LOCAL cImp := "N" LOCAL cNota :=SPACE(120) LOCAL cNota2 :=SPACE(60) LOCAL oBrush LOCAL aDatos :={} LOCAL aRect, cDirPadre:=GetPVProfString("Config","PathFoto",".",cIniFile) ...

... ID 18 OF oDlg REDEFINE GET cDomicilio ID 19 OF oDlg REDEFINE GET cTelefono ID 23 OF oDlg REDEFINE GET cPoblacion ID 22 OF oDlg END IF REDEFINE GET cNota ID 20 OF oDlg /* REDEFINE LISTBOX oLb FIELDS Garant->NumGaranti,Garant->Garantia,STR(Garant->CapitalIni); HEADERS "Nº Póliza","Garantía","Capital" ...

... ID 18 OF oDlg REDEFINE GET cDomicilio ID 19 OF oDlg REDEFINE GET cTelefono ID 23 OF oDlg REDEFINE GET cPoblacion ID 22 OF oDlg END IF REDEFINE GET cNota ID 20 OF oDlg /* REDEFINE LISTBOX oLb FIELDS Garant->NumGaranti,Garant->Garantia,STR(Garant->CapitalIni); HEADERS "Nº Póliza","Garantía","Capital" ...

Holas, tengo un problemita, tengo definido un GET REDEFINE GET oGet VAR cNota ID 101 OF oDlg REDEFINE SAY oSay VAR cLen ID 102 OF oDlg oGet:bChange := {|| cLne := STR( 300 - LEN( ALLTRIM( cNota ))), oSay:refresh() } he probado oSay:setText( cLen ) mas sysrefresh() ...