//
DameTimbres is getTimbres
DameTimbres.usuario = "miUsuario"
DameTimbres.password = "miContraseña"
DameTimbres.rfcEmisor = "RFC670322HM1"
DameTimbresResultado is getTimbresResponse
DameTimbresResultado = getTimbres(DameTimbres)
nCantidadTimbres is int = DameTimbresResultado.'return'.usados
nDisponibles is int = DameTimbresResultado.'return'.disponibles
STC_Usados..Caption = "Timbres Usados . . . .: " + nCantidadTimbres
STC_Disponibles..Caption = "Timbres Disponibles: " + nDisponibles
STC_Fecha..Caption = "Fecha de Consulta . .: " + DateToString(Today(),maskSystemDate)
STC_Hora..Caption = "Hora de Consulta: " + TimeToString(TimeSys(),maskSystemTime)
Suscribirse a:
Comentarios de la entrada (Atom)
Valida RFC
// Summary: <specify the procedure action> // Syntax: //[ <Result> = ] GP_ValidaRFC (<nTipoPersona>, <sParamRFC>) /...
-
PROCEDURE ValeurChamp(sNomChamp) WHEN EXCEPTION IN RETURN (sNomChamp) DO IF ExceptionInfo(errCode) = ExIDInconnu THEN RETURN "...
-
cyValor is currency sFecha is string = DateToString(dParamFecha,"YYYY-MM-DD") sCadena is string = "https://www.banxico.org...
-
IF InTestMode() = True THEN MiConTest is Connection //conexión de pruebas MiConTest..User = "ADMIN" MiConTest..Pa...
No hay comentarios.:
Publicar un comentario