unificación de GlobalDT Estados,Municipios

cambios en para carta porte
2021-12-12 09:12:20 -07:00
parent d58d6d0451
commit 09365748de
21 changed files with 215 additions and 277 deletions
--- a/Ventas/AuxiliarCliente.aspx.vb
+++ b/Ventas/AuxiliarCliente.aspx.vb
@@ -100,7 +100,7 @@ Partial Class Ventas_AuxiliarCliente
    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
    End Sub
    Public Sub ExportToExcelGTest(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing)
-        ExportToExcelGembox(Gv, NombreArchivoXLSx, Usuario, txtFechaI.Text, txtFechaF.Text, Titulo, "", 1)
+        ExportToExcelGembox(Gv, NombreArchivoXLSx, Usuario, Titulo)

    End Sub
    Protected Sub GvAuxCliente_RowDataBound(sender As Object, e As GridViewRowEventArgs)
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -997,7 +997,7 @@ Partial Class Clientes
    Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")

        DdlEstadoSAT.Items.Clear()
-        DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+        DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)

        DdlEstadoSAT.DataBind()
        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -4388,21 +4388,12 @@ Partial Class Clientes
    Private Sub CargaDirClienteEstado()
        DdlDirClienteEstado.Items.Clear()
        If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
-            DdlDirClienteEstado.DataSource = GlobalDTEstado(GlobalDTGralPaises.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString)
+            DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero)
        End If
        DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlDirClienteEstado.DataBind()
-    End Sub
-
-    Private Sub CargaDirClienteMunicipio()
-        DdlDirClienteMunicipio.Items.Clear()
-        If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
-            DdlDirClienteMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTGralPaises.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlDirClienteEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString)
-        End If
-        DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlDirClienteMunicipio.DataBind()
-    End Sub
-
+    End Sub
+
    Private Sub CargaDirClienteColonia()
        DdlDirClienteColonia.Items.Clear()
        If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
@@ -4498,7 +4489,7 @@ Partial Class Clientes
        ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)
        If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
        UpAddDireccion.Update()
-        RegistraScript("$('#divAddDireccionEnvio').modal();")
+        RegistraScript("$('#divAddDireccionEnvio').modal();")
    End Sub
    Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
        Dim ObjClientes As New ClsClientes
@@ -6936,16 +6927,25 @@ Partial Class Clientes
    Private Sub CargaEstado()
        DdlEstado.Items.Clear()
        If DdlPais.SelectedValue.ToEntero() > 0 Then
-            DdlEstado.DataSource = GlobalDTEstado(GlobalDTGralPaises.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString())
+            DdlEstado.DataSource = GlobalDTGralEstados("-1", DdlPais.SelectedValue.ToEntero())
        End If
        DdlEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlEstado.DataBind()
    End Sub

+    Private Sub CargaDirClienteMunicipio()
+        DdlDirClienteMunicipio.Items.Clear()
+        If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero)
+        End If
+        DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteMunicipio.DataBind()
+    End Sub
+
    Private Sub CargaMunicipio()
        DdlMunicipio.Items.Clear()
        If DdlEstado.SelectedValue.ToEntero() > 0 Then
-            DdlMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTGralPaises.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString())
+            DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlEstado.SelectedValue.ToEntero())
        End If
        DdlMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlMunicipio.DataBind()
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2456,7 +2456,7 @@ Partial Class PV
    Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")

        DdlEstadoSAT.Items.Clear()
-        DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+        DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)

        DdlEstadoSAT.DataBind()
        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4074,7 +4074,7 @@ Partial Class Ventas
    Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")

        DdlEstadoSAT.Items.Clear()
-        DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+        DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)

        DdlEstadoSAT.DataBind()
        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -8712,7 +8712,10 @@ Partial Class Ventas
                                    Dim TmpDT7Eleven As New DataTable
                                    Dim TmpDTComplementosTimbrado As New DataTable

-                                    PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
+                                    If AplicaFEMSA Then
+                                        PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
+                                    End If
+
                                    'DOCUMENTO ACTUAL
                                    If DebeTimbrar Then
                                        SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
@@ -9807,7 +9810,7 @@ Partial Class Ventas

        'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text)
        'ObjFactura.PedidoContrato = TxtPedidoContrato.Text.Trim
-        ObjFactura.AtnA = TxtAtencionA.Text
+        ObjFactura.AtencionA = TxtAtencionA.Text
        ObjFactura.FordGSDB = ""

        ObjFactura.NumeroContrato = NumeroContrato
@@ -10979,18 +10982,18 @@ Partial Class Ventas

            Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
            ComExtColonia = "" : ComExtMunicipio = ""
-            ComExtPais = GlobalDTPais.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
+            ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
            ComExtCalle = TxtComExtCalle.Text.Trim
            ComExtNumero = TxtComExtNumero.Text.Trim
            ComExtCP = TxtComExtCP.Text.Trim

            If ComExtPais = "MEX" Then
-                ComExtEstado = GlobalDTEstado(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
-                ComExtMunicipio = GlobalDTMunicipio(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
-                ComExtColonia = GlobalDTColonia(ComExtMunicipio).FiltroPrimeroValor("ClaveSATColonia", $"CveColonia={DdlComExtColonia.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
                If ComExtPais.Contiene("USA", "CAN") Then
-                    ComExtEstado = GlobalDTEstado(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
+                    ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
                Else
                    ComExtEstado = TxtComExtEstado.Text.Trim
                End If
@@ -15086,10 +15089,15 @@ Partial Class Ventas
                    ErrorConta = True
                End If

+                If Not ErrorConta AndAlso Not ObjConta.PrePolizaSimplificacion(ObjFactura.CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                    Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+                End If
+
                If ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then
                    If ObjConta.ValorPolizaDescuadre > 0 Then
                        GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrepoliza}", "LogPrePolizas")
                        ErrorConta = True
+
                    End If
                End If

@@ -27948,7 +27956,7 @@ Partial Class Ventas
 #Region "Comercio Exterior"
    Private Sub CargaPais()
        DdlComExtPais.Items.Clear()
-        DdlComExtPais.DataSource = GlobalDTPais()
+        DdlComExtPais.DataSource = GlobalDTGralPaises()
        DdlComExtPais.DataBind()
        DdlComExtPais.SelectedValueExist("151")
    End Sub
@@ -27956,7 +27964,7 @@ Partial Class Ventas
    Private Sub CargaEstado()
        DdlComExtEstado.Items.Clear()
        If DdlComExtPais.SelectedValue.ToEntero() > 0 Then
-            DdlComExtEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString())
+            DdlComExtEstado.DataSource = GlobalDTGralEstados("-1", CvePais:=DdlComExtPais.SelectedValue.ToEntero)(0)("ClaveSATPais").ToString()
        End If
        DdlComExtEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlComExtEstado.DataBind()
@@ -27965,7 +27973,7 @@ Partial Class Ventas
    Private Sub CargaMunicipio()
        DdlComExtMunicipio.Items.Clear()
        If DdlComExtEstado.SelectedValue.ToEntero() > 0 Then
-            DdlComExtMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString())
+            DdlComExtMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlComExtEstado.SelectedValue.ToEntero())
        End If
        DdlComExtMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlComExtMunicipio.DataBind()
@@ -27975,7 +27983,7 @@ Partial Class Ventas
    Private Sub CargaColonia()
        DdlComExtColonia.Items.Clear()
        If DdlComExtMunicipio.SelectedValue.ToEntero() > 0 Then
-            DdlComExtColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString()).FiltraParametros($"CveMunicipio = {DdlComExtMunicipio.SelectedValue.ToEntero()}")(0)("ClaveSATMunicipio").ToString())
+            DdlComExtColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", CveMunicipio:=DdlComExtMunicipio.SelectedValue.ToEntero)
        End If
        DdlComExtColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlComExtColonia.DataBind()