From 61346042d977dff2333a17cf8625e4f22e5f34ef Mon Sep 17 00:00:00 2001 From: MLopez Date: Mon, 14 Nov 2022 10:29:16 -0700 Subject: [PATCH] Eliminar variables desusadas en solucion para que compile en debug Arreglar typo en RepComprasAFDetalle.aspx.vb --- Bancos/DepositoTerminal.aspx.vb | 12 ++++++------ Compras/RepComprasAFDetalle.aspx.vb | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb index d1c1b01fc..1a4095086 100644 --- a/Bancos/DepositoTerminal.aspx.vb +++ b/Bancos/DepositoTerminal.aspx.vb @@ -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 diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index f63896887..38b0e8adc 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -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