My favorites | Sign in
Project Home Downloads Wiki Issues Source
Repository:
Checkout   Browse   Changes   Clones    
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Attribute VB_Name = "Module1"
' Ejemplo de Uso de Interface COM para
' Trazabilidad Medicamentos ANMAT
' 2011 (C) Mariano Reingart <reingart@gmail.com>
' Licencia: GPLv3

Sub Main()
Dim TrazaMed As Object, ok As Variant

' Crear la interfaz COM
Set TrazaMed = CreateObject("TrazaMed")

Debug.Print TrazaMed.Version
Debug.Print TrazaMed.InstallDir

' Establecer credenciales de seguridad
TrazaMed.Username = "testwservice"
TrazaMed.Password = "testwservicepsw"

' Conectar al servidor (pruebas)
ok = TrazaMed.Conectar()
Debug.Print TrazaMed.Excepcion
Debug.Print TrazaMed.Traceback

' datos de prueba
usuario = "pruebasws": Password = "pruebasws"
f_evento = "25/11/2011": h_evento = "04:24"
gln_origen = "glnws": gln_destino = "glnws"
n_remito = "1234": n_factura = "1234"
vencimiento = "30/11/2011": gtin = "GTIN1": lote = "1111"
numero_serial = "12349": id_obra_social = "": id_evento = 133
cuit_origen = "20267565393": cuit_destino = "20267565393":
apellido = "Reingart": nombres = "Mariano"
tipo_docmento = "96": n_documento = "26756539": sexo = "M"
direccion = "Saraza": numero = "1234": piso = "": depto = ""
localidad = "Hurlingham": provincia = "Buenos Aires"
n_postal = "B1688FDD": fecha_nacimiento = "01/01/2000"
telefono = "5555-5555"

' Enviar datos y procesar la respuesta:
ok = TrazaMed.SendMedicamentos(usuario, Password, _
f_evento, h_evento, gln_origen, gln_destino, _
n_remito, n_factura, vencimiento, gtin, lote, _
numero_serial, id_obra_social, id_evento, _
cuit_origen, cuit_destino, apellido, nombres, _
tipo_docmento, n_documento, sexo, _
direccion, numero, piso, depto, localidad, provincia, _
n_postal, fecha_nacimiento, telefono)

' Hubo error interno?
If TrazaMed.Excepcion <> "" Then
Debug.Print TrazaMed.Excepcion, TrazaMed.Traceback
MsgBox TrazaMed.Traceback, vbCritical, "Excepcion:" & TrazaMed.Excepcion
Else
Debug.Print "Resultado:", TrazaMed.Resultado
Debug.Print "CodigoTransaccion:", TrazaMed.CodigoTransaccion

For Each er In TrazaMed.Errores
MsgBox er, vbExclamation, "Error!"
Next

MsgBox "Resultado: " & TrazaMed.Resultado & vbCrLf & _
"CodigoTransaccion: " & TrazaMed.CodigoTransaccion, _
vbInformation, "Resultado"

End If
End Sub

Change log

93293e7ba97c by Mariano Reingart <reingart> on Nov 25, 2011   Diff
TrazaMed: subo ejemplo para visual basic
Go to: 
Sign in to write a code review

Older revisions

All revisions of this file

File info

Size: 2698 bytes, 67 lines
Powered by Google Project Hosting