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

-- mejoras

Browse Source
This commit is contained in:
rrene
2023-01-16 15:31:06 -07:00
parent 1a91421084
commit feaf21e6d4
4 changed files with 33 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Clientes.aspx
View File

@@ -4514,11 +4514,7 @@
<ajax:TabPanel ID="TabLineasAdicionales" runat="server" HeaderText="Lineas Adicionales" Visible="false"> <ajax:TabPanel ID="TabLineasAdicionales" runat="server" HeaderText="Lineas Adicionales" Visible="false">
<ContentTemplate> <ContentTemplate>
<div class="row "> <div class="row ">
<div class="col-md-12"> <div class="col-md-12">
@@ -6686,9 +6682,9 @@
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoLineaAdicionalModal" CssClass="form-control select2me" runat="server" Width="250px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoLineaAdicionalModal_SelectedIndexChanged"> <asp:DropDownList ID="DdlTipoLineaAdicionalModal" CssClass="form-control select2me" runat="server" Width="250px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoLineaAdicionalModal_SelectedIndexChanged">
<asp:ListItem Text="Seleccione" Value="-1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Pagaré Especial" Value="1"></asp:ListItem>
<asp:ListItem Text="PO" Value="2"></asp:ListItem> <asp:ListItem Text="PO" Value="2"></asp:ListItem>
<asp:ListItem Text="Seleccione" Value="-1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Pagaré Especial" Value="1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlTipoLinea" InitialValue="-1" runat="server" ControlToValidate="TxtLineaAdicionalModal" CssClass="help-block errorimput" <asp:RequiredFieldValidator ID="RfvDdlTipoLinea" InitialValue="-1" runat="server" ControlToValidate="TxtLineaAdicionalModal" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Linea''</b> es necesario, por favor ingréselo." ValidationGroup="GrpLineaAdicional"></asp:RequiredFieldValidator> ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Linea''</b> es necesario, por favor ingréselo." ValidationGroup="GrpLineaAdicional"></asp:RequiredFieldValidator>

47
Ventas/Clientes.aspx.vb
View File

@@ -917,7 +917,6 @@ Partial Class Clientes
ChecaPermiteCredito() ChecaPermiteCredito()
'Crea y carga CuentasBancarias - tab:Bancos 'Crea y carga CuentasBancarias - tab:Bancos
CargaCuentasBancarias() CargaCuentasBancarias()
@@ -939,8 +938,6 @@ Partial Class Clientes
TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString() TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString()
TxtFechaFCredito.Text = Now.ToShortDateString() TxtFechaFCredito.Text = Now.ToShortDateString()
If UsuarioActual.TienePermisoProceso(257) Then 'Falta agregar proceso If UsuarioActual.TienePermisoProceso(257) Then 'Falta agregar proceso
DivMapAddSucursal.Visible = True DivMapAddSucursal.Visible = True
LiLnkAgragarDireccion.Visible = True LiLnkAgragarDireccion.Visible = True
@@ -950,17 +947,12 @@ Partial Class Clientes
MostrarTxtDireccionesClienteEnvio() MostrarTxtDireccionesClienteEnvio()
If CveCliente > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso UsuarioActual.TienePermisoProceso(350) Then
If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso UsuarioActual.CveRol = 1 Then
CargaCombosLineasAdicionales() CargaCombosLineasAdicionales()
TabLineasAdicionales.Visible = True TabLineasAdicionales.Visible = True
LnkAgregarLineaAdicional.Visible = True LnkAgregarLineaAdicional.Visible = True
GetLineasAdicionales() GetLineasAdicionales()
End If
End If
End If End If
'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017 'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
@@ -10338,8 +10330,7 @@ Partial Class Clientes
If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
DivRazonSocial2.Attributes.Add("class", "col-md-8") DivRazonSocial2.Attributes.Add("class", "col-md-8")
DVRegimenSociedad.Visible = True DVRegimenSociedad.Visible = True
TxtNombreComercial.Enabled = False
Else Else
TxtNombreComercial.Enabled = True TxtNombreComercial.Enabled = True
End If End If
@@ -10365,31 +10356,17 @@ Partial Class Clientes
Private Sub CargaCombosLineasAdicionales() Private Sub CargaCombosLineasAdicionales()
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then DdlProveedorLineaAdicionalModal.setEsWebService(True)
DdlProveedorLineaAdicionalModal.setEsWebService(True) DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores") DdlProveedorLineaAdicionalModal.SelectedText = "-"
DdlProveedorLineaAdicionalModal.SelectedText = "-" DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
Else
DdlProveedorLineaAdicionalModal.setEsWebService(False)
DdlProveedorLineaAdicionalModal.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedorLineaAdicionalModal.ddl.DataBind()
DdlProveedorLineaAdicionalModal.ddl.Items.Insert(0, New ListItem("-", "-1"))
End If
DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoriaLineaAdicionalModal.DataBind() DdlCategoriaLineaAdicionalModal.DataBind()
DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1")) DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
End Sub End Sub
Private Sub GetLineasAdicionales() Private Sub GetLineasAdicionales()

