This commit is contained in:
2020-10-28 13:55:04 -07:00
17 changed files with 453 additions and 76 deletions

View File

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