Cambios en direcciones de envio

2021-12-27 16:42:37 -07:00
parent 06a5884aa6
commit 6c6bf9246f
2 changed files with 305 additions and 73 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6342,11 +6342,18 @@ Partial Class Ventas
                            'RBLPago.Items(0).Enabled = False
                            RBLPago_SelectedIndexChanged(Nothing, Nothing)
                            UPCondicionesPago.Update()
-                            DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
-                            DdlTipoComprobante.SelectedValue = "PA"
+
+                            If Not EsCreaApartirDe AndAlso (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then
+                                DdlTipoComprobante.SelectedValueExist("Cot")
+                            Else
+                                DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
+                                DdlTipoComprobante.SelectedValue = "PA"
+                            End If
+
                            TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
                            'si  llegó por la opción de cotización no debe de restringuir
                            If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then DdlTipoComprobante.SelectedValue = "Cot"
+
                            'quito remisión y factura
                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
                            If Not UsuarioActual.TienePermisoProceso(325) Then
@@ -6355,7 +6362,7 @@ Partial Class Ventas
                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))

                            'SI ES AUTORIZACION DEBE PERMITIR GENERARLA
-                            If Opcion = 1 AndAlso (Not DdlTipoComprobante.SelectedValue.Contiene("PA")) Then
+                            If (Not DdlTipoComprobante.SelectedValue.Contiene("PA")) Then
                                BtnEmitirImprimir.Visible = False
                                BtnsFacturar.Visible = False
                                LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
@@ -6365,6 +6372,8 @@ Partial Class Ventas
                                LnkOCs.Visible = False
                            End If

+
+
                        Else
                            ' el cliente tiene crédito disponible, no tiene bloqueo
                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA"))
@@ -10744,7 +10753,7 @@ Partial Class Ventas
        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-        Timbre.Comprobante.Subtotal = Obj.SubTotal
+        Timbre.Comprobante.SubTotal = Obj.SubTotal
        Timbre.Comprobante.Descuentos = Obj.Descuento
        Timbre.Comprobante.Moneda = Obj.MonedaSAT
        Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString())
@@ -11277,7 +11286,7 @@ Partial Class Ventas
                    DdlTipoComprobante.Enabled = False
                End If

-                Tab.ActiveTab = TabGenerales
+                TAB.ActiveTab = TabGenerales
                TabGenerales.Enabled = True
                Updatetabs.Update()
                UPObservaciones.Update()
@@ -11343,7 +11352,7 @@ Partial Class Ventas
            ContratoDetalles.Visible = False
            UPEstimaciones.Update()

-            Tab.ActiveTab = TabGenerales
+            TAB.ActiveTab = TabGenerales
            TabGenerales.Enabled = True
            Updatetabs.Update()
        End If
@@ -16269,7 +16278,7 @@ Partial Class Ventas
        If objcompras.GetCompraDetallealmacen(0, DdlNCFactura.SelectedValue.ToEntero()) Then
            GvInvNC.DataSource = objcompras.DtResultados
            If objcompras.DtResultados.Rows.Count > 0 Then
-                Tab.ActiveTabIndex = 1
+                TAB.ActiveTabIndex = 1
                Updatetabs.Update()
            End If
        Else
@@ -16548,7 +16557,7 @@ Partial Class Ventas

                End If
                UpParametros.Update()
-                Tab.ActiveTab = TabGenerales
+                TAB.ActiveTab = TabGenerales
            Else
                Alert("La empresa no contiene un producto asignado a la estimació", TipoMensaje.MsgInformacion)
            End If
@@ -21838,40 +21847,199 @@ Partial Class Ventas
        Dim TieneError = False
        Dim CveDireccionEnvio As Integer

-        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtCP.Text.ToEntero(), TxtContacto.Text.Trim, UsuarioActual.CveUsuario, 1, CveClienteSucursal:=CveClienteSucursal, EnvioDepartamento:=If(TxtDepartamento.Text.Trim = "", "-1", TxtDepartamento.Text.Trim))
+        CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, DdlDirClienteColonia.SelectedItem.Text.Trim, DdlDirClienteMunicipio.SelectedItem.Text.Trim, DdlDirClienteEstado.SelectedItem.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, 1, CveClienteSucursal:=CveClienteSucursal, EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
+        CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero)

        If CveDireccionEnvio < 0 Then
            TieneError = True
        End If

        If Not TieneError Then
-            TxtDireccion.Text = ""
-            TxtColonia.Text = ""
-            TxtCiudad.Text = ""
-            TxtEstado.Text = ""
-            TxtCP.Text = ""
-            TxtNoExt.Text = ""
-            TxtNoInt.Text = ""
-            TxtContacto.Text = ""
-            TxtDepartamento.Text = ""
+            'TxtDireccion.Text = ""
+            'TxtColonia.Text = ""
+            'TxtCiudad.Text = ""
+            'TxtEstado.Text = ""
+            'TxtCP.Text = ""
+            'TxtNoExt.Text = ""
+            'TxtNoInt.Text = ""
+            'TxtContacto.Text = ""
+            'TxtDepartamento.Text = ""
+            TxtEnvioDireccion.Text = ""
+            TxtEnvioNoExt.Text = ""
+            TxtEnvioNoInt.Text = ""
+            DdlDirClienteEstado.SelectedValueExist("-1")
+            DdlDirClienteMunicipio.SelectedValueExist("-1")
+            DdlDirClienteColonia.SelectedValueExist("-1")
+            'TxtEnvioColonia.Text = ""
+            'TxtEnvioCiudad.Text = ""
+            'TxtEnvioEstado.Text = ""
+            TxtEnvioContacto.Text = ""
+            TxtEnvioCP.Text = ""
+            TxtEnvioTel.Text = ""
            CargaDireccionesEnvio()
            DdlDireccionEnvio.SelectedValueExist(CveDireccionEnvio)
        End If

        ObjClientes.Dispose()
-        RegistraScript("$('#divAddDireccionEnvio').modal('hide');LimpiaModal();")
+        RegistraScript("$('#divAddDireccionEnvio').modal('hide');")
    End Sub
    Private Sub LnkOtraDireccion_Click(sender As Object, e As EventArgs) Handles LnkOtraDireccion.Click
-        TxtDireccion.Text = LblDireccion.Text.Trim
-        TxtNoExt.Text = CliNoExt.Trim
-        TxtNoInt.Text = CliNoInt.Trim
-        TxtColonia.Text = LblColonia.Text.Trim
-        TxtCiudad.Text = LblCiudad.Text.Trim
-        TxtEstado.Text = LblEstado.Text.Trim
-        TxtCP.Text = LblCP.Text.Trim
+        'TxtDireccion.Text = LblDireccion.Text.Trim
+        'TxtNoExt.Text = CliNoExt.Trim
+        'TxtNoInt.Text = CliNoInt.Trim
+        'TxtColonia.Text = LblColonia.Text.Trim
+        'TxtCiudad.Text = LblCiudad.Text.Trim
+        'TxtEstado.Text = LblEstado.Text.Trim
+        'TxtCP.Text = LblCP.Text.Trim
+        CargaCombosDirecionesClientesSAT()
+
+
+        Dim DtDireccionEnvio As DataTable = Nothing
+        Dim ObjClientes As New ClsClientes
+        If ObjClientes.DireccionEnvioGet(DdlDireccionEnvio.SelectedValue.ToEntero(), CveCliente, CveClienteSucursal) Then
+            DtDireccionEnvio = ObjClientes.DtResultados
+        End If
+        ObjClientes.Dispose()
+
+        If DtDireccionEnvio IsNot Nothing And DtDireccionEnvio.Rows.Count > 0 Then
+            Dim Dr As DataRow = DtDireccionEnvio.Rows(0)
+
+            TxtEnvioDireccion.Text = Dr("EnvioDireccion").ToString()
+            TxtEnvioNoExt.Text = Dr("EnvioNoExt").ToString()
+            TxtEnvioNoInt.Text = Dr("EnvioNoInt").ToString()
+
+            TxtEnvioContacto.Text = Dr("EnvioContacto").ToString()
+            TxtEnvioCP.Text = Dr("EnvioCP").ToString()
+            TxtEnvioTel.Text = Dr("EnvioTel").ToString()
+
+            DdlDirClientePais.SelectedValueExist(Dr("CvePais"))
+            CargaDirClienteEstado()
+            DdlDirClienteEstado.SelectedValueExist(Dr("CveEstado"))
+            CargaDirClienteMunicipio()
+            DdlDirClienteMunicipio.SelectedValueExist(Dr("CveMunicipio"))
+            CargaDirClienteColonia()
+            DdlDirClienteLocalidad.SelectedValueExist(Dr("CveLocalidad"))
+            CargaDirClienteLocalidad()
+
+            DdlDirClienteColonia.SelectedValueExist(Dr("CveColonia"))
+        Else
+            TxtEnvioDireccion.Text = LblDireccion.Text.Trim
+            TxtEnvioNoExt.Text = CliNoExt.Trim
+            TxtEnvioNoInt.Text = CliNoInt.Trim
+            DdlDirClienteEstado.SelectedValueExist("-1")
+            DdlDirClienteMunicipio.SelectedValueExist("-1")
+            DdlDirClienteColonia.SelectedValueExist("-1")
+
+            'TxtEnvioColonia.Text = LblColonia.Text.Trim
+            'TxtEnvioCiudad.Text = LblCiudad.Text.Trim
+            'TxtEnvioEstado.Text = LblEstado.Text.Trim
+            TxtEnvioContacto.Text = ""
+            TxtEnvioCP.Text = LblCP.Text.Trim
+            TxtEnvioTel.Text = ""
+        End If
+
+
        UpBodyDireccion.Update()
        RegistraScript("$('#divAddDireccionEnvio').modal();")
    End Sub
+
+#Region "D I R E C C I O N   E N V I O - C O M B O S"
+    Protected Sub BtnDirClienteValidar_Click(sender As Object, e As EventArgs)
+        DirClientevalidaCodigoPostal()
+    End Sub
+    Private Sub CargaCombosDirecionesClientesSAT()
+        CargaDirClientePais()
+        CargaDirClienteEstado()
+        CargaDirClienteMunicipio()
+        CargaDirClienteLocalidad()
+        CargaDirClienteColonia()
+    End Sub
+
+    Private Sub CargaDirClientePais()
+
+        DdlDirClientePais.DataSource = GlobalDTGralPaises()
+        DdlDirClientePais.DataBind()
+        DdlDirClientePais.SelectedValueExist("151")
+    End Sub
+
+    Private Sub CargaDirClienteEstado()
+        DdlDirClienteEstado.Items.Clear()
+        If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero)
+        End If
+        DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteEstado.DataBind()
+    End Sub
+
+    Private Sub CargaDirClienteColonia()
+        DdlDirClienteColonia.Items.Clear()
+        If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", DdlDirClienteMunicipio.SelectedValue.ToEntero, CodigoPostal:=If(TxtEnvioCP.Text.Trim.Length > 0, TxtEnvioCP.Text.ToEntero, -1))
+        End If
+        DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteColonia.DataBind()
+    End Sub
+
+
+    Protected Sub CargaDirClienteLocalidad()
+
+        DdlDirClienteLocalidad.Items.Clear()
+        If DdlEstadoSAT.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteLocalidad.DataSource = GlobalDTLocalidad(DdlDirClienteEstado.SelectedValue.ToEntero, DdlDirClienteMunicipio.SelectedValue.ToEntero)
+            DdlDirClienteLocalidad.DataBind()
+        End If
+
+        DdlDirClienteLocalidad.Items.Insert(0, New ListItem("Seleccione una", "-1"))
+
+    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
+
+    Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteEstado()
+        CargaDirClienteMunicipio()
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+    Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteMunicipio()
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+
+    Protected Sub DdlDirClienteMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+
+    Protected Sub DdlDirClienteColonia_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DirClientevalidaCodigoPostal()
+    End Sub
+
+    Private Sub DirClientevalidaCodigoPostal()
+
+        Dim CPTxt As Integer = TxtEnvioCP.Text.ToEntero()
+
+        Dim CveColonia As Integer = DdlDirClienteColonia.SelectedValue.ToEntero
+
+        If CPTxt > 0 And CveColonia > 0 Then
+            Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero
+            If CPTxt <> CP Then
+                Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+
+    End Sub
+
+#End Region
+
 #End Region

 #Region "  CARGA  FACTURA OC  "
@@ -22946,7 +23114,7 @@ Partial Class Ventas
                DdlContratosModal.Items.Insert(0, New ListItem("Seleccione", "0"))
                UPEstimaciones.Update()

-                Tab.ActiveTab = TabE
+                TAB.ActiveTab = TabE
                TabGenerales.Enabled = False
                Updatetabs.Update()

@@ -29133,7 +29301,7 @@ Partial Class Ventas
        ContratoDetalles.Visible = False
        UPEstimaciones.Update()

-        Tab.ActiveTab = TabGenerales
+        TAB.ActiveTab = TabGenerales
        TabGenerales.Enabled = True
        Updatetabs.Update()

@@ -29694,7 +29862,7 @@ Partial Class Ventas
        DdlMonedaModalPedido2.DataBind()
        DdlMonedaModalPedido2.Items.Insert(0, New ListItem("Todas", "-1"))

-        Tab.ActiveTab = TabGenerales
+        TAB.ActiveTab = TabGenerales
        TabGenerales.Enabled = True
        Updatetabs.Update()