viernes, 11 de agosto de 2017

Consultar saldo de timbres disponibles con el pac Solución Factible

//

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)

No hay comentarios.:

Publicar un comentario

Valida RFC

 // Summary: <specify the procedure action> // Syntax: //[ <Result> = ] GP_ValidaRFC (<nTipoPersona>, <sParamRFC>) /...