Consulta Sobre un Valid() "SOLUCIONADO"
Posted: Wed Jun 17, 2020 12:36 am
Hola Amigos.
Estoy mareado con un valid y no logro dar la solución.
El problema es que mando una variable con una dato "X" a la Function ValidR, agrego espacios o cualquier cosa que le agregue a la variable, pero el oGet no se actualiza.
Muchos Saludos
Antonio
Dejo el codigo que estoy probando:
Estoy mareado con un valid y no logro dar la solución.
El problema es que mando una variable con una dato "X" a la Function ValidR, agrego espacios o cualquier cosa que le agregue a la variable, pero el oGet no se actualiza.
Muchos Saludos
Antonio
Dejo el codigo que estoy probando:
Code: Select all
// Aqui entra un Datos con numeros
Function Rut3(c4)
local c1 := "Previous "
local c3 := " "
local oDlg, oFont, oGet
Private c2
c2 = c4
SetGetColorFocus()
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-24
DEFINE DIALOG oDlg SIZE 300,300 PIXEL TRUEPIXEL FONT oFont
oDlg:lTransparent := .F.
@ 40,40 GET c1 SIZE 200,36 PIXEL OF oDlg
@ 90,40 GET oGet VAR c2 SIZE 200,36 PICTURE "@R ##.###.#####" PIXEL OF oDlg ;
WHEN ( oGet:oGet:Picture := "@KR ##########", .T. );
VALID If( ValidaR(c2), ( oGet:oGet:Picture := "@R ##.###.#####", oGet:Refresh(), .t. ), .f. ) // Aqui necesito que se muestre actualizado el valor de c2 que se digito y luego en la funcion se modico.
@ 140,40 GET oGet3 VAR c3 SIZE 200,36 PIXEL OF oDlg
@ 220,40 BTNBMP PROMPT "OK" SIZE 220,40 PIXEL OF oDlg FLAT ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
Function ValidaR(c2)
arut=alltrim(c2)
ee=10-len(c2)
arut=repl("9",ee)+c2
c2=arut // Aqui le modifico la variable del oGet
Return .t.