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

SMS - Comisiones

Browse Source
This commit is contained in:
rakcsle
2024-05-29 14:53:24 -07:00
parent 66b45e6040
commit f103ecc74a
6 changed files with 251 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5766,14 +5766,14 @@ Partial Class PopUpVerFactura
If ObjIE.DtResultados.Rows.Count > 0 Then
Dim reportDataSetsList As New List(Of ReportDataSource)
Dim CvePrePoliza As Integer = 0
Dim CvePrePoliza As Integer = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
Dim dtMovs As New DataTable
If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
If dtMovs IsNot Nothing AndAlso dtMovs.Rows.Count > 0 Then
CvePrePoliza = dtMovs.Rows(0)("CvePrePoliza").ToString.ToEntero
'CvePrePoliza = dtMovs.Rows(0)("CvePrePoliza").ToString.ToEntero
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES