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

Try catch end

 // -------------------------------------------------- // Procedure principal que executa uma query com tratamento de exceção // -----------...