Prezados,
Segue mais um adendo nesse post:
Como fazer Duas Sobrecargas de Metodos com mesmo nome mas com quantidade de parametros diferentes
Procedure GravaConfig(Descricao,Valor,Status boolean)
ok is boolean
IF Descricao <> "" THEN
IF HReadSeek(t000_config,t000_descricao,Descricao,hIdentical) = True THEN
IF HFound(t000_config) = True
t000_config.t000_valor = Valor
t000_config.t000_status = Status
ok = HModify(t000_config)
END
ELSE
t000_config.t000_descricao = Descricao
t000_config.t000_valor = Valor
t000_config.t000_status = True
ok = HAdd(t000_config)
END
END
RESULT(ok)
Procedure GravaConfig(Descricao, Valor)
ok is boolean
IF Descricao <> "" THEN
IF HReadSeek(t000_config,t000_descricao,Descricao,hIdentical) = True THEN
IF HFound(t000_config) = True
t000_config.t000_valor = Valor
t000_config.t000_status = True
ok = HModify(t000_config)
END
ELSE
t000_config.t000_descricao = Descricao
t000_config.t000_valor = Valor
t000_config.t000_status = True
ok = HAdd(t000_config)
END
END
RESULT(ok)
Modo de usar:
Na abertura da Janela:
INT_SalvarSenha = BuscaConfigStatus("Salvar Senha")
IF INT_SalvarSenha = True OR INT_SalvarSenha = 1
SAI_Login_SAP = BuscaConfigValor("Login")
SAI_Password = BuscaConfigValor("Password")
END
No Botão Login:
IF SAI_Login_SAP="" THEN
Info("Informe sua matricula de login")
SetFocus(SAI_Login_SAP)
RETURN
END
IF SAI_Password="" THEN
Info("Informe sua senha")
SetFocus(SAI_Password)
RETURN
END
gsToken = ""
WS_LoginToken02(SAI_Login_SAP,SAI_Password)
IF gsToken <> ""
IF INT_SalvarSenha = True
GravaConfig("Login",SAI_Login_SAP)
GravaConfig("Password",SAI_Password)
GravaConfig("Salvar Senha","SIM",True)
ELSE
GravaConfig("Login","")
GravaConfig("Password","")
GravaConfig("Salvar Senha","NAO",False)
END
OpenMobileWindow(FEN_Menu)
END
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/