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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-05-02 13:01:01 -07:00
parent a5e12e0544 8f4a36e790
commit 0ee812f008
24 changed files with 2997 additions and 247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -198,7 +198,13 @@ Partial Class PopUpAuxiliar
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left
If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then
Dim Liga As String = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
Dim Liga As String
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Liga = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">", e.Row.DBCampo("CvePrePoliza"))
Else
Liga = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
End If
e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("Poliza"))
End If

1
Contabilidad/RegPrePolizaS.aspx
View File

@@ -368,6 +368,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>
<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: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>

14
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -693,6 +693,17 @@ Partial Class ContabilidadC_RegPrePolizaS
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
CargaProveedores()
@@ -709,7 +720,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Else
DdlPersonal.Visible = False
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()
DdlClientes.Visible = True
DdlVentas.Visible = True
@@ -1524,6 +1535,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If AplicaBancos Then
CargaModalConceptoTipoTransaccion("Egs")
'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
DvMoldalConceptoSeccion2.Visible = True