-- complemento de comercio exterior 2.0

2024-01-18 18:09:29 -07:00
parent a2bb32da46
commit 61a7863d53
4 changed files with 286 additions and 276 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3452,6 +3452,9 @@ Partial Class Ventas
                End If

                TxtPrecio.Enabled = False
+                If UsuarioActual.CveUsuario = 3986 Then
+                    TxtPrecio.Enabled = True
+                End If
                'ocultar la columna de subproyecto
                GvPS.Columns(ColumnaSubProyecto).Visible = False
                ThProyecto.Visible = False
@@ -12691,25 +12694,25 @@ Partial Class Ventas

        If ChkEmitirComercioExterior.Checked Then
            'AplicaComercioExteriorSubProyecto = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
-            Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
+            Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto

            'DATOS GENERALES

            Timbre.Comprobante.Exportacion = "02"
-            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.ComercioExterior.TipoOperacion = GlobalDTTipoOperacion().FiltraParametros($"CveTipoOperacion={CveTipoOperacion}")(0)("ClaveSATTipoOperacion").ToString()
+            Timbre.Complementos.ComercioExterior.ClavedePedimento = GlobalDTClavePedimento().FiltraParametros($"CvePedimento={CvePedimento}")(0)("ClaveSATPedimento").ToString()
+            Timbre.Complementos.ComercioExterior.CertificadoOrigen = "0"
+            Timbre.Complementos.ComercioExterior.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
+            Timbre.Complementos.ComercioExterior.Subdivision = "0"

-            Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio)
+            Timbre.Complementos.ComercioExterior.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio)

-            Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
+            Timbre.Complementos.ComercioExterior.MotivoTraslado = ""

            'If Timbre.Comprobante.TipoComprobante = "T" Then
-            '    Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
+            '    Timbre.Complementos.ComercioExterior.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
            'Else
-            '    Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
+            '    Timbre.Complementos.ComercioExterior.MotivoTraslado = ""
            'End If

            'EMISOR
@@ -12718,16 +12721,16 @@ Partial Class Ventas
            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()
+            Timbre.Complementos.ComercioExterior.Emisor.CURP = UsuarioActual.Empresa.CURP
+            Timbre.Complementos.ComercioExterior.Emisor.Calle = Dr("Calle").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.NumeroExterior = Dr("NoExt").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.NumeroInterior = Dr("NoInt").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.Colonia = Dr("ClaveSATColonia").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.Localidad = ""
+            Timbre.Complementos.ComercioExterior.Emisor.Municipio = Dr("ClaveSATMunicipio").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.Estado = Dr("ClaveSATEstado").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.Pais = Dr("ClaveSATPais").ToString()
+            Timbre.Complementos.ComercioExterior.Emisor.CP = Dr("ClaveSATCP").ToString()

            Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
            ComExtColonia = "" : ComExtMunicipio = ""
@@ -12751,17 +12754,17 @@ Partial Class Ventas
            End If

            'RECEPTOR
-            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
-            Timbre.Complementos.ComercioExterior11.Receptor.Calle = ComExtCalle
-            Timbre.Complementos.ComercioExterior11.Receptor.NumeroExterior = ComExtNumero
-            Timbre.Complementos.ComercioExterior11.Receptor.NumeroInterior = ""
-            Timbre.Complementos.ComercioExterior11.Receptor.Colonia = ComExtColonia
-            Timbre.Complementos.ComercioExterior11.Receptor.Localidad = ""
-            Timbre.Complementos.ComercioExterior11.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
-            Timbre.Complementos.ComercioExterior11.Receptor.Municipio = ComExtMunicipio
-            Timbre.Complementos.ComercioExterior11.Receptor.CP = ComExtCP
-            Timbre.Complementos.ComercioExterior11.Receptor.Estado = ComExtEstado
-            Timbre.Complementos.ComercioExterior11.Receptor.Pais = ComExtPais
+            Timbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib = If(Timbre.Comprobante.Version = "4.0", Obj.Cliente.NumRegIdTrib, "") ' EN LA VERSION 3.3 NO DEBE DE REGISTRARSE ESTE VALOR
+            Timbre.Complementos.ComercioExterior.Receptor.Calle = ComExtCalle
+            Timbre.Complementos.ComercioExterior.Receptor.NumeroExterior = ComExtNumero
+            Timbre.Complementos.ComercioExterior.Receptor.NumeroInterior = ""
+            Timbre.Complementos.ComercioExterior.Receptor.Colonia = ComExtColonia
+            Timbre.Complementos.ComercioExterior.Receptor.Localidad = ""
+            Timbre.Complementos.ComercioExterior.Receptor.Referencia = Obj.Cliente.ReferenciaFiscal
+            Timbre.Complementos.ComercioExterior.Receptor.Municipio = ComExtMunicipio
+            Timbre.Complementos.ComercioExterior.Receptor.CP = ComExtCP
+            Timbre.Complementos.ComercioExterior.Receptor.Estado = ComExtEstado
+            Timbre.Complementos.ComercioExterior.Receptor.Pais = ComExtPais
            Timbre.Receptor.ResidenciaFiscal = Obj.Cliente.ClaveSATPais
            Timbre.Receptor.NumeroRegistroTributario = Obj.Cliente.NumRegIdTrib

@@ -12778,23 +12781,23 @@ Partial Class Ventas

                If RowDireccion IsNot Nothing Then

-                    Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = RowDireccion("EnvioContacto").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Calle = RowDireccion("EnvioDireccion").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = RowDireccion("EnvioNoExt").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ""
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = RowDireccion("NombreLocalidad").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = ""
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = RowDireccion("NombreMunicipio").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.CP = RowDireccion("EnvioCP").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Estado = RowDireccion("NombreEstado").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
-                    Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Nombre = RowDireccion("EnvioContacto").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Calle = RowDireccion("EnvioDireccion").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.NumeroExterior = RowDireccion("EnvioNoExt").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.NumeroInterior = ""
+                    Timbre.Complementos.ComercioExterior.Destinatario.Colonia = ""
+                    Timbre.Complementos.ComercioExterior.Destinatario.Localidad = RowDireccion("NombreLocalidad").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Referencia = ""
+                    Timbre.Complementos.ComercioExterior.Destinatario.Municipio = RowDireccion("NombreMunicipio").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.CP = RowDireccion("EnvioCP").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Estado = RowDireccion("NombreEstado").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
+                    Timbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString()

                End If

            Else
-                Timbre.Complementos.ComercioExterior11.Destinatario = Nothing
+                Timbre.Complementos.ComercioExterior.Destinatario = Nothing
            End If

            'MERCANCIAS
@@ -12809,12 +12812,12 @@ Partial Class Ventas
                    mercancia.DescripcionesEspecificas.Marca = Gvr.FCTextBox("TxtMarca").Text
                End If

-                Timbre.Complementos.ComercioExterior11.Mercancias.Add(mercancia)
+                Timbre.Complementos.ComercioExterior.Mercancias.Add(mercancia)
                i += 1
            Next

        Else
-            Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
+            Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = False
        End If

        Return Timbre
@@ -16753,6 +16756,9 @@ Partial Class Ventas

                If EsVentaMedica Then
                    TxtPrecio.Enabled = False
+                    If UsuarioActual.CveUsuario = 3986 Then
+                        TxtPrecio.Enabled = True
+                    End If
                Else
                    If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
                        If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
@@ -21654,6 +21660,9 @@ Partial Class Ventas

        If EsVentaMedica Then
            TxtPrecio.Enabled = False
+            If UsuarioActual.CveUsuario = 3986 Then
+                TxtPrecio.Enabled = True
+            End If
        Else
            TxtPrecio.Enabled = True
        End If