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

- cambio no usar prepolizasdetalle, para obtenr facturas pagadas o movtos de bancos, afecta a la obtención de prepolizas

Browse Source
This commit is contained in:
rrene
2023-06-27 15:30:49 -07:00
parent d22e648582
commit 33d41836dd
7 changed files with 148 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5953,17 +5953,17 @@ Partial Class PopUpVerFactura
DtMovimientosPoliza.Rows.Add(Dr)
End If
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
If PreP.DtResultados.Rows.Count > 0 Then
If ObjIE.DtResultados.Rows.Count > 0 Then
For Each drt As DataRow In PreP.DtResultados.Rows
For Each drt As DataRow In ObjIE.DtResultados.Rows
Dim Dr = DtMovimientosPoliza.NewRow
Dr("CODIGO") = drt("CuentaCodigo")
Dr("Cuenta") = drt("CuentaNombre")
@@ -5974,7 +5974,7 @@ Partial Class PopUpVerFactura
Next
End If
End If
PreP.Dispose()
End If
@@ -6030,13 +6030,12 @@ Partial Class PopUpVerFactura
NotificarA = ObjIE.NotificarA
tIdPoliza = ObjIE.IDPoliza
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
If ObjIE.DtResultados.Rows.Count > 0 Then
CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = ObjIE.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
IVA = ObjIE.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
If CveProveedor > 0 Then
Dim Prov As New ClsCompProveedores
@@ -6067,7 +6066,6 @@ Partial Class PopUpVerFactura
End If
End If
End If
PreP.Dispose()
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
@@ -6238,10 +6236,9 @@ Partial Class PopUpVerFactura
Dim reportDataSetsList As New List(Of ReportDataSource)
Dim dtMovs As New DataTable
Dim Mov As New ClsContabilidad
If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")
dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
@@ -6254,7 +6251,7 @@ Partial Class PopUpVerFactura
End If
End If
Mov.Dispose()
Dim rds = New ReportDataSource("DataSet1", dtMovs)
reportDataSetsList.Add(rds)