Comercio Exterior 4.0
This commit is contained in:
Oscar Irigoyen
@@ -4919,81 +4919,81 @@ Public Class Timbrado
|
|||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
#Region "Comercio Exterior"
|
#Region "Comercio Exterior"
|
||||||
|
|
||||||
'If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
|
If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
|
||||||
' If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
|
If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
|
||||||
|
|
||||||
' 'DATOS GENERALES
|
'DATOS GENERALES
|
||||||
' cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado,
|
cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion,
|
ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento,
|
ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen,
|
ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen,
|
ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable,
|
ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Incoterm,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Incoterm,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Subdivision,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Subdivision,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD,
|
ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD)
|
ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD)
|
||||||
' 'EMISOR
|
'EMISOR
|
||||||
' cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP))
|
cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP))
|
||||||
' cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle,
|
cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Municipio,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Municipio,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP)
|
ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP)
|
||||||
' 'RECEPTOR
|
'RECEPTOR
|
||||||
' cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib)
|
cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib)
|
||||||
' cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle,
|
cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP)
|
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP)
|
||||||
' cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
|
cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
|
||||||
' ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
|
ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
|
||||||
' 'MERCANCIAS
|
'MERCANCIAS
|
||||||
' If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
|
If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
|
||||||
' For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias
|
For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias
|
||||||
' cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
|
cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
|
||||||
' If concep.DescripcionesEspecificas.Marca <> "" Then
|
If concep.DescripcionesEspecificas.Marca <> "" Then
|
||||||
' cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
|
cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
|
||||||
' concep.DescripcionesEspecificas.Modelo,
|
concep.DescripcionesEspecificas.Modelo,
|
||||||
' concep.DescripcionesEspecificas.SubModelo,
|
concep.DescripcionesEspecificas.SubModelo,
|
||||||
' concep.DescripcionesEspecificas.NumeroSerie)
|
concep.DescripcionesEspecificas.NumeroSerie)
|
||||||
' End If
|
End If
|
||||||
' Next
|
Next
|
||||||
|
|
||||||
' End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
' End If
|
End If
|
||||||
'End If
|
End If
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -2406,8 +2406,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div> </div>
|
||||||
</div>
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-12">
|
<div class="col-md-12">
|
||||||
<div class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
|
<div class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
|
||||||
@@ -2418,10 +2417,12 @@
|
|||||||
</div>
|
</div>
|
||||||
<div class="actions">
|
<div class="actions">
|
||||||
<div class="btn-group">
|
<div class="btn-group">
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="tools">
|
<div class="tools">
|
||||||
|
Emitir <asp:CheckBox ID="ChkEmitirComercioExterior" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkEmitirComercioExterior_CheckedChanged" AutoPostBack="true" />
|
||||||
<a href="javascript:;" onclick="CargaComercioExterior()" class="expand"></a>
|
<a href="javascript:;" onclick="CargaComercioExterior()" class="expand"></a>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -2429,6 +2430,16 @@
|
|||||||
<asp:UpdatePanel ID="UpComercioExterior" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="UpComercioExterior" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<div class="form-body">
|
<div class="form-body">
|
||||||
|
|
||||||
|
|
||||||
|
<%-- <div class="row rowpadding">
|
||||||
|
<label class="col-md-2">Emitir:</label>
|
||||||
|
<div class="col-md-10">
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<br /> --%>
|
||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<label class="col-md-2 form-group form-md-line-input">Tipo Operación:</label>
|
<label class="col-md-2 form-group form-md-line-input">Tipo Operación:</label>
|
||||||
<div class="col-md-3 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
|
<div class="col-md-3 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
|
||||||
|
|||||||
@@ -6334,6 +6334,10 @@ Partial Class Ventas
|
|||||||
LblTipoOperacion.Text = ObjCliente.ClaveSATTipoOperacionDescripcion
|
LblTipoOperacion.Text = ObjCliente.ClaveSATTipoOperacionDescripcion
|
||||||
LblClavePedimento.Text = ObjCliente.ClaveSATPedimentoDescripcion
|
LblClavePedimento.Text = ObjCliente.ClaveSATPedimentoDescripcion
|
||||||
|
|
||||||
|
If ObjCliente.AplicaComercioExterior Then
|
||||||
|
ChkEmitirComercioExterior.Checked = True
|
||||||
|
End If
|
||||||
|
|
||||||
If ObjCliente.AplicaComercioExterior Then
|
If ObjCliente.AplicaComercioExterior Then
|
||||||
DdlSATMotivoTraslado.DataSource = GlobalDTSATMotivoTraslado
|
DdlSATMotivoTraslado.DataSource = GlobalDTSATMotivoTraslado
|
||||||
DdlSATMotivoTraslado.DataBind()
|
DdlSATMotivoTraslado.DataBind()
|
||||||
@@ -11759,6 +11763,10 @@ Partial Class Ventas
|
|||||||
|
|
||||||
Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
|
Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
|
||||||
Dim Timbre As New CFDITimbre
|
Dim Timbre As New CFDITimbre
|
||||||
|
|
||||||
|
|
||||||
|
Timbre.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", "4.0", "3.3")
|
||||||
|
|
||||||
Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
|
Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
|
||||||
Timbre.Comprobante.Folio = Obj.Folio.ToString()
|
Timbre.Comprobante.Folio = Obj.Folio.ToString()
|
||||||
Timbre.Comprobante.Serie = Obj.Serie
|
Timbre.Comprobante.Serie = Obj.Serie
|
||||||
@@ -11967,104 +11975,121 @@ Partial Class Ventas
|
|||||||
i += 1
|
i += 1
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
|
Dim AplicaComercioExteriorSubProyecto As Boolean
|
||||||
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
|
|
||||||
If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
|
If ChkEmitirComercioExterior.Checked Then
|
||||||
'DATOS GENERALES
|
AplicaComercioExteriorSubProyecto = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
|
||||||
Timbre.Complementos.ComercioExterior11.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString()
|
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
|
||||||
Timbre.Complementos.ComercioExterior11.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString()
|
|
||||||
Timbre.Complementos.ComercioExterior11.CertificadoOrigen = "0"
|
If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
|
||||||
Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
|
'DATOS GENERALES
|
||||||
Timbre.Complementos.ComercioExterior11.Subdivision = "0"
|
|
||||||
Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString().ToDecimal)
|
Timbre.Comprobante.Exportacion = "02"
|
||||||
Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
|
Timbre.Complementos.ComercioExterior11.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString()
|
||||||
|
Timbre.Complementos.ComercioExterior11.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString()
|
||||||
|
Timbre.Complementos.ComercioExterior11.CertificadoOrigen = "0"
|
||||||
|
Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
|
||||||
|
Timbre.Complementos.ComercioExterior11.Subdivision = "0"
|
||||||
|
Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString().ToDecimal)
|
||||||
|
Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
|
||||||
|
|
||||||
|
|
||||||
'EMISOR
|
|
||||||
Dim Dr As DataRow
|
|
||||||
Dr = Nothing
|
|
||||||
If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
|
|
||||||
Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
|
|
||||||
End If
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.CURP = UsuarioActual.Empresa.CURP
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.Calle = Dr("Calle").ToString()
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.NumeroExterior = Dr("NoExt").ToString()
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.NumeroInterior = Dr("NoInt").ToString()
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.Colonia = Dr("ClaveSATColonia").ToString()
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.Localidad = ""
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString()
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.Estado = Dr("ClaveSATEstado").ToString()
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString()
|
|
||||||
Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString()
|
|
||||||
|
|
||||||
'RECEPTOR
|
'EMISOR
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib = "" ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
|
Dim Dr As DataRow
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.Calle = Obj.Cliente.Direccion
|
Dr = Nothing
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.NumeroExterior = Obj.Cliente.NoExt
|
If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.NumeroInterior = Obj.Cliente.NoInt
|
Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.Colonia = Obj.Cliente.ClaveSATColonia
|
End If
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.Localidad = ""
|
Timbre.Complementos.ComercioExterior11.Emisor.CURP = UsuarioActual.Empresa.CURP
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
|
Timbre.Complementos.ComercioExterior11.Emisor.Calle = Dr("Calle").ToString()
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.Municipio = Obj.Cliente.Ciudad
|
Timbre.Complementos.ComercioExterior11.Emisor.NumeroExterior = Dr("NoExt").ToString()
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.CP = Obj.Cliente.CP
|
Timbre.Complementos.ComercioExterior11.Emisor.NumeroInterior = Dr("NoInt").ToString()
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.Estado = Obj.Cliente.ClaveSATEstado
|
Timbre.Complementos.ComercioExterior11.Emisor.Colonia = Dr("ClaveSATColonia").ToString()
|
||||||
Timbre.Complementos.ComercioExterior11.Receptor.Pais = Obj.Cliente.ClaveSATPais
|
Timbre.Complementos.ComercioExterior11.Emisor.Localidad = ""
|
||||||
Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
|
Timbre.Complementos.ComercioExterior11.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString()
|
||||||
Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
|
Timbre.Complementos.ComercioExterior11.Emisor.Estado = Dr("ClaveSATEstado").ToString()
|
||||||
|
Timbre.Complementos.ComercioExterior11.Emisor.Pais = Dr("ClaveSATPais").ToString()
|
||||||
|
Timbre.Complementos.ComercioExterior11.Emisor.CP = Dr("ClaveSATCP").ToString()
|
||||||
|
|
||||||
Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
|
|
||||||
ComExtColonia = "" : ComExtMunicipio = ""
|
|
||||||
ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
|
|
||||||
ComExtCalle = TxtComExtCalle.Text.Trim
|
|
||||||
ComExtNumero = TxtComExtNumero.Text.Trim
|
|
||||||
ComExtCP = TxtComExtCP.Text.Trim
|
|
||||||
|
|
||||||
If ComExtPais = "MEX" Then
|
'RECEPTOR
|
||||||
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
|
Timbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
|
||||||
ComExtMunicipio = GlobalDTGralMunicipios(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
|
Timbre.Complementos.ComercioExterior11.Receptor.Calle = Obj.Cliente.Direccion
|
||||||
ComExtColonia = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=DdlComExtColonia.SelectedValue.ToEntero).FiltroPrimeroValor("ClaveSATColonia", "")
|
Timbre.Complementos.ComercioExterior11.Receptor.NumeroExterior = Obj.Cliente.NoExt
|
||||||
Else
|
Timbre.Complementos.ComercioExterior11.Receptor.NumeroInterior = Obj.Cliente.NoInt
|
||||||
If ComExtPais.Contiene("USA", "CAN") Then
|
Timbre.Complementos.ComercioExterior11.Receptor.Colonia = Obj.Cliente.ClaveSATColonia
|
||||||
|
Timbre.Complementos.ComercioExterior11.Receptor.Localidad = ""
|
||||||
|
Timbre.Complementos.ComercioExterior11.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
|
||||||
|
Timbre.Complementos.ComercioExterior11.Receptor.Municipio = Obj.Cliente.Ciudad
|
||||||
|
Timbre.Complementos.ComercioExterior11.Receptor.CP = Obj.Cliente.CP
|
||||||
|
Timbre.Complementos.ComercioExterior11.Receptor.Estado = Obj.Cliente.ClaveSATEstado
|
||||||
|
Timbre.Complementos.ComercioExterior11.Receptor.Pais = Obj.Cliente.ClaveSATPais
|
||||||
|
Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
|
||||||
|
Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib
|
||||||
|
|
||||||
|
Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
|
||||||
|
ComExtColonia = "" : ComExtMunicipio = ""
|
||||||
|
ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
|
||||||
|
ComExtCalle = TxtComExtCalle.Text.Trim
|
||||||
|
ComExtNumero = TxtComExtNumero.Text.Trim
|
||||||
|
ComExtCP = TxtComExtCP.Text.Trim
|
||||||
|
|
||||||
|
If ComExtPais = "MEX" Then
|
||||||
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
|
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
|
||||||
|
ComExtMunicipio = GlobalDTGralMunicipios(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
|
||||||
|
ComExtColonia = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=DdlComExtColonia.SelectedValue.ToEntero).FiltroPrimeroValor("ClaveSATColonia", "")
|
||||||
Else
|
Else
|
||||||
ComExtEstado = TxtComExtEstado.Text.Trim
|
If ComExtPais.Contiene("USA", "CAN") Then
|
||||||
|
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
|
||||||
|
Else
|
||||||
|
ComExtEstado = TxtComExtEstado.Text.Trim
|
||||||
|
End If
|
||||||
|
ComExtMunicipio = TxtComExtMunicipio.Text.Trim
|
||||||
|
ComExtColonia = TxtComExtColonia.Text.Trim
|
||||||
End If
|
End If
|
||||||
ComExtMunicipio = TxtComExtMunicipio.Text.Trim
|
|
||||||
ComExtColonia = TxtComExtColonia.Text.Trim
|
'DESTINATARIO
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = TxtDestinatarioNombre.Text.Trim
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.Calle = ComExtCalle
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = ComExtNumero
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ComExtColonia
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = ""
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = Obj.Cliente.ReferenciaFiscal
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = ComExtMunicipio
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.CP = ComExtCP
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.Estado = ComExtEstado
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.Pais = ComExtPais
|
||||||
|
Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = TxtNumRegIdTrib.Text.Trim
|
||||||
|
|
||||||
|
|
||||||
|
'MERCANCIAS
|
||||||
|
For Each Gvr As GridViewRow In GvComercioExterior.Rows
|
||||||
|
Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,
|
||||||
|
.FraccionArancelaria = Gvr.DataKey("ClaveSATFraccionArancelaria").ToString(),
|
||||||
|
.UnidadAduana = Gvr.DataKey("ClaveSATUnidadAduana").ToString(),
|
||||||
|
.ValorDolares = Math.Round(Gvr.FCTextBox("TxtCantidad").Text.ToDecimal * Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal, 2),
|
||||||
|
.ValorUnitarioAduana = Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal,
|
||||||
|
.NoIdentificacion = Gvr.DataKey("Codigo")}
|
||||||
|
If Gvr.FCTextBox("TxtMarca").Text <> "" Then
|
||||||
|
mercancia.DescripcionesEspecificas.Marca = Gvr.FCTextBox("TxtMarca").Text
|
||||||
|
End If
|
||||||
|
|
||||||
|
Timbre.Complementos.ComercioExterior11.Mercancias.Add(mercancia)
|
||||||
|
i += 1
|
||||||
|
Next
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'DESTINATARIO
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = TxtDestinatarioNombre.Text.Trim
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.Calle = ComExtCalle
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = ComExtNumero
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ComExtColonia
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = ""
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = Obj.Cliente.ReferenciaFiscal
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = ComExtMunicipio
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.CP = ComExtCP
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.Estado = ComExtEstado
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.Pais = ComExtPais
|
|
||||||
Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = TxtNumRegIdTrib.Text.Trim
|
|
||||||
|
|
||||||
|
Else
|
||||||
'MERCANCIAS
|
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
|
||||||
For Each Gvr As GridViewRow In GvComercioExterior.Rows
|
|
||||||
Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,
|
|
||||||
.FraccionArancelaria = Gvr.DataKey("ClaveSATFraccionArancelaria").ToString(),
|
|
||||||
.UnidadAduana = Gvr.DataKey("ClaveSATUnidadAduana").ToString(),
|
|
||||||
.ValorDolares = Math.Round(Gvr.FCTextBox("TxtCantidad").Text.ToDecimal * Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal, 2),
|
|
||||||
.ValorUnitarioAduana = Gvr.FCTextBox("TxtValorUnitario").Text.ToDecimal,
|
|
||||||
.NoIdentificacion = Gvr.DataKey("Codigo")}
|
|
||||||
If Gvr.FCTextBox("TxtMarca").Text <> "" Then
|
|
||||||
mercancia.DescripcionesEspecificas.Marca = Gvr.FCTextBox("TxtMarca").Text
|
|
||||||
End If
|
|
||||||
|
|
||||||
Timbre.Complementos.ComercioExterior11.Mercancias.Add(mercancia)
|
|
||||||
i += 1
|
|
||||||
Next
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Return Timbre
|
Return Timbre
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
@@ -35005,5 +35030,10 @@ Partial Class Ventas
|
|||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
Protected Sub ChkEmitirComercioExterior_CheckedChanged(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user