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

-- activar TC en conceptos de "aplicaTC"

Browse Source
This commit is contained in:
rrene
2022-04-29 13:26:29 -07:00
parent 684a84fec1
commit 17d2d60205
2 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Contabilidad/RegPrePolizaS.aspx
View File

@@ -362,6 +362,7 @@
<asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList> <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
<ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
<asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList> <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
<asp:Label ID="LblTC" runat="server" Text="TC" Visible="false"></asp:Label><asp:TextBox ID="TxtTCPreP" CssClass="form-control input-sm select2me" runat="server" Width="50px" Visible="false"></asp:TextBox>
</th> </th>
<th> <th>

14
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -678,6 +678,17 @@ Partial Class ContabilidadC_RegPrePolizaS
Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged
Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContables.SelectedValue.ToEntero).FiltroPrimero("")
If dr IsNot Nothing Then
If dr("AplicaTC").ToString = "True" Then
TxtTCPreP.Visible = True
LblTC.Visible = True
Else
TxtTCPreP.Visible = False
LblTC.Visible = False
End If
End If
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
CargaProveedores() CargaProveedores()
@@ -694,7 +705,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Else Else
DdlPersonal.Visible = False DdlPersonal.Visible = False
End If End If
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91, 291, 292) Then
CargaClientes() CargaClientes()
DdlClientes.Visible = True DdlClientes.Visible = True
DdlVentas.Visible = True DdlVentas.Visible = True
@@ -1509,6 +1520,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If AplicaBancos Then If AplicaBancos Then
CargaModalConceptoTipoTransaccion("Egs")
'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px") 'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6") DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
DvMoldalConceptoSeccion2.Visible = True DvMoldalConceptoSeccion2.Visible = True