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

-- en cheque que se visualice la poliza contable en E141, y que tome las cuentas de conta sig

Browse Source
This commit is contained in:
rrene
2020-10-27 19:31:42 -07:00
parent 5b761fad6c
commit a0019c52fc
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3848,7 +3848,7 @@ Partial Class PopUpVerFactura
Dr("Abono") = 0 Dr("Abono") = 0
DtMovimientosPoliza.Rows.Add(Dr) DtMovimientosPoliza.Rows.Add(Dr)
End If End If
ElseIf UsuarioActual.CveEmpresa = 119 Then ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
Dim PreP As New ClsContabilidad Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, CveIE) Then If PreP.GetPrePolizasDetalle(-1, CveIE) Then
DtMovimientosPoliza = New DataTable DtMovimientosPoliza = New DataTable
@@ -3861,8 +3861,8 @@ Partial Class PopUpVerFactura
For Each drt As DataRow In PreP.DtResultados.Rows For Each drt As DataRow In PreP.DtResultados.Rows
Dim Dr = DtMovimientosPoliza.NewRow Dim Dr = DtMovimientosPoliza.NewRow
Dr("CODIGO") = drt("ContpaqCodigo") Dr("CODIGO") = drt("CuentaCodigo")
Dr("Cuenta") = drt("ContpaqCuenta") Dr("Cuenta") = drt("CuentaNombre")
Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0") Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
DtMovimientosPoliza.Rows.Add(Dr) DtMovimientosPoliza.Rows.Add(Dr)