WSRemCarne: agrego ejemplo Visual Basic script

ejemplos/remito_electronico_carnico.vbs

@@ -0,0 +1,134 @@
+' 
+' Ejemplo de Uso de Interfaz PyAfipWs para Windows Script Host
+' (Visual Basic / Visual Fox y lenguages con soporte ActiveX simil OCX)
+' con Web Service Autenticación / Remito Electrónico Cánico AFIP
+' 2018(C) Mariano Reingart <reingart@gmail.com>
+' Licencia: GPLv3
+'  Requerimientos: scripts wsaa.py y wsfev1.py registrados (ver instaladores)
+' Documentacion: 
+'  http://www.sistemasagiles.com.ar/trac/wiki/RemitoElectronicoCarnico
+'  http://www.sistemasagiles.com.ar/trac/wiki/PyAfipWs
+'  http://www.sistemasagiles.com.ar/trac/wiki/ManualPyAfipWs
+
+' Crear el objeto WSAA (Web Service de Autenticación y Autorización) AFIP
+Set WSAA = Wscript.CreateObject("WSAA")
+Wscript.Echo "InstallDir", WSAA.InstallDir, WSAA.Version
+
+' Solicitar Ticket de Acceso
+wsdl = "https://wsaahomo.afip.gov.ar/ws/services/LoginCms" ' Homologación!
+scriptdir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
+proxy = ""   ' en caso de ser necesario: "usuario:clave@servidor:puerto"
+wrapper = "" ' usar "pycurl" como transporte alternativo en caso de inconvenientes con SSL
+cacert = ""  ' para verificacion de canal seguro usar: "conf\afip_ca_info.crt"
+ok = WSAA.Autenticar("wsremcarne", scriptdir & "\..\reingart.crt", scriptdir & "\..\reingart.key",  wsdl, proxy, wrapper, cacert)
+Wscript.Echo "Excepcion", WSAA.Excepcion
+Wscript.Echo "Token", WSAA.Token
+Wscript.Echo "Sign", WSAA.Sign
+
+' Crear el objeto WSRemCarne (Web Service de Factura Electrónica version 1) AFIP
+
+Set WSRemCarne = Wscript.CreateObject("WSRemCarne")
+Wscript.Echo "WSRemCarne Version", WSRemCarne.Version
+
+' Establecer parametros de uso:
+WSRemCarne.Cuit = "20267565393"
+WSRemCarne.Token = WSAA.Token
+WSRemCarne.Sign = WSAA.Sign
+
+' Conectar al websrvice
+wsdl = "https://wswhomo.afip.gov.ar/wsfev1/service.asmx?WSDL"
+timeout = 30    ' tiempo de espera predeterminado
+WSRemCarne.Conectar "", wsdl, proxy, wrapper, cacert, timeout
+
+' Consultar último comprobante autorizado en AFIP
+tipo_comprobante = 995
+punto_emision = 1
+ok = WSRemCarne.ConsultarUltimoRemitoEmitido(tipo_comprobante, punto_emision)
+
+If ok Then
+    ult = WSRemCarne.NroRemito
+Else
+    Wscript.Echo WSRemCarne.Traceback, "Traceback"
+    Wscript.Echo WSRemCarne.Traceback, "XmlResponse"
+    Wscript.Echo WSRemCarne.Traceback, "XmlRequest"
+    ult = 0
+End If
+Wscript.Echo ult, "Ultimo comprobante: "
+Wscript.Echo WSRemCarne.ErrMsg, "ErrMsg:"
+if WSRemCarne.Excepcion <> "" Then Wscript.Echo WSRemCarne.Excepcion, "Excepcion:"
+
+
+' Calculo el próximo número de comprobante:
+If ult = "" Then
+    nro_remito = 0                ' no hay comprobantes emitidos
+Else
+    nro_remito = CLng(ult)        ' convertir a entero largo
+End If
+nro_remito = nro_remito + 1
+
+' Establezco los valores del remito a autorizar:
+categoria_emisor = 1
+cuit_titular_mercaderia = "20222222223"
+cod_dom_origen = 1
+tipo_receptor = "EM"  ' "EM": DEPOSITO EMISOR, "MI": MERCADO INTERNO, "RP": REPARTO
+caracter_receptor = 1
+cuit_receptor = "20111111112"
+cuit_depositario = Null
+cod_dom_destino = 1
+cod_rem_redestinar = Null
+cod_remito = Null
+estado = Null
+
+ok = WSRemCarne.CrearRemito(tipo_comprobante, punto_emision, categoria_emisor, _
+                            cuit_titular_mercaderia, cod_dom_origen, tipo_receptor, _
+                            caracter_receptor, cuit_receptor, cuit_depositario, _
+                            cod_dom_destino, cod_rem_redestinar, cod_remito, estado)
+
+' Agrego el viaje:
+cuit_transportista = "20333333334"
+cuit_conductor = "20333333334"
+fecha_inicio_viaje = "2018-10-01"
+distancia_km = 999
+ok = WSRemCarne.AgregarViaje(cuit_transportista, cuit_conductor, fecha_inicio_viaje, distancia_km)
+
+' Agregar vehiculo al viaje
+dominio_vehiculo = "AAA000"
+dominio_acoplado = "ZZZ000"
+ok = WSRemCarne.AgregarVehiculo(dominio_vehiculo, dominio_acoplado)
+
+' Agregar Mercaderia
+orden = 1
+tropa = 1
+cod_tipo_prod = "2.13"  ' http://www.sistemasagiles.com.ar/trac/wiki/RemitoElectronicoCarnico#Tiposdecarne
+kilos = 10
+unidades=1
+ok = WSRemCarne.AgregarMercaderia(orden, cod_tipo_prod, kilos, unidades, tropa)
+
+' WSRemCarne.AgregarContingencias(tipo=1, observacion="anulacion")
+
+' Solicito CodRemito:
+id_cliente = Int(DateDiff("s","20-Oct-18 00:00:00", Now))     ' usar un numero interno único / clave primaria (id_remito)
+archivo = "qr.png"
+ok = WSRemCarne.GenerarRemito(id_cliente, archivo)
+
+If not ok Then 
+    ' Imprimo pedido y respuesta XML para depuración (errores de formato)
+    Wscript.Echo "Traceback", WSRemCarne.Traceback
+    Wscript.Echo "XmlResponse", WSRemCarne.Traceback
+    Wscript.Echo "XmlRequest", WSRemCarne.Traceback
+End If
+
+Wscript.Echo "Resultado: ", WSRemCarne.Resultado
+Wscript.Echo "Cod Remito: ", WSRemCarne.CodRemito
+If WSRemCarne.CodAutorizacion Then
+    Wscript.Echo "Numero Remito: ", WSRemCarne.NumeroRemito
+    Wscript.Echo "Cod Autorizacion: ", WSRemCarne.CodAutorizacion
+    Wscript.Echo "Fecha Emision", WSRemCarne.FechaEmision
+    Wscript.Echo "Fecha Vencimiento", WSRemCarne.FechaVencimiento
+End If
+Wscript.Echo "Observaciones: ", WSRemCarne.Obs
+Wscript.Echo "Errores:", WSRemCarne.ErrMsg
+Wscript.Echo "Evento:", WSRemCarne.Evento
+
+MsgBox "Resultado:" & WSRemCarne.Resultado & " CodRemito: " & WSRemCarne.CodRemito, vbInformation + vbOKOnly
+