9
Ventas/ClientesAbonar.aspx
View File

@@ -224,6 +224,15 @@
</div> </div>
</div> </div>
<div class="row" id="divPrestamo" runat="server" visible="false" >
<div class="col-md-2" >Préstamo:</div>
<div class="col-md-3">
<asp:TextBox ID="TxtPrestamo" runat="server" Width ="100px" ClientIDMode="Static" />
</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlPrestamo" runat="server" Width="40px" DataTextField="RazonSocial" DataValueField="CveIE"></asp:DropDownList>
</div>
</div>
<asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server"> <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
<ContentTemplate> <ContentTemplate>

22
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1811,13 +1811,6 @@ Partial Class Ventas_ClientesAbonar
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
ObjFacturaDevolucion.Version = "4.0" ObjFacturaDevolucion.Version = "4.0"
'If ObjFacturaDevolucion.Cliente Is Nothing Then
' ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
'End If
'ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
'ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
Else Else
ObjFacturaDevolucion.Version = "3.3" ObjFacturaDevolucion.Version = "3.3"
End If End If
@@ -1826,9 +1819,12 @@ Partial Class Ventas_ClientesAbonar
ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición" ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición"
ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE" ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE"
ObjFacturaDevolucion.CveFormaPago33 = 21 Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & DdlTipoTransaccion.SelectedValue)
ObjFacturaDevolucion.FormaPago33 = "30 - Aplicación de anticipos" Dim dra As DataRow = GlobalDTVtaFormaPago.FiltroPrimero("CveFormaPago = " & drtt("CveFormaPago"))
ObjFacturaDevolucion.FormaPagoSAT33 = "30"
ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString
ObjFacturaDevolucion.FormaPago33 = dra("FormaPagoSAT").ToString
ObjFacturaDevolucion.FormaPagoSAT33 = dra("ClaveFormaPagoSAT").ToString
ObjFacturaDevolucion.CveSubProyecto = CveSubProyecto ObjFacturaDevolucion.CveSubProyecto = CveSubProyecto
ObjFacturaDevolucion.SetSubProyecto() ObjFacturaDevolucion.SetSubProyecto()
@@ -1840,9 +1836,9 @@ Partial Class Ventas_ClientesAbonar
If ObjCliente.GetClientes(ObjFacturaDevolucion.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then If ObjCliente.GetClientes(ObjFacturaDevolucion.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then If ObjCliente.DtResultados.Rows.Count > 0 Then
ObjFacturaDevolucion.CveUsoCFDI = ObjCliente.CveUsoCFDI ObjFacturaDevolucion.CveUsoCFDI = 2
ObjFacturaDevolucion.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) ObjFacturaDevolucion.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", 2))
ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI)) ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", 2))
ObjFacturaDevolucion.DtDetalle = CreaDTDetalleNC() ObjFacturaDevolucion.DtDetalle = CreaDTDetalleNC()