Timbrado en Visual FoxPro

Visual Foxpro

Declaracion

DECLARE STRING FTimbrar IN "TimbradoTF.dll" STRING @, STRING @

DECLARE STRING XMLTimbre IN "TimbradoTF.dll"

DECLARE STRING UUID IN "TimbradoTF.dll"

DECLARE STRING FechaTimbrado IN "TimbradoTF.dll"

DECLARE STRING SelloSAT IN "TimbradoTF.dll"

Llamada

cResult =  Timbrar("XAX010101000","request.xml")

cTimbre = XMLTimbre()

ThisForm.edit4.Value = cTimbre

cUUID = UUID()

ThisForm.edit2.Value = cUUID

ThisForm.edit3.Value = FechaTimbrado()

ThisForm.text1.Value = SelloSAT()