AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-option explicit

Browse Source
This commit is contained in:
rrene
2023-09-18 09:02:31 -07:00
parent 8a504f5015
commit 1b1a6e9a65
3 changed files with 55 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsInventarios.vb
View File

@@ -1898,7 +1898,7 @@ Public Class ClsInventarios
Return Retorno
End Function
Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno = False
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_RepNotasSinAlmacen")
With SqlAdapter.SelectCommand.Parameters
@@ -2213,7 +2213,7 @@ Public Class ClsInventarios
Return Retorno
End Function
Public Function GetExistenciasPSXML(XML As String, CveAlmacen As Integer, Fecha As String, CveSubProyecto As Integer, CveVendedor As Integer, CveCliente As Integer, ExcluyeApartados As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno = False
Dim Retorno As Boolean = False
If Fecha = "-1" Then
Fecha = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd"))
@@ -3440,7 +3440,7 @@ Public Class ClsInventarios
End Function
Public Function VentaDetallePadreGet(CveVentaDetallePadre As Integer) As Integer
Dim Retorno = -1
Dim Retorno As Integer = -1
DataAdapter("PA_Inv_VentaDetallePadreGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVentaDetallePadre", SqlDbType.Int).Value = CveVentaDetallePadre
@@ -3455,7 +3455,7 @@ Public Class ClsInventarios
Return Retorno
End Function
Public Function GetPendietePorSurtirVenta(CvePS As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, Optional Tipo As Integer = -1) As Boolean
Public Function GetPendientePorSurtirVenta(CvePS As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, Optional Tipo As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_VentasPendientesPorSurtirGet")
@@ -4387,7 +4387,7 @@ Public Class ClsInventarios
#Region " INVENTARIOS - SOLICITUD DE TRASPASOS "
Public Function AddTrasladoSolicitud(Observaciones As String, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, CveMovimientoAlmacen As Integer, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer,
Optional CveContrato As Integer = -1, Optional Guia As String = "", Optional CvePaqueteria As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional CveOS As Integer = -1, Optional EstatusAlmacen As Integer = -1) As Integer
Dim Retorno = -1
Dim Retorno As Integer = -1
DataAdapter("PA_Inv_TraspasoSolicitudAdd")
With SqlAdapter.SelectCommand.Parameters

84
App_Code/Modelos.vb
View File

@@ -495,7 +495,7 @@ Namespace Modelos
Timbre = New CFDITimbre
End Sub
Private Sub SetTotales(dtVentas As DataTable, ObjVentas As ClsVentas)
Dim TmpDTImpuestos = New DataTable
Dim TmpDTImpuestos As New DataTable
TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
@@ -530,7 +530,7 @@ Namespace Modelos
Dim dtImpuesto As DataTable = ObjVentas.DtResultados
If dtImpuesto.Rows.Count > 0 Then
For Each Row As DataRow In dtImpuesto.Rows
Dim Orden = 80
Dim Orden As Integer = 80
If Row("Importe").ToString.ToDouble <> 0 Then
DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
DR("Importe") = Row("Importe").ToString.ToDouble
@@ -819,7 +819,7 @@ Namespace Modelos
Dim ObjDocCliente As New ClsEdocumentacion(ObjVentas.IniciaTransacSQL())
Dim ObjGeneral As New ClsGenerales(ObjVentas.IniciaTransacSQL())
Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL())
Dim MensajeAlert = New StringBuilder
Dim MensajeAlert As New StringBuilder
Try
@@ -1031,7 +1031,7 @@ Namespace Modelos
Dim SeTimbro As Boolean = False
Dim SeTimbroNC As Boolean = False
Dim EstatusSMS = 0
Dim EstatusSMS As Integer = 0
'TIMBRADO Y CASO ESPECIAL NOTA DE CREDITO
If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "Cot", "Ped", "DPe", "PA", "Pd2")) Then
@@ -1054,7 +1054,7 @@ Namespace Modelos
'DOCUMENTO ACTUAL
If DebeTimbrar Then
If Me.EmitirCartaPorte AndAlso CveTimbreCartaPorte > 0 Then
Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, UsuarioActual)
Dim RespCartaPorte As Timbres.MMensajeCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, UsuarioActual)
If Not RespCartaPorte.TieneError Then
Me.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte
Else
@@ -1129,7 +1129,7 @@ Namespace Modelos
' DESCARGA XML - SI SE TIMBRA MANDA CORREO CON FACTURA
If SeTimbro Then
Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, Me.TipoDocto, Me.SerieFolio)
Dim ArchivoXML As String = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, Me.TipoDocto, Me.SerieFolio)
If File.Exists(ArchivoXML) Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", Me.SerieFolio, Me.TipoDocto)))
End If
@@ -1775,7 +1775,7 @@ Namespace Modelos
tPS = tPS.Replace("|", " ")
If tPS.Length >= 1000 Then
Dim tPSRecortado = tPS.Remove(999, tPS.Length - 999)
Dim tPSRecortado As String = tPS.Remove(999, tPS.Length - 999)
tPS = tPSRecortado
End If
@@ -1840,14 +1840,14 @@ Namespace Modelos
End Sub
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = True) As Byte()
Dim Url = New Uri(String.Format("http://{0}:{1}/Compras/PopUpVerFactura.aspx?P={2}", HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
Dim Url As New Uri(String.Format("http://{0}:{1}/Compras/PopUpVerFactura.aspx?P={2}", HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
Dim File As Byte() = Nothing
Try
Using httpClient = New HttpClient()
Using httpClient As New HttpClient()
httpClient.Timeout = New TimeSpan(0, 15, 0)
Using request = New HttpRequestMessage(HttpMethod.Get, Url)
Using request As New HttpRequestMessage(HttpMethod.Get, Url)
request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}", CveEmpresa, DateTime.UtcNow.Ticks)))
Dim response = httpClient.SendAsync(request).Result
Dim response As HttpResponseMessage = httpClient.SendAsync(request).Result
If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then
File = response.Content.ReadAsByteArrayAsync().Result
End If
@@ -2023,10 +2023,10 @@ Namespace Modelos
End Sub
Private Function EnviarSMSTimbrado(ByRef ObjEventos As ClsOIEventos) As Integer
Dim Mensaje = UsuarioActual.Empresa.Funcionalidad(152)
Dim Mensaje As String = UsuarioActual.Empresa.Funcionalidad(152)
If Mensaje = "" Then Return 0
Dim Celular = Me.Cliente.CobranzaTelefono
Dim Celular As String = Me.Cliente.CobranzaTelefono
If Celular.Length <> 10 Then Return 3
'ARMA MENSAJE
@@ -2315,7 +2315,7 @@ Namespace Modelos
'BONIFICACION USADOS
If UsadosBonificacion IsNot Nothing AndAlso UsadosBonificacion.Count > 0 AndAlso TipoBonificacion > 0 Then
For Each CveMovto In UsadosBonificacion
For Each CveMovto As Integer In UsadosBonificacion
If Not ObjAcum.DistribuidorActualizarFacturados(CveMovto, UsuarioActual.CveEmpresa, TipoBonificacion, CveVenta) Then
ErrorList.Add("Ocurrió un error al actualizar el distribuidor.")
End If
@@ -2765,7 +2765,7 @@ Namespace Modelos
End If
Dim Dr = DtVentasNC.NewRow
Dim Dr As DataRow = DtVentasNC.NewRow
Dr("CveVenta") = pCveVenta
Dr("Importe") = Importe
Dr("FolioFiscal") = FolioFiscal
@@ -2963,8 +2963,8 @@ Namespace Modelos
If GenerarPrePoliza AndAlso CveMovimiento > 0 Then
Dim Concepto As String = "Cancelación Usado" & factura.SerieFolio
Dim CvePrePoliza = ObjConta.AddPrePolizas("Mod/CancSalUsados", 74, DtMovimientosEntrada.SUMD("Total"), DtMovimientosEntrada.SUMD("Total"), 1, tFecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim tCveSubProyecto = ClsPaginas.GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Mod/CancSalUsados", 74, DtMovimientosEntrada.SUMD("Total"), DtMovimientosEntrada.SUMD("Total"), 1, tFecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim tCveSubProyecto As Integer = ClsPaginas.GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
Dim tCveConcepto As Integer = 278
Dim ValorInventario As Decimal = 0
Dim MovAlmacen As Boolean = False 'debe quedar como el anterior, pero negativo
@@ -3647,7 +3647,7 @@ Namespace Modelos
importeMovimiento = 0
Case 91 'Amortizacion Nota de Credito
Dim Contabilizable = If(UsuarioActual.CveEmpresa = 119, False, True)
Dim Contabilizable As Boolean = If(UsuarioActual.CveEmpresa = 119, False, True)
If ValorMultiplicador = -1 Then
Dim TipoCambioNC As Decimal = 1
@@ -3834,9 +3834,9 @@ Namespace Modelos
Else
If Not ObjFactura.TipoDocto.Contiene("Rem", "Ant", "Egs", "Dev", "RNC") Then
Dim ConceptoContableAplicar = 4
Dim CveVentaAplicar = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar = -1
Dim ConceptoContableAplicar As Integer = 4
Dim CveVentaAplicar As Integer = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar As Integer = -1
If ObjFactura.TipoDocto.Contiene("Egs") And ObjFactura.TipoDocto = "Ant" And CveDevolucion > 0 And NuevaFactura = 1 Then
ConceptoContableAplicar = 11
@@ -3871,9 +3871,9 @@ Namespace Modelos
Case 150 'Descuento sobre ventas
If ObjFactura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then
Dim ConceptoContableAplicar = 150
Dim CveVentaAplicar = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar = -1
Dim ConceptoContableAplicar As Integer = 150
Dim CveVentaAplicar As Integer = ObjFactura.CveVenta
Dim CveVentaAmortizacionAplicar As Integer = -1
If ObjFactura.TipoDocto.Contiene("Egs") And ObjFactura.CveAnticipo > 0 Then
ConceptoContableAplicar = 11
@@ -4547,9 +4547,9 @@ Namespace Modelos
'Agregamos los detalles
For Each MovDet As DataRow In DtMovDetalle.Rows
Dim Cantidad = 0.0
Dim CantidadRemision = DtRemisiones.FiltroPrimeroValor("Cantidad", $"CveVentaDetalleRemision={MovDet("CveVentaDetalle").ToString}").ToDouble
Dim CantidadInventario = MovDet("Cantidad").ToString.ToDecimal
Dim Cantidad As Decimal = 0
Dim CantidadRemision As Decimal = DtRemisiones.FiltroPrimeroValor("Cantidad", $"CveVentaDetalleRemision={MovDet("CveVentaDetalle").ToString}").ToDecimal
Dim CantidadInventario As Decimal = MovDet("Cantidad").ToString.ToDecimal
If RemisionesLista.Count > 0 AndAlso CantidadInventario >= CantidadRemision Then
Cantidad = CantidadRemision
@@ -4596,12 +4596,12 @@ Namespace Modelos
If Not OcurrioError Then
If MovimientoPrePoliza AndAlso CveMovimientoInventario > 0 Then
If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
Dim DtCostos = ObjInventario.DtResultados.Copy
Dim DtCostos As DataTable = ObjInventario.DtResultados.Copy
Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"})
Dim ValorInventario As Decimal
For Each RowInv As DataRow In DtCostosDistinct.Rows
ValorInventario = DtCostos.SUM("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).ToString.ToDecimal
ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion")))
Try
If ValorInventario <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(Me.CvePrePoliza, False, ValorInventario, ValorInventario, 69, Me.SerieFolio, Me.SerieFolio, CveVenta:=CveVenta, CveCliente:=Me.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, CveSubProyecto:=Me.CveSubProyecto) Then
@@ -5309,7 +5309,7 @@ Namespace Modelos
End If
'CUANDO SE CANCELA, Y TIENE RELACIONADA UNA REMISIÓN, Y ESTA NO SE CANCELARÁ. DEBE DE HACER EN AUTOMÁTICO LOS MOVIMIENTOS AL ALMACEN DE ENTREGA POR ADELANTADO
Dim RevivirRemisiones = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count))
Dim RevivirRemisiones As Boolean = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count))
'REMISION YA SE DEBE HACER POR EL PROCESO DE DEVOLUCION DE ALMACEN
If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen <> 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not RealizarDevolucionAlmacen And RevivirRemisiones = False Then
@@ -5418,11 +5418,11 @@ Namespace Modelos
'VERIFICA EN EL SERVICIO SI SE CANCELO
Try
Dim solicitud = New WSGF.Service1SoapClient()
Dim acuse = solicitud.GetAcuse(UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx", "rene2018", FolioFiscal)
Dim solicitud As New WSGF.Service1SoapClient()
Dim acuse As WSGF.StructXml = solicitud.GetAcuse(UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx", "rene2018", FolioFiscal)
If acuse.Estado = 0 Then
Dim xmlAcuse = New System.Xml.XmlDocument()
Dim xmlAcuse As New System.Xml.XmlDocument()
xmlAcuse.LoadXml(DecodeBase64(acuse.CfdiB64))
CancelacionAcuse = xmlAcuse.GetElementsByTagName("SignatureValue")(0).InnerText
CancelacionFecha = xmlAcuse.SelectSingleNode("Acuse").Attributes("Fecha").Value.ToDate()
@@ -5685,7 +5685,7 @@ Namespace Modelos
'CUANDO SE VAYA A REALIZAR LA DEVOLUCION AQUI DEBE MARCALA PARA NO SOLICITARLA DE NUEVO, SI NO LA SOLICITARA
If ObjFactura.EsDevolucionVenta = 0 Then
Dim EstatusDevolucion = 1
Dim EstatusDevolucion As Integer = 1
If Not ObjVentas.UpdateVentasDevolucionAlmacen(EstatusDevolucion, CveVenta) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al solicitar la devolución de almacen."
@@ -5907,7 +5907,7 @@ Namespace Modelos
'AGREGA BITACORA A VENTA
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso CveMovimientoDevolucion > 0 Then
Dim MensajeBitacora = "Devuelta"
Dim MensajeBitacora As String = "Devuelta"
If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimientoDevolucion, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
MensajeError = "Ocurrió un error al agregar la bitacora."
ErrorCancelar = True
@@ -6316,7 +6316,7 @@ Namespace Modelos
If SeCancelaRemisionProceso Then
If Not ErrorCancelar Then
For Each CveRemisionCancelar In ListaRemisionesCancelar
For Each CveRemisionCancelar As Integer In ListaRemisionesCancelar
If Not ObjVentas.AddRemisionesXCancelar(CveVenta, CveRemisionCancelar) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al guardar la remisión x cancelar."
@@ -6332,7 +6332,7 @@ Namespace Modelos
End If
Else
If Not ErrorCancelar Then
For Each CveRemisionCancelar In ListaRemisionesCancelar
For Each CveRemisionCancelar As Integer In ListaRemisionesCancelar
If Not ObjVentas.UpdateEstatusFactura(12, "", "", CancelacionFecha, CveRemisionCancelar) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al guardar el estatus de cancelación de la remisión."
@@ -7335,7 +7335,7 @@ Namespace Modelos
Public ReadOnly Property FormaPagoText As String
Get
Dim retorno = ""
Dim retorno As String = ""
Select Case FormaPago
Case 0
retorno = "PAGO EN UNA SOLA EXHIBICIÓN"
@@ -7350,7 +7350,7 @@ Namespace Modelos
Public ReadOnly Property CondicionesPagoText As String
Get
Dim retorno = ""
Dim retorno As String = ""
Select Case CondicionesPago
Case 0
retorno = "contado"
@@ -7793,7 +7793,7 @@ Namespace Modelos
Public ReadOnly Property LugarExp As String
Get
Dim arr = {Calle, NoExt, NoInt, Colonia, Localidad, Municipio, Estado, Pais, CP}
Dim arr As Array = {Calle, NoExt, NoInt, Colonia, Localidad, Municipio, Estado, Pais, CP}
Return String.Join(",", arr)
End Get
End Property
@@ -7862,7 +7862,7 @@ Namespace Modelos
Public ReadOnly Property LugarExp As String
Get
Dim arr = {Calle, NoExt, NoInt, Colonia, Localidad, Municipio, Estado, Pais, CP, SubProyecto}
Dim arr As Array = {Calle, NoExt, NoInt, Colonia, Localidad, Municipio, Estado, Pais, CP, SubProyecto}
Return String.Join(",", arr)
End Get
End Property
@@ -8036,7 +8036,7 @@ Namespace Modelos
Public ReadOnly Property LugarExp As String
Get
Dim arr = {EnvioDireccion, EnvioColonia, EnvioCiudad, EnvioEstado, EnvioCP, EnvioTel}
Dim arr As Array = {EnvioDireccion, EnvioColonia, EnvioCiudad, EnvioEstado, EnvioCP, EnvioTel}
Return String.Join(",", arr)
End Get
End Property

16
App_Code/Timbrado.vb
View File

@@ -851,7 +851,7 @@ Public Class Timbrado
Private Function EnviarInformacionCancelacionPADESOAP(ByVal url As String, UsuarioServicio As String, PassServicio As String, contrato As String, rfcEmisor As String, rfcReceptor As String,
certBase64 As String, keyBase64 As String, keyPass As String, arregloUUID As String, Total As Decimal, TimbraProduccion As Boolean,
Optional MotivoCancelacion As String = "", Optional FolioSustitucion As String = "") As String
Dim retorno = ""
Dim retorno As String = ""
Try
Dim request As HttpWebRequest = CType(WebRequest.Create($"{url}"), HttpWebRequest)
@@ -895,7 +895,7 @@ Public Class Timbrado
End Using
If Not String.IsNullOrEmpty(response) Then
Dim xmlRetorno = New XmlDocument()
Dim xmlRetorno As New XmlDocument()
xmlRetorno.LoadXml(response)
Dim elemList As XmlNodeList = xmlRetorno.GetElementsByTagName("return")
@@ -1270,13 +1270,13 @@ Public Class Timbrado
Private Function EnviarInformacionPADE(url As String, payload As String, tokenAuth As String) As String
Dim Retorno As String = ""
Try
Using httpClient = New HttpClient()
Using httpClient As New HttpClient()
httpClient.Timeout = New TimeSpan(0, 1, 0)
Using request = New HttpRequestMessage(HttpMethod.Post, New Uri(url))
Using request As New HttpRequestMessage(HttpMethod.Post, New Uri(url))
request.Headers.Add("Authorization", $"Basic {tokenAuth}")
Using content = New StringContent(payload, Encoding.UTF8, "application/json")
Using content As New StringContent(payload, Encoding.UTF8, "application/json")
request.Content = content
Dim response = httpClient.SendAsync(request, HttpCompletionOption.ResponseHeadersRead).Result
Dim response As HttpResponseMessage = httpClient.SendAsync(request, HttpCompletionOption.ResponseHeadersRead).Result
Retorno = response.Content.ReadAsStringAsync().Result
End Using
@@ -1569,7 +1569,7 @@ Public Class Timbrado
Dim w As Integer = 0
For Each Ret In ObjCFDITimbre.Retenciones
For Each Ret As CFDIRetenciones In ObjCFDITimbre.Retenciones
comprobante.Impuestos.Retenciones(w) = New Profact.TimbraCFDI40.ComprobanteImpuestosRetencion()
comprobante.Impuestos.Retenciones(w).Impuesto = Ret.Impuesto
comprobante.Impuestos.Retenciones(w).Importe = Ret.Importe
@@ -1624,7 +1624,7 @@ Public Class Timbrado
If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
'DATOS GENERALES
Dim ComExt = New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExterior()
Dim ComExt As New Profact.TimbraCFDI33.Complementos.ComercioExterior11.ComercioExterior()
ComExt.Version = "1.1"
ComExt.MotivoTrasladoSpecified = True
ComExt.MotivoTraslado = ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado