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
IdCuentaBancariaComplementaria = 0
CveCuentaBancaria = 0
CveCuentaBancariaComplementaria = 0
'CveCuentaBancaria = 0
'CveCuentaBancariaComplementaria = 0
End If
If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -259,7 +259,7 @@ Partial Class Bancos_DepositoTerminal
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
IdCuentaBancaria = 0
CveCuentaBancaria = 0
'CveCuentaBancaria = 0
End If
If gvr.DataKey("CveMoneda").ToEntero = 2 Then
@@ -436,14 +436,14 @@ Partial Class Bancos_DepositoTerminal
Next
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"
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"
End If
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"
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))
If Imagen.Exists Then
pparams.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If