commit 436264139a3fd541513cbb26874897cd8b30f412 Author: Guillermo Marel Date: Tue Nov 21 11:28:18 2017 -0300 First upload diff --git a/PrototipoAfip.sln b/PrototipoAfip.sln new file mode 100644 index 0000000..c270614 --- /dev/null +++ b/PrototipoAfip.sln @@ -0,0 +1,22 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.26403.7 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "PrototipoAfip", "PrototipoAfip\PrototipoAfip.vbproj", "{52B31B3F-4154-48B0-BF2F-5820FFF2CDC3}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {52B31B3F-4154-48B0-BF2F-5820FFF2CDC3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {52B31B3F-4154-48B0-BF2F-5820FFF2CDC3}.Debug|Any CPU.Build.0 = Debug|Any CPU + {52B31B3F-4154-48B0-BF2F-5820FFF2CDC3}.Release|Any CPU.ActiveCfg = Release|Any CPU + {52B31B3F-4154-48B0-BF2F-5820FFF2CDC3}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/PrototipoAfip/App.config b/PrototipoAfip/App.config new file mode 100644 index 0000000..6bb5202 --- /dev/null +++ b/PrototipoAfip/App.config @@ -0,0 +1,50 @@ + + + + +
+ + +
+ + + + + + + + + c:\cert.pfx + + + + + + https://wsaahomo.afip.gov.ar/ws/services/LoginCms?WSDL + + + wsfe + + + 20095214526 + + + + + + + + + + + https://wsaa.afip.gov.ar/ws/services/LoginCms + + + https://wswhomo.afip.gov.ar/wsfev1/service.asmx + + + http://aws.afip.gov.ar/sr-padron/webservices/personaServiceA4 + + + + \ No newline at end of file diff --git a/PrototipoAfip/DetalleFactura.vb b/PrototipoAfip/DetalleFactura.vb new file mode 100644 index 0000000..7c8ecfe --- /dev/null +++ b/PrototipoAfip/DetalleFactura.vb @@ -0,0 +1,44 @@ + +Public Class DetalleFactura + Property Codigo As Long? + Property Cantidad As Integer + Property PUnitario As Decimal + Property Descripcion As String + Property Alicuota As Decimal + ''' + ''' SubTotal de Precios sin IVA + ''' + ''' + ReadOnly Property Subtotal As Decimal + Get + Return Cantidad * PUnitario + End Get + End Property + ''' + ''' SubTotal del IVA + Precio Total + ''' + ''' + ReadOnly Property SubTotalConIva As Decimal + Get + Return getSubTotalIva() + Subtotal + End Get + End Property + ''' + ''' Valor de IVA por unidad + ''' + ''' + Function getIvaUnitario() As Decimal + Return Alicuota * PUnitario / 100 + End Function + ''' + ''' SubTotal del Iva Unicamente + ''' + ''' + Function getSubTotalIva() As Decimal + Return getIvaUnitario() * Cantidad + End Function + + + + +End Class diff --git a/PrototipoAfip/Factura.vb b/PrototipoAfip/Factura.vb new file mode 100644 index 0000000..f970ca2 --- /dev/null +++ b/PrototipoAfip/Factura.vb @@ -0,0 +1,113 @@ +Public Class Factura + Property Numero As Integer? + Property TipoFactura As String + Property TipoFacturaId As Integer? + Property PuntoVenta As Integer? + Property MonedaId As Integer? + Property DocTipo As Integer? + Property Documento As Long? + Property Concepto As Integer? + Property Fecha As Date + Property FechaVencimiento As Date + Property CAE As Long? + Property CAEVencimiento As Date + + + + Property Cliente + Property Detalles As New List(Of DetalleFactura) + ''' + ''' Sumarizacion de los subtotales (cantidad + pUnitario) sin iva ni descuentos + ''' + ''' + ReadOnly Property SubTotalPreDescuento As Decimal + Get + Dim r As Decimal = 0 + For Each detalle In Detalles + r += detalle.Subtotal + Next + Return r + End Get + End Property + + ''' + ''' Valor Positivo que se substrae del neto + ''' + ''' + Property Descuento As Decimal + + ''' + ''' SubTotalPreDescuento incluido el descuento + ''' + ''' + ReadOnly Property SubTotalNeto As Decimal + Get + Return SubTotalPreDescuento - Descuento + End Get + End Property + + ReadOnly Property SubTotalesIva As List(Of SubTotalIva) + Get + Dim lista As New List(Of SubTotalIva) + Dim s As SubTotalIva + For Each detalle In Detalles + s = lista.Where(Function(x) x.Alicuota = detalle.Alicuota).FirstOrDefault + + If s Is Nothing Then + s = New SubTotalIva With { + .Valor = detalle.getSubTotalIva, + .Alicuota = detalle.Alicuota + } + lista.Add(s) + Else + s.Valor += detalle.getSubTotalIva + End If + Next + Return lista + End Get + End Property + Function getSubTotalIva(alicuota As Decimal) As Decimal + Dim s As SubTotalIva = SubTotalesIva.Where(Function(x) x.Alicuota = alicuota).FirstOrDefault + Return If(IsNothing(s), 0, s.Valor) + End Function + + ReadOnly Property Total As Decimal + Get + Dim t As Decimal = SubTotalNeto + For Each iva As SubTotalIva In SubTotalesIva + t += iva.Valor + Next + Return t + End Get + End Property + + Sub addDetalle(codigo As Long?, + cant As Integer, + precioNeto As Decimal, + descripcion As String, + alicuota As Decimal) + Dim detalle As New DetalleFactura With { + .Alicuota = alicuota, + .Cantidad = cant, + .Codigo = codigo, + .Descripcion = descripcion, + .PUnitario = precioNeto + } + Me.Detalles.Add(detalle) + End Sub + Sub addDetallePrecioFinal(codigo As Long?, + cant As Integer, + precioFinal As Decimal, + descripcion As String, + alicuota As Decimal) + Dim neto As Decimal = precioFinal / (1 + (alicuota / 100)) + addDetalle(codigo, cant, neto, descripcion, alicuota) + End Sub + +End Class + +Public Class SubTotalIva + Property Alicuota As Decimal + Property Valor As Decimal +End Class + diff --git a/PrototipoAfip/FacturaForm.Designer.vb b/PrototipoAfip/FacturaForm.Designer.vb new file mode 100644 index 0000000..bf9097a --- /dev/null +++ b/PrototipoAfip/FacturaForm.Designer.vb @@ -0,0 +1,683 @@ + +Partial Class FacturaForm + Inherits System.Windows.Forms.Form + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Requerido por el Diseñador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento + 'Se puede modificar usando el Diseñador de Windows Forms. + 'No lo modifique con el editor de código. + + Private Sub InitializeComponent() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.TiposComprobantesCMB = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.TipoConcepto = New System.Windows.Forms.ComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.MyCuitTX = New System.Windows.Forms.TextBox() + Me.ptos_venta_cm = New System.Windows.Forms.ComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.TipoDocCMB = New System.Windows.Forms.ComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.MonedaCMB = New System.Windows.Forms.ComboBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.TipoIVACmb = New System.Windows.Forms.ComboBox() + Me.DocTX = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.NroCbteTX = New System.Windows.Forms.TextBox() + Me.FechaDTP = New System.Windows.Forms.DateTimePicker() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.NetoTX = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.ImpIvaTx = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.TotalTx = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.VtoDTP = New System.Windows.Forms.DateTimePicker() + Me.VtoCB = New System.Windows.Forms.CheckBox() + Me.CalcBtn = New System.Windows.Forms.Button() + Me.NetoRB = New System.Windows.Forms.RadioButton() + Me.TotalRB = New System.Windows.Forms.RadioButton() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Resultado = New System.Windows.Forms.TextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.testing_rb = New System.Windows.Forms.RadioButton() + Me.produccion_rb = New System.Windows.Forms.RadioButton() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Button4 = New System.Windows.Forms.Button() + Me.LinearWinForm2 = New BarcodeLib.Barcode.WinForms.LinearWinForm() + Me.Button5 = New System.Windows.Forms.Button() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(230, 34) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 44) + Me.Button1.TabIndex = 0 + Me.Button1.Text = "Cargar" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(68, 170) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(54, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Pto Venta" + ' + 'TiposComprobantesCMB + ' + Me.TiposComprobantesCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.TiposComprobantesCMB.FormattingEnabled = True + Me.TiposComprobantesCMB.Location = New System.Drawing.Point(128, 193) + Me.TiposComprobantesCMB.Name = "TiposComprobantesCMB" + Me.TiposComprobantesCMB.Size = New System.Drawing.Size(224, 21) + Me.TiposComprobantesCMB.TabIndex = 3 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(68, 196) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(28, 13) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Tipo" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(68, 235) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(53, 13) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Concepto" + ' + 'TipoConcepto + ' + Me.TipoConcepto.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.TipoConcepto.FormattingEnabled = True + Me.TipoConcepto.Location = New System.Drawing.Point(128, 232) + Me.TipoConcepto.Name = "TipoConcepto" + Me.TipoConcepto.Size = New System.Drawing.Size(224, 21) + Me.TipoConcepto.TabIndex = 3 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(22, 87) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(46, 13) + Me.Label4.TabIndex = 1 + Me.Label4.Text = "Mi CUIT" + ' + 'MyCuitTX + ' + Me.MyCuitTX.Location = New System.Drawing.Point(82, 84) + Me.MyCuitTX.Name = "MyCuitTX" + Me.MyCuitTX.Size = New System.Drawing.Size(121, 20) + Me.MyCuitTX.TabIndex = 2 + ' + 'ptos_venta_cm + ' + Me.ptos_venta_cm.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ptos_venta_cm.FormattingEnabled = True + Me.ptos_venta_cm.Location = New System.Drawing.Point(128, 167) + Me.ptos_venta_cm.Name = "ptos_venta_cm" + Me.ptos_venta_cm.Size = New System.Drawing.Size(224, 21) + Me.ptos_venta_cm.TabIndex = 3 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(68, 262) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(51, 13) + Me.Label5.TabIndex = 1 + Me.Label5.Text = "Tipo Doc" + ' + 'TipoDocCMB + ' + Me.TipoDocCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.TipoDocCMB.FormattingEnabled = True + Me.TipoDocCMB.Location = New System.Drawing.Point(128, 259) + Me.TipoDocCMB.Name = "TipoDocCMB" + Me.TipoDocCMB.Size = New System.Drawing.Size(224, 21) + Me.TipoDocCMB.TabIndex = 3 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(392, 87) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(46, 13) + Me.Label6.TabIndex = 1 + Me.Label6.Text = "Moneda" + ' + 'MonedaCMB + ' + Me.MonedaCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.MonedaCMB.FormattingEnabled = True + Me.MonedaCMB.Location = New System.Drawing.Point(452, 84) + Me.MonedaCMB.Name = "MonedaCMB" + Me.MonedaCMB.Size = New System.Drawing.Size(224, 21) + Me.MonedaCMB.TabIndex = 3 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(422, 143) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(24, 13) + Me.Label7.TabIndex = 1 + Me.Label7.Text = "IVA" + ' + 'TipoIVACmb + ' + Me.TipoIVACmb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.TipoIVACmb.FormattingEnabled = True + Me.TipoIVACmb.Location = New System.Drawing.Point(452, 140) + Me.TipoIVACmb.Name = "TipoIVACmb" + Me.TipoIVACmb.Size = New System.Drawing.Size(224, 21) + Me.TipoIVACmb.TabIndex = 3 + ' + 'DocTX + ' + Me.DocTX.Location = New System.Drawing.Point(128, 286) + Me.DocTX.Name = "DocTX" + Me.DocTX.Size = New System.Drawing.Size(224, 20) + Me.DocTX.TabIndex = 4 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(68, 289) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(27, 13) + Me.Label8.TabIndex = 1 + Me.Label8.Text = "Doc" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(68, 315) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(49, 13) + Me.Label9.TabIndex = 1 + Me.Label9.Text = "Nro Cbte" + ' + 'NroCbteTX + ' + Me.NroCbteTX.Location = New System.Drawing.Point(128, 312) + Me.NroCbteTX.Name = "NroCbteTX" + Me.NroCbteTX.ReadOnly = True + Me.NroCbteTX.Size = New System.Drawing.Size(224, 20) + Me.NroCbteTX.TabIndex = 4 + ' + 'FechaDTP + ' + Me.FechaDTP.Location = New System.Drawing.Point(128, 338) + Me.FechaDTP.Name = "FechaDTP" + Me.FechaDTP.Size = New System.Drawing.Size(200, 20) + Me.FechaDTP.TabIndex = 5 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(68, 344) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(37, 13) + Me.Label10.TabIndex = 1 + Me.Label10.Text = "Fecha" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(378, 114) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(68, 13) + Me.Label11.TabIndex = 1 + Me.Label11.Text = "Importe Neto" + ' + 'NetoTX + ' + Me.NetoTX.Location = New System.Drawing.Point(452, 111) + Me.NetoTX.Name = "NetoTX" + Me.NetoTX.Size = New System.Drawing.Size(224, 20) + Me.NetoTX.TabIndex = 4 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(384, 170) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(62, 13) + Me.Label12.TabIndex = 1 + Me.Label12.Text = "Importe IVA" + ' + 'ImpIvaTx + ' + Me.ImpIvaTx.Location = New System.Drawing.Point(452, 167) + Me.ImpIvaTx.Name = "ImpIvaTx" + Me.ImpIvaTx.ReadOnly = True + Me.ImpIvaTx.Size = New System.Drawing.Size(224, 20) + Me.ImpIvaTx.TabIndex = 4 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(377, 196) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(69, 13) + Me.Label13.TabIndex = 1 + Me.Label13.Text = "Importe Total" + ' + 'TotalTx + ' + Me.TotalTx.Location = New System.Drawing.Point(452, 193) + Me.TotalTx.Name = "TotalTx" + Me.TotalTx.ReadOnly = True + Me.TotalTx.Size = New System.Drawing.Size(224, 20) + Me.TotalTx.TabIndex = 4 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(68, 370) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(23, 13) + Me.Label14.TabIndex = 1 + Me.Label14.Text = "Vto" + ' + 'VtoDTP + ' + Me.VtoDTP.Enabled = False + Me.VtoDTP.Location = New System.Drawing.Point(152, 364) + Me.VtoDTP.Name = "VtoDTP" + Me.VtoDTP.Size = New System.Drawing.Size(200, 20) + Me.VtoDTP.TabIndex = 5 + ' + 'VtoCB + ' + Me.VtoCB.AutoSize = True + Me.VtoCB.Location = New System.Drawing.Point(128, 369) + Me.VtoCB.Name = "VtoCB" + Me.VtoCB.Size = New System.Drawing.Size(15, 14) + Me.VtoCB.TabIndex = 6 + Me.VtoCB.UseVisualStyleBackColor = True + ' + 'CalcBtn + ' + Me.CalcBtn.Location = New System.Drawing.Point(452, 219) + Me.CalcBtn.Name = "CalcBtn" + Me.CalcBtn.Size = New System.Drawing.Size(75, 23) + Me.CalcBtn.TabIndex = 7 + Me.CalcBtn.Text = "Calcular" + Me.CalcBtn.UseVisualStyleBackColor = True + ' + 'NetoRB + ' + Me.NetoRB.AutoSize = True + Me.NetoRB.Checked = True + Me.NetoRB.Location = New System.Drawing.Point(452, 61) + Me.NetoRB.Name = "NetoRB" + Me.NetoRB.Size = New System.Drawing.Size(48, 17) + Me.NetoRB.TabIndex = 8 + Me.NetoRB.TabStop = True + Me.NetoRB.Text = "Neto" + Me.NetoRB.UseVisualStyleBackColor = True + ' + 'TotalRB + ' + Me.TotalRB.AutoSize = True + Me.TotalRB.Location = New System.Drawing.Point(506, 61) + Me.TotalRB.Name = "TotalRB" + Me.TotalRB.Size = New System.Drawing.Size(49, 17) + Me.TotalRB.TabIndex = 8 + Me.TotalRB.Text = "Total" + Me.TotalRB.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(506, 272) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 23) + Me.Button2.TabIndex = 9 + Me.Button2.Text = "Registrar" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(596, 272) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(80, 29) + Me.Button3.TabIndex = 10 + Me.Button3.Text = "Ultimo" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Resultado + ' + Me.Resultado.Location = New System.Drawing.Point(412, 315) + Me.Resultado.Multiline = True + Me.Resultado.Name = "Resultado" + Me.Resultado.ReadOnly = True + Me.Resultado.Size = New System.Drawing.Size(305, 182) + Me.Resultado.TabIndex = 13 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(68, 170) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(54, 13) + Me.Label15.TabIndex = 1 + Me.Label15.Text = "Pto Venta" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(68, 196) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(28, 13) + Me.Label16.TabIndex = 1 + Me.Label16.Text = "Tipo" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(68, 235) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(53, 13) + Me.Label18.TabIndex = 1 + Me.Label18.Text = "Concepto" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(68, 262) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(51, 13) + Me.Label19.TabIndex = 1 + Me.Label19.Text = "Tipo Doc" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(68, 289) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(27, 13) + Me.Label20.TabIndex = 1 + Me.Label20.Text = "Doc" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(68, 315) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(49, 13) + Me.Label21.TabIndex = 1 + Me.Label21.Text = "Nro Cbte" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(68, 344) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(37, 13) + Me.Label22.TabIndex = 1 + Me.Label22.Text = "Fecha" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(68, 370) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(23, 13) + Me.Label23.TabIndex = 1 + Me.Label23.Text = "Vto" + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(128, 369) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(15, 14) + Me.CheckBox1.TabIndex = 6 + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'testing_rb + ' + Me.testing_rb.AutoSize = True + Me.testing_rb.Checked = True + Me.testing_rb.Location = New System.Drawing.Point(12, 21) + Me.testing_rb.Name = "testing_rb" + Me.testing_rb.Size = New System.Drawing.Size(60, 17) + Me.testing_rb.TabIndex = 12 + Me.testing_rb.TabStop = True + Me.testing_rb.Text = "Testing" + Me.testing_rb.UseVisualStyleBackColor = True + ' + 'produccion_rb + ' + Me.produccion_rb.AutoSize = True + Me.produccion_rb.Location = New System.Drawing.Point(78, 21) + Me.produccion_rb.Name = "produccion_rb" + Me.produccion_rb.Size = New System.Drawing.Size(79, 17) + Me.produccion_rb.TabIndex = 11 + Me.produccion_rb.TabStop = True + Me.produccion_rb.Text = "Produccion" + Me.produccion_rb.UseVisualStyleBackColor = True + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.produccion_rb) + Me.GroupBox1.Controls.Add(Me.testing_rb) + Me.GroupBox1.Location = New System.Drawing.Point(34, 19) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(169, 59) + Me.GroupBox1.TabIndex = 14 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Entorno" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(358, 272) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(40, 34) + Me.Button4.TabIndex = 15 + Me.Button4.Text = "CUIT" + Me.Button4.UseVisualStyleBackColor = True + ' + 'LinearWinForm2 + ' + Me.LinearWinForm2.AddCheckSum = False + Me.LinearWinForm2.AutoSize = True + Me.LinearWinForm2.BackgroundColor = System.Drawing.Color.White + Me.LinearWinForm2.BarColor = System.Drawing.Color.Black + Me.LinearWinForm2.BarHeight = 80.0! + Me.LinearWinForm2.BarHeightRatio = 0.4! + Me.LinearWinForm2.BarWidth = 1.0! + Me.LinearWinForm2.BearerBars = BarcodeLib.Barcode.BearerBar.None + Me.LinearWinForm2.BearerBarWidth = 1.0! + Me.LinearWinForm2.BottomMargin = 0! + Me.LinearWinForm2.CodabarStartChar = BarcodeLib.Barcode.CodabarStartStopChar.A + Me.LinearWinForm2.CodabarStopChar = BarcodeLib.Barcode.CodabarStartStopChar.A + Me.LinearWinForm2.Data = "BLSample" + Me.LinearWinForm2.ImageFormat = System.Drawing.Imaging.ImageFormat.Png + Me.LinearWinForm2.ImageHeight = 0! + Me.LinearWinForm2.ImageWidth = 0! + Me.LinearWinForm2.InterGap = 1.0! + Me.LinearWinForm2.LeftMargin = 0! + Me.LinearWinForm2.Location = New System.Drawing.Point(98, 527) + Me.LinearWinForm2.N = 2.0! + Me.LinearWinForm2.Name = "LinearWinForm2" + Me.LinearWinForm2.ProcessTilde = False + Me.LinearWinForm2.ResizeImage = False + Me.LinearWinForm2.Resolution = 96 + Me.LinearWinForm2.RightMargin = 0! + Me.LinearWinForm2.Rotate = BarcodeLib.Barcode.RotateOrientation.BottomFacingDown + Me.LinearWinForm2.SData = "" + Me.LinearWinForm2.ShowStartStopChar = True + Me.LinearWinForm2.ShowText = True + Me.LinearWinForm2.Size = New System.Drawing.Size(143, 98) + Me.LinearWinForm2.SSeparation = 12.0! + Me.LinearWinForm2.TabIndex = 17 + Me.LinearWinForm2.TextFont = New System.Drawing.Font("Arial", 9.0!) + Me.LinearWinForm2.TextFontColor = System.Drawing.Color.Black + Me.LinearWinForm2.TopMargin = 0! + Me.LinearWinForm2.Type = BarcodeLib.Barcode.BarcodeType.CODE128 + Me.LinearWinForm2.UOM = BarcodeLib.Barcode.UnitOfMeasure.PIXEL + Me.LinearWinForm2.UPCENumber = 0 + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(12, 495) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(75, 23) + Me.Button5.TabIndex = 18 + Me.Button5.Text = "Guardar" + Me.Button5.UseVisualStyleBackColor = True + ' + 'FacturaForm + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(729, 637) + Me.Controls.Add(Me.Button5) + Me.Controls.Add(Me.LinearWinForm2) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.Resultado) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.TotalRB) + Me.Controls.Add(Me.NetoRB) + Me.Controls.Add(Me.CheckBox1) + Me.Controls.Add(Me.CalcBtn) + Me.Controls.Add(Me.VtoCB) + Me.Controls.Add(Me.VtoDTP) + Me.Controls.Add(Me.FechaDTP) + Me.Controls.Add(Me.NroCbteTX) + Me.Controls.Add(Me.TotalTx) + Me.Controls.Add(Me.ImpIvaTx) + Me.Controls.Add(Me.NetoTX) + Me.Controls.Add(Me.DocTX) + Me.Controls.Add(Me.TipoIVACmb) + Me.Controls.Add(Me.MonedaCMB) + Me.Controls.Add(Me.TipoDocCMB) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.Label23) + Me.Controls.Add(Me.TipoConcepto) + Me.Controls.Add(Me.Label14) + Me.Controls.Add(Me.Label22) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.Label21) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.ptos_venta_cm) + Me.Controls.Add(Me.Label20) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.Label19) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label18) + Me.Controls.Add(Me.TiposComprobantesCMB) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.MyCuitTX) + Me.Controls.Add(Me.Label16) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label15) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Button1) + Me.Name = "FacturaForm" + Me.Text = "FacturaForm" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Button1 As Button + Friend WithEvents Label1 As Label + Friend WithEvents TiposComprobantesCMB As ComboBox + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents TipoConcepto As ComboBox + Friend WithEvents Label4 As Label + Friend WithEvents MyCuitTX As TextBox + Friend WithEvents ptos_venta_cm As ComboBox + Friend WithEvents Label5 As Label + Friend WithEvents TipoDocCMB As ComboBox + Friend WithEvents Label6 As Label + Friend WithEvents MonedaCMB As ComboBox + Friend WithEvents Label7 As Label + Friend WithEvents TipoIVACmb As ComboBox + Friend WithEvents DocTX As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents Label9 As Label + Friend WithEvents NroCbteTX As TextBox + Friend WithEvents FechaDTP As DateTimePicker + Friend WithEvents Label10 As Label + Friend WithEvents Label11 As Label + Friend WithEvents NetoTX As TextBox + Friend WithEvents Label12 As Label + Friend WithEvents ImpIvaTx As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents TotalTx As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents VtoDTP As DateTimePicker + Friend WithEvents VtoCB As CheckBox + Friend WithEvents CalcBtn As Button + Friend WithEvents NetoRB As RadioButton + Friend WithEvents TotalRB As RadioButton + Friend WithEvents Button2 As Button + Friend WithEvents Button3 As Button + Friend WithEvents Resultado As TextBox + Friend WithEvents Label15 As Label + Friend WithEvents Label16 As Label + Friend WithEvents Label18 As Label + Friend WithEvents Label19 As Label + Friend WithEvents Label20 As Label + Friend WithEvents Label21 As Label + Friend WithEvents Label22 As Label + Friend WithEvents Label23 As Label + Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents testing_rb As RadioButton + Friend WithEvents produccion_rb As RadioButton + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents Button4 As Button + Friend WithEvents LinearWinForm2 As BarcodeLib.Barcode.WinForms.LinearWinForm + Friend WithEvents Button5 As Button +End Class diff --git a/PrototipoAfip/FacturaForm.resx b/PrototipoAfip/FacturaForm.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/PrototipoAfip/FacturaForm.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/PrototipoAfip/FacturaForm.vb b/PrototipoAfip/FacturaForm.vb new file mode 100644 index 0000000..c8b1d36 --- /dev/null +++ b/PrototipoAfip/FacturaForm.vb @@ -0,0 +1,274 @@ +Imports PrototipoAfip.WSFEHOMO +Public Class FacturaForm + Property Login As LoginClass + Property TiposComprobantes As CbteTipoResponse + Property TipoConceptos As ConceptoTipoResponse + Property TipoDoc As DocTipoResponse + Property Monedas As MonedaResponse + Property puntosventa As FEPtoVentaResponse + Property TiposIVA As IvaTipoResponse + Property opcionales As OpcionalTipoResponse + Property authRequest As FEAuthRequest + Private url As String + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Try + authRequest = New FEAuthRequest() + authRequest.Cuit = MyCuitTX.Text + authRequest.Sign = Login.Sign + authRequest.Token = Login.Token + + Dim service As Service = getServicio() + + service.ClientCertificates.Add(Login.certificado) + + puntosventa = service.FEParamGetPtosVenta(authRequest) + ptos_venta_cm.DataSource = puntosventa.ResultGet + + TiposComprobantes = service.FEParamGetTiposCbte(authRequest) + TiposComprobantesCMB.DataSource = TiposComprobantes.ResultGet + + TipoConceptos = service.FEParamGetTiposConcepto(authRequest) + TipoConcepto.DataSource = TipoConceptos.ResultGet + + TipoDoc = service.FEParamGetTiposDoc(authRequest) + TipoDocCMB.DataSource = TipoDoc.ResultGet + + Monedas = service.FEParamGetTiposMonedas(authRequest) + MonedaCMB.DataSource = Monedas.ResultGet + + TiposIVA = service.FEParamGetTiposIva(authRequest) + TipoIVACmb.DataSource = TiposIVA.ResultGet + + NroCbteTX.Text = service.FECompUltimoAutorizado(authRequest, 4, TiposComprobantes.ResultGet(0).Id).CbteNro + 1 + + opcionales = service.FEParamGetTiposOpcional(authRequest) + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub FacturaForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load + MyCuitTX.Text = My.Settings.def_cuit + ptos_venta_cm.DisplayMember = "Nro" + TiposComprobantesCMB.DisplayMember = "Desc" + TipoConcepto.DisplayMember = "Desc" + TipoDocCMB.DisplayMember = "Desc" + MonedaCMB.DisplayMember = "Desc" + TipoIVACmb.DisplayMember = "Desc" + End Sub + + Private Sub VtoCB_CheckedChanged(sender As Object, e As EventArgs) Handles VtoCB.CheckedChanged, CheckBox1.CheckedChanged + VtoDTP.Enabled = VtoCB.Checked + End Sub + + Private Sub CalcBtn_Click(sender As Object, e As EventArgs) Handles CalcBtn.Click + Try + Dim iva As IvaTipo = TipoIVACmb.SelectedItem + + Dim desc As String = iva.Desc + Dim sep = Globalization.CultureInfo.CurrentUICulture.NumberFormat.NumberDecimalSeparator + + desc = desc.Replace(".", Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator) + desc = desc.Substring(0, desc.Count - 1) + Dim ivaval As Decimal = Decimal.Parse(desc) + + If NetoRB.Checked Then + Dim neto As Decimal = Decimal.Parse(NetoTX.Text) + Dim imp_iva As Decimal = neto * ivaval / 100 + Dim total As Decimal = neto + imp_iva + + ImpIvaTx.Text = imp_iva + TotalTx.Text = total + Else + Dim total As Decimal = Decimal.Parse(TotalTx.Text) + Dim mul As Decimal = 1 + (ivaval / 100) + Dim neto As Decimal = total / mul + Dim imp_iva = total - neto + ImpIvaTx.Text = imp_iva + NetoTX.Text = neto + + End If + + + + + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles TotalRB.CheckedChanged + + NetoTX.ReadOnly = TotalRB.Checked + NetoTX.Text = "" + TotalTx.Text = "" + ImpIvaTx.Text = "" + TotalTx.ReadOnly = NetoRB.Checked + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Try + Dim service As WSFEHOMO.Service = getServicio() + service.ClientCertificates.Add(Login.certificado) + Dim pv As Integer = Integer.Parse(InputBox("Pto Venta")) + Dim cm As CbteTipo = TiposComprobantesCMB.SelectedItem + + Dim req As New FECAERequest + Dim cab As New FECAECabRequest + Dim det As New FECAEDetRequest + + cab.CantReg = 1 + cab.PtoVta = pv + cab.CbteTipo = cm.Id + req.FeCabReq = cab + + With det + Dim concepto As ConceptoTipo = TipoConcepto.SelectedItem + .Concepto = concepto.Id + Dim doctipo As DocTipo = TipoDocCMB.SelectedItem + .DocTipo = doctipo.Id + .DocNro = Long.Parse(DocTX.Text) + + Dim lastRes As FERecuperaLastCbteResponse = service.FECompUltimoAutorizado(authRequest, pv, cm.Id) + Dim last As Integer = lastRes.CbteNro + + .CbteDesde = last + 1 + .CbteHasta = last + 1 + + .CbteFch = FechaDTP.Value.ToString("yyyyMMdd") + + .ImpNeto = NetoTX.Text + .ImpIVA = ImpIvaTx.Text + .ImpTotal = TotalTx.Text + + .ImpTotConc = 0 + .ImpOpEx = 0 + .ImpTrib = 0 + + Dim mon As Moneda = MonedaCMB.SelectedItem + .MonId = mon.Id + .MonCotiz = 1 + + Dim alicuota As New AlicIva + Dim ivat As IvaTipo = TipoIVACmb.SelectedItem + alicuota.Id = ivat.Id + alicuota.BaseImp = NetoTX.Text + alicuota.Importe = ImpIvaTx.Text + + .Iva = {alicuota} + + + End With + + req.FeDetReq = {det} + + Dim r = service.FECAESolicitar(authRequest, req) + + Dim m As String = "Estado: " & r.FeCabResp.Resultado & vbCrLf + m &= "Estado Esp: " & r.FeDetResp(0).Resultado + m &= vbCrLf + m &= "CAE: " & r.FeDetResp(0).CAE + m &= vbCrLf + m &= "Vto: " & r.FeDetResp(0).CAEFchVto + m &= vbCrLf + m &= "Desde-Hasta: " & r.FeDetResp(0).CbteDesde & "-" & r.FeDetResp(0).CbteHasta + m &= vbCrLf + + For Each o In r.FeDetResp(0).Observaciones + m &= String.Format("Obs: {0} ({1})", o.Msg, o.Code) & vbCrLf + Next + + Resultado.Text = m + + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Try + Dim service As WSFEHOMO.Service = getServicio() + service.ClientCertificates.Add(Login.certificado) + Dim pv As Integer = Integer.Parse(InputBox("Pto Venta")) + Dim cm As CbteTipo = TiposComprobantesCMB.SelectedItem + + Dim last As FERecuperaLastCbteResponse = service.FECompUltimoAutorizado(authRequest, pv, cm.Id) + + Dim consulta As New FECompConsultaReq + consulta.CbteNro = last.CbteNro + consulta.CbteTipo = last.CbteTipo + consulta.PtoVta = last.PtoVta + + Dim asdf As FECompConsultaResponse = service.FECompConsultar(authRequest, consulta) + Dim r = asdf.ResultGet + + Dim m As String = "Estado: " & r.Resultado & vbCrLf + m &= "CAE: " & r.CodAutorizacion + m &= vbCrLf + m &= "Vto: " & r.FchVto + m &= vbCrLf + m &= "Desde-Hasta: " & r.CbteDesde & "-" & r.CbteHasta + m &= vbCrLf + m &= "Para: " & r.DocNro + m &= vbCrLf + m &= "Tipo Emision: " & r.EmisionTipo + m &= vbCrLf + m &= "Total: " & r.ImpTotal + m &= vbCrLf + + For Each o In r.Observaciones + m &= String.Format("Obs: {0} ({1})", o.Msg, o.Code) & vbCrLf + Next + + Resultado.Text = m + + + With LinearWinForm2 + .Type = BarcodeLib.Barcode.BarcodeType.INTERLEAVED25 + .Data = String.Concat(authRequest.Cuit, + r.CbteTipo.ToString("00"), + r.PtoVta.ToString("0000"), + r.CodAutorizacion, + r.FchVto) + .AddCheckSum = True + .UOM = BarcodeLib.Barcode.UnitOfMeasure.PIXEL + .BarWidth = 2 + .BarHeight = 80 + .LeftMargin = 5 + .RightMargin = 5 + .TopMargin = 5 + .BottomMargin = 5 + .ImageFormat = Imaging.ImageFormat.Bmp + .drawBarcode(LinearWinForm2.CreateGraphics) + End With + + + MsgBox("El Ultimo fue: " & last.CbteNro.ToString) + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub testing_rb_CheckedChanged(sender As Object, e As EventArgs) Handles testing_rb.CheckedChanged + url = "https://wswhomo.afip.gov.ar/wsfev1/service.asmx?WSDL" + End Sub + + Private Sub produccion_rb_CheckedChanged(sender As Object, e As EventArgs) Handles produccion_rb.CheckedChanged + url = "https://servicios1.afip.gov.ar/wsfev1/service.asmx?WSDL" + End Sub + + Private Function getServicio() As Service + Dim s As New Service + s.Url = url + Return s + End Function + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + Process.Start(String.Format("https://www.cuitonline.com/detalle/{0}/", DocTX.Text)) + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + Dim p = String.Format("{0}\codigo.bmp", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)) + LinearWinForm2.SaveAsImage(p) + End Sub +End Class \ No newline at end of file diff --git a/PrototipoAfip/FacturaPrueba.Designer.vb b/PrototipoAfip/FacturaPrueba.Designer.vb new file mode 100644 index 0000000..7a8aaf8 --- /dev/null +++ b/PrototipoAfip/FacturaPrueba.Designer.vb @@ -0,0 +1,209 @@ + _ +Partial Class FacturaPrueba + Inherits System.Windows.Forms.Form + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Requerido por el Diseñador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento + 'Se puede modificar usando el Diseñador de Windows Forms. + 'No lo modifique con el editor de código. + _ + Private Sub InitializeComponent() + Me.DataGridView1 = New System.Windows.Forms.DataGridView() + Me.Addbtn = New System.Windows.Forms.Button() + Me.DataGridView2 = New System.Windows.Forms.DataGridView() + Me.Label1 = New System.Windows.Forms.Label() + Me.totalneto = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.descuento = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.subtotal = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.iva21 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.tootal = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DataGridView1 + ' + Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView1.Location = New System.Drawing.Point(12, 101) + Me.DataGridView1.Name = "DataGridView1" + Me.DataGridView1.Size = New System.Drawing.Size(785, 179) + Me.DataGridView1.TabIndex = 0 + ' + 'Addbtn + ' + Me.Addbtn.Location = New System.Drawing.Point(564, 70) + Me.Addbtn.Name = "Addbtn" + Me.Addbtn.Size = New System.Drawing.Size(151, 25) + Me.Addbtn.TabIndex = 1 + Me.Addbtn.Text = "Agregar" + Me.Addbtn.UseVisualStyleBackColor = True + ' + 'DataGridView2 + ' + Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView2.Location = New System.Drawing.Point(557, 286) + Me.DataGridView2.Name = "DataGridView2" + Me.DataGridView2.Size = New System.Drawing.Size(240, 97) + Me.DataGridView2.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(278, 321) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(73, 13) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "SubTotalNeto" + ' + 'totalneto + ' + Me.totalneto.AutoSize = True + Me.totalneto.Location = New System.Drawing.Point(370, 321) + Me.totalneto.Name = "totalneto" + Me.totalneto.Size = New System.Drawing.Size(39, 13) + Me.totalneto.TabIndex = 2 + Me.totalneto.Text = "Label1" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(278, 334) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(59, 13) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Descuento" + ' + 'descuento + ' + Me.descuento.AutoSize = True + Me.descuento.Location = New System.Drawing.Point(370, 334) + Me.descuento.Name = "descuento" + Me.descuento.Size = New System.Drawing.Size(39, 13) + Me.descuento.TabIndex = 2 + Me.descuento.Text = "Label1" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(278, 347) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(50, 13) + Me.Label5.TabIndex = 2 + Me.Label5.Text = "SubTotal" + ' + 'subtotal + ' + Me.subtotal.AutoSize = True + Me.subtotal.Location = New System.Drawing.Point(370, 347) + Me.subtotal.Name = "subtotal" + Me.subtotal.Size = New System.Drawing.Size(39, 13) + Me.subtotal.TabIndex = 2 + Me.subtotal.Text = "Label1" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(278, 360) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(39, 13) + Me.Label7.TabIndex = 2 + Me.Label7.Text = "IVA 21" + ' + 'iva21 + ' + Me.iva21.AutoSize = True + Me.iva21.Location = New System.Drawing.Point(370, 360) + Me.iva21.Name = "iva21" + Me.iva21.Size = New System.Drawing.Size(39, 13) + Me.iva21.TabIndex = 2 + Me.iva21.Text = "Label1" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(278, 373) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(31, 13) + Me.Label9.TabIndex = 2 + Me.Label9.Text = "Total" + ' + 'tootal + ' + Me.tootal.AutoSize = True + Me.tootal.Location = New System.Drawing.Point(370, 373) + Me.tootal.Name = "tootal" + Me.tootal.Size = New System.Drawing.Size(39, 13) + Me.tootal.TabIndex = 2 + Me.tootal.Text = "Label1" + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(441, 70) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "Random" + Me.Button1.UseVisualStyleBackColor = True + ' + 'FacturaPrueba + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(809, 479) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.tootal) + Me.Controls.Add(Me.iva21) + Me.Controls.Add(Me.subtotal) + Me.Controls.Add(Me.descuento) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.totalneto) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Addbtn) + Me.Controls.Add(Me.DataGridView2) + Me.Controls.Add(Me.DataGridView1) + Me.Name = "FacturaPrueba" + Me.Text = "FacturaPrueba" + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DataGridView1 As DataGridView + Friend WithEvents Addbtn As Button + Friend WithEvents DataGridView2 As DataGridView + Friend WithEvents Label1 As Label + Friend WithEvents totalneto As Label + Friend WithEvents Label3 As Label + Friend WithEvents descuento As Label + Friend WithEvents Label5 As Label + Friend WithEvents subtotal As Label + Friend WithEvents Label7 As Label + Friend WithEvents iva21 As Label + Friend WithEvents Label9 As Label + Friend WithEvents tootal As Label + Friend WithEvents Button1 As Button +End Class diff --git a/PrototipoAfip/FacturaPrueba.resx b/PrototipoAfip/FacturaPrueba.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/PrototipoAfip/FacturaPrueba.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/PrototipoAfip/FacturaPrueba.vb b/PrototipoAfip/FacturaPrueba.vb new file mode 100644 index 0000000..14e5239 --- /dev/null +++ b/PrototipoAfip/FacturaPrueba.vb @@ -0,0 +1,64 @@ +Public Class FacturaPrueba + + Public Sub New() + InitializeComponent() + f = New Factura + actualizar() + End Sub + Sub actualizar() + DataGridView1.DataSource = Nothing + DataGridView2.DataSource = Nothing + DataGridView1.DataSource = f.Detalles + DataGridView2.DataSource = f.SubTotalesIva + + totalneto.Text = f.SubTotalPreDescuento.ToString("C") + descuento.Text = f.Descuento.ToString("C") + subtotal.Text = f.SubTotalNeto.ToString("C") + iva21.Text = f.getSubTotalIva(21).ToString("C") + tootal.Text = f.Total.ToString("C") + + End Sub + Private f As Factura + Private Sub Addbtn_Click(sender As Object, e As EventArgs) Handles Addbtn.Click + Dim cod As Long? = Long.Parse(InputBox("Codigo")) + Dim cant As Integer = Integer.Parse(InputBox("Cantidad")) + Dim desc As String = InputBox("Desc") + Dim precio As Decimal = Decimal.Parse(InputBox("Precio")) + Dim alicuota As Decimal = Decimal.Parse(InputBox("Alicuota")) + Dim neto As Boolean = InputBox("Es Neto? s/n").Equals("s") + + If neto Then + f.addDetalle(cod, cant, precio, desc, alicuota) + Else + f.addDetallePrecioFinal(cod, cant, precio, desc, alicuota) + End If + actualizar() + End Sub + + Private Sub FacturaPrueba_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub + + Private r As Random + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + r = New Random + For i = 0 To 10 + + Dim cod = r.Next(1, 222) + Dim cant = r.Next(1, 10) + Dim prec = randDec(15, 200) + Dim ali = 21 + Dim desc = Guid.NewGuid().ToString().Substring(0, 8) + + f.addDetalle(cod, cant, prec, desc, ali) + Next + actualizar() + End Sub + + Private Function randDec(min As Decimal, max As Decimal) As Decimal + min *= 100 + max *= 100 + Return r.Next(min, max) / 100 + + End Function +End Class \ No newline at end of file diff --git a/PrototipoAfip/Form1.Designer.vb b/PrototipoAfip/Form1.Designer.vb new file mode 100644 index 0000000..cf97442 --- /dev/null +++ b/PrototipoAfip/Form1.Designer.vb @@ -0,0 +1,251 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Requerido por el Diseñador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento + 'Se puede modificar usando el Diseñador de Windows Forms. + 'No lo modifique con el editor de código. + _ + Private Sub InitializeComponent() + Me.Buscar_btn = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.CertificadoTX = New System.Windows.Forms.TextBox() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.Label2 = New System.Windows.Forms.Label() + Me.ClaveTX = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.LoginBtn = New System.Windows.Forms.Button() + Me.VerTokenBtn = New System.Windows.Forms.Button() + Me.VerSignBtn = New System.Windows.Forms.Button() + Me.VerFullRequestBtn = New System.Windows.Forms.Button() + Me.VerFullResponseBtn = New System.Windows.Forms.Button() + Me.WSFE_BTN = New System.Windows.Forms.Button() + Me.testing_rb = New System.Windows.Forms.RadioButton() + Me.produccion_rb = New System.Windows.Forms.RadioButton() + Me.TestServerBTN = New System.Windows.Forms.Button() + Me.FactObjTest = New System.Windows.Forms.Button() + Me.ServicioTX = New System.Windows.Forms.ComboBox() + Me.SuspendLayout() + ' + 'Buscar_btn + ' + Me.Buscar_btn.Location = New System.Drawing.Point(464, 59) + Me.Buscar_btn.Name = "Buscar_btn" + Me.Buscar_btn.Size = New System.Drawing.Size(75, 23) + Me.Buscar_btn.TabIndex = 0 + Me.Buscar_btn.Text = "Buscar" + Me.Buscar_btn.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(25, 64) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(57, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Certificado" + ' + 'CertificadoTX + ' + Me.CertificadoTX.Location = New System.Drawing.Point(88, 61) + Me.CertificadoTX.Name = "CertificadoTX" + Me.CertificadoTX.Size = New System.Drawing.Size(370, 20) + Me.CertificadoTX.TabIndex = 2 + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(25, 90) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(34, 13) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Clave" + ' + 'ClaveTX + ' + Me.ClaveTX.Location = New System.Drawing.Point(88, 87) + Me.ClaveTX.Name = "ClaveTX" + Me.ClaveTX.Size = New System.Drawing.Size(370, 20) + Me.ClaveTX.TabIndex = 2 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(25, 116) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(45, 13) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Servicio" + ' + 'LoginBtn + ' + Me.LoginBtn.Location = New System.Drawing.Point(89, 202) + Me.LoginBtn.Name = "LoginBtn" + Me.LoginBtn.Size = New System.Drawing.Size(83, 41) + Me.LoginBtn.TabIndex = 3 + Me.LoginBtn.Text = "Login" + Me.LoginBtn.UseVisualStyleBackColor = True + ' + 'VerTokenBtn + ' + Me.VerTokenBtn.Location = New System.Drawing.Point(207, 202) + Me.VerTokenBtn.Name = "VerTokenBtn" + Me.VerTokenBtn.Size = New System.Drawing.Size(83, 41) + Me.VerTokenBtn.TabIndex = 3 + Me.VerTokenBtn.Text = "Ver Token" + Me.VerTokenBtn.UseVisualStyleBackColor = True + ' + 'VerSignBtn + ' + Me.VerSignBtn.Location = New System.Drawing.Point(296, 202) + Me.VerSignBtn.Name = "VerSignBtn" + Me.VerSignBtn.Size = New System.Drawing.Size(83, 41) + Me.VerSignBtn.TabIndex = 3 + Me.VerSignBtn.Text = "Ver Sign" + Me.VerSignBtn.UseVisualStyleBackColor = True + ' + 'VerFullRequestBtn + ' + Me.VerFullRequestBtn.Location = New System.Drawing.Point(412, 202) + Me.VerFullRequestBtn.Name = "VerFullRequestBtn" + Me.VerFullRequestBtn.Size = New System.Drawing.Size(83, 41) + Me.VerFullRequestBtn.TabIndex = 3 + Me.VerFullRequestBtn.Text = "Ver Login Request" + Me.VerFullRequestBtn.UseVisualStyleBackColor = True + ' + 'VerFullResponseBtn + ' + Me.VerFullResponseBtn.Location = New System.Drawing.Point(515, 202) + Me.VerFullResponseBtn.Name = "VerFullResponseBtn" + Me.VerFullResponseBtn.Size = New System.Drawing.Size(83, 41) + Me.VerFullResponseBtn.TabIndex = 3 + Me.VerFullResponseBtn.Text = "Ver Login Response" + Me.VerFullResponseBtn.UseVisualStyleBackColor = True + ' + 'WSFE_BTN + ' + Me.WSFE_BTN.Location = New System.Drawing.Point(89, 270) + Me.WSFE_BTN.Name = "WSFE_BTN" + Me.WSFE_BTN.Size = New System.Drawing.Size(294, 58) + Me.WSFE_BTN.TabIndex = 3 + Me.WSFE_BTN.Text = "Facturacion Electronica WSFE" + Me.WSFE_BTN.UseVisualStyleBackColor = True + ' + 'testing_rb + ' + Me.testing_rb.AutoSize = True + Me.testing_rb.Checked = True + Me.testing_rb.Location = New System.Drawing.Point(89, 139) + Me.testing_rb.Name = "testing_rb" + Me.testing_rb.Size = New System.Drawing.Size(60, 17) + Me.testing_rb.TabIndex = 4 + Me.testing_rb.TabStop = True + Me.testing_rb.Text = "Testing" + Me.testing_rb.UseVisualStyleBackColor = True + ' + 'produccion_rb + ' + Me.produccion_rb.AutoSize = True + Me.produccion_rb.Location = New System.Drawing.Point(88, 162) + Me.produccion_rb.Name = "produccion_rb" + Me.produccion_rb.Size = New System.Drawing.Size(79, 17) + Me.produccion_rb.TabIndex = 4 + Me.produccion_rb.TabStop = True + Me.produccion_rb.Text = "Produccion" + Me.produccion_rb.UseVisualStyleBackColor = True + ' + 'TestServerBTN + ' + Me.TestServerBTN.Location = New System.Drawing.Point(523, 173) + Me.TestServerBTN.Name = "TestServerBTN" + Me.TestServerBTN.Size = New System.Drawing.Size(75, 23) + Me.TestServerBTN.TabIndex = 5 + Me.TestServerBTN.Text = "Probar Servidor" + Me.TestServerBTN.UseVisualStyleBackColor = True + ' + 'FactObjTest + ' + Me.FactObjTest.Location = New System.Drawing.Point(523, 270) + Me.FactObjTest.Name = "FactObjTest" + Me.FactObjTest.Size = New System.Drawing.Size(75, 58) + Me.FactObjTest.TabIndex = 6 + Me.FactObjTest.Text = "Factura Obj Prueba" + Me.FactObjTest.UseVisualStyleBackColor = True + ' + 'ServicioTX + ' + Me.ServicioTX.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.ServicioTX.FormattingEnabled = True + Me.ServicioTX.Items.AddRange(New Object() {"wsfe"}) + Me.ServicioTX.Location = New System.Drawing.Point(88, 112) + Me.ServicioTX.Name = "ServicioTX" + Me.ServicioTX.Size = New System.Drawing.Size(291, 21) + Me.ServicioTX.TabIndex = 8 + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(622, 340) + Me.Controls.Add(Me.ServicioTX) + Me.Controls.Add(Me.FactObjTest) + Me.Controls.Add(Me.TestServerBTN) + Me.Controls.Add(Me.produccion_rb) + Me.Controls.Add(Me.testing_rb) + Me.Controls.Add(Me.VerFullResponseBtn) + Me.Controls.Add(Me.VerFullRequestBtn) + Me.Controls.Add(Me.VerSignBtn) + Me.Controls.Add(Me.VerTokenBtn) + Me.Controls.Add(Me.WSFE_BTN) + Me.Controls.Add(Me.LoginBtn) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.ClaveTX) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.CertificadoTX) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Buscar_btn) + Me.Name = "Form1" + Me.Text = "Login WSAA" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Buscar_btn As Button + Friend WithEvents Label1 As Label + Friend WithEvents CertificadoTX As TextBox + Friend WithEvents OpenFileDialog1 As OpenFileDialog + Friend WithEvents Label2 As Label + Friend WithEvents ClaveTX As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents LoginBtn As Button + Friend WithEvents VerTokenBtn As Button + Friend WithEvents VerSignBtn As Button + Friend WithEvents VerFullRequestBtn As Button + Friend WithEvents VerFullResponseBtn As Button + Friend WithEvents WSFE_BTN As Button + Friend WithEvents testing_rb As RadioButton + Friend WithEvents produccion_rb As RadioButton + Friend WithEvents TestServerBTN As Button + Friend WithEvents FactObjTest As Button + Friend WithEvents ServicioTX As ComboBox +End Class diff --git a/PrototipoAfip/Form1.resx b/PrototipoAfip/Form1.resx new file mode 100644 index 0000000..33c7f67 --- /dev/null +++ b/PrototipoAfip/Form1.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/PrototipoAfip/Form1.vb b/PrototipoAfip/Form1.vb new file mode 100644 index 0000000..f564fa8 --- /dev/null +++ b/PrototipoAfip/Form1.vb @@ -0,0 +1,81 @@ +Public Class Form1 + Private Sub Buscar_btn_Click(sender As Object, e As EventArgs) Handles Buscar_btn.Click + If OpenFileDialog1.ShowDialog = DialogResult.OK Then + CertificadoTX.Text = OpenFileDialog1.FileName + End If + End Sub + + Private Sub guardar_params() + My.Settings.def_cert = CertificadoTX.Text + My.Settings.def_pass = ClaveTX.Text + My.Settings.def_serv = ServicioTX.Text + My.Settings.def_url = url + My.Settings.Save() + End Sub + + Private Sub cargar_params() + My.Settings.Reload() + CertificadoTX.Text = My.Settings.def_cert + ClaveTX.Text = My.Settings.def_pass + ServicioTX.Text = My.Settings.def_serv + url = My.Settings.def_url + End Sub + + Private l As LoginClass + Private Sub LoginBtn_Click(sender As Object, e As EventArgs) Handles LoginBtn.Click + l = New LoginClass(ServicioTX.Text, url, CertificadoTX.Text, ClaveTX.Text) + l.hacerLogin() + guardar_params() + End Sub + + + Private Sub VerTokenBtn_Click(sender As Object, e As EventArgs) Handles VerTokenBtn.Click + LargeText.mostrarMensaje(l.Token) + End Sub + + Private Sub VerSignBtn_Click(sender As Object, e As EventArgs) Handles VerSignBtn.Click + LargeText.mostrarMensaje(l.Sign) + End Sub + + Private Sub VerFullRequestBtn_Click(sender As Object, e As EventArgs) Handles VerFullRequestBtn.Click + If l.XDocRequest Is Nothing Then Return + LargeText.mostrarMensaje(l.XDocRequest.ToString) + End Sub + + Private Sub VerFullResponseBtn_Click(sender As Object, e As EventArgs) Handles VerFullResponseBtn.Click + If l.XDocResponse Is Nothing Then Return + LargeText.mostrarMensaje(l.XDocResponse.ToString) + End Sub + + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load + cargar_params() + End Sub + + Private Sub WSFE_BTN_Click(sender As Object, e As EventArgs) Handles WSFE_BTN.Click + FacturaForm.Login = l + FacturaForm.Show() + End Sub + + Private url As String + + Private Sub testing_rb_CheckedChanged(sender As Object, e As EventArgs) Handles testing_rb.CheckedChanged + url = "https://wsaahomo.afip.gov.ar/ws/services/LoginCms" + End Sub + + Private Sub produccion_rb_CheckedChanged(sender As Object, e As EventArgs) Handles produccion_rb.CheckedChanged + url = "https://wsaa.afip.gov.ar/ws/services/LoginCms?wsdl" + End Sub + + Private Sub TestServerBTN_Click(sender As Object, e As EventArgs) Handles TestServerBTN.Click + Dim s As New WSFEHOMO.Service + Dim f As WSFEHOMO.DummyResponse = s.FEDummy + MsgBox(String.Format("{0} - {1} - {2}", f.AppServer, f.AuthServer, f.DbServer)) + End Sub + + Private Sub FactObjTest_Click(sender As Object, e As EventArgs) Handles FactObjTest.Click + Dim f As New FacturaPrueba + f.Show() + End Sub + + +End Class diff --git a/PrototipoAfip/LargeText.Designer.vb b/PrototipoAfip/LargeText.Designer.vb new file mode 100644 index 0000000..7e42b3e --- /dev/null +++ b/PrototipoAfip/LargeText.Designer.vb @@ -0,0 +1,51 @@ + _ +Partial Class LargeText + Inherits System.Windows.Forms.Form + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Requerido por el Diseñador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento + 'Se puede modificar usando el Diseñador de Windows Forms. + 'No lo modifique con el editor de código. + _ + Private Sub InitializeComponent() + Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() + Me.SuspendLayout() + ' + 'RichTextBox1 + ' + Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.RichTextBox1.Location = New System.Drawing.Point(0, 0) + Me.RichTextBox1.Name = "RichTextBox1" + Me.RichTextBox1.Size = New System.Drawing.Size(800, 481) + Me.RichTextBox1.TabIndex = 0 + Me.RichTextBox1.Text = "" + ' + 'LargeText + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 481) + Me.Controls.Add(Me.RichTextBox1) + Me.Name = "LargeText" + Me.Text = "LargeText" + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents RichTextBox1 As RichTextBox +End Class diff --git a/PrototipoAfip/LargeText.resx b/PrototipoAfip/LargeText.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/PrototipoAfip/LargeText.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/PrototipoAfip/LargeText.vb b/PrototipoAfip/LargeText.vb new file mode 100644 index 0000000..92b30fa --- /dev/null +++ b/PrototipoAfip/LargeText.vb @@ -0,0 +1,7 @@ +Public Class LargeText + Public Shared Sub mostrarMensaje(s As String) + Dim f As New LargeText + f.RichTextBox1.Text = s + f.ShowDialog() + End Sub +End Class \ No newline at end of file diff --git a/PrototipoAfip/LoginClass.vb b/PrototipoAfip/LoginClass.vb new file mode 100644 index 0000000..fcd414d --- /dev/null +++ b/PrototipoAfip/LoginClass.vb @@ -0,0 +1,136 @@ +Imports System +Imports System.Collections.Generic +Imports System.Text +Imports System.Xml +Imports System.Net +Imports System.Security +Imports System.Security.Cryptography +Imports System.Security.Cryptography.Pkcs +Imports System.Security.Cryptography.X509Certificates +Imports System.IO +Imports System.Runtime.InteropServices +Public Class LoginClass + Private Shared _globalId As UInt32 = 0 + + Property serv As String + Property url As String + Private cert_path As String + Private clave As SecureString + + Private XmlLoginTicketRequest As XmlDocument + Private XmlLoginTicketResponse As XmlDocument + Private uniqueId As UInt32 + Property GenerationTime As DateTime + Property ExpirationTime As DateTime + ReadOnly Property Logeado As Boolean + Get + Return Not Token = "" + End Get + End Property + + Public Property certificado As X509Certificate2 + + Property XDocRequest As XDocument + Property XDocResponse As XDocument + + Public ReadOnly Property Token As String + Public ReadOnly Property Sign As String + + Public Sub New(serv As String, url As String, cert_path As String, clave As String) + Me.serv = serv + Me.url = url + Me.cert_path = cert_path + Me.clave = New SecureString + For Each character As Char In clave + Me.clave.AppendChar(character) + Next + Me.clave.MakeReadOnly() + End Sub + + + + Public Sub hacerLogin() + Dim cmsFirmadoBase64 As String + Dim loginTicketResponse As String + + Dim uniqueIdNode As XmlNode + Dim generationTimeNode As XmlNode + Dim ExpirationTimeNode As XmlNode + Dim ServiceNode As XmlNode + + Try + Me._globalId += 1 + + 'Preparo el XML Request + XmlLoginTicketRequest = New XmlDocument + XMLLoader.loadTemplate(XmlLoginTicketRequest, "LoginTemplate") + + uniqueIdNode = XmlLoginTicketRequest.SelectSingleNode("//uniqueId") + generationTimeNode = XmlLoginTicketRequest.SelectSingleNode("//generationTime") + ExpirationTimeNode = XmlLoginTicketRequest.SelectSingleNode("//expirationTime") + ServiceNode = XmlLoginTicketRequest.SelectSingleNode("//service") + generationTimeNode.InnerText = DateTime.Now.AddMinutes(-10).ToString("s") + ExpirationTimeNode.InnerText = DateTime.Now.AddMinutes(+10).ToString("s") + uniqueIdNode.InnerText = CStr(_globalId) + ServiceNode.InnerText = serv + + 'Obtenemos el Cert + certificado = New X509Certificate2 + If clave.IsReadOnly Then + certificado.Import(File.ReadAllBytes(cert_path), clave, X509KeyStorageFlags.PersistKeySet) + Else + certificado.Import(File.ReadAllBytes(cert_path)) + End If + + Dim msgBytes As Byte() = Encoding.UTF8.GetBytes(XmlLoginTicketRequest.OuterXml) + + 'Firmamos + Dim infoContenido As New ContentInfo(msgBytes) + Dim cmsFirmado As New SignedCms(infoContenido) + + Dim cmsFirmante As New CmsSigner(certificado) + cmsFirmante.IncludeOption = X509IncludeOption.EndCertOnly + + cmsFirmado.ComputeSignature(cmsFirmante) + + cmsFirmadoBase64 = Convert.ToBase64String(cmsFirmado.Encode()) + + 'Hago el login + Dim servicio As New WSAA.LoginCMSService + servicio.Url = url + + loginTicketResponse = servicio.loginCms(cmsFirmadoBase64) + + 'Analizamos la respuesta + XmlLoginTicketResponse = New XmlDocument + XmlLoginTicketResponse.LoadXml(loginTicketResponse) + + _Token = XmlLoginTicketResponse.SelectSingleNode("//token").InnerText + _Sign = XmlLoginTicketResponse.SelectSingleNode("//sign").InnerText + + Dim exStr = XmlLoginTicketResponse.SelectSingleNode("//expirationTime").InnerText + Dim genStr = XmlLoginTicketResponse.SelectSingleNode("//generationTime").InnerText + ExpirationTime = DateTime.Parse(exStr) + GenerationTime = DateTime.Parse(genStr) + + XDocRequest = XDocument.Parse(XmlLoginTicketRequest.OuterXml) + XDocResponse = XDocument.Parse(XmlLoginTicketResponse.OuterXml) + + MsgBox("Exito") + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + +End Class + +Public Class XMLLoader + Public Shared Sub load(doc As XmlDocument, file As String) + doc.Load(Path.GetFullPath(Application.StartupPath & "\" & file & ".xml")) + End Sub + Public Shared Sub loadTemplate(doc As XmlDocument, file As String) + load(doc, "Templates\" & file) + End Sub + +End Class diff --git a/PrototipoAfip/My Project/Application.Designer.vb b/PrototipoAfip/My Project/Application.Designer.vb new file mode 100644 index 0000000..7ab35bd --- /dev/null +++ b/PrototipoAfip/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.PrototipoAfip.Form1 + End Sub + End Class +End Namespace diff --git a/PrototipoAfip/My Project/Application.myapp b/PrototipoAfip/My Project/Application.myapp new file mode 100644 index 0000000..1243847 --- /dev/null +++ b/PrototipoAfip/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/PrototipoAfip/My Project/AssemblyInfo.vb b/PrototipoAfip/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..34716ed --- /dev/null +++ b/PrototipoAfip/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' La información general de un ensamblado se controla mediante el siguiente +' conjunto de atributos. Cambie estos valores de atributo para modificar la información +' asociada con un ensamblado. + +' Revisar los valores de los atributos del ensamblado + + + + + + + + + + +'El siguiente GUID sirve como id. de typelib si este proyecto se expone a COM. + + +' La información de versión de un ensamblado consta de los cuatro valores siguientes: +' +' Versión principal +' Versión secundaria +' Número de compilación +' Revisión +' +' Puede especificar todos los valores o utilizar los números de compilación y de revisión predeterminados +' mediante el carácter '*', como se muestra a continuación: +' + + + diff --git a/PrototipoAfip/My Project/Resources.Designer.vb b/PrototipoAfip/My Project/Resources.Designer.vb new file mode 100644 index 0000000..971156e --- /dev/null +++ b/PrototipoAfip/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("PrototipoAfip.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/PrototipoAfip/My Project/Resources.resx b/PrototipoAfip/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/PrototipoAfip/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/PrototipoAfip/My Project/Settings.Designer.vb b/PrototipoAfip/My Project/Settings.Designer.vb new file mode 100644 index 0000000..1c75bbe --- /dev/null +++ b/PrototipoAfip/My Project/Settings.Designer.vb @@ -0,0 +1,163 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funcionalidad para autoguardar My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public Property def_cert() As String + Get + Return CType(Me("def_cert"),String) + End Get + Set + Me("def_cert") = value + End Set + End Property + + _ + Public Property def_pass() As String + Get + Return CType(Me("def_pass"),String) + End Get + Set + Me("def_pass") = value + End Set + End Property + + _ + Public Property def_url() As String + Get + Return CType(Me("def_url"),String) + End Get + Set + Me("def_url") = value + End Set + End Property + + _ + Public Property def_serv() As String + Get + Return CType(Me("def_serv"),String) + End Get + Set + Me("def_serv") = value + End Set + End Property + + _ + Public ReadOnly Property PrototipoAfip_WSAA_LoginCMSService() As String + Get + Return CType(Me("PrototipoAfip_WSAA_LoginCMSService"),String) + End Get + End Property + + _ + Public ReadOnly Property PrototipoAfip_WSFEHOMO_Service() As String + Get + Return CType(Me("PrototipoAfip_WSFEHOMO_Service"),String) + End Get + End Property + + + Public Property def_cuit() As String + Get + Return CType(Me("def_cuit"), String) + End Get + Set + Me("def_cuit") = Value + End Set + End Property + + _ + Public ReadOnly Property PrototipoAfip_WSPSA4_PersonaServiceA4() As String + Get + Return CType(Me("PrototipoAfip_WSPSA4_PersonaServiceA4"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.PrototipoAfip.My.MySettings + Get + Return Global.PrototipoAfip.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/PrototipoAfip/My Project/Settings.settings b/PrototipoAfip/My Project/Settings.settings new file mode 100644 index 0000000..5de8cba --- /dev/null +++ b/PrototipoAfip/My Project/Settings.settings @@ -0,0 +1,30 @@ + + + + + + c:\cert.pfx + + + + + + https://wsaahomo.afip.gov.ar/ws/services/LoginCms?WSDL + + + wsfe + + + https://wsaa.afip.gov.ar/ws/services/LoginCms + + + https://wswhomo.afip.gov.ar/wsfev1/service.asmx + + + 20075416526 + + + http://aws.afip.gov.ar/sr-padron/webservices/personaServiceA4 + + + \ No newline at end of file diff --git a/PrototipoAfip/PrototipoAfip.vbproj b/PrototipoAfip/PrototipoAfip.vbproj new file mode 100644 index 0000000..20ff287 --- /dev/null +++ b/PrototipoAfip/PrototipoAfip.vbproj @@ -0,0 +1,299 @@ + + + + + Debug + AnyCPU + {52B31B3F-4154-48B0-BF2F-5820FFF2CDC3} + WinExe + PrototipoAfip.My.MyApplication + PrototipoAfip + PrototipoAfip + 512 + WindowsForms + v4.5.2 + true + + + AnyCPU + true + full + true + true + bin\Debug\ + PrototipoAfip.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + PrototipoAfip.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + E:\Proyectos\BarcodeLib_NETBarcode_Trial\BarcodeLib.Barcode.WinForms.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + FacturaForm.vb + + + Form + + + FacturaPrueba.vb + + + Form + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + LargeText.vb + + + Form + + + + True + True + Resources.resx + + + True + Settings.settings + True + + + True + True + Reference.map + + + True + True + Reference.map + + + True + True + Reference.map + + + + + FacturaForm.vb + + + FacturaPrueba.vb + + + Form1.vb + + + LargeText.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + MSDiscoCodeGenerator + Reference.vb + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + Reference.map + + + MSDiscoCodeGenerator + Reference.vb + + + + Reference.map + + + Reference.map + + + + MSDiscoCodeGenerator + Reference.vb + + + + + Always + + + + + + + + Dynamic + Web References\WSPSA4\ + https://aws.afip.gov.ar/sr-padron/webservices/personaServiceA4%3fWSDL + + + + + MySettings + PrototipoAfip_WSPSA4_PersonaServiceA4 + + + Dynamic + Web References\WSAA\ + https://wsaa.afip.gov.ar/ws/services/LoginCms%3fwsdl + + + + + MySettings + PrototipoAfip_WSAA_LoginCMSService + + + Dynamic + Web References\WSFEHOMO\ + https://wswhomo.afip.gov.ar/wsfev1/service.asmx%3fWSDL + + + + + MySettings + PrototipoAfip_WSFEHOMO_Service + + + + + + + \ No newline at end of file diff --git a/PrototipoAfip/Templates/LoginTemplate.xml b/PrototipoAfip/Templates/LoginTemplate.xml new file mode 100644 index 0000000..93abc2f --- /dev/null +++ b/PrototipoAfip/Templates/LoginTemplate.xml @@ -0,0 +1,9 @@ + + +
+ + + +
+ + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSAA/LoginCms.wsdl b/PrototipoAfip/Web References/WSAA/LoginCms.wsdl new file mode 100644 index 0000000..f519f3a --- /dev/null +++ b/PrototipoAfip/Web References/WSAA/LoginCms.wsdl @@ -0,0 +1,64 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSAA/Reference.map b/PrototipoAfip/Web References/WSAA/Reference.map new file mode 100644 index 0000000..04cc247 --- /dev/null +++ b/PrototipoAfip/Web References/WSAA/Reference.map @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSAA/Reference.vb b/PrototipoAfip/Web References/WSAA/Reference.vb new file mode 100644 index 0000000..0236547 --- /dev/null +++ b/PrototipoAfip/Web References/WSAA/Reference.vb @@ -0,0 +1,149 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Microsoft.VSDesigner generó automáticamente este código fuente, versión=4.0.30319.42000. +' +Namespace WSAA + + ''' + _ + Partial Public Class LoginCMSService + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private loginCmsOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.PrototipoAfip.My.MySettings.Default.PrototipoAfip_WSAA_LoginCMSService + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event loginCmsCompleted As loginCmsCompletedEventHandler + + ''' + _ + Public Function loginCms(ByVal in0 As String) As String + Dim results() As Object = Me.Invoke("loginCms", New Object() {in0}) + Return CType(results(0),String) + End Function + + ''' + Public Overloads Sub loginCmsAsync(ByVal in0 As String) + Me.loginCmsAsync(in0, Nothing) + End Sub + + ''' + Public Overloads Sub loginCmsAsync(ByVal in0 As String, ByVal userState As Object) + If (Me.loginCmsOperationCompleted Is Nothing) Then + Me.loginCmsOperationCompleted = AddressOf Me.OnloginCmsOperationCompleted + End If + Me.InvokeAsync("loginCms", New Object() {in0}, Me.loginCmsOperationCompleted, userState) + End Sub + + Private Sub OnloginCmsOperationCompleted(ByVal arg As Object) + If (Not (Me.loginCmsCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent loginCmsCompleted(Me, New loginCmsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Public Delegate Sub loginCmsCompletedEventHandler(ByVal sender As Object, ByVal e As loginCmsCompletedEventArgs) + + ''' + _ + Partial Public Class loginCmsCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As String + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),String) + End Get + End Property + End Class +End Namespace diff --git a/PrototipoAfip/Web References/WSFEHOMO/CbteTipoResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/CbteTipoResponse.datasource new file mode 100644 index 0000000..2449511 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/CbteTipoResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.CbteTipoResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/ConceptoTipoResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/ConceptoTipoResponse.datasource new file mode 100644 index 0000000..a8a9ee2 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/ConceptoTipoResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.ConceptoTipoResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/DocTipoResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/DocTipoResponse.datasource new file mode 100644 index 0000000..5e08a98 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/DocTipoResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.DocTipoResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/DummyResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/DummyResponse.datasource new file mode 100644 index 0000000..15c12e7 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/DummyResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.DummyResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FECAEAGetResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FECAEAGetResponse.datasource new file mode 100644 index 0000000..31e8692 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FECAEAGetResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FECAEAGetResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FECAEAResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FECAEAResponse.datasource new file mode 100644 index 0000000..b3baa57 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FECAEAResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FECAEAResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FECAEASinMovConsResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FECAEASinMovConsResponse.datasource new file mode 100644 index 0000000..b577b7d --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FECAEASinMovConsResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FECAEASinMovConsResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FECAEASinMovResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FECAEASinMovResponse.datasource new file mode 100644 index 0000000..dbfadfe --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FECAEASinMovResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FECAEASinMovResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FECAEResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FECAEResponse.datasource new file mode 100644 index 0000000..5fdba44 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FECAEResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FECAEResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FECompConsultaResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FECompConsultaResponse.datasource new file mode 100644 index 0000000..508a3c2 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FECompConsultaResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FECompConsultaResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FECotizacionResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FECotizacionResponse.datasource new file mode 100644 index 0000000..343e03a --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FECotizacionResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FECotizacionResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FEPaisResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FEPaisResponse.datasource new file mode 100644 index 0000000..a21c560 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FEPaisResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FEPaisResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FEPtoVentaResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FEPtoVentaResponse.datasource new file mode 100644 index 0000000..6c1fe63 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FEPtoVentaResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FEPtoVentaResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FERecuperaLastCbteResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FERecuperaLastCbteResponse.datasource new file mode 100644 index 0000000..2b4f257 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FERecuperaLastCbteResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FERecuperaLastCbteResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FERegXReqResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FERegXReqResponse.datasource new file mode 100644 index 0000000..d380914 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FERegXReqResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FERegXReqResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/FETributoResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/FETributoResponse.datasource new file mode 100644 index 0000000..a9a7a26 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/FETributoResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.FETributoResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/IvaTipoResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/IvaTipoResponse.datasource new file mode 100644 index 0000000..118f1a6 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/IvaTipoResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.IvaTipoResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/MonedaResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/MonedaResponse.datasource new file mode 100644 index 0000000..e2a845e --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/MonedaResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.MonedaResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/OpcionalTipoResponse.datasource b/PrototipoAfip/Web References/WSFEHOMO/OpcionalTipoResponse.datasource new file mode 100644 index 0000000..d0348f7 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/OpcionalTipoResponse.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSFEHOMO.OpcionalTipoResponse + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/Reference.map b/PrototipoAfip/Web References/WSFEHOMO/Reference.map new file mode 100644 index 0000000..baa287c --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/Reference.map @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSFEHOMO/Reference.vb b/PrototipoAfip/Web References/WSFEHOMO/Reference.vb new file mode 100644 index 0000000..c6387c6 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/Reference.vb @@ -0,0 +1,4127 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Microsoft.VSDesigner generó automáticamente este código fuente, versión=4.0.30319.42000. +' +Namespace WSFEHOMO + + ''' + _ + Partial Public Class Service + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private FECAESolicitarOperationCompleted As System.Threading.SendOrPostCallback + + Private FECompTotXRequestOperationCompleted As System.Threading.SendOrPostCallback + + Private FEDummyOperationCompleted As System.Threading.SendOrPostCallback + + Private FECompUltimoAutorizadoOperationCompleted As System.Threading.SendOrPostCallback + + Private FECompConsultarOperationCompleted As System.Threading.SendOrPostCallback + + Private FECAEARegInformativoOperationCompleted As System.Threading.SendOrPostCallback + + Private FECAEASolicitarOperationCompleted As System.Threading.SendOrPostCallback + + Private FECAEASinMovimientoConsultarOperationCompleted As System.Threading.SendOrPostCallback + + Private FECAEASinMovimientoInformarOperationCompleted As System.Threading.SendOrPostCallback + + Private FECAEAConsultarOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetCotizacionOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetTiposTributosOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetTiposMonedasOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetTiposIvaOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetTiposOpcionalOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetTiposConceptoOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetPtosVentaOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetTiposCbteOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetTiposDocOperationCompleted As System.Threading.SendOrPostCallback + + Private FEParamGetTiposPaisesOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.PrototipoAfip.My.MySettings.Default.PrototipoAfip_WSFEHOMO_Service + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event FECAESolicitarCompleted As FECAESolicitarCompletedEventHandler + + ''' + Public Event FECompTotXRequestCompleted As FECompTotXRequestCompletedEventHandler + + ''' + Public Event FEDummyCompleted As FEDummyCompletedEventHandler + + ''' + Public Event FECompUltimoAutorizadoCompleted As FECompUltimoAutorizadoCompletedEventHandler + + ''' + Public Event FECompConsultarCompleted As FECompConsultarCompletedEventHandler + + ''' + Public Event FECAEARegInformativoCompleted As FECAEARegInformativoCompletedEventHandler + + ''' + Public Event FECAEASolicitarCompleted As FECAEASolicitarCompletedEventHandler + + ''' + Public Event FECAEASinMovimientoConsultarCompleted As FECAEASinMovimientoConsultarCompletedEventHandler + + ''' + Public Event FECAEASinMovimientoInformarCompleted As FECAEASinMovimientoInformarCompletedEventHandler + + ''' + Public Event FECAEAConsultarCompleted As FECAEAConsultarCompletedEventHandler + + ''' + Public Event FEParamGetCotizacionCompleted As FEParamGetCotizacionCompletedEventHandler + + ''' + Public Event FEParamGetTiposTributosCompleted As FEParamGetTiposTributosCompletedEventHandler + + ''' + Public Event FEParamGetTiposMonedasCompleted As FEParamGetTiposMonedasCompletedEventHandler + + ''' + Public Event FEParamGetTiposIvaCompleted As FEParamGetTiposIvaCompletedEventHandler + + ''' + Public Event FEParamGetTiposOpcionalCompleted As FEParamGetTiposOpcionalCompletedEventHandler + + ''' + Public Event FEParamGetTiposConceptoCompleted As FEParamGetTiposConceptoCompletedEventHandler + + ''' + Public Event FEParamGetPtosVentaCompleted As FEParamGetPtosVentaCompletedEventHandler + + ''' + Public Event FEParamGetTiposCbteCompleted As FEParamGetTiposCbteCompletedEventHandler + + ''' + Public Event FEParamGetTiposDocCompleted As FEParamGetTiposDocCompletedEventHandler + + ''' + Public Event FEParamGetTiposPaisesCompleted As FEParamGetTiposPaisesCompletedEventHandler + + ''' + _ + Public Function FECAESolicitar(ByVal Auth As FEAuthRequest, ByVal FeCAEReq As FECAERequest) As FECAEResponse + Dim results() As Object = Me.Invoke("FECAESolicitar", New Object() {Auth, FeCAEReq}) + Return CType(results(0),FECAEResponse) + End Function + + ''' + Public Overloads Sub FECAESolicitarAsync(ByVal Auth As FEAuthRequest, ByVal FeCAEReq As FECAERequest) + Me.FECAESolicitarAsync(Auth, FeCAEReq, Nothing) + End Sub + + ''' + Public Overloads Sub FECAESolicitarAsync(ByVal Auth As FEAuthRequest, ByVal FeCAEReq As FECAERequest, ByVal userState As Object) + If (Me.FECAESolicitarOperationCompleted Is Nothing) Then + Me.FECAESolicitarOperationCompleted = AddressOf Me.OnFECAESolicitarOperationCompleted + End If + Me.InvokeAsync("FECAESolicitar", New Object() {Auth, FeCAEReq}, Me.FECAESolicitarOperationCompleted, userState) + End Sub + + Private Sub OnFECAESolicitarOperationCompleted(ByVal arg As Object) + If (Not (Me.FECAESolicitarCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECAESolicitarCompleted(Me, New FECAESolicitarCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FECompTotXRequest(ByVal Auth As FEAuthRequest) As FERegXReqResponse + Dim results() As Object = Me.Invoke("FECompTotXRequest", New Object() {Auth}) + Return CType(results(0),FERegXReqResponse) + End Function + + ''' + Public Overloads Sub FECompTotXRequestAsync(ByVal Auth As FEAuthRequest) + Me.FECompTotXRequestAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FECompTotXRequestAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FECompTotXRequestOperationCompleted Is Nothing) Then + Me.FECompTotXRequestOperationCompleted = AddressOf Me.OnFECompTotXRequestOperationCompleted + End If + Me.InvokeAsync("FECompTotXRequest", New Object() {Auth}, Me.FECompTotXRequestOperationCompleted, userState) + End Sub + + Private Sub OnFECompTotXRequestOperationCompleted(ByVal arg As Object) + If (Not (Me.FECompTotXRequestCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECompTotXRequestCompleted(Me, New FECompTotXRequestCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEDummy() As DummyResponse + Dim results() As Object = Me.Invoke("FEDummy", New Object(-1) {}) + Return CType(results(0),DummyResponse) + End Function + + ''' + Public Overloads Sub FEDummyAsync() + Me.FEDummyAsync(Nothing) + End Sub + + ''' + Public Overloads Sub FEDummyAsync(ByVal userState As Object) + If (Me.FEDummyOperationCompleted Is Nothing) Then + Me.FEDummyOperationCompleted = AddressOf Me.OnFEDummyOperationCompleted + End If + Me.InvokeAsync("FEDummy", New Object(-1) {}, Me.FEDummyOperationCompleted, userState) + End Sub + + Private Sub OnFEDummyOperationCompleted(ByVal arg As Object) + If (Not (Me.FEDummyCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEDummyCompleted(Me, New FEDummyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FECompUltimoAutorizado(ByVal Auth As FEAuthRequest, ByVal PtoVta As Integer, ByVal CbteTipo As Integer) As FERecuperaLastCbteResponse + Dim results() As Object = Me.Invoke("FECompUltimoAutorizado", New Object() {Auth, PtoVta, CbteTipo}) + Return CType(results(0),FERecuperaLastCbteResponse) + End Function + + ''' + Public Overloads Sub FECompUltimoAutorizadoAsync(ByVal Auth As FEAuthRequest, ByVal PtoVta As Integer, ByVal CbteTipo As Integer) + Me.FECompUltimoAutorizadoAsync(Auth, PtoVta, CbteTipo, Nothing) + End Sub + + ''' + Public Overloads Sub FECompUltimoAutorizadoAsync(ByVal Auth As FEAuthRequest, ByVal PtoVta As Integer, ByVal CbteTipo As Integer, ByVal userState As Object) + If (Me.FECompUltimoAutorizadoOperationCompleted Is Nothing) Then + Me.FECompUltimoAutorizadoOperationCompleted = AddressOf Me.OnFECompUltimoAutorizadoOperationCompleted + End If + Me.InvokeAsync("FECompUltimoAutorizado", New Object() {Auth, PtoVta, CbteTipo}, Me.FECompUltimoAutorizadoOperationCompleted, userState) + End Sub + + Private Sub OnFECompUltimoAutorizadoOperationCompleted(ByVal arg As Object) + If (Not (Me.FECompUltimoAutorizadoCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECompUltimoAutorizadoCompleted(Me, New FECompUltimoAutorizadoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FECompConsultar(ByVal Auth As FEAuthRequest, ByVal FeCompConsReq As FECompConsultaReq) As FECompConsultaResponse + Dim results() As Object = Me.Invoke("FECompConsultar", New Object() {Auth, FeCompConsReq}) + Return CType(results(0),FECompConsultaResponse) + End Function + + ''' + Public Overloads Sub FECompConsultarAsync(ByVal Auth As FEAuthRequest, ByVal FeCompConsReq As FECompConsultaReq) + Me.FECompConsultarAsync(Auth, FeCompConsReq, Nothing) + End Sub + + ''' + Public Overloads Sub FECompConsultarAsync(ByVal Auth As FEAuthRequest, ByVal FeCompConsReq As FECompConsultaReq, ByVal userState As Object) + If (Me.FECompConsultarOperationCompleted Is Nothing) Then + Me.FECompConsultarOperationCompleted = AddressOf Me.OnFECompConsultarOperationCompleted + End If + Me.InvokeAsync("FECompConsultar", New Object() {Auth, FeCompConsReq}, Me.FECompConsultarOperationCompleted, userState) + End Sub + + Private Sub OnFECompConsultarOperationCompleted(ByVal arg As Object) + If (Not (Me.FECompConsultarCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECompConsultarCompleted(Me, New FECompConsultarCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FECAEARegInformativo(ByVal Auth As FEAuthRequest, ByVal FeCAEARegInfReq As FECAEARequest) As FECAEAResponse + Dim results() As Object = Me.Invoke("FECAEARegInformativo", New Object() {Auth, FeCAEARegInfReq}) + Return CType(results(0),FECAEAResponse) + End Function + + ''' + Public Overloads Sub FECAEARegInformativoAsync(ByVal Auth As FEAuthRequest, ByVal FeCAEARegInfReq As FECAEARequest) + Me.FECAEARegInformativoAsync(Auth, FeCAEARegInfReq, Nothing) + End Sub + + ''' + Public Overloads Sub FECAEARegInformativoAsync(ByVal Auth As FEAuthRequest, ByVal FeCAEARegInfReq As FECAEARequest, ByVal userState As Object) + If (Me.FECAEARegInformativoOperationCompleted Is Nothing) Then + Me.FECAEARegInformativoOperationCompleted = AddressOf Me.OnFECAEARegInformativoOperationCompleted + End If + Me.InvokeAsync("FECAEARegInformativo", New Object() {Auth, FeCAEARegInfReq}, Me.FECAEARegInformativoOperationCompleted, userState) + End Sub + + Private Sub OnFECAEARegInformativoOperationCompleted(ByVal arg As Object) + If (Not (Me.FECAEARegInformativoCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECAEARegInformativoCompleted(Me, New FECAEARegInformativoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FECAEASolicitar(ByVal Auth As FEAuthRequest, ByVal Periodo As Integer, ByVal Orden As Short) As FECAEAGetResponse + Dim results() As Object = Me.Invoke("FECAEASolicitar", New Object() {Auth, Periodo, Orden}) + Return CType(results(0),FECAEAGetResponse) + End Function + + ''' + Public Overloads Sub FECAEASolicitarAsync(ByVal Auth As FEAuthRequest, ByVal Periodo As Integer, ByVal Orden As Short) + Me.FECAEASolicitarAsync(Auth, Periodo, Orden, Nothing) + End Sub + + ''' + Public Overloads Sub FECAEASolicitarAsync(ByVal Auth As FEAuthRequest, ByVal Periodo As Integer, ByVal Orden As Short, ByVal userState As Object) + If (Me.FECAEASolicitarOperationCompleted Is Nothing) Then + Me.FECAEASolicitarOperationCompleted = AddressOf Me.OnFECAEASolicitarOperationCompleted + End If + Me.InvokeAsync("FECAEASolicitar", New Object() {Auth, Periodo, Orden}, Me.FECAEASolicitarOperationCompleted, userState) + End Sub + + Private Sub OnFECAEASolicitarOperationCompleted(ByVal arg As Object) + If (Not (Me.FECAEASolicitarCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECAEASolicitarCompleted(Me, New FECAEASolicitarCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FECAEASinMovimientoConsultar(ByVal Auth As FEAuthRequest, ByVal CAEA As String, ByVal PtoVta As Integer) As FECAEASinMovConsResponse + Dim results() As Object = Me.Invoke("FECAEASinMovimientoConsultar", New Object() {Auth, CAEA, PtoVta}) + Return CType(results(0),FECAEASinMovConsResponse) + End Function + + ''' + Public Overloads Sub FECAEASinMovimientoConsultarAsync(ByVal Auth As FEAuthRequest, ByVal CAEA As String, ByVal PtoVta As Integer) + Me.FECAEASinMovimientoConsultarAsync(Auth, CAEA, PtoVta, Nothing) + End Sub + + ''' + Public Overloads Sub FECAEASinMovimientoConsultarAsync(ByVal Auth As FEAuthRequest, ByVal CAEA As String, ByVal PtoVta As Integer, ByVal userState As Object) + If (Me.FECAEASinMovimientoConsultarOperationCompleted Is Nothing) Then + Me.FECAEASinMovimientoConsultarOperationCompleted = AddressOf Me.OnFECAEASinMovimientoConsultarOperationCompleted + End If + Me.InvokeAsync("FECAEASinMovimientoConsultar", New Object() {Auth, CAEA, PtoVta}, Me.FECAEASinMovimientoConsultarOperationCompleted, userState) + End Sub + + Private Sub OnFECAEASinMovimientoConsultarOperationCompleted(ByVal arg As Object) + If (Not (Me.FECAEASinMovimientoConsultarCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECAEASinMovimientoConsultarCompleted(Me, New FECAEASinMovimientoConsultarCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FECAEASinMovimientoInformar(ByVal Auth As FEAuthRequest, ByVal PtoVta As Integer, ByVal CAEA As String) As FECAEASinMovResponse + Dim results() As Object = Me.Invoke("FECAEASinMovimientoInformar", New Object() {Auth, PtoVta, CAEA}) + Return CType(results(0),FECAEASinMovResponse) + End Function + + ''' + Public Overloads Sub FECAEASinMovimientoInformarAsync(ByVal Auth As FEAuthRequest, ByVal PtoVta As Integer, ByVal CAEA As String) + Me.FECAEASinMovimientoInformarAsync(Auth, PtoVta, CAEA, Nothing) + End Sub + + ''' + Public Overloads Sub FECAEASinMovimientoInformarAsync(ByVal Auth As FEAuthRequest, ByVal PtoVta As Integer, ByVal CAEA As String, ByVal userState As Object) + If (Me.FECAEASinMovimientoInformarOperationCompleted Is Nothing) Then + Me.FECAEASinMovimientoInformarOperationCompleted = AddressOf Me.OnFECAEASinMovimientoInformarOperationCompleted + End If + Me.InvokeAsync("FECAEASinMovimientoInformar", New Object() {Auth, PtoVta, CAEA}, Me.FECAEASinMovimientoInformarOperationCompleted, userState) + End Sub + + Private Sub OnFECAEASinMovimientoInformarOperationCompleted(ByVal arg As Object) + If (Not (Me.FECAEASinMovimientoInformarCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECAEASinMovimientoInformarCompleted(Me, New FECAEASinMovimientoInformarCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FECAEAConsultar(ByVal Auth As FEAuthRequest, ByVal Periodo As Integer, ByVal Orden As Short) As FECAEAGetResponse + Dim results() As Object = Me.Invoke("FECAEAConsultar", New Object() {Auth, Periodo, Orden}) + Return CType(results(0),FECAEAGetResponse) + End Function + + ''' + Public Overloads Sub FECAEAConsultarAsync(ByVal Auth As FEAuthRequest, ByVal Periodo As Integer, ByVal Orden As Short) + Me.FECAEAConsultarAsync(Auth, Periodo, Orden, Nothing) + End Sub + + ''' + Public Overloads Sub FECAEAConsultarAsync(ByVal Auth As FEAuthRequest, ByVal Periodo As Integer, ByVal Orden As Short, ByVal userState As Object) + If (Me.FECAEAConsultarOperationCompleted Is Nothing) Then + Me.FECAEAConsultarOperationCompleted = AddressOf Me.OnFECAEAConsultarOperationCompleted + End If + Me.InvokeAsync("FECAEAConsultar", New Object() {Auth, Periodo, Orden}, Me.FECAEAConsultarOperationCompleted, userState) + End Sub + + Private Sub OnFECAEAConsultarOperationCompleted(ByVal arg As Object) + If (Not (Me.FECAEAConsultarCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FECAEAConsultarCompleted(Me, New FECAEAConsultarCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetCotizacion(ByVal Auth As FEAuthRequest, ByVal MonId As String) As FECotizacionResponse + Dim results() As Object = Me.Invoke("FEParamGetCotizacion", New Object() {Auth, MonId}) + Return CType(results(0),FECotizacionResponse) + End Function + + ''' + Public Overloads Sub FEParamGetCotizacionAsync(ByVal Auth As FEAuthRequest, ByVal MonId As String) + Me.FEParamGetCotizacionAsync(Auth, MonId, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetCotizacionAsync(ByVal Auth As FEAuthRequest, ByVal MonId As String, ByVal userState As Object) + If (Me.FEParamGetCotizacionOperationCompleted Is Nothing) Then + Me.FEParamGetCotizacionOperationCompleted = AddressOf Me.OnFEParamGetCotizacionOperationCompleted + End If + Me.InvokeAsync("FEParamGetCotizacion", New Object() {Auth, MonId}, Me.FEParamGetCotizacionOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetCotizacionOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetCotizacionCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetCotizacionCompleted(Me, New FEParamGetCotizacionCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetTiposTributos(ByVal Auth As FEAuthRequest) As FETributoResponse + Dim results() As Object = Me.Invoke("FEParamGetTiposTributos", New Object() {Auth}) + Return CType(results(0),FETributoResponse) + End Function + + ''' + Public Overloads Sub FEParamGetTiposTributosAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetTiposTributosAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetTiposTributosAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetTiposTributosOperationCompleted Is Nothing) Then + Me.FEParamGetTiposTributosOperationCompleted = AddressOf Me.OnFEParamGetTiposTributosOperationCompleted + End If + Me.InvokeAsync("FEParamGetTiposTributos", New Object() {Auth}, Me.FEParamGetTiposTributosOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetTiposTributosOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetTiposTributosCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetTiposTributosCompleted(Me, New FEParamGetTiposTributosCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetTiposMonedas(ByVal Auth As FEAuthRequest) As MonedaResponse + Dim results() As Object = Me.Invoke("FEParamGetTiposMonedas", New Object() {Auth}) + Return CType(results(0),MonedaResponse) + End Function + + ''' + Public Overloads Sub FEParamGetTiposMonedasAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetTiposMonedasAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetTiposMonedasAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetTiposMonedasOperationCompleted Is Nothing) Then + Me.FEParamGetTiposMonedasOperationCompleted = AddressOf Me.OnFEParamGetTiposMonedasOperationCompleted + End If + Me.InvokeAsync("FEParamGetTiposMonedas", New Object() {Auth}, Me.FEParamGetTiposMonedasOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetTiposMonedasOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetTiposMonedasCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetTiposMonedasCompleted(Me, New FEParamGetTiposMonedasCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetTiposIva(ByVal Auth As FEAuthRequest) As IvaTipoResponse + Dim results() As Object = Me.Invoke("FEParamGetTiposIva", New Object() {Auth}) + Return CType(results(0),IvaTipoResponse) + End Function + + ''' + Public Overloads Sub FEParamGetTiposIvaAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetTiposIvaAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetTiposIvaAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetTiposIvaOperationCompleted Is Nothing) Then + Me.FEParamGetTiposIvaOperationCompleted = AddressOf Me.OnFEParamGetTiposIvaOperationCompleted + End If + Me.InvokeAsync("FEParamGetTiposIva", New Object() {Auth}, Me.FEParamGetTiposIvaOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetTiposIvaOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetTiposIvaCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetTiposIvaCompleted(Me, New FEParamGetTiposIvaCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetTiposOpcional(ByVal Auth As FEAuthRequest) As OpcionalTipoResponse + Dim results() As Object = Me.Invoke("FEParamGetTiposOpcional", New Object() {Auth}) + Return CType(results(0),OpcionalTipoResponse) + End Function + + ''' + Public Overloads Sub FEParamGetTiposOpcionalAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetTiposOpcionalAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetTiposOpcionalAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetTiposOpcionalOperationCompleted Is Nothing) Then + Me.FEParamGetTiposOpcionalOperationCompleted = AddressOf Me.OnFEParamGetTiposOpcionalOperationCompleted + End If + Me.InvokeAsync("FEParamGetTiposOpcional", New Object() {Auth}, Me.FEParamGetTiposOpcionalOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetTiposOpcionalOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetTiposOpcionalCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetTiposOpcionalCompleted(Me, New FEParamGetTiposOpcionalCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetTiposConcepto(ByVal Auth As FEAuthRequest) As ConceptoTipoResponse + Dim results() As Object = Me.Invoke("FEParamGetTiposConcepto", New Object() {Auth}) + Return CType(results(0),ConceptoTipoResponse) + End Function + + ''' + Public Overloads Sub FEParamGetTiposConceptoAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetTiposConceptoAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetTiposConceptoAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetTiposConceptoOperationCompleted Is Nothing) Then + Me.FEParamGetTiposConceptoOperationCompleted = AddressOf Me.OnFEParamGetTiposConceptoOperationCompleted + End If + Me.InvokeAsync("FEParamGetTiposConcepto", New Object() {Auth}, Me.FEParamGetTiposConceptoOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetTiposConceptoOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetTiposConceptoCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetTiposConceptoCompleted(Me, New FEParamGetTiposConceptoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetPtosVenta(ByVal Auth As FEAuthRequest) As FEPtoVentaResponse + Dim results() As Object = Me.Invoke("FEParamGetPtosVenta", New Object() {Auth}) + Return CType(results(0),FEPtoVentaResponse) + End Function + + ''' + Public Overloads Sub FEParamGetPtosVentaAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetPtosVentaAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetPtosVentaAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetPtosVentaOperationCompleted Is Nothing) Then + Me.FEParamGetPtosVentaOperationCompleted = AddressOf Me.OnFEParamGetPtosVentaOperationCompleted + End If + Me.InvokeAsync("FEParamGetPtosVenta", New Object() {Auth}, Me.FEParamGetPtosVentaOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetPtosVentaOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetPtosVentaCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetPtosVentaCompleted(Me, New FEParamGetPtosVentaCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetTiposCbte(ByVal Auth As FEAuthRequest) As CbteTipoResponse + Dim results() As Object = Me.Invoke("FEParamGetTiposCbte", New Object() {Auth}) + Return CType(results(0),CbteTipoResponse) + End Function + + ''' + Public Overloads Sub FEParamGetTiposCbteAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetTiposCbteAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetTiposCbteAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetTiposCbteOperationCompleted Is Nothing) Then + Me.FEParamGetTiposCbteOperationCompleted = AddressOf Me.OnFEParamGetTiposCbteOperationCompleted + End If + Me.InvokeAsync("FEParamGetTiposCbte", New Object() {Auth}, Me.FEParamGetTiposCbteOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetTiposCbteOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetTiposCbteCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetTiposCbteCompleted(Me, New FEParamGetTiposCbteCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetTiposDoc(ByVal Auth As FEAuthRequest) As DocTipoResponse + Dim results() As Object = Me.Invoke("FEParamGetTiposDoc", New Object() {Auth}) + Return CType(results(0),DocTipoResponse) + End Function + + ''' + Public Overloads Sub FEParamGetTiposDocAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetTiposDocAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetTiposDocAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetTiposDocOperationCompleted Is Nothing) Then + Me.FEParamGetTiposDocOperationCompleted = AddressOf Me.OnFEParamGetTiposDocOperationCompleted + End If + Me.InvokeAsync("FEParamGetTiposDoc", New Object() {Auth}, Me.FEParamGetTiposDocOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetTiposDocOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetTiposDocCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetTiposDocCompleted(Me, New FEParamGetTiposDocCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function FEParamGetTiposPaises(ByVal Auth As FEAuthRequest) As FEPaisResponse + Dim results() As Object = Me.Invoke("FEParamGetTiposPaises", New Object() {Auth}) + Return CType(results(0),FEPaisResponse) + End Function + + ''' + Public Overloads Sub FEParamGetTiposPaisesAsync(ByVal Auth As FEAuthRequest) + Me.FEParamGetTiposPaisesAsync(Auth, Nothing) + End Sub + + ''' + Public Overloads Sub FEParamGetTiposPaisesAsync(ByVal Auth As FEAuthRequest, ByVal userState As Object) + If (Me.FEParamGetTiposPaisesOperationCompleted Is Nothing) Then + Me.FEParamGetTiposPaisesOperationCompleted = AddressOf Me.OnFEParamGetTiposPaisesOperationCompleted + End If + Me.InvokeAsync("FEParamGetTiposPaises", New Object() {Auth}, Me.FEParamGetTiposPaisesOperationCompleted, userState) + End Sub + + Private Sub OnFEParamGetTiposPaisesOperationCompleted(ByVal arg As Object) + If (Not (Me.FEParamGetTiposPaisesCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent FEParamGetTiposPaisesCompleted(Me, New FEParamGetTiposPaisesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Partial Public Class FEAuthRequest + + Private tokenField As String + + Private signField As String + + Private cuitField As Long + + ''' + Public Property Token() As String + Get + Return Me.tokenField + End Get + Set + Me.tokenField = value + End Set + End Property + + ''' + Public Property Sign() As String + Get + Return Me.signField + End Get + Set + Me.signField = value + End Set + End Property + + ''' + Public Property Cuit() As Long + Get + Return Me.cuitField + End Get + Set + Me.cuitField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class PaisTipo + + Private idField As Short + + Private descField As String + + ''' + Public Property Id() As Short + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FEPaisResponse + + Private resultGetField() As PaisTipo + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As PaisTipo() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Err + + Private codeField As Integer + + Private msgField As String + + ''' + Public Property Code() As Integer + Get + Return Me.codeField + End Get + Set + Me.codeField = value + End Set + End Property + + ''' + Public Property Msg() As String + Get + Return Me.msgField + End Get + Set + Me.msgField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Evt + + Private codeField As Integer + + Private msgField As String + + ''' + Public Property Code() As Integer + Get + Return Me.codeField + End Get + Set + Me.codeField = value + End Set + End Property + + ''' + Public Property Msg() As String + Get + Return Me.msgField + End Get + Set + Me.msgField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DocTipo + + Private idField As Integer + + Private descField As String + + Private fchDesdeField As String + + Private fchHastaField As String + + ''' + Public Property Id() As Integer + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + + ''' + Public Property FchDesde() As String + Get + Return Me.fchDesdeField + End Get + Set + Me.fchDesdeField = value + End Set + End Property + + ''' + Public Property FchHasta() As String + Get + Return Me.fchHastaField + End Get + Set + Me.fchHastaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DocTipoResponse + + Private resultGetField() As DocTipo + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As DocTipo() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class CbteTipo + + Private idField As Integer + + Private descField As String + + Private fchDesdeField As String + + Private fchHastaField As String + + ''' + Public Property Id() As Integer + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + + ''' + Public Property FchDesde() As String + Get + Return Me.fchDesdeField + End Get + Set + Me.fchDesdeField = value + End Set + End Property + + ''' + Public Property FchHasta() As String + Get + Return Me.fchHastaField + End Get + Set + Me.fchHastaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class CbteTipoResponse + + Private resultGetField() As CbteTipo + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As CbteTipo() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class PtoVenta + + Private nroField As Short + + Private emisionTipoField As String + + Private bloqueadoField As String + + Private fchBajaField As String + + ''' + Public Property Nro() As Short + Get + Return Me.nroField + End Get + Set + Me.nroField = value + End Set + End Property + + ''' + Public Property EmisionTipo() As String + Get + Return Me.emisionTipoField + End Get + Set + Me.emisionTipoField = value + End Set + End Property + + ''' + Public Property Bloqueado() As String + Get + Return Me.bloqueadoField + End Get + Set + Me.bloqueadoField = value + End Set + End Property + + ''' + Public Property FchBaja() As String + Get + Return Me.fchBajaField + End Get + Set + Me.fchBajaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FEPtoVentaResponse + + Private resultGetField() As PtoVenta + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As PtoVenta() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ConceptoTipo + + Private idField As Integer + + Private descField As String + + Private fchDesdeField As String + + Private fchHastaField As String + + ''' + Public Property Id() As Integer + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + + ''' + Public Property FchDesde() As String + Get + Return Me.fchDesdeField + End Get + Set + Me.fchDesdeField = value + End Set + End Property + + ''' + Public Property FchHasta() As String + Get + Return Me.fchHastaField + End Get + Set + Me.fchHastaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ConceptoTipoResponse + + Private resultGetField() As ConceptoTipo + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As ConceptoTipo() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class OpcionalTipo + + Private idField As String + + Private descField As String + + Private fchDesdeField As String + + Private fchHastaField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + + ''' + Public Property FchDesde() As String + Get + Return Me.fchDesdeField + End Get + Set + Me.fchDesdeField = value + End Set + End Property + + ''' + Public Property FchHasta() As String + Get + Return Me.fchHastaField + End Get + Set + Me.fchHastaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class OpcionalTipoResponse + + Private resultGetField() As OpcionalTipo + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As OpcionalTipo() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class IvaTipo + + Private idField As String + + Private descField As String + + Private fchDesdeField As String + + Private fchHastaField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + + ''' + Public Property FchDesde() As String + Get + Return Me.fchDesdeField + End Get + Set + Me.fchDesdeField = value + End Set + End Property + + ''' + Public Property FchHasta() As String + Get + Return Me.fchHastaField + End Get + Set + Me.fchHastaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class IvaTipoResponse + + Private resultGetField() As IvaTipo + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As IvaTipo() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Moneda + + Private idField As String + + Private descField As String + + Private fchDesdeField As String + + Private fchHastaField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + + ''' + Public Property FchDesde() As String + Get + Return Me.fchDesdeField + End Get + Set + Me.fchDesdeField = value + End Set + End Property + + ''' + Public Property FchHasta() As String + Get + Return Me.fchHastaField + End Get + Set + Me.fchHastaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class MonedaResponse + + Private resultGetField() As Moneda + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As Moneda() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TributoTipo + + Private idField As Short + + Private descField As String + + Private fchDesdeField As String + + Private fchHastaField As String + + ''' + Public Property Id() As Short + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + + ''' + Public Property FchDesde() As String + Get + Return Me.fchDesdeField + End Get + Set + Me.fchDesdeField = value + End Set + End Property + + ''' + Public Property FchHasta() As String + Get + Return Me.fchHastaField + End Get + Set + Me.fchHastaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FETributoResponse + + Private resultGetField() As TributoTipo + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As TributoTipo() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Cotizacion + + Private monIdField As String + + Private monCotizField As Double + + Private fchCotizField As String + + ''' + Public Property MonId() As String + Get + Return Me.monIdField + End Get + Set + Me.monIdField = value + End Set + End Property + + ''' + Public Property MonCotiz() As Double + Get + Return Me.monCotizField + End Get + Set + Me.monCotizField = value + End Set + End Property + + ''' + Public Property FchCotiz() As String + Get + Return Me.fchCotizField + End Get + Set + Me.fchCotizField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECotizacionResponse + + Private resultGetField As Cotizacion + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As Cotizacion + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEASinMov + + Private cAEAField As String + + Private fchProcesoField As String + + Private ptoVtaField As Integer + + ''' + Public Property CAEA() As String + Get + Return Me.cAEAField + End Get + Set + Me.cAEAField = value + End Set + End Property + + ''' + Public Property FchProceso() As String + Get + Return Me.fchProcesoField + End Get + Set + Me.fchProcesoField = value + End Set + End Property + + ''' + Public Property PtoVta() As Integer + Get + Return Me.ptoVtaField + End Get + Set + Me.ptoVtaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEASinMovResponse + Inherits FECAEASinMov + + Private resultadoField As String + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property Resultado() As String + Get + Return Me.resultadoField + End Get + Set + Me.resultadoField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEASinMovConsResponse + + Private resultGetField() As FECAEASinMov + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As FECAEASinMov() + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEAGet + + Private cAEAField As String + + Private periodoField As Integer + + Private ordenField As Short + + Private fchVigDesdeField As String + + Private fchVigHastaField As String + + Private fchTopeInfField As String + + Private fchProcesoField As String + + Private observacionesField() As Obs + + ''' + Public Property CAEA() As String + Get + Return Me.cAEAField + End Get + Set + Me.cAEAField = value + End Set + End Property + + ''' + Public Property Periodo() As Integer + Get + Return Me.periodoField + End Get + Set + Me.periodoField = value + End Set + End Property + + ''' + Public Property Orden() As Short + Get + Return Me.ordenField + End Get + Set + Me.ordenField = value + End Set + End Property + + ''' + Public Property FchVigDesde() As String + Get + Return Me.fchVigDesdeField + End Get + Set + Me.fchVigDesdeField = value + End Set + End Property + + ''' + Public Property FchVigHasta() As String + Get + Return Me.fchVigHastaField + End Get + Set + Me.fchVigHastaField = value + End Set + End Property + + ''' + Public Property FchTopeInf() As String + Get + Return Me.fchTopeInfField + End Get + Set + Me.fchTopeInfField = value + End Set + End Property + + ''' + Public Property FchProceso() As String + Get + Return Me.fchProcesoField + End Get + Set + Me.fchProcesoField = value + End Set + End Property + + ''' + Public Property Observaciones() As Obs() + Get + Return Me.observacionesField + End Get + Set + Me.observacionesField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Obs + + Private codeField As Integer + + Private msgField As String + + ''' + Public Property Code() As Integer + Get + Return Me.codeField + End Get + Set + Me.codeField = value + End Set + End Property + + ''' + Public Property Msg() As String + Get + Return Me.msgField + End Get + Set + Me.msgField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEAGetResponse + + Private resultGetField As FECAEAGet + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property ResultGet() As FECAEAGet + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEAResponse + + Private feCabRespField As FECAEACabResponse + + Private feDetRespField() As FECAEADetResponse + + Private eventsField() As Evt + + Private errorsField() As Err + + ''' + Public Property FeCabResp() As FECAEACabResponse + Get + Return Me.feCabRespField + End Get + Set + Me.feCabRespField = value + End Set + End Property + + ''' + Public Property FeDetResp() As FECAEADetResponse() + Get + Return Me.feDetRespField + End Get + Set + Me.feDetRespField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEACabResponse + Inherits FECabResponse + End Class + + ''' + _ + Partial Public Class FECabResponse + + Private cuitField As Long + + Private ptoVtaField As Integer + + Private cbteTipoField As Integer + + Private fchProcesoField As String + + Private cantRegField As Integer + + Private resultadoField As String + + Private reprocesoField As String + + ''' + Public Property Cuit() As Long + Get + Return Me.cuitField + End Get + Set + Me.cuitField = value + End Set + End Property + + ''' + Public Property PtoVta() As Integer + Get + Return Me.ptoVtaField + End Get + Set + Me.ptoVtaField = value + End Set + End Property + + ''' + Public Property CbteTipo() As Integer + Get + Return Me.cbteTipoField + End Get + Set + Me.cbteTipoField = value + End Set + End Property + + ''' + Public Property FchProceso() As String + Get + Return Me.fchProcesoField + End Get + Set + Me.fchProcesoField = value + End Set + End Property + + ''' + Public Property CantReg() As Integer + Get + Return Me.cantRegField + End Get + Set + Me.cantRegField = value + End Set + End Property + + ''' + Public Property Resultado() As String + Get + Return Me.resultadoField + End Get + Set + Me.resultadoField = value + End Set + End Property + + ''' + Public Property Reproceso() As String + Get + Return Me.reprocesoField + End Get + Set + Me.reprocesoField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAECabResponse + Inherits FECabResponse + End Class + + ''' + _ + Partial Public Class FECAEADetResponse + Inherits FEDetResponse + + Private cAEAField As String + + ''' + Public Property CAEA() As String + Get + Return Me.cAEAField + End Get + Set + Me.cAEAField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FEDetResponse + + Private conceptoField As Integer + + Private docTipoField As Integer + + Private docNroField As Long + + Private cbteDesdeField As Long + + Private cbteHastaField As Long + + Private cbteFchField As String + + Private resultadoField As String + + Private observacionesField() As Obs + + ''' + Public Property Concepto() As Integer + Get + Return Me.conceptoField + End Get + Set + Me.conceptoField = value + End Set + End Property + + ''' + Public Property DocTipo() As Integer + Get + Return Me.docTipoField + End Get + Set + Me.docTipoField = value + End Set + End Property + + ''' + Public Property DocNro() As Long + Get + Return Me.docNroField + End Get + Set + Me.docNroField = value + End Set + End Property + + ''' + Public Property CbteDesde() As Long + Get + Return Me.cbteDesdeField + End Get + Set + Me.cbteDesdeField = value + End Set + End Property + + ''' + Public Property CbteHasta() As Long + Get + Return Me.cbteHastaField + End Get + Set + Me.cbteHastaField = value + End Set + End Property + + ''' + Public Property CbteFch() As String + Get + Return Me.cbteFchField + End Get + Set + Me.cbteFchField = value + End Set + End Property + + ''' + Public Property Resultado() As String + Get + Return Me.resultadoField + End Get + Set + Me.resultadoField = value + End Set + End Property + + ''' + Public Property Observaciones() As Obs() + Get + Return Me.observacionesField + End Get + Set + Me.observacionesField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEDetResponse + Inherits FEDetResponse + + Private cAEField As String + + Private cAEFchVtoField As String + + ''' + Public Property CAE() As String + Get + Return Me.cAEField + End Get + Set + Me.cAEField = value + End Set + End Property + + ''' + Public Property CAEFchVto() As String + Get + Return Me.cAEFchVtoField + End Get + Set + Me.cAEFchVtoField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEARequest + + Private feCabReqField As FECAEACabRequest + + Private feDetReqField() As FECAEADetRequest + + ''' + Public Property FeCabReq() As FECAEACabRequest + Get + Return Me.feCabReqField + End Get + Set + Me.feCabReqField = value + End Set + End Property + + ''' + Public Property FeDetReq() As FECAEADetRequest() + Get + Return Me.feDetReqField + End Get + Set + Me.feDetReqField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEACabRequest + Inherits FECabRequest + End Class + + ''' + _ + Partial Public Class FECabRequest + + Private cantRegField As Integer + + Private ptoVtaField As Integer + + Private cbteTipoField As Integer + + ''' + Public Property CantReg() As Integer + Get + Return Me.cantRegField + End Get + Set + Me.cantRegField = value + End Set + End Property + + ''' + Public Property PtoVta() As Integer + Get + Return Me.ptoVtaField + End Get + Set + Me.ptoVtaField = value + End Set + End Property + + ''' + Public Property CbteTipo() As Integer + Get + Return Me.cbteTipoField + End Get + Set + Me.cbteTipoField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAECabRequest + Inherits FECabRequest + End Class + + ''' + _ + Partial Public Class FECAEADetRequest + Inherits FEDetRequest + + Private cAEAField As String + + ''' + Public Property CAEA() As String + Get + Return Me.cAEAField + End Get + Set + Me.cAEAField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FEDetRequest + + Private conceptoField As Integer + + Private docTipoField As Integer + + Private docNroField As Long + + Private cbteDesdeField As Long + + Private cbteHastaField As Long + + Private cbteFchField As String + + Private impTotalField As Double + + Private impTotConcField As Double + + Private impNetoField As Double + + Private impOpExField As Double + + Private impTribField As Double + + Private impIVAField As Double + + Private fchServDesdeField As String + + Private fchServHastaField As String + + Private fchVtoPagoField As String + + Private monIdField As String + + Private monCotizField As Double + + Private cbtesAsocField() As CbteAsoc + + Private tributosField() As Tributo + + Private ivaField() As AlicIva + + Private opcionalesField() As Opcional + + Private compradoresField() As Comprador + + ''' + Public Property Concepto() As Integer + Get + Return Me.conceptoField + End Get + Set + Me.conceptoField = value + End Set + End Property + + ''' + Public Property DocTipo() As Integer + Get + Return Me.docTipoField + End Get + Set + Me.docTipoField = value + End Set + End Property + + ''' + Public Property DocNro() As Long + Get + Return Me.docNroField + End Get + Set + Me.docNroField = value + End Set + End Property + + ''' + Public Property CbteDesde() As Long + Get + Return Me.cbteDesdeField + End Get + Set + Me.cbteDesdeField = value + End Set + End Property + + ''' + Public Property CbteHasta() As Long + Get + Return Me.cbteHastaField + End Get + Set + Me.cbteHastaField = value + End Set + End Property + + ''' + Public Property CbteFch() As String + Get + Return Me.cbteFchField + End Get + Set + Me.cbteFchField = value + End Set + End Property + + ''' + Public Property ImpTotal() As Double + Get + Return Me.impTotalField + End Get + Set + Me.impTotalField = value + End Set + End Property + + ''' + Public Property ImpTotConc() As Double + Get + Return Me.impTotConcField + End Get + Set + Me.impTotConcField = value + End Set + End Property + + ''' + Public Property ImpNeto() As Double + Get + Return Me.impNetoField + End Get + Set + Me.impNetoField = value + End Set + End Property + + ''' + Public Property ImpOpEx() As Double + Get + Return Me.impOpExField + End Get + Set + Me.impOpExField = value + End Set + End Property + + ''' + Public Property ImpTrib() As Double + Get + Return Me.impTribField + End Get + Set + Me.impTribField = value + End Set + End Property + + ''' + Public Property ImpIVA() As Double + Get + Return Me.impIVAField + End Get + Set + Me.impIVAField = value + End Set + End Property + + ''' + Public Property FchServDesde() As String + Get + Return Me.fchServDesdeField + End Get + Set + Me.fchServDesdeField = value + End Set + End Property + + ''' + Public Property FchServHasta() As String + Get + Return Me.fchServHastaField + End Get + Set + Me.fchServHastaField = value + End Set + End Property + + ''' + Public Property FchVtoPago() As String + Get + Return Me.fchVtoPagoField + End Get + Set + Me.fchVtoPagoField = value + End Set + End Property + + ''' + Public Property MonId() As String + Get + Return Me.monIdField + End Get + Set + Me.monIdField = value + End Set + End Property + + ''' + Public Property MonCotiz() As Double + Get + Return Me.monCotizField + End Get + Set + Me.monCotizField = value + End Set + End Property + + ''' + Public Property CbtesAsoc() As CbteAsoc() + Get + Return Me.cbtesAsocField + End Get + Set + Me.cbtesAsocField = value + End Set + End Property + + ''' + Public Property Tributos() As Tributo() + Get + Return Me.tributosField + End Get + Set + Me.tributosField = value + End Set + End Property + + ''' + Public Property Iva() As AlicIva() + Get + Return Me.ivaField + End Get + Set + Me.ivaField = value + End Set + End Property + + ''' + Public Property Opcionales() As Opcional() + Get + Return Me.opcionalesField + End Get + Set + Me.opcionalesField = value + End Set + End Property + + ''' + Public Property Compradores() As Comprador() + Get + Return Me.compradoresField + End Get + Set + Me.compradoresField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class CbteAsoc + + Private tipoField As Integer + + Private ptoVtaField As Integer + + Private nroField As Long + + Private cuitField As String + + ''' + Public Property Tipo() As Integer + Get + Return Me.tipoField + End Get + Set + Me.tipoField = value + End Set + End Property + + ''' + Public Property PtoVta() As Integer + Get + Return Me.ptoVtaField + End Get + Set + Me.ptoVtaField = value + End Set + End Property + + ''' + Public Property Nro() As Long + Get + Return Me.nroField + End Get + Set + Me.nroField = value + End Set + End Property + + ''' + Public Property Cuit() As String + Get + Return Me.cuitField + End Get + Set + Me.cuitField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Tributo + + Private idField As Short + + Private descField As String + + Private baseImpField As Double + + Private alicField As Double + + Private importeField As Double + + ''' + Public Property Id() As Short + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Desc() As String + Get + Return Me.descField + End Get + Set + Me.descField = value + End Set + End Property + + ''' + Public Property BaseImp() As Double + Get + Return Me.baseImpField + End Get + Set + Me.baseImpField = value + End Set + End Property + + ''' + Public Property Alic() As Double + Get + Return Me.alicField + End Get + Set + Me.alicField = value + End Set + End Property + + ''' + Public Property Importe() As Double + Get + Return Me.importeField + End Get + Set + Me.importeField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class AlicIva + + Private idField As Integer + + Private baseImpField As Double + + Private importeField As Double + + ''' + Public Property Id() As Integer + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property BaseImp() As Double + Get + Return Me.baseImpField + End Get + Set + Me.baseImpField = value + End Set + End Property + + ''' + Public Property Importe() As Double + Get + Return Me.importeField + End Get + Set + Me.importeField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Opcional + + Private idField As String + + Private valorField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = value + End Set + End Property + + ''' + Public Property Valor() As String + Get + Return Me.valorField + End Get + Set + Me.valorField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Comprador + + Private docTipoField As Integer + + Private docNroField As Long + + Private porcentajeField As Double + + ''' + Public Property DocTipo() As Integer + Get + Return Me.docTipoField + End Get + Set + Me.docTipoField = value + End Set + End Property + + ''' + Public Property DocNro() As Long + Get + Return Me.docNroField + End Get + Set + Me.docNroField = value + End Set + End Property + + ''' + Public Property Porcentaje() As Double + Get + Return Me.porcentajeField + End Get + Set + Me.porcentajeField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEDetRequest + Inherits FEDetRequest + End Class + + ''' + _ + Partial Public Class FECompConsResponse + Inherits FECAEDetRequest + + Private resultadoField As String + + Private codAutorizacionField As String + + Private emisionTipoField As String + + Private fchVtoField As String + + Private fchProcesoField As String + + Private observacionesField() As Obs + + Private ptoVtaField As Integer + + Private cbteTipoField As Integer + + ''' + Public Property Resultado() As String + Get + Return Me.resultadoField + End Get + Set + Me.resultadoField = value + End Set + End Property + + ''' + Public Property CodAutorizacion() As String + Get + Return Me.codAutorizacionField + End Get + Set + Me.codAutorizacionField = value + End Set + End Property + + ''' + Public Property EmisionTipo() As String + Get + Return Me.emisionTipoField + End Get + Set + Me.emisionTipoField = value + End Set + End Property + + ''' + Public Property FchVto() As String + Get + Return Me.fchVtoField + End Get + Set + Me.fchVtoField = value + End Set + End Property + + ''' + Public Property FchProceso() As String + Get + Return Me.fchProcesoField + End Get + Set + Me.fchProcesoField = value + End Set + End Property + + ''' + Public Property Observaciones() As Obs() + Get + Return Me.observacionesField + End Get + Set + Me.observacionesField = value + End Set + End Property + + ''' + Public Property PtoVta() As Integer + Get + Return Me.ptoVtaField + End Get + Set + Me.ptoVtaField = value + End Set + End Property + + ''' + Public Property CbteTipo() As Integer + Get + Return Me.cbteTipoField + End Get + Set + Me.cbteTipoField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECompConsultaResponse + + Private errorsField() As Err + + Private resultGetField As FECompConsResponse + + Private eventsField() As Evt + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property ResultGet() As FECompConsResponse + Get + Return Me.resultGetField + End Get + Set + Me.resultGetField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECompConsultaReq + + Private cbteTipoField As Integer + + Private cbteNroField As Long + + Private ptoVtaField As Integer + + ''' + Public Property CbteTipo() As Integer + Get + Return Me.cbteTipoField + End Get + Set + Me.cbteTipoField = value + End Set + End Property + + ''' + Public Property CbteNro() As Long + Get + Return Me.cbteNroField + End Get + Set + Me.cbteNroField = value + End Set + End Property + + ''' + Public Property PtoVta() As Integer + Get + Return Me.ptoVtaField + End Get + Set + Me.ptoVtaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FERecuperaLastCbteResponse + + Private errorsField() As Err + + Private ptoVtaField As Integer + + Private cbteTipoField As Integer + + Private cbteNroField As Integer + + Private eventsField() As Evt + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property PtoVta() As Integer + Get + Return Me.ptoVtaField + End Get + Set + Me.ptoVtaField = value + End Set + End Property + + ''' + Public Property CbteTipo() As Integer + Get + Return Me.cbteTipoField + End Get + Set + Me.cbteTipoField = value + End Set + End Property + + ''' + Public Property CbteNro() As Integer + Get + Return Me.cbteNroField + End Get + Set + Me.cbteNroField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DummyResponse + + Private appServerField As String + + Private dbServerField As String + + Private authServerField As String + + ''' + Public Property AppServer() As String + Get + Return Me.appServerField + End Get + Set + Me.appServerField = value + End Set + End Property + + ''' + Public Property DbServer() As String + Get + Return Me.dbServerField + End Get + Set + Me.dbServerField = value + End Set + End Property + + ''' + Public Property AuthServer() As String + Get + Return Me.authServerField + End Get + Set + Me.authServerField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FERegXReqResponse + + Private regXReqField As Integer + + Private errorsField() As Err + + Private eventsField() As Evt + + ''' + Public Property RegXReq() As Integer + Get + Return Me.regXReqField + End Get + Set + Me.regXReqField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAEResponse + + Private feCabRespField As FECAECabResponse + + Private feDetRespField() As FECAEDetResponse + + Private eventsField() As Evt + + Private errorsField() As Err + + ''' + Public Property FeCabResp() As FECAECabResponse + Get + Return Me.feCabRespField + End Get + Set + Me.feCabRespField = value + End Set + End Property + + ''' + Public Property FeDetResp() As FECAEDetResponse() + Get + Return Me.feDetRespField + End Get + Set + Me.feDetRespField = value + End Set + End Property + + ''' + Public Property Events() As Evt() + Get + Return Me.eventsField + End Get + Set + Me.eventsField = value + End Set + End Property + + ''' + Public Property Errors() As Err() + Get + Return Me.errorsField + End Get + Set + Me.errorsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FECAERequest + + Private feCabReqField As FECAECabRequest + + Private feDetReqField() As FECAEDetRequest + + ''' + Public Property FeCabReq() As FECAECabRequest + Get + Return Me.feCabReqField + End Get + Set + Me.feCabReqField = value + End Set + End Property + + ''' + Public Property FeDetReq() As FECAEDetRequest() + Get + Return Me.feDetReqField + End Get + Set + Me.feDetReqField = value + End Set + End Property + End Class + + ''' + _ + Public Delegate Sub FECAESolicitarCompletedEventHandler(ByVal sender As Object, ByVal e As FECAESolicitarCompletedEventArgs) + + ''' + _ + Partial Public Class FECAESolicitarCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FECAEResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FECAEResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FECompTotXRequestCompletedEventHandler(ByVal sender As Object, ByVal e As FECompTotXRequestCompletedEventArgs) + + ''' + _ + Partial Public Class FECompTotXRequestCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FERegXReqResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FERegXReqResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEDummyCompletedEventHandler(ByVal sender As Object, ByVal e As FEDummyCompletedEventArgs) + + ''' + _ + Partial Public Class FEDummyCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As DummyResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),DummyResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FECompUltimoAutorizadoCompletedEventHandler(ByVal sender As Object, ByVal e As FECompUltimoAutorizadoCompletedEventArgs) + + ''' + _ + Partial Public Class FECompUltimoAutorizadoCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FERecuperaLastCbteResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FERecuperaLastCbteResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FECompConsultarCompletedEventHandler(ByVal sender As Object, ByVal e As FECompConsultarCompletedEventArgs) + + ''' + _ + Partial Public Class FECompConsultarCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FECompConsultaResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FECompConsultaResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FECAEARegInformativoCompletedEventHandler(ByVal sender As Object, ByVal e As FECAEARegInformativoCompletedEventArgs) + + ''' + _ + Partial Public Class FECAEARegInformativoCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FECAEAResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FECAEAResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FECAEASolicitarCompletedEventHandler(ByVal sender As Object, ByVal e As FECAEASolicitarCompletedEventArgs) + + ''' + _ + Partial Public Class FECAEASolicitarCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FECAEAGetResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FECAEAGetResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FECAEASinMovimientoConsultarCompletedEventHandler(ByVal sender As Object, ByVal e As FECAEASinMovimientoConsultarCompletedEventArgs) + + ''' + _ + Partial Public Class FECAEASinMovimientoConsultarCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FECAEASinMovConsResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FECAEASinMovConsResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FECAEASinMovimientoInformarCompletedEventHandler(ByVal sender As Object, ByVal e As FECAEASinMovimientoInformarCompletedEventArgs) + + ''' + _ + Partial Public Class FECAEASinMovimientoInformarCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FECAEASinMovResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FECAEASinMovResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FECAEAConsultarCompletedEventHandler(ByVal sender As Object, ByVal e As FECAEAConsultarCompletedEventArgs) + + ''' + _ + Partial Public Class FECAEAConsultarCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FECAEAGetResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FECAEAGetResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetCotizacionCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetCotizacionCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetCotizacionCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FECotizacionResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FECotizacionResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetTiposTributosCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetTiposTributosCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetTiposTributosCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FETributoResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FETributoResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetTiposMonedasCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetTiposMonedasCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetTiposMonedasCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As MonedaResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),MonedaResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetTiposIvaCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetTiposIvaCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetTiposIvaCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As IvaTipoResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),IvaTipoResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetTiposOpcionalCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetTiposOpcionalCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetTiposOpcionalCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As OpcionalTipoResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),OpcionalTipoResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetTiposConceptoCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetTiposConceptoCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetTiposConceptoCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As ConceptoTipoResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),ConceptoTipoResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetPtosVentaCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetPtosVentaCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetPtosVentaCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FEPtoVentaResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FEPtoVentaResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetTiposCbteCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetTiposCbteCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetTiposCbteCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As CbteTipoResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),CbteTipoResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetTiposDocCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetTiposDocCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetTiposDocCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As DocTipoResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),DocTipoResponse) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub FEParamGetTiposPaisesCompletedEventHandler(ByVal sender As Object, ByVal e As FEParamGetTiposPaisesCompletedEventArgs) + + ''' + _ + Partial Public Class FEParamGetTiposPaisesCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As FEPaisResponse + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),FEPaisResponse) + End Get + End Property + End Class +End Namespace diff --git a/PrototipoAfip/Web References/WSFEHOMO/service.wsdl b/PrototipoAfip/Web References/WSFEHOMO/service.wsdl new file mode 100644 index 0000000..34cb145 --- /dev/null +++ b/PrototipoAfip/Web References/WSFEHOMO/service.wsdl @@ -0,0 +1,1448 @@ + + + Web Service orientado al servicio de Facturacion electronica RG2485 V1 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Solicitud de Código de Autorización Electrónico (CAE) + + + + + Retorna la cantidad maxima de registros que puede tener una invocacion al metodo FECAESolicitar / FECAEARegInformativo + + + + + Metodo dummy para verificacion de funcionamiento + + + + + Retorna el ultimo comprobante autorizado para el tipo de comprobante / cuit / punto de venta ingresado / Tipo de Emisión + + + + + Consulta Comprobante emitido y su código. + + + + + Rendición de comprobantes asociados a un CAEA. + + + + + Solicitud de Código de Autorización Electrónico Anticipado (CAEA) + + + + + Consulta CAEA informado como sin movimientos. + + + + + Informa CAEA sin movimientos. + + + + + Consultar CAEA emitidos. + + + + + Recupera la cotizacion de la moneda consultada y su fecha + + + + + Recupera el listado de los diferente tributos que pueden ser utilizados en el servicio de autorizacion + + + + + Recupera el listado de monedas utilizables en servicio de autorización + + + + + Recupera el listado de Tipos de Iva utilizables en servicio de autorización. + + + + + Recupera el listado de identificadores para los campos Opcionales + + + + + Recupera el listado de identificadores para el campo Concepto. + + + + + Recupera el listado de puntos de venta registrados y su estado + + + + + Recupera el listado de Tipos de Comprobantes utilizables en servicio de autorización. + + + + + Recupera el listado de Tipos de Documentos utilizables en servicio de autorización. + + + + + Recupera el listado de los diferente paises que pueden ser utilizados en el servicio de autorizacion + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Web Service orientado al servicio de Facturacion electronica RG2485 V1 + + + + + + + + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSPSA4/PersonaServiceA4.wsdl b/PrototipoAfip/Web References/WSPSA4/PersonaServiceA4.wsdl new file mode 100644 index 0000000..e0ea1e9 --- /dev/null +++ b/PrototipoAfip/Web References/WSPSA4/PersonaServiceA4.wsdl @@ -0,0 +1,222 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSPSA4/Reference.map b/PrototipoAfip/Web References/WSPSA4/Reference.map new file mode 100644 index 0000000..320b102 --- /dev/null +++ b/PrototipoAfip/Web References/WSPSA4/Reference.map @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSPSA4/Reference.vb b/PrototipoAfip/Web References/WSPSA4/Reference.vb new file mode 100644 index 0000000..0933434 --- /dev/null +++ b/PrototipoAfip/Web References/WSPSA4/Reference.vb @@ -0,0 +1,1950 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Microsoft.VSDesigner generó automáticamente este código fuente, versión=4.0.30319.42000. +' +Namespace WSPSA4 + + ''' + _ + Partial Public Class PersonaServiceA4 + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private dummyOperationCompleted As System.Threading.SendOrPostCallback + + Private getPersonaOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.PrototipoAfip.My.MySettings.Default.PrototipoAfip_WSPSA4_PersonaServiceA4 + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event dummyCompleted As dummyCompletedEventHandler + + ''' + Public Event getPersonaCompleted As getPersonaCompletedEventHandler + + ''' + _ + Public Function dummy() As dummyReturn + Dim results() As Object = Me.Invoke("dummy", New Object(-1) {}) + Return CType(results(0),dummyReturn) + End Function + + ''' + Public Overloads Sub dummyAsync() + Me.dummyAsync(Nothing) + End Sub + + ''' + Public Overloads Sub dummyAsync(ByVal userState As Object) + If (Me.dummyOperationCompleted Is Nothing) Then + Me.dummyOperationCompleted = AddressOf Me.OndummyOperationCompleted + End If + Me.InvokeAsync("dummy", New Object(-1) {}, Me.dummyOperationCompleted, userState) + End Sub + + Private Sub OndummyOperationCompleted(ByVal arg As Object) + If (Not (Me.dummyCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent dummyCompleted(Me, New dummyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + _ + Public Function getPersona( ByVal token As String, ByVal sign As String, ByVal cuitRepresentada As Long, ByVal idPersona As Long) As personaReturn + Dim results() As Object = Me.Invoke("getPersona", New Object() {token, sign, cuitRepresentada, idPersona}) + Return CType(results(0),personaReturn) + End Function + + ''' + Public Overloads Sub getPersonaAsync(ByVal token As String, ByVal sign As String, ByVal cuitRepresentada As Long, ByVal idPersona As Long) + Me.getPersonaAsync(token, sign, cuitRepresentada, idPersona, Nothing) + End Sub + + ''' + Public Overloads Sub getPersonaAsync(ByVal token As String, ByVal sign As String, ByVal cuitRepresentada As Long, ByVal idPersona As Long, ByVal userState As Object) + If (Me.getPersonaOperationCompleted Is Nothing) Then + Me.getPersonaOperationCompleted = AddressOf Me.OngetPersonaOperationCompleted + End If + Me.InvokeAsync("getPersona", New Object() {token, sign, cuitRepresentada, idPersona}, Me.getPersonaOperationCompleted, userState) + End Sub + + Private Sub OngetPersonaOperationCompleted(ByVal arg As Object) + If (Not (Me.getPersonaCompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent getPersonaCompleted(Me, New getPersonaCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Partial Public Class dummyReturn + + Private appserverField As String + + Private authserverField As String + + Private dbserverField As String + + ''' + _ + Public Property appserver() As String + Get + Return Me.appserverField + End Get + Set + Me.appserverField = value + End Set + End Property + + ''' + _ + Public Property authserver() As String + Get + Return Me.authserverField + End Get + Set + Me.authserverField = value + End Set + End Property + + ''' + _ + Public Property dbserver() As String + Get + Return Me.dbserverField + End Get + Set + Me.dbserverField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class telefono + + Private numeroField As Long + + Private numeroFieldSpecified As Boolean + + Private tipoLineaField As String + + Private tipoTelefonoField As String + + ''' + _ + Public Property numero() As Long + Get + Return Me.numeroField + End Get + Set + Me.numeroField = value + End Set + End Property + + ''' + _ + Public Property numeroSpecified() As Boolean + Get + Return Me.numeroFieldSpecified + End Get + Set + Me.numeroFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property tipoLinea() As String + Get + Return Me.tipoLineaField + End Get + Set + Me.tipoLineaField = value + End Set + End Property + + ''' + _ + Public Property tipoTelefono() As String + Get + Return Me.tipoTelefonoField + End Get + Set + Me.tipoTelefonoField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class relacion + + Private ffRelacionField As Date + + Private ffRelacionFieldSpecified As Boolean + + Private ffVencimientoField As Date + + Private ffVencimientoFieldSpecified As Boolean + + Private idPersonaField As Long + + Private idPersonaFieldSpecified As Boolean + + Private idPersonaAsociadaField As Long + + Private idPersonaAsociadaFieldSpecified As Boolean + + Private subtipoRelacionField As String + + Private tipoRelacionField As String + + ''' + _ + Public Property ffRelacion() As Date + Get + Return Me.ffRelacionField + End Get + Set + Me.ffRelacionField = value + End Set + End Property + + ''' + _ + Public Property ffRelacionSpecified() As Boolean + Get + Return Me.ffRelacionFieldSpecified + End Get + Set + Me.ffRelacionFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property ffVencimiento() As Date + Get + Return Me.ffVencimientoField + End Get + Set + Me.ffVencimientoField = value + End Set + End Property + + ''' + _ + Public Property ffVencimientoSpecified() As Boolean + Get + Return Me.ffVencimientoFieldSpecified + End Get + Set + Me.ffVencimientoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property idPersona() As Long + Get + Return Me.idPersonaField + End Get + Set + Me.idPersonaField = value + End Set + End Property + + ''' + _ + Public Property idPersonaSpecified() As Boolean + Get + Return Me.idPersonaFieldSpecified + End Get + Set + Me.idPersonaFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property idPersonaAsociada() As Long + Get + Return Me.idPersonaAsociadaField + End Get + Set + Me.idPersonaAsociadaField = value + End Set + End Property + + ''' + _ + Public Property idPersonaAsociadaSpecified() As Boolean + Get + Return Me.idPersonaAsociadaFieldSpecified + End Get + Set + Me.idPersonaAsociadaFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property subtipoRelacion() As String + Get + Return Me.subtipoRelacionField + End Get + Set + Me.subtipoRelacionField = value + End Set + End Property + + ''' + _ + Public Property tipoRelacion() As String + Get + Return Me.tipoRelacionField + End Get + Set + Me.tipoRelacionField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class regimen + + Private descripcionRegimenField As String + + Private diaPeriodoField As Integer + + Private diaPeriodoFieldSpecified As Boolean + + Private estadoField As String + + Private idImpuestoField As Integer + + Private idImpuestoFieldSpecified As Boolean + + Private idRegimenField As Integer + + Private idRegimenFieldSpecified As Boolean + + Private periodoField As Integer + + Private periodoFieldSpecified As Boolean + + Private tipoRegimenField As String + + ''' + _ + Public Property descripcionRegimen() As String + Get + Return Me.descripcionRegimenField + End Get + Set + Me.descripcionRegimenField = value + End Set + End Property + + ''' + _ + Public Property diaPeriodo() As Integer + Get + Return Me.diaPeriodoField + End Get + Set + Me.diaPeriodoField = value + End Set + End Property + + ''' + _ + Public Property diaPeriodoSpecified() As Boolean + Get + Return Me.diaPeriodoFieldSpecified + End Get + Set + Me.diaPeriodoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property estado() As String + Get + Return Me.estadoField + End Get + Set + Me.estadoField = value + End Set + End Property + + ''' + _ + Public Property idImpuesto() As Integer + Get + Return Me.idImpuestoField + End Get + Set + Me.idImpuestoField = value + End Set + End Property + + ''' + _ + Public Property idImpuestoSpecified() As Boolean + Get + Return Me.idImpuestoFieldSpecified + End Get + Set + Me.idImpuestoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property idRegimen() As Integer + Get + Return Me.idRegimenField + End Get + Set + Me.idRegimenField = value + End Set + End Property + + ''' + _ + Public Property idRegimenSpecified() As Boolean + Get + Return Me.idRegimenFieldSpecified + End Get + Set + Me.idRegimenFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property periodo() As Integer + Get + Return Me.periodoField + End Get + Set + Me.periodoField = value + End Set + End Property + + ''' + _ + Public Property periodoSpecified() As Boolean + Get + Return Me.periodoFieldSpecified + End Get + Set + Me.periodoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property tipoRegimen() As String + Get + Return Me.tipoRegimenField + End Get + Set + Me.tipoRegimenField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class impuesto + + Private descripcionImpuestoField As String + + Private diaPeriodoField As Integer + + Private diaPeriodoFieldSpecified As Boolean + + Private estadoField As String + + Private ffInscripcionField As Date + + Private ffInscripcionFieldSpecified As Boolean + + Private idImpuestoField As Integer + + Private idImpuestoFieldSpecified As Boolean + + Private periodoField As Integer + + Private periodoFieldSpecified As Boolean + + ''' + _ + Public Property descripcionImpuesto() As String + Get + Return Me.descripcionImpuestoField + End Get + Set + Me.descripcionImpuestoField = value + End Set + End Property + + ''' + _ + Public Property diaPeriodo() As Integer + Get + Return Me.diaPeriodoField + End Get + Set + Me.diaPeriodoField = value + End Set + End Property + + ''' + _ + Public Property diaPeriodoSpecified() As Boolean + Get + Return Me.diaPeriodoFieldSpecified + End Get + Set + Me.diaPeriodoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property estado() As String + Get + Return Me.estadoField + End Get + Set + Me.estadoField = value + End Set + End Property + + ''' + _ + Public Property ffInscripcion() As Date + Get + Return Me.ffInscripcionField + End Get + Set + Me.ffInscripcionField = value + End Set + End Property + + ''' + _ + Public Property ffInscripcionSpecified() As Boolean + Get + Return Me.ffInscripcionFieldSpecified + End Get + Set + Me.ffInscripcionFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property idImpuesto() As Integer + Get + Return Me.idImpuestoField + End Get + Set + Me.idImpuestoField = value + End Set + End Property + + ''' + _ + Public Property idImpuestoSpecified() As Boolean + Get + Return Me.idImpuestoFieldSpecified + End Get + Set + Me.idImpuestoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property periodo() As Integer + Get + Return Me.periodoField + End Get + Set + Me.periodoField = value + End Set + End Property + + ''' + _ + Public Property periodoSpecified() As Boolean + Get + Return Me.periodoFieldSpecified + End Get + Set + Me.periodoFieldSpecified = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class email + + Private direccionField As String + + Private estadoField As String + + Private tipoEmailField As String + + ''' + _ + Public Property direccion() As String + Get + Return Me.direccionField + End Get + Set + Me.direccionField = value + End Set + End Property + + ''' + _ + Public Property estado() As String + Get + Return Me.estadoField + End Get + Set + Me.estadoField = value + End Set + End Property + + ''' + _ + Public Property tipoEmail() As String + Get + Return Me.tipoEmailField + End Get + Set + Me.tipoEmailField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class domicilio + + Private codPostalField As String + + Private datoAdicionalField As String + + Private descripcionProvinciaField As String + + Private direccionField As String + + Private idProvinciaField As Integer + + Private idProvinciaFieldSpecified As Boolean + + Private localidadField As String + + Private tipoDatoAdicionalField As String + + Private tipoDomicilioField As String + + ''' + _ + Public Property codPostal() As String + Get + Return Me.codPostalField + End Get + Set + Me.codPostalField = value + End Set + End Property + + ''' + _ + Public Property datoAdicional() As String + Get + Return Me.datoAdicionalField + End Get + Set + Me.datoAdicionalField = value + End Set + End Property + + ''' + _ + Public Property descripcionProvincia() As String + Get + Return Me.descripcionProvinciaField + End Get + Set + Me.descripcionProvinciaField = value + End Set + End Property + + ''' + _ + Public Property direccion() As String + Get + Return Me.direccionField + End Get + Set + Me.direccionField = value + End Set + End Property + + ''' + _ + Public Property idProvincia() As Integer + Get + Return Me.idProvinciaField + End Get + Set + Me.idProvinciaField = value + End Set + End Property + + ''' + _ + Public Property idProvinciaSpecified() As Boolean + Get + Return Me.idProvinciaFieldSpecified + End Get + Set + Me.idProvinciaFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property localidad() As String + Get + Return Me.localidadField + End Get + Set + Me.localidadField = value + End Set + End Property + + ''' + _ + Public Property tipoDatoAdicional() As String + Get + Return Me.tipoDatoAdicionalField + End Get + Set + Me.tipoDatoAdicionalField = value + End Set + End Property + + ''' + _ + Public Property tipoDomicilio() As String + Get + Return Me.tipoDomicilioField + End Get + Set + Me.tipoDomicilioField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class dependencia + + Private descripcionDependenciaField As String + + Private idDependenciaField As Integer + + Private idDependenciaFieldSpecified As Boolean + + ''' + _ + Public Property descripcionDependencia() As String + Get + Return Me.descripcionDependenciaField + End Get + Set + Me.descripcionDependenciaField = value + End Set + End Property + + ''' + _ + Public Property idDependencia() As Integer + Get + Return Me.idDependenciaField + End Get + Set + Me.idDependenciaField = value + End Set + End Property + + ''' + _ + Public Property idDependenciaSpecified() As Boolean + Get + Return Me.idDependenciaFieldSpecified + End Get + Set + Me.idDependenciaFieldSpecified = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class categoria + + Private descripcionCategoriaField As String + + Private estadoField As String + + Private idCategoriaField As Integer + + Private idCategoriaFieldSpecified As Boolean + + Private idImpuestoField As Integer + + Private idImpuestoFieldSpecified As Boolean + + Private periodoField As Integer + + Private periodoFieldSpecified As Boolean + + ''' + _ + Public Property descripcionCategoria() As String + Get + Return Me.descripcionCategoriaField + End Get + Set + Me.descripcionCategoriaField = value + End Set + End Property + + ''' + _ + Public Property estado() As String + Get + Return Me.estadoField + End Get + Set + Me.estadoField = value + End Set + End Property + + ''' + _ + Public Property idCategoria() As Integer + Get + Return Me.idCategoriaField + End Get + Set + Me.idCategoriaField = value + End Set + End Property + + ''' + _ + Public Property idCategoriaSpecified() As Boolean + Get + Return Me.idCategoriaFieldSpecified + End Get + Set + Me.idCategoriaFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property idImpuesto() As Integer + Get + Return Me.idImpuestoField + End Get + Set + Me.idImpuestoField = value + End Set + End Property + + ''' + _ + Public Property idImpuestoSpecified() As Boolean + Get + Return Me.idImpuestoFieldSpecified + End Get + Set + Me.idImpuestoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property periodo() As Integer + Get + Return Me.periodoField + End Get + Set + Me.periodoField = value + End Set + End Property + + ''' + _ + Public Property periodoSpecified() As Boolean + Get + Return Me.periodoFieldSpecified + End Get + Set + Me.periodoFieldSpecified = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class actividad + + Private descripcionActividadField As String + + Private idActividadField As Long + + Private idActividadFieldSpecified As Boolean + + Private nomencladorField As Integer + + Private nomencladorFieldSpecified As Boolean + + Private ordenField As Integer + + Private ordenFieldSpecified As Boolean + + Private periodoField As Integer + + Private periodoFieldSpecified As Boolean + + ''' + _ + Public Property descripcionActividad() As String + Get + Return Me.descripcionActividadField + End Get + Set + Me.descripcionActividadField = value + End Set + End Property + + ''' + _ + Public Property idActividad() As Long + Get + Return Me.idActividadField + End Get + Set + Me.idActividadField = value + End Set + End Property + + ''' + _ + Public Property idActividadSpecified() As Boolean + Get + Return Me.idActividadFieldSpecified + End Get + Set + Me.idActividadFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property nomenclador() As Integer + Get + Return Me.nomencladorField + End Get + Set + Me.nomencladorField = value + End Set + End Property + + ''' + _ + Public Property nomencladorSpecified() As Boolean + Get + Return Me.nomencladorFieldSpecified + End Get + Set + Me.nomencladorFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property orden() As Integer + Get + Return Me.ordenField + End Get + Set + Me.ordenField = value + End Set + End Property + + ''' + _ + Public Property ordenSpecified() As Boolean + Get + Return Me.ordenFieldSpecified + End Get + Set + Me.ordenFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property periodo() As Integer + Get + Return Me.periodoField + End Get + Set + Me.periodoField = value + End Set + End Property + + ''' + _ + Public Property periodoSpecified() As Boolean + Get + Return Me.periodoFieldSpecified + End Get + Set + Me.periodoFieldSpecified = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class persona + + Private actividadField() As actividad + + Private apellidoField As String + + Private cantidadSociosEmpresaMonoField As Integer + + Private cantidadSociosEmpresaMonoFieldSpecified As Boolean + + Private categoriaField() As categoria + + Private claveInactivaAsociadaField() As System.Nullable(Of Long) + + Private dependenciaField As dependencia + + Private domicilioField() As domicilio + + Private emailField() As email + + Private estadoClaveField As String + + Private fechaContratoSocialField As Date + + Private fechaContratoSocialFieldSpecified As Boolean + + Private fechaFallecimientoField As Date + + Private fechaFallecimientoFieldSpecified As Boolean + + Private fechaInscripcionField As Date + + Private fechaInscripcionFieldSpecified As Boolean + + Private fechaJubiladoField As Date + + Private fechaJubiladoFieldSpecified As Boolean + + Private fechaNacimientoField As Date + + Private fechaNacimientoFieldSpecified As Boolean + + Private fechaVencimientoMigracionField As Date + + Private fechaVencimientoMigracionFieldSpecified As Boolean + + Private formaJuridicaField As String + + Private idPersonaField As Long + + Private idPersonaFieldSpecified As Boolean + + Private impuestoField() As impuesto + + Private leyJubilacionField As Integer + + Private leyJubilacionFieldSpecified As Boolean + + Private localidadInscripcionField As String + + Private mesCierreField As Integer + + Private mesCierreFieldSpecified As Boolean + + Private nombreField As String + + Private numeroDocumentoField As String + + Private numeroInscripcionField As Long + + Private numeroInscripcionFieldSpecified As Boolean + + Private organismoInscripcionField As String + + Private organismoOriginanteField As String + + Private porcentajeCapitalNacionalField As Double + + Private porcentajeCapitalNacionalFieldSpecified As Boolean + + Private provinciaInscripcionField As String + + Private razonSocialField As String + + Private regimenField() As regimen + + Private relacionField() As relacion + + Private sexoField As String + + Private telefonoField() As telefono + + Private tipoClaveField As String + + Private tipoDocumentoField As String + + Private tipoOrganismoOriginanteField As String + + Private tipoPersonaField As String + + Private tipoResidenciaField As String + + ''' + _ + Public Property actividad() As actividad() + Get + Return Me.actividadField + End Get + Set + Me.actividadField = value + End Set + End Property + + ''' + _ + Public Property apellido() As String + Get + Return Me.apellidoField + End Get + Set + Me.apellidoField = value + End Set + End Property + + ''' + _ + Public Property cantidadSociosEmpresaMono() As Integer + Get + Return Me.cantidadSociosEmpresaMonoField + End Get + Set + Me.cantidadSociosEmpresaMonoField = value + End Set + End Property + + ''' + _ + Public Property cantidadSociosEmpresaMonoSpecified() As Boolean + Get + Return Me.cantidadSociosEmpresaMonoFieldSpecified + End Get + Set + Me.cantidadSociosEmpresaMonoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property categoria() As categoria() + Get + Return Me.categoriaField + End Get + Set + Me.categoriaField = value + End Set + End Property + + ''' + _ + Public Property claveInactivaAsociada() As System.Nullable(Of Long)() + Get + Return Me.claveInactivaAsociadaField + End Get + Set + Me.claveInactivaAsociadaField = value + End Set + End Property + + ''' + _ + Public Property dependencia() As dependencia + Get + Return Me.dependenciaField + End Get + Set + Me.dependenciaField = value + End Set + End Property + + ''' + _ + Public Property domicilio() As domicilio() + Get + Return Me.domicilioField + End Get + Set + Me.domicilioField = value + End Set + End Property + + ''' + _ + Public Property email() As email() + Get + Return Me.emailField + End Get + Set + Me.emailField = value + End Set + End Property + + ''' + _ + Public Property estadoClave() As String + Get + Return Me.estadoClaveField + End Get + Set + Me.estadoClaveField = value + End Set + End Property + + ''' + _ + Public Property fechaContratoSocial() As Date + Get + Return Me.fechaContratoSocialField + End Get + Set + Me.fechaContratoSocialField = value + End Set + End Property + + ''' + _ + Public Property fechaContratoSocialSpecified() As Boolean + Get + Return Me.fechaContratoSocialFieldSpecified + End Get + Set + Me.fechaContratoSocialFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property fechaFallecimiento() As Date + Get + Return Me.fechaFallecimientoField + End Get + Set + Me.fechaFallecimientoField = value + End Set + End Property + + ''' + _ + Public Property fechaFallecimientoSpecified() As Boolean + Get + Return Me.fechaFallecimientoFieldSpecified + End Get + Set + Me.fechaFallecimientoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property fechaInscripcion() As Date + Get + Return Me.fechaInscripcionField + End Get + Set + Me.fechaInscripcionField = value + End Set + End Property + + ''' + _ + Public Property fechaInscripcionSpecified() As Boolean + Get + Return Me.fechaInscripcionFieldSpecified + End Get + Set + Me.fechaInscripcionFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property fechaJubilado() As Date + Get + Return Me.fechaJubiladoField + End Get + Set + Me.fechaJubiladoField = value + End Set + End Property + + ''' + _ + Public Property fechaJubiladoSpecified() As Boolean + Get + Return Me.fechaJubiladoFieldSpecified + End Get + Set + Me.fechaJubiladoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property fechaNacimiento() As Date + Get + Return Me.fechaNacimientoField + End Get + Set + Me.fechaNacimientoField = value + End Set + End Property + + ''' + _ + Public Property fechaNacimientoSpecified() As Boolean + Get + Return Me.fechaNacimientoFieldSpecified + End Get + Set + Me.fechaNacimientoFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property fechaVencimientoMigracion() As Date + Get + Return Me.fechaVencimientoMigracionField + End Get + Set + Me.fechaVencimientoMigracionField = value + End Set + End Property + + ''' + _ + Public Property fechaVencimientoMigracionSpecified() As Boolean + Get + Return Me.fechaVencimientoMigracionFieldSpecified + End Get + Set + Me.fechaVencimientoMigracionFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property formaJuridica() As String + Get + Return Me.formaJuridicaField + End Get + Set + Me.formaJuridicaField = value + End Set + End Property + + ''' + _ + Public Property idPersona() As Long + Get + Return Me.idPersonaField + End Get + Set + Me.idPersonaField = value + End Set + End Property + + ''' + _ + Public Property idPersonaSpecified() As Boolean + Get + Return Me.idPersonaFieldSpecified + End Get + Set + Me.idPersonaFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property impuesto() As impuesto() + Get + Return Me.impuestoField + End Get + Set + Me.impuestoField = value + End Set + End Property + + ''' + _ + Public Property leyJubilacion() As Integer + Get + Return Me.leyJubilacionField + End Get + Set + Me.leyJubilacionField = value + End Set + End Property + + ''' + _ + Public Property leyJubilacionSpecified() As Boolean + Get + Return Me.leyJubilacionFieldSpecified + End Get + Set + Me.leyJubilacionFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property localidadInscripcion() As String + Get + Return Me.localidadInscripcionField + End Get + Set + Me.localidadInscripcionField = value + End Set + End Property + + ''' + _ + Public Property mesCierre() As Integer + Get + Return Me.mesCierreField + End Get + Set + Me.mesCierreField = value + End Set + End Property + + ''' + _ + Public Property mesCierreSpecified() As Boolean + Get + Return Me.mesCierreFieldSpecified + End Get + Set + Me.mesCierreFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property nombre() As String + Get + Return Me.nombreField + End Get + Set + Me.nombreField = value + End Set + End Property + + ''' + _ + Public Property numeroDocumento() As String + Get + Return Me.numeroDocumentoField + End Get + Set + Me.numeroDocumentoField = value + End Set + End Property + + ''' + _ + Public Property numeroInscripcion() As Long + Get + Return Me.numeroInscripcionField + End Get + Set + Me.numeroInscripcionField = value + End Set + End Property + + ''' + _ + Public Property numeroInscripcionSpecified() As Boolean + Get + Return Me.numeroInscripcionFieldSpecified + End Get + Set + Me.numeroInscripcionFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property organismoInscripcion() As String + Get + Return Me.organismoInscripcionField + End Get + Set + Me.organismoInscripcionField = value + End Set + End Property + + ''' + _ + Public Property organismoOriginante() As String + Get + Return Me.organismoOriginanteField + End Get + Set + Me.organismoOriginanteField = value + End Set + End Property + + ''' + _ + Public Property porcentajeCapitalNacional() As Double + Get + Return Me.porcentajeCapitalNacionalField + End Get + Set + Me.porcentajeCapitalNacionalField = value + End Set + End Property + + ''' + _ + Public Property porcentajeCapitalNacionalSpecified() As Boolean + Get + Return Me.porcentajeCapitalNacionalFieldSpecified + End Get + Set + Me.porcentajeCapitalNacionalFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property provinciaInscripcion() As String + Get + Return Me.provinciaInscripcionField + End Get + Set + Me.provinciaInscripcionField = value + End Set + End Property + + ''' + _ + Public Property razonSocial() As String + Get + Return Me.razonSocialField + End Get + Set + Me.razonSocialField = value + End Set + End Property + + ''' + _ + Public Property regimen() As regimen() + Get + Return Me.regimenField + End Get + Set + Me.regimenField = value + End Set + End Property + + ''' + _ + Public Property relacion() As relacion() + Get + Return Me.relacionField + End Get + Set + Me.relacionField = value + End Set + End Property + + ''' + _ + Public Property sexo() As String + Get + Return Me.sexoField + End Get + Set + Me.sexoField = value + End Set + End Property + + ''' + _ + Public Property telefono() As telefono() + Get + Return Me.telefonoField + End Get + Set + Me.telefonoField = value + End Set + End Property + + ''' + _ + Public Property tipoClave() As String + Get + Return Me.tipoClaveField + End Get + Set + Me.tipoClaveField = value + End Set + End Property + + ''' + _ + Public Property tipoDocumento() As String + Get + Return Me.tipoDocumentoField + End Get + Set + Me.tipoDocumentoField = value + End Set + End Property + + ''' + _ + Public Property tipoOrganismoOriginante() As String + Get + Return Me.tipoOrganismoOriginanteField + End Get + Set + Me.tipoOrganismoOriginanteField = value + End Set + End Property + + ''' + _ + Public Property tipoPersona() As String + Get + Return Me.tipoPersonaField + End Get + Set + Me.tipoPersonaField = value + End Set + End Property + + ''' + _ + Public Property tipoResidencia() As String + Get + Return Me.tipoResidenciaField + End Get + Set + Me.tipoResidenciaField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class metadata + + Private fechaHoraField As Date + + Private fechaHoraFieldSpecified As Boolean + + Private servidorField As String + + ''' + _ + Public Property fechaHora() As Date + Get + Return Me.fechaHoraField + End Get + Set + Me.fechaHoraField = value + End Set + End Property + + ''' + _ + Public Property fechaHoraSpecified() As Boolean + Get + Return Me.fechaHoraFieldSpecified + End Get + Set + Me.fechaHoraFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property servidor() As String + Get + Return Me.servidorField + End Get + Set + Me.servidorField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class personaReturn + + Private metadataField As metadata + + Private personaField As persona + + ''' + _ + Public Property metadata() As metadata + Get + Return Me.metadataField + End Get + Set + Me.metadataField = value + End Set + End Property + + ''' + _ + Public Property persona() As persona + Get + Return Me.personaField + End Get + Set + Me.personaField = value + End Set + End Property + End Class + + ''' + _ + Public Delegate Sub dummyCompletedEventHandler(ByVal sender As Object, ByVal e As dummyCompletedEventArgs) + + ''' + _ + Partial Public Class dummyCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As dummyReturn + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),dummyReturn) + End Get + End Property + End Class + + ''' + _ + Public Delegate Sub getPersonaCompletedEventHandler(ByVal sender As Object, ByVal e As getPersonaCompletedEventArgs) + + ''' + _ + Partial Public Class getPersonaCompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As personaReturn + Get + Me.RaiseExceptionIfNecessary + Return CType(Me.results(0),personaReturn) + End Get + End Property + End Class +End Namespace diff --git a/PrototipoAfip/Web References/WSPSA4/dummyReturn.datasource b/PrototipoAfip/Web References/WSPSA4/dummyReturn.datasource new file mode 100644 index 0000000..765dd83 --- /dev/null +++ b/PrototipoAfip/Web References/WSPSA4/dummyReturn.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSPSA4.dummyReturn, Web References.WSPSA4.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/PrototipoAfip/Web References/WSPSA4/personaReturn.datasource b/PrototipoAfip/Web References/WSPSA4/personaReturn.datasource new file mode 100644 index 0000000..dd28f73 --- /dev/null +++ b/PrototipoAfip/Web References/WSPSA4/personaReturn.datasource @@ -0,0 +1,10 @@ + + + + PrototipoAfip.WSPSA4.personaReturn, Web References.WSPSA4.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/PrototipoAfip/bin/Debug/BarcodeLib.Barcode.WinForms.dll b/PrototipoAfip/bin/Debug/BarcodeLib.Barcode.WinForms.dll new file mode 100644 index 0000000..5c8fe85 Binary files /dev/null and b/PrototipoAfip/bin/Debug/BarcodeLib.Barcode.WinForms.dll differ diff --git a/PrototipoAfip/bin/Debug/PrototipoAfip.exe b/PrototipoAfip/bin/Debug/PrototipoAfip.exe new file mode 100644 index 0000000..f4044fe Binary files /dev/null and b/PrototipoAfip/bin/Debug/PrototipoAfip.exe differ diff --git a/PrototipoAfip/bin/Debug/PrototipoAfip.exe.config b/PrototipoAfip/bin/Debug/PrototipoAfip.exe.config new file mode 100644 index 0000000..25b88bb --- /dev/null +++ b/PrototipoAfip/bin/Debug/PrototipoAfip.exe.config @@ -0,0 +1,50 @@ + + + + +
+ + +
+ + + + + + + + + c:\cert.pfx + + + + + + https://wsaahomo.afip.gov.ar/ws/services/LoginCms?WSDL + + + wsfe + + + 20079870626 + + + + + + + + + + + https://wsaa.afip.gov.ar/ws/services/LoginCms + + + https://wswhomo.afip.gov.ar/wsfev1/service.asmx + + + http://aws.afip.gov.ar/sr-padron/webservices/personaServiceA4 + + + + \ No newline at end of file diff --git a/PrototipoAfip/bin/Debug/PrototipoAfip.pdb b/PrototipoAfip/bin/Debug/PrototipoAfip.pdb new file mode 100644 index 0000000..32d0489 Binary files /dev/null and b/PrototipoAfip/bin/Debug/PrototipoAfip.pdb differ diff --git a/PrototipoAfip/bin/Debug/PrototipoAfip.xml b/PrototipoAfip/bin/Debug/PrototipoAfip.xml new file mode 100644 index 0000000..75c2e3b --- /dev/null +++ b/PrototipoAfip/bin/Debug/PrototipoAfip.xml @@ -0,0 +1,1742 @@ + + + + +PrototipoAfip + + + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + + Returns the cached ResourceManager instance used by this class. + + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + + SubTotal de Precios sin IVA + + + + + + SubTotal del IVA + Precio Total + + + + + + Valor de IVA por unidad + + + + + + SubTotal del Iva Unicamente + + + + + + Sumarizacion de los subtotales (cantidad + pUnitario) sin iva ni descuentos + + + + + + Valor Positivo que se substrae del neto + + + + + + SubTotalPreDescuento incluido el descuento + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PrototipoAfip/bin/Debug/Templates/LoginTemplate.xml b/PrototipoAfip/bin/Debug/Templates/LoginTemplate.xml new file mode 100644 index 0000000..93abc2f --- /dev/null +++ b/PrototipoAfip/bin/Debug/Templates/LoginTemplate.xml @@ -0,0 +1,9 @@ + + +
+ + + +
+ + \ No newline at end of file diff --git a/PrototipoAfip/obj/Debug/CoreCompileInputs.cache b/PrototipoAfip/obj/Debug/CoreCompileInputs.cache new file mode 100644 index 0000000..70a833f --- /dev/null +++ b/PrototipoAfip/obj/Debug/CoreCompileInputs.cache @@ -0,0 +1 @@ +364b612a606f164405cf4a62c9a211b2d2799e37 diff --git a/PrototipoAfip/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/PrototipoAfip/obj/Debug/DesignTimeResolveAssemblyReferences.cache new file mode 100644 index 0000000..3093e29 Binary files /dev/null and b/PrototipoAfip/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/PrototipoAfip/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/PrototipoAfip/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..32c3b3a Binary files /dev/null and b/PrototipoAfip/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.FacturaForm.resources b/PrototipoAfip/obj/Debug/PrototipoAfip.FacturaForm.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.FacturaForm.resources differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.FacturaPrueba.resources b/PrototipoAfip/obj/Debug/PrototipoAfip.FacturaPrueba.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.FacturaPrueba.resources differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.Form1.resources b/PrototipoAfip/obj/Debug/PrototipoAfip.Form1.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.Form1.resources differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.LargeText.resources b/PrototipoAfip/obj/Debug/PrototipoAfip.LargeText.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.LargeText.resources differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.Resources.resources b/PrototipoAfip/obj/Debug/PrototipoAfip.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.Resources.resources differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.exe b/PrototipoAfip/obj/Debug/PrototipoAfip.exe new file mode 100644 index 0000000..f4044fe Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.exe differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.pdb b/PrototipoAfip/obj/Debug/PrototipoAfip.pdb new file mode 100644 index 0000000..32d0489 Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.pdb differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.vbproj.FileListAbsolute.txt b/PrototipoAfip/obj/Debug/PrototipoAfip.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..55eb444 --- /dev/null +++ b/PrototipoAfip/obj/Debug/PrototipoAfip.vbproj.FileListAbsolute.txt @@ -0,0 +1,16 @@ +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.FacturaForm.resources +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.Form1.resources +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.LargeText.resources +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.Resources.resources +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.vbproj.GenerateResource.Cache +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\bin\Debug\Templates\LoginTemplate.xml +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\bin\Debug\PrototipoAfip.exe.config +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\bin\Debug\PrototipoAfip.exe +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\bin\Debug\PrototipoAfip.pdb +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\bin\Debug\PrototipoAfip.xml +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.exe +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.xml +C:\Users\Guille\documents\visual studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.pdb +C:\Users\Guille\Documents\Visual Studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.vbprojResolveAssemblyReference.cache +C:\Users\Guille\Documents\Visual Studio 2017\Projects\PrototipoAfip\PrototipoAfip\bin\Debug\BarcodeLib.Barcode.WinForms.dll +C:\Users\Guille\Documents\Visual Studio 2017\Projects\PrototipoAfip\PrototipoAfip\obj\Debug\PrototipoAfip.FacturaPrueba.resources diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.vbproj.GenerateResource.Cache b/PrototipoAfip/obj/Debug/PrototipoAfip.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..0f79490 Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.vbproj.GenerateResource.Cache differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.vbprojResolveAssemblyReference.cache b/PrototipoAfip/obj/Debug/PrototipoAfip.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..9c25e9a Binary files /dev/null and b/PrototipoAfip/obj/Debug/PrototipoAfip.vbprojResolveAssemblyReference.cache differ diff --git a/PrototipoAfip/obj/Debug/PrototipoAfip.xml b/PrototipoAfip/obj/Debug/PrototipoAfip.xml new file mode 100644 index 0000000..75c2e3b --- /dev/null +++ b/PrototipoAfip/obj/Debug/PrototipoAfip.xml @@ -0,0 +1,1742 @@ + + + + +PrototipoAfip + + + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + + Returns the cached ResourceManager instance used by this class. + + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + + SubTotal de Precios sin IVA + + + + + + SubTotal del IVA + Precio Total + + + + + + Valor de IVA por unidad + + + + + + SubTotal del Iva Unicamente + + + + + + Sumarizacion de los subtotales (cantidad + pUnitario) sin iva ni descuentos + + + + + + Valor Positivo que se substrae del neto + + + + + + SubTotalPreDescuento incluido el descuento + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PrototipoAfip/obj/Debug/TempPE/Connected Services.WSAA.Reference.vb.dll b/PrototipoAfip/obj/Debug/TempPE/Connected Services.WSAA.Reference.vb.dll new file mode 100644 index 0000000..b8a6c40 Binary files /dev/null and b/PrototipoAfip/obj/Debug/TempPE/Connected Services.WSAA.Reference.vb.dll differ diff --git a/PrototipoAfip/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/PrototipoAfip/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..24ec5aa Binary files /dev/null and b/PrototipoAfip/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/PrototipoAfip/obj/Debug/TempPE/Web References.WSAA.Reference.vb.dll b/PrototipoAfip/obj/Debug/TempPE/Web References.WSAA.Reference.vb.dll new file mode 100644 index 0000000..b42b5f6 Binary files /dev/null and b/PrototipoAfip/obj/Debug/TempPE/Web References.WSAA.Reference.vb.dll differ diff --git a/PrototipoAfip/obj/Debug/TempPE/Web References.WSFEHOMO.Reference.vb.dll b/PrototipoAfip/obj/Debug/TempPE/Web References.WSFEHOMO.Reference.vb.dll new file mode 100644 index 0000000..bf1064c Binary files /dev/null and b/PrototipoAfip/obj/Debug/TempPE/Web References.WSFEHOMO.Reference.vb.dll differ diff --git a/PrototipoAfip/obj/Debug/TempPE/Web References.WSPSA4.Reference.vb.dll b/PrototipoAfip/obj/Debug/TempPE/Web References.WSPSA4.Reference.vb.dll new file mode 100644 index 0000000..fb1d8fd Binary files /dev/null and b/PrototipoAfip/obj/Debug/TempPE/Web References.WSPSA4.Reference.vb.dll differ