From 594a9977f7743e851fc0e26b8c9d72939cc1eb37 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 24 Dec 2024 10:23:19 -0700 Subject: [PATCH] =?UTF-8?q?Manejo=20de=20p=C3=BAblico=20general.=20alta=20?= =?UTF-8?q?r=C3=A1pida=20de=20cliente,=20en=20Ventas.aspx,=20tomando=20en?= =?UTF-8?q?=20cuenta=20los=20datos=20de=20la=20sucursal=20cuando=20es=20rf?= =?UTF-8?q?c=20gen=C3=A9rico.=20y=20b=C3=BAscar=20RFC/Nombre,=20y=20si=20h?= =?UTF-8?q?ay=20una=20sola=20coincidencia,=20cerrar=20modal,=20=20si=20hay?= =?UTF-8?q?=20varias=20seleccionar=20el=20cliente,=20sino=20hay=20ninguna?= =?UTF-8?q?=20poner=20la=20opci=C3=B3n=20de=20crear=20nuevo,=20(sugiriendo?= =?UTF-8?q?=20datos=20de=20la=20sucursal)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 74 +++++++++++++++++++++++++++++++++---------- Ventas/Ventas.aspx.vb | 73 ++++++++++++++++++++++++++++++++++++++++-- 2 files changed, 128 insertions(+), 19 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 56cb30369..317269edc 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -405,9 +405,9 @@ - + - + @@ -944,7 +944,7 @@ - + Se timbró:  @@ -1094,8 +1094,8 @@ P.U.  - - Costo
+ Costo +
Utilidad Desc @@ -1413,7 +1413,7 @@ <%--10--%> - +
@@ -1971,23 +1971,23 @@ - + - + - - - - - - - + + + + + + + @@ -8207,7 +8207,7 @@
-
+
@@ -8221,6 +8221,46 @@
+
+
+ +
+ + +
+
+ +
+ +
+
+
+
+ + + + Código + + + + + + Nombre + + + + + + RFC + + + + + + +
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 547a40cf8..7cb04a346 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -25204,17 +25204,71 @@ Partial Class Ventas DivFormaCliente.Visible = False divRegimenCliente.Visible = False divGiro.Visible = False - UpAgregarCliente.Update() + DivBusquedaCliente.Visible = False + CargaEstados() - TxtRFCCliente.Focus() If UsuarioActual.CveEmpresa = 189 Then + TxtRFCNombre.Text = "" + + DivValidaRFC.Visible = False + DivValidaPorNombre.Visible = True CargaGiro() + + TxtRFCNombre.Focus() + Else + DivValidaRFC.Visible = True + DivValidaPorNombre.Visible = False + + TxtRFCCliente.Focus() End If + UpAgregarCliente.Update() + RegistraScript("showDivEC();") End Sub + Protected Sub GvBusquedaCliente_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBusquedaCliente.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left + Dim Liga As String = String.Format("", e.Row.DBCampo("CveCliente")) + + e.Row.FCLiteral("LtlCodigo").Text = String.Format("
{0}{1}
", Liga, e.Row.DBCampo("Codigo")) + e.Row.FCLiteral("LtlNombre").Text = String.Format("
{0}{1}
", Liga, e.Row.DBCampo("NombreComercial")) + e.Row.FCLiteral("LtlRFC").Text = String.Format("
{0}{1}
", Liga, e.Row.DBCampo("RFC")) + End If + + End Sub + + Private Sub BtnValidaPorNombre_Click(sender As Object, e As EventArgs) Handles BtnValidaPorNombre.Click + Dim ObjCliente As New ClsClientes + If ObjCliente.BuscarClienteRFCNombre(TxtRFCNombre.Text, UsuarioActual.CveEmpresa) Then + If ObjCliente.DtResultados.Rows.Count = 1 AndAlso TxtRFCNombre.Text.Trim() <> "XAXX010101000" Then + RegistraScript("hideDivEC();") + ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString().ToEntero() + HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString() + CargaCliente(CveCliente) + UpCliente.Update() + + ElseIf ObjCliente.DtResultados.Rows.Count > 0 AndAlso TxtRFCNombre.Text.Trim() <> "XAXX010101000" Then + DivBusquedaCliente.Visible = True + GvBusquedaCliente.DataSource = ObjCliente.DtResultados + GvBusquedaCliente.DataBind() + + Else + DivValidaRFC.Visible = True + DivValidaPorNombre.Visible = False + DivBusquedaCliente.Visible = False + TxtRFCCliente.Text = TxtRFCNombre.Text + BtnValidarRFC_Click(Nothing, EventArgs.Empty) + End If + End If + ObjCliente.Dispose() + + UpAgregarCliente.Update() + End Sub + Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then @@ -25291,6 +25345,21 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 189 Then divGiro.Visible = True + + Dim DrSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("") + If DrSP IsNot Nothing Then + + DdlEstadoSAT.SelectedValueExist(DrSP("CveEstado").ToString()) + TxtCiudadCliente.Text = DrSP("Municipio").ToString() + TxtLocalidadCliente.Text = DrSP("Localidad").ToString() + TxtColoniaCliente.Text = DrSP("Colonia").ToString() + TxtCPCliente.Text = DrSP("CP").ToString() + TxtDireccionCliente.Text = DrSP("Calle").ToString() + TxtNumExtCliente.Text = DrSP("NoExt").ToString() + TxtNumIntCliente.Text = DrSP("NoInt").ToString() + + End If + End If End Sub