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

Eliminar variables desusadas en solucion para que compile en debug

Browse Source 
Arreglar typo en RepComprasAFDetalle.aspx.vb
This commit is contained in:
MLopez
2022-11-14 10:29:16 -07:00
parent 2fba088f10
commit 61346042d9
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/DepositoTerminal.aspx.vb
View File

@@ -142,8 +142,8 @@ Partial Class Bancos_DepositoTerminal
IdCuentaBancaria = 0 IdCuentaBancaria = 0
IdCuentaBancariaComplementaria = 0 IdCuentaBancariaComplementaria = 0
CveCuentaBancaria = 0 'CveCuentaBancaria = 0
CveCuentaBancariaComplementaria = 0 'CveCuentaBancariaComplementaria = 0
End If End If
If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -259,7 +259,7 @@ Partial Class Bancos_DepositoTerminal
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
IdCuentaBancaria = 0 IdCuentaBancaria = 0
CveCuentaBancaria = 0 'CveCuentaBancaria = 0
End If End If
If gvr.DataKey("CveMoneda").ToEntero = 2 Then If gvr.DataKey("CveMoneda").ToEntero = 2 Then
@@ -436,14 +436,14 @@ Partial Class Bancos_DepositoTerminal
Next Next
If IdCuentaBancariaComplementaria > 0 Then If IdCuentaBancariaComplementaria > 0 Then
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancariaComplementaria) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If
Else Else
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If
End If End If

2
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -392,7 +392,7 @@ Partial Class Compras_RepComprasAFDetalle
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
If Imagen.Exists Then If Imagen.Exists Then
pparams.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else Else
params.Add(New ReportParameter("LogoPath", "")) params.Add(New ReportParameter("LogoPath", ""))
End If End If