como debo poner los parametros para la conexion con estos archivos??
Les subo un ejemplo que pusieron en la pagina de timbrefiscal, que esta en VBNet, si alguien me ayuda a traducirlo a Clarion, sera mi angel
gracias
Private Sub TIMBRA()
Dim timbrefiscaldigital As New TimbreFiscal.TimbreFiscalDigital()
Dim req = New TimbreFiscal.RequestTimbradoCFDType()
Dim proxy As New TimbreFiscal.TimbradoCFDI()
req = New TimbreFiscal.RequestTimbradoCFDType()
req.InfoBasica = New TimbreFiscal.InfoBasicaType()
req.InfoBasica.RfcEmisor = "AICR791118ABC" ' PONGAN EL RFC DEL EMISOR DE SU CFDI
req.InfoBasica.RfcReceptor = "SASF540322ABC" ' PONGAN EL RRF DEL RECEPTOR DE SU CFDI
req.InfoBasica.Serie = "B" ' pongan la serie del cfdi si tiene
req.RefID = "" 'opcional pongan una cadena grande de preferencia
req.Documento = New TimbreFiscal.DocumentoType()
Dim MemStream As System.IO.MemoryStream = FileToMemory("c:\timbrefiscal\MI.XML")
req.Documento.Archivo = MemStream.ToArray()
proxy.Url = "demotf.buzonfiscal.com/timbrado?wsdl"
proxy.ClientCertificates.Add(New System.Security.Cryptography.X509Certificates.X509Certificate("c:\timbrefiscal\ARCHIVO.pfx", "contraseña que te dan en timbre fiscal"))
Try
timbrefiscaldigital = proxy.timbradoCFD(req)
MsgBox(timbrefiscaldigital.selloSAT)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Function FileToMemory(ByVal Filename As String) As System.IO.MemoryStream
Dim FS As New System.IO.FileStream(Filename, IO.FileMode.Open)
Dim MS As New System.IO.MemoryStream
Dim BA(FS.Length - 1) As Byte
FS.Read(BA, 0, BA.Length)
FS.Close()
MS.Write(BA, 0, BA.Length)
Return MS
End Function
gracias, saludos
