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

- mejora

Browse Source
This commit is contained in:
rrene
2024-01-22 18:50:52 -07:00
parent 55212338c9
commit 4957baf4b0
2 changed files with 5 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Contabilidad/RegPrePolizaS.aspx
View File

@@ -528,8 +528,7 @@
<ItemTemplate>
<asp:LinkButton ID="LnkEdit" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkGvPrePolizaEliminar_Click" runat="server" AlternateText="Eliminar" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
<asp:CheckBox runat="server" ID="chkModificado" Checked="false" Visible="false"/>
data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
<ItemStyle Width="75px" />
</asp:TemplateField>

19
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -558,9 +558,6 @@ Partial Class ContabilidadC_RegPrePolizaS
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
If e.Row.DBCampo("Modificado") = "True" Then
e.Row.FCCheckBox("chkModificado").Checked = True
End If
End If
If e.Row.RowType = DataControlRowType.Header Then
@@ -1188,10 +1185,10 @@ Partial Class ContabilidadC_RegPrePolizaS
Exit For
End If
End If
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.DataKey("TipoMovto") = "True", True, False),
row.DataKey("Cargo").ToDecimal,
row.DataKey("Abono").ToDecimal,
Dim tTipoMovto As Boolean = If(row.DataKey("TipoMovto") = "True", True, False)
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto,
If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text,
CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
@@ -1726,7 +1723,6 @@ Partial Class ContabilidadC_RegPrePolizaS
GvPrePoliza.DataBind()
UpPrePoliza.Update()
GvPrePoliza.Visible = True
If IndiceGrid >= 0 Then GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
@@ -1993,7 +1989,6 @@ Partial Class ContabilidadC_RegPrePolizaS
Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs)
If UpPrePoliza.Visible Then
For Each dRow As DataRow In DtMovimientos.Rows
dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue
dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text
@@ -2003,12 +1998,6 @@ Partial Class ContabilidadC_RegPrePolizaS
DtMovimientos.AcceptChanges()
GvPrePoliza.DataSource = DtMovimientos
GvPrePoliza.DataBind()
For Each Gvr As GridViewRow In GvPrePoliza.Rows
'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
Gvr.FCCheckBox("chkModificado").Checked = True
Next
UpPrePoliza.Update()
End If
If divMovtos.Visible Then