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/Compras/Compras.aspx b/Compras/Compras.aspx
index 3b9d4b659..7f44c8194 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -2294,7 +2294,7 @@
-
#
+
#
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 10911f968..a94a5da41 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4225,6 +4225,9 @@ Partial Class Compras_Compras
If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
End If
+ If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+ CveConceptoContableAlmacen = 205
+ End If
Else
CveConceptoContableAlmacen = 225
End If
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 7236e4ded..efa1c625b 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