AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
rrene
2024-03-26 22:40:17 -07:00
parent b986927a82
commit 8c3a0fbe11
2 changed files with 26 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/Ventas.aspx
View File

@@ -454,7 +454,7 @@
<td width="135px"> <td width="135px">
<asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td> <asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td>
</tr> </tr>
<tr runat="server" id="trsucursalciente" visible="false"> <tr runat="server" id="trsucursalcliente" visible="false">
<td align="left"><b> <td align="left"><b>
<asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label> <asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label>
:</b></td> :</b></td>
@@ -7964,6 +7964,7 @@
<div class="row" style="padding-left: 16px;"> <div class="row" style="padding-left: 16px;">
<div class="col-md-8"> <div class="col-md-8">
<div class="row"> <div class="row">
<asp:Panel ID="PnlRFCCliente" runat="server" DefaultButton="BtnValidarRFC">
<div class="form-group form-md-line-input input-iconright col-xs-9"> <div class="form-group form-md-line-input input-iconright col-xs-9">
<asp:TextBox ID="TxtRFCCliente" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtRFCCliente" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
<asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator> <asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
@@ -7972,6 +7973,7 @@
<div class="form-group form-md-line-input input-iconright col-xs-3"> <div class="form-group form-md-line-input input-iconright col-xs-3">
<asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" /> <asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" />
</div> </div>
</asp:Panel>
</div> </div>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">

46
Ventas/Ventas.aspx.vb
View File

@@ -6639,7 +6639,7 @@ Partial Class Ventas
'UpEmpresaCRM.Visible = True 'UpEmpresaCRM.Visible = True
trNombreCliente.Visible = False trNombreCliente.Visible = False
trsucursalciente.Visible = False trsucursalcliente.Visible = False
TrDireccion.Visible = False TrDireccion.Visible = False
TrCiudad.Visible = False TrCiudad.Visible = False
TrRFC.Visible = False TrRFC.Visible = False
@@ -6697,6 +6697,10 @@ Partial Class Ventas
Me.PermiteCredito = ObjCliente.PermiteCredito Me.PermiteCredito = ObjCliente.PermiteCredito
LnkAgregarCliente.Visible = False LnkAgregarCliente.Visible = False
If UsuarioActual.Empresa.Funcionalidad(714) = "1" Then 'cuando inicia cargado con el cliente. publico general
LnkAgregarCliente.Visible = True
End If
ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString()) ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString())
TieneDiasVencidos = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("TieneDiasVencidos").ToString()) TieneDiasVencidos = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("TieneDiasVencidos").ToString())
DiasVencidosCliente = ObjCliente.DtResultados.Rows(0)("DiasVencidosCliente").ToString().ToEntero() DiasVencidosCliente = ObjCliente.DtResultados.Rows(0)("DiasVencidosCliente").ToString().ToEntero()
@@ -7002,19 +7006,16 @@ Partial Class Ventas
End If End If
DdlSucursalCliente.Items.Clear() DdlSucursalCliente.Items.Clear()
If ObjCliente.GetSucursales(CveCliente) Then Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente)
DdlSucursalCliente.DataSource = ObjCliente.DtResultados If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
If ObjCliente.DtResultados.Rows.Count > 0 Then DdlSucursalCliente.DataSource = dtts
trsucursalciente.Visible = True DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
Else trsucursalcliente.Visible = True
trsucursalciente.Visible = False DdlSucursalCliente.DataBind()
End If
Else Else
trsucursalciente.Visible = False trsucursalcliente.Visible = False
DdlSucursalCliente.DataSource = Nothing DdlSucursalCliente.DataSource = Nothing
End If End If
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
DdlSucursalCliente.DataBind()
'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL 'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL
If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
@@ -20366,7 +20367,7 @@ Partial Class Ventas
LblCP.Text = "00000" LblCP.Text = "00000"
LblRFC.Text = "AAA010101AAA" LblRFC.Text = "AAA010101AAA"
LblTelefono.Text = "9999999999" LblTelefono.Text = "9999999999"
trsucursalciente.Visible = False trsucursalcliente.Visible = False
End If End If
End If End If
ObjClientes.Dispose() ObjClientes.Dispose()
@@ -20380,7 +20381,7 @@ Partial Class Ventas
End If End If
End Sub End Sub
Private Sub HabilitarFacturacionSucursal() Private Sub HabilitarFacturacionSucursal()
trsucursalciente.Visible = True trsucursalcliente.Visible = True
LnkAgregarSucursal.Visible = True LnkAgregarSucursal.Visible = True
LblSucursal.Text = "Cliente" LblSucursal.Text = "Cliente"
If (CveVenta <= 0 OrElse NuevaFactura = 1) Then If (CveVenta <= 0 OrElse NuevaFactura = 1) Then
@@ -20432,12 +20433,12 @@ Partial Class Ventas
If ObjCliente.GetSucursales(CveCliente) Then If ObjCliente.GetSucursales(CveCliente) Then
DdlSucursalCliente.DataSource = ObjCliente.DtResultados DdlSucursalCliente.DataSource = ObjCliente.DtResultados
If ObjCliente.DtResultados.Rows.Count > 0 Then If ObjCliente.DtResultados.Rows.Count > 0 Then
trsucursalciente.Visible = True trsucursalcliente.Visible = True
Else Else
trsucursalciente.Visible = False trsucursalcliente.Visible = False
End If End If
Else Else
trsucursalciente.Visible = False trsucursalcliente.Visible = False
DdlSucursalCliente.DataSource = Nothing DdlSucursalCliente.DataSource = Nothing
End If End If
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1")) DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -20448,12 +20449,9 @@ Partial Class Ventas
OnError("Ocurrió un error al agregar la sucursal", ex) OnError("Ocurrió un error al agregar la sucursal", ex)
End Try End Try
ObjCliente.Dispose() ObjCliente.Dispose()
End If End If
UpCliente.Update() UpCliente.Update()
RegistraScript("hideDivAgregarSucursal();") RegistraScript("hideDivAgregarSucursal();")
End Sub End Sub
@@ -23816,6 +23814,7 @@ Partial Class Ventas
divRegimenCliente.Visible = False divRegimenCliente.Visible = False
UpAgregarCliente.Update() UpAgregarCliente.Update()
CargaEstados() CargaEstados()
TxtRFCCliente.Focus()
RegistraScript("showDivEC();") RegistraScript("showDivEC();")
End Sub End Sub
@@ -23905,7 +23904,7 @@ Partial Class Ventas
Dim RegimenFiscalCliente As String = "-1" Dim RegimenFiscalCliente As String = "-1"
If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue.ToEntero()}") RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue}")
End If End If
DdlUsoCFDICliente.Items.Clear() DdlUsoCFDICliente.Items.Clear()
@@ -35616,7 +35615,7 @@ Partial Class Ventas
DivRazonSocial2.Attributes.Add("class", "col-md-12") DivRazonSocial2.Attributes.Add("class", "col-md-12")
DivRazonSocial2.Attributes.Add("class", "col-md-8") DivRazonSocial2.Attributes.Add("class", "col-md-8")
DVRegimenSociedad.Visible = True DVRegimenSociedad.Visible = RdTipoPersona.SelectedValue = "1"
If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11") DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
@@ -35642,8 +35641,9 @@ Partial Class Ventas
DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlUsoCFDICliente.Items.Clear() 'DdlUsoCFDICliente.Items.Clear()
DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
CargaComboCFDICliente()
UpAgregarCliente.Update() UpAgregarCliente.Update()
End Sub End Sub