-
This commit is contained in:
@@ -454,7 +454,7 @@
|
||||
<td width="135px">
|
||||
<asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td>
|
||||
</tr>
|
||||
<tr runat="server" id="trsucursalciente" visible="false">
|
||||
<tr runat="server" id="trsucursalcliente" visible="false">
|
||||
<td align="left"><b>
|
||||
<asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label>
|
||||
:</b></td>
|
||||
@@ -7964,6 +7964,7 @@
|
||||
<div class="row" style="padding-left: 16px;">
|
||||
<div class="col-md-8">
|
||||
<div class="row">
|
||||
<asp:Panel ID="PnlRFCCliente" runat="server" DefaultButton="BtnValidarRFC">
|
||||
<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: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">
|
||||
<asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" />
|
||||
</div>
|
||||
</asp:Panel>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-4">
|
||||
|
||||
@@ -6639,7 +6639,7 @@ Partial Class Ventas
|
||||
'UpEmpresaCRM.Visible = True
|
||||
|
||||
trNombreCliente.Visible = False
|
||||
trsucursalciente.Visible = False
|
||||
trsucursalcliente.Visible = False
|
||||
TrDireccion.Visible = False
|
||||
TrCiudad.Visible = False
|
||||
TrRFC.Visible = False
|
||||
@@ -6697,6 +6697,10 @@ Partial Class Ventas
|
||||
Me.PermiteCredito = ObjCliente.PermiteCredito
|
||||
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())
|
||||
TieneDiasVencidos = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("TieneDiasVencidos").ToString())
|
||||
DiasVencidosCliente = ObjCliente.DtResultados.Rows(0)("DiasVencidosCliente").ToString().ToEntero()
|
||||
@@ -7002,19 +7006,16 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
DdlSucursalCliente.Items.Clear()
|
||||
If ObjCliente.GetSucursales(CveCliente) Then
|
||||
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
trsucursalciente.Visible = True
|
||||
Else
|
||||
trsucursalciente.Visible = False
|
||||
End If
|
||||
Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente)
|
||||
If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
|
||||
DdlSucursalCliente.DataSource = dtts
|
||||
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
|
||||
trsucursalcliente.Visible = True
|
||||
DdlSucursalCliente.DataBind()
|
||||
Else
|
||||
trsucursalciente.Visible = False
|
||||
trsucursalcliente.Visible = False
|
||||
DdlSucursalCliente.DataSource = Nothing
|
||||
End If
|
||||
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
|
||||
DdlSucursalCliente.DataBind()
|
||||
|
||||
'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
|
||||
@@ -20366,7 +20367,7 @@ Partial Class Ventas
|
||||
LblCP.Text = "00000"
|
||||
LblRFC.Text = "AAA010101AAA"
|
||||
LblTelefono.Text = "9999999999"
|
||||
trsucursalciente.Visible = False
|
||||
trsucursalcliente.Visible = False
|
||||
End If
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
@@ -20380,7 +20381,7 @@ Partial Class Ventas
|
||||
End If
|
||||
End Sub
|
||||
Private Sub HabilitarFacturacionSucursal()
|
||||
trsucursalciente.Visible = True
|
||||
trsucursalcliente.Visible = True
|
||||
LnkAgregarSucursal.Visible = True
|
||||
LblSucursal.Text = "Cliente"
|
||||
If (CveVenta <= 0 OrElse NuevaFactura = 1) Then
|
||||
@@ -20432,12 +20433,12 @@ Partial Class Ventas
|
||||
If ObjCliente.GetSucursales(CveCliente) Then
|
||||
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
trsucursalciente.Visible = True
|
||||
trsucursalcliente.Visible = True
|
||||
Else
|
||||
trsucursalciente.Visible = False
|
||||
trsucursalcliente.Visible = False
|
||||
End If
|
||||
Else
|
||||
trsucursalciente.Visible = False
|
||||
trsucursalcliente.Visible = False
|
||||
DdlSucursalCliente.DataSource = Nothing
|
||||
End If
|
||||
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
|
||||
@@ -20448,12 +20449,9 @@ Partial Class Ventas
|
||||
OnError("Ocurrió un error al agregar la sucursal", ex)
|
||||
End Try
|
||||
ObjCliente.Dispose()
|
||||
|
||||
End If
|
||||
|
||||
UpCliente.Update()
|
||||
RegistraScript("hideDivAgregarSucursal();")
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -23816,6 +23814,7 @@ Partial Class Ventas
|
||||
divRegimenCliente.Visible = False
|
||||
UpAgregarCliente.Update()
|
||||
CargaEstados()
|
||||
TxtRFCCliente.Focus()
|
||||
|
||||
RegistraScript("showDivEC();")
|
||||
End Sub
|
||||
@@ -23905,7 +23904,7 @@ Partial Class Ventas
|
||||
Dim RegimenFiscalCliente As String = "-1"
|
||||
|
||||
If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
|
||||
RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue.ToEntero()}")
|
||||
RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue}")
|
||||
End If
|
||||
|
||||
DdlUsoCFDICliente.Items.Clear()
|
||||
@@ -35616,7 +35615,7 @@ Partial Class Ventas
|
||||
DivRazonSocial2.Attributes.Add("class", "col-md-12")
|
||||
|
||||
DivRazonSocial2.Attributes.Add("class", "col-md-8")
|
||||
DVRegimenSociedad.Visible = True
|
||||
DVRegimenSociedad.Visible = RdTipoPersona.SelectedValue = "1"
|
||||
|
||||
If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
|
||||
DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
|
||||
@@ -35642,8 +35641,9 @@ Partial Class Ventas
|
||||
|
||||
DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
DdlUsoCFDICliente.Items.Clear()
|
||||
DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'DdlUsoCFDICliente.Items.Clear()
|
||||
'DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
CargaComboCFDICliente()
|
||||
|
||||
UpAgregarCliente.Update()
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user