//
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 "...
-
// EN LA VENTANA TABLE_Fortaleza..DndTarget = dndInactive TABLE_Fortaleza..DndSource = dndProgram TABLE_FichaFortaleza..DndTarget = dndPro...
-
Una guía paso a paso para los perplejos: Presione la tecla de Windows Escribe " intl.cpl " y presiona Enter....
No hay comentarios.:
Publicar un comentario