Timbrado en Visual Basic

Visual Basic

Declaracion

Option Explicit

Private Declare Sub Timbrar Lib "TimbradoTF.dll" (ByVal cRFC As String, ByVal cXMLRequest As String)

Private Declare Function FTimbrar Lib "TimbradoTF.dll" (ByVal cRFC As String, ByVal cXMLRequest As String) As String

Private Declare Sub CBBCode Lib "TimbradoTF.dll" (ByVal cCodigo As String, ByVal cFileCBB As String)

Private Declare Function XMLResult Lib "TimbradoTF.dll" () As String

Private Declare Function XMLTimbre Lib "TimbradoTF.dll" () As String

Private Declare Function Serie Lib "TimbradoTF.dll" () As String

Private Declare Function Factura Lib "TimbradoTF.dll" () As String

Private Declare Function Version Lib "TimbradoTF.dll" () As String

Private Declare Function UUID Lib "TimbradoTF.dll" () As String

Private Declare Function FechaTimbrado Lib "TimbradoTF.dll" () As String

Private Declare Function SelloCFD Lib "TimbradoTF.dll" () As String

Private Declare Function NoCertificadoSAT Lib "TimbradoTF.dll" () As String

Private Declare Function SelloSAT Lib "TimbradoTF.dll" () As String

LLamada

Private Sub Command3_Click()

Dim cResponse As String

Dim cSerie As String

Dim cFactura As String

Dim cFileCBB As String

Dim cTimbre As String

Dim cVersion As String

Dim cUUID As String

Dim cFechaTimbrado As String

Dim cSelloCFD As String

Dim cNoCertificadoSAT As String

Dim cSelloSAT As String

   txSERIE.Text = ""

   txFACTURA.Text = ""

  

   txVERSION.Text = ""

   txUUID.Text = ""

   txFECHATIMBRADO.Text = ""

   txCERTIFICADOSAT.Text = ""

   txSELLOSAT.Text = ""

   cResponse = FTimbrar("XAX010101000", "C:\TimbreFiscal\vb6\request.xml")

   cTimbre = XMLTimbre

  

   Text1.Text = cTimbre

   Text5.Text = cResponse

  

   cSerie = Serie

   cFactura = Factura

   txSERIE.Text = cSerie

   txFACTURA.Text = cFactura

  

 

   cVersion = Version

   cUUID = UUID

   cFechaTimbrado = FechaTimbrado

   cSelloCFD = SelloCFD

   cNoCertificadoSAT = NoCertificadoSAT

   cSelloSAT = SelloSAT

  

   txVERSION.Text = cVersion

   txUUID.Text = cUUID

   txFECHATIMBRADO.Text = cFechaTimbrado

   txCERTIFICADOSAT.Text = cNoCertificadoSAT

   txSELLOSAT.Text = cSelloSAT

     

End Sub