diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index e02213eeb..46a58a11a 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1573,7 +1573,7 @@ Public Class ClsClientes .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@NumCuentaPago", SqlDbType.Int).Value = NumCuentaPago + .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago End With diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index ccd0a5d7e..b37769b0b 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2321,7 +2321,7 @@
- +
@@ -2332,7 +2332,7 @@
- +
@@ -2343,7 +2343,7 @@
- +
@@ -2354,24 +2354,24 @@
- +
- +
- +
- +
@@ -2387,15 +2387,17 @@
- + +
+
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index d212cc67b..f9e85dfc2 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4592,6 +4592,17 @@ Partial Class PV DivCorreoCuentaCliente.Visible = True DivBotonesAgregarCliente.Visible = True DivFormaCliente.Visible = True + + RFVDireccionC.Visible = False + RFVNoEC.Visible = False + RFVColoniaC.Visible = False + RFVCiudadC.Visible = False + RFVLocalidadC.Visible = False + RFVEstadoC.Visible = False + RFVPaisC.Visible = False + + DdlMetodoCliente.SelectedValueExist(1) + DdlFormaCliente.SelectedValueExist(1) Else Dim ObjCliente As New ClsClientes If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then @@ -4614,6 +4625,17 @@ Partial Class PV End If End If ObjCliente.Dispose() + + RFVDireccionC.Visible = True + RFVNoEC.Visible = True + RFVColoniaC.Visible = True + RFVCiudadC.Visible = True + RFVLocalidadC.Visible = True + RFVEstadoC.Visible = True + RFVPaisC.Visible = True + + DdlMetodoCliente.SelectedValueExist(-1) + DdlFormaCliente.SelectedValueExist(-1) End If End Sub diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 72b0bb2a6..bd81e12a7 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -381,6 +381,7 @@ Cliente: + @@ -6044,6 +6045,139 @@
+ + <%-- Agregar un Nuevo CLiente --%> + @@ -6894,7 +7028,7 @@ indexd += 1; }); } - function CargaExistenciasSucursales(id,ps) { + function CargaExistenciasSucursales(id, ps) { $.ajax({ url: '/Ashx/SIGWeb.ashx?metodo=getpsalmacen&cveps=' + id, type: 'get', @@ -7097,6 +7231,28 @@ } } + + function showDivEC() { + $('#<%= TxtRFCCliente.ClientID %>').val(''); + $('#<%= TxtNombreCliente.ClientID %>').val(''); + $('#<%= TxtDireccionCliente.ClientID %>').val(''); + $('#<%= TxtNumExtCliente.ClientID %>').val(''); + $('#<%= TxtNumIntCliente.ClientID %>').val(''); + $('#<%= TxtCPCliente.ClientID %>').val(''); + $('#<%= TxtColoniaCliente.ClientID %>').val(''); + $('#<%= TxtTelefonoCliente.ClientID %>').val(''); + $('#<%= TxtCiudadCliente.ClientID %>').val(''); + $('#<%= TxtLocalidadCliente.ClientID %>').val(''); + $('#<%= TxtEstadoCliente.ClientID %>').val(''); + $('#<%= TxtPaisCliente.ClientID %>').val(''); + $('#<%= TxtCorreoCliente.ClientID %>').val(''); + + $('#divAgregarCliente').modal(); + } + + function hideDivEC() { + $('#divAgregarCliente').modal('hide'); + } diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 718048713..a5b53bf4f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -4345,6 +4345,11 @@ Partial Class Ventas DdlFormaPago33.DataSource = dtt DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "") DdlFormaPago33.DataBind() + + DdlFormaCliente.DataSource = GlobalDTVtaFormaPago + DdlFormaCliente.DataBind() + DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago + DdlMetodoCliente.DataBind() 'End If End Sub Private Sub CargaUsoCFDI() @@ -4500,6 +4505,8 @@ Partial Class Ventas EnviarCorreoCliente = ObjCliente.EnviarFactura EstatusCliente = ObjCliente.Estatus + LnkAgregarCliente.Visible = False + ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString) If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then @@ -16398,6 +16405,97 @@ Partial Class Ventas VerificarContrato() End Sub + Private Sub LnkAgregarCliente_Click(sender As Object, e As EventArgs) Handles LnkAgregarCliente.Click + DivNombreCliente.Visible = False + DivDireccionCliente.Visible = False + DivNumeroCPCliente.Visible = False + DivColoniaTelefonoCliente.Visible = False + DivCiudadLocalidadCliente.Visible = False + DivEstadoPaisCliente.Visible = False + DivCorreoCuentaCliente.Visible = False + DivBotonesAgregarCliente.Visible = False + DivFormaCliente.Visible = False + UpAgregarCliente.Update() + + RegistraScript("showDivEC();") + End Sub + + Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click + + If TxtRFCCliente.Text = "XAXX010101000" Then + DivNombreCliente.Visible = True + DivDireccionCliente.Visible = True + DivNumeroCPCliente.Visible = True + DivColoniaTelefonoCliente.Visible = True + DivCiudadLocalidadCliente.Visible = True + DivEstadoPaisCliente.Visible = True + DivCorreoCuentaCliente.Visible = True + DivBotonesAgregarCliente.Visible = True + DivFormaCliente.Visible = True + + RFVDireccionC.Visible = False + RFVNoEC.Visible = False + RFVColoniaC.Visible = False + RFVCiudadC.Visible = False + RFVLocalidadC.Visible = False + RFVEstadoC.Visible = False + RFVPaisC.Visible = False + + DdlMetodoCliente.SelectedValueExist(1) + DdlFormaCliente.SelectedValueExist(1) + Else + Dim ObjCliente As New ClsClientes + If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then + If ObjCliente.DtResultados.Rows.Count > 0 Then + RegistraScript("hideDivEC();") + ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero + HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString + CargaCliente(CveCliente) + UpCliente.Update() + Else + DivNombreCliente.Visible = True + DivDireccionCliente.Visible = True + DivNumeroCPCliente.Visible = True + DivColoniaTelefonoCliente.Visible = True + DivCiudadLocalidadCliente.Visible = True + DivEstadoPaisCliente.Visible = True + DivCorreoCuentaCliente.Visible = True + DivBotonesAgregarCliente.Visible = True + DivFormaCliente.Visible = True + End If + End If + ObjCliente.Dispose() + + RFVDireccionC.Visible = True + RFVNoEC.Visible = True + RFVColoniaC.Visible = True + RFVCiudadC.Visible = True + RFVLocalidadC.Visible = True + RFVEstadoC.Visible = True + RFVPaisC.Visible = True + + DdlMetodoCliente.SelectedValueExist(-1) + DdlFormaCliente.SelectedValueExist(-1) + + End If + + End Sub + + Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click + Dim ObjCliente As New ClsClientes + + If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then + If ObjCliente.DtResultados.Rows.Count > 0 Then + RegistraScript("hideDivEC();") + ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero + HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString + CargaCliente(CveCliente) + UpCliente.Update() + End If + End If + + ObjCliente.Dispose() + End Sub #End Region