From 7ee978059d05a46c03f5e35710097ace3b98a392 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 23 Aug 2023 00:03:44 -0700 Subject: [PATCH] -- option strict on --- Bancos/CreditosPagoMultiple.aspx.vb | 12 ++- Bancos/DepositoTerminal.aspx.vb | 8 +- Bancos/IE.aspx.vb | 122 +--------------------------- Bancos/OtrosIE.aspx.vb | 22 +++-- Bancos/PolizaCheque.aspx.vb | 27 +++--- Bancos/RepCxCCliente.aspx.vb | 2 +- Bancos/RepProgramarRecursos.aspx.vb | 10 +-- Bancos/RepProveedoresPagos.aspx.vb | 4 +- Bancos/Transferencias.aspx.vb | 34 ++++---- 9 files changed, 57 insertions(+), 184 deletions(-) diff --git a/Bancos/CreditosPagoMultiple.aspx.vb b/Bancos/CreditosPagoMultiple.aspx.vb index 973e2d3af..815b6f688 100644 --- a/Bancos/CreditosPagoMultiple.aspx.vb +++ b/Bancos/CreditosPagoMultiple.aspx.vb @@ -186,9 +186,8 @@ Partial Class Bancos_CreditosPagoMultiple Dim Total As Decimal = 0 For Each gvr As GridViewRow In GvV.Rows If gvr.FCCheckBox("Chk").Checked Then - Total += gvr.DataKey("Total").ToDouble + Total += gvr.DataKey("Total").ToDecimal End If - Next If Total <= 0 Then @@ -244,8 +243,7 @@ Partial Class Bancos_CreditosPagoMultiple If CvePrePoliza > 0 Then 'inserto el moviminto de banco - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor) Then - + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, Total, CveConceptoContable, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor) Then For Each gvr As GridViewRow In GvV.Rows If gvr.FCCheckBox("Chk").Checked Then @@ -261,13 +259,13 @@ Partial Class Bancos_CreditosPagoMultiple Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then - If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, gvr.DataKey("Total").ToDecimal - IVA - CIF, CveConceptoCompra, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then + If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 19, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then MsgError = "Detalle" End If 'intereses pagados - If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then + If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, CIF, 46, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then MsgError = "Detalle" End If diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb index afe41b658..555cba4c2 100644 --- a/Bancos/DepositoTerminal.aspx.vb +++ b/Bancos/DepositoTerminal.aspx.vb @@ -322,13 +322,13 @@ Partial Class Bancos_DepositoTerminal e.Row.FCTextBox("TxtAbonar").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},1);", e.Row.FCCheckBox("ChkFactura").ClientID, e.Row.DBCampo("Importe"))) If UsuarioActual.Empresa.Funcionalidad(157).ToDecimal <> 0 Then - e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnLimites({0},this,{1},{2},2);", e.Row.FCCheckBox("Chk").ClientID, -UsuarioActual.Empresa.Funcionalidad(157), UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal)) - e.Row.FCRangeValidator("RVComision").MinimumValue = -UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal - e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal + e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnLimites({0},this,{1},{2},2);", e.Row.FCCheckBox("Chk").ClientID, (-UsuarioActual.Empresa.Funcionalidad(157).ToDecimal).ToString, UsuarioActual.Empresa.Funcionalidad(157).ToString.ToDecimal)) + e.Row.FCRangeValidator("RVComision").MinimumValue = (-UsuarioActual.Empresa.Funcionalidad(157).ToDecimal).ToString + e.Row.FCRangeValidator("RVComision").MaximumValue = UsuarioActual.Empresa.Funcionalidad(157) e.Row.FCRangeValidator("RVComision").Enabled = True Else e.Row.FCTextBox("TxtComision").Attributes.Add("onblur", String.Format("FnCambia({0},this,{1},2);", e.Row.FCCheckBox("ChkFactura").ClientID, e.Row.DBCampo("Importe"))) - e.Row.FCRangeValidator("RVComision").MinimumValue = 0.00 + e.Row.FCRangeValidator("RVComision").MinimumValue = "0.00" e.Row.FCRangeValidator("RVComision").MaximumValue = e.Row.DBCampo("Importe") End If diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 0c8dda133..ad714fa81 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -858,7 +858,7 @@ Partial Class Bancos_IE LblCuenta.Text = ObjIE.BancoNumCuentaMoneda ViewState("CvePrePoliza") = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero - HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}", ViewState("CvePrePoliza")) + HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ViewState("CvePrePoliza")) HpLPrePoliza.Visible = True TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString TxtFolio.Text = ObjIE.Folio @@ -3645,126 +3645,6 @@ Partial Class Bancos_IE ObjConta.Dispose() End Sub - 'Protected Sub BtnDevueltoIE_Click(sender As Object, e As EventArgs) - ' RegistraScript("$('#DivChqDevueltoIE').modal('hide');") - - ' ChequeDevuelto() - - - 'End Sub - - 'Private Sub ChequeDevuelto() - ' If Not IsDate(TxtFechaDevuelto.Text.ToDate) Then - ' Alert("El campo fecha cancelación es incorrecto. Por favor verifique y vuelva a intentar") - ' Exit Sub - ' End If - - ' If ChkConciliado.Checked Then - ' Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError) - ' Exit Sub - ' End If - - ' Dim Banc As New ClsBancos - ' Banc.IniciaTransacSQL() - ' Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL) - - ' Dim ObjAC As ClsContPAQi = Nothing - ' If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then - ' ObjAC = New ClsContPAQi(UsuarioActual.Empresa) - ' ObjAC.IniciaTransacSQL() - ' End If - - - ' Dim ErrorCancelar = False - ' Dim IdPolizaNueva = -1 - ' Dim FolioPolizaNueva = -1 - - ' If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then - - ' If ObjAC Is Nothing Then - ' ErrorCancelar = True - ' End If - - ' If Not ErrorCancelar Then - ' Dim dt As DataTable - ' If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then - ' dt = ObjAC.DtResultados - - ' ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS) - - ' IdPolizaNueva = ObjAC.AddPoliza(1, String.Format("Cheque Devuelto: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDevuelto.Text.ToDate) - - ' If IdPolizaNueva > 0 Then - ' FolioPolizaNueva = ObjAC.Folio - - ' 'CREA POLIZA NEGATIVA - ' For Each dr As DataRow In dt.Rows - ' If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDevuelto.Text.ToDate, "") Then - ' ErrorCancelar = True : Exit For - ' End If - ' Next - - ' 'AJUSTA POLIZA - ' If Not ErrorCancelar Then - ' If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then - ' ErrorCancelar = True - ' End If - ' End If - - ' 'genera nuevo IE contrario - ' If Not ErrorCancelar Then - ' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then - ' ErrorCancelar = True - ' End If - ' End If - - ' Else - ' ErrorCancelar = True - ' End If - - - ' End If - ' End If - - ' Else - - ' 'siempre se hace una cancelación - ' If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then - ' ErrorCancelar = True - ' End If - - ' If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - ' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - - ' IDPoliza = ObjConta.ContaIdPoliza - ' Else - ' ErrorCancelar = True - ' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) - ' End If - ' End If - - ' End If - - - ' If Not ErrorCancelar Then - ' If ObjAC IsNot Nothing Then ObjAC.Commit() - ' Banc.Commit() - ' Dim Msg As New StringBuilder - ' Msg.Append("El movimiento bancario quedó devuelto exitosamente.") - - ' If IdPolizaNueva > 0 Then Msg.AppendFormat("

Ver Póliza de cancelación", IdPolizaNueva) - ' Alert(Msg.ToString, TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""") - ' Else - ' If ObjAC IsNot Nothing Then ObjAC.RollBack() - ' Banc.RollBack() - ' Alert("El movimiento bancario no se pudo registrar. Por favor vuelva a intentar.", TipoMensaje.MsgError) - ' End If - - ' If ObjAC IsNot Nothing Then ObjAC.Dispose() - ' Banc.Dispose() - - 'End Sub - Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click If CveIECancelado > 0 Then Alert("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación", TipoMensaje.MsgAdvertencia) diff --git a/Bancos/OtrosIE.aspx.vb b/Bancos/OtrosIE.aspx.vb index a5d578ba2..263f9eff2 100644 --- a/Bancos/OtrosIE.aspx.vb +++ b/Bancos/OtrosIE.aspx.vb @@ -348,10 +348,10 @@ Partial Class Bancos_OtrosIE For Each gvr As GridViewRow In GvMov.Rows If gvr.DataKey("TipoMovto").ToDouble > 0 Then - Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble + Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal TipoMovto = True Else - Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble + Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal TipoMovto = False End If If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then @@ -362,7 +362,7 @@ Partial Class Bancos_OtrosIE End If If MsgError = "" Then - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCTextBox("TxtConcepto").Text, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, 0, -1, CveIE, + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then Else @@ -382,17 +382,15 @@ Partial Class Bancos_OtrosIE CveConcepto = 12 ElseIf HdnCveBeneficiario.Value.ToEntero > 0 Then CveConcepto = 13 - End If - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 30, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConcepto, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, 30, "", TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, CveConcepto, "", TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then End If Else MsgError = "No se pudo insertar el detalle de la póliza2" End If - End If @@ -629,12 +627,12 @@ Partial Class Bancos_OtrosIE Private Sub RecargaGlobalCuentasBancarias(CveProveedor As Integer, Optional ByVal CveCuenta As Integer = -1) If CveProveedor > 0 Then - Dim ObjCuentasBancos As New ClsGenerales + 'Dim ObjCuentasBancos As New ClsGenerales - If ObjCuentasBancos.GetCuentasDepositos() Then - GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados - End If - ObjCuentasBancos.Dispose() + 'If ObjCuentasBancos.GetCuentasDepositos() Then + ' GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor) = ObjCuentasBancos.DtResultados + 'End If + 'ObjCuentasBancos.Dispose() End If End Sub End Class diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 70153b5a6..4b76b3cca 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -245,7 +245,7 @@ Partial Class Bancos_PolizaCheque Private Sub CargaFolio() If HdnTipoTransaccion.Value = "" Then CargaHdnTipoTransaccion() If DdlTipoTransaccion.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then - If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "") = "Ing" Then + If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "").ToString = "Ing" Then Dim ObjFolios As New ClsGralFolios If ObjFolios.GetFolios("RMF", UsuarioActual.CveEmpresa) Then Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo'")) @@ -437,9 +437,9 @@ Partial Class Bancos_PolizaCheque IdCuenta = If(drr IsNot Nothing, drr("Id").ToString.ToEntero, -1) CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "") NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "") - Concepto = drt("NombreCompleto") + Concepto = drt("NombreCompleto").ToString dr("Cargo") = drt("Total").ToString.ToDecimal.FormatoNumero(2) - TotalProceso += drt("Total").ToString.ToDecimal.FormatoNumero(2) + TotalProceso += drt("Total").ToString.ToDecimal Else TipoMovto = 1 CveConcepto = 30 Concepto = "Pago Nómina" @@ -506,8 +506,8 @@ Partial Class Bancos_PolizaCheque 'Encabezado Dim Identificador As String = "1" - Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count, 7, "0") - Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0") + Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count.ToString, 7, "0"c) + Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0"c) Dim RegistrosInc As String = "0000000" Dim ImporteRegistrosInc As String = "000000000000000" Dim ContratoPagel As String = "000000000000" @@ -523,7 +523,7 @@ Partial Class Bancos_PolizaCheque 'Detalle For Each dr As DataRow In DtMovimientos.FiltraParametros("CvePersonal > 0").Rows - TextoCompleto += GeneraLineaLayout(dr("CvePersonal"), dr("Cargo"), dr("Concepto"), ObjPersonal) + vbNewLine + TextoCompleto += GeneraLineaLayout(dr("CvePersonal").ToString.ToEntero, dr("Cargo").ToString, dr("Concepto").ToString, ObjPersonal) + vbNewLine Next 'CreaArchivo() @@ -543,7 +543,7 @@ Partial Class Bancos_PolizaCheque Dim BancoDestino As String = GeneraCampo(ObjPersonal.DtResultados(0)("CveSATBanco").ToString, 3) Dim PlazaDestino As String = "000" Dim NumeroCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("CuentaBancaria").ToString, 16) - Dim ImporteAbono As String = GeneraCampoInverso(DecimalesSinPunto(Importe), 15, "0") + Dim ImporteAbono As String = GeneraCampoInverso(DecimalesSinPunto(Importe), 15, "0"c) Dim EstadoPago As String = "0000000" Dim DescripcionPago As String = GeneraCampo(Concepto, 80) Dim TitularCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombre").ToString, 40) @@ -777,7 +777,7 @@ Partial Class Bancos_PolizaCheque CveMoneda = dr("CveMoneda").ToString.ToEntero End If - Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate), 1) + Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal, 1D) Dim CveTipoPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla).FiltroPrimeroValor("TipoPoliza", String.Format("CvePlantillaPoliza={0}", DdlPlantilla.SelectedValue)).ToEntero CvePrePoliza = ObjMov.AddPrePolizas("PolizaCheque/Guardar", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza) CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PaguesA, ImporteDocumento, CveMoneda, If(CveMoneda > 1, TC, 0.0), TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -787,16 +787,16 @@ Partial Class Bancos_PolizaCheque If CvePrePoliza > 0 Then Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

" - Dim Importe As Double = 0 + Dim Importe As Decimal = 0 Dim TipoMovto As Boolean = False 'inserto las compras que voy a pagar For Each gvr As GridViewRow In GvMov.Rows If gvr.DataKey("TipoMovto").ToDouble > 0 Then - Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble + Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal TipoMovto = True Else - Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble + Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal TipoMovto = False End If @@ -818,10 +818,7 @@ Partial Class Bancos_PolizaCheque ElseIf CveMoneda > 1 Then Importe = Importe * TC End If - - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, ImporteMX:=Importe, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then - ' MsgError = "no se pudo insertar el detalle de la póliza2" - 'End If + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConcepto").ToEntero, Referencia, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then MsgError = "no se pudo insertar el detalle de la póliza2" End If diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb index 15e89aa8f..c977428fc 100644 --- a/Bancos/RepCxCCliente.aspx.vb +++ b/Bancos/RepCxCCliente.aspx.vb @@ -102,7 +102,7 @@ Partial Class Bancos_RepCxCCliente End If End If - Dim CveSubProyecto As Integer = IIf(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1) + Dim CveSubProyecto As Integer = If(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1) If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red '"/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&CveMoneda={4}&Serie={5}&CveUsuario={6}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), DdlUsuarioProgramo.SelectedValue, e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("Serie"), e.Row.DBCampo("CveUsuario") e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Ventas/ClientesAbonar.aspx?CveCliente={0}&FechaI={1}&FechaF={2}&CveMoneda={3}&CveUsuario={4}&CveSubProyecto={5}&CveClienteSucursal={6}", e.Row.DBCampo("CveCliente"), e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveMoneda"), UsuarioActual.CveUsuario, CveSubProyecto, e.Row.DBCampo("CveClienteSucursal")) diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 4be5153f5..1b4313d6a 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -329,11 +329,11 @@ Partial Class Bancos_RepProgramarRecursos If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1" If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1" - If TxtFechaIV.Text <> "" Then FechaIV = TxtFechaIV.Text Else FechaIV = MinFecha - If TxtFechaFV.Text <> "" Then FechaFV = TxtFechaFV.Text Else FechaFV = MaxFecha + If TxtFechaIV.Text <> "" Then FechaIV = TxtFechaIV.Text.ToDate Else FechaIV = MinFecha + If TxtFechaFV.Text <> "" Then FechaFV = TxtFechaFV.Text.ToDate Else FechaFV = MaxFecha If DdlCodigoProgramacion.SelectedValue <> "-1" Then CodigoProg = DdlCodigoProgramacion.SelectedValue Else CodigoProg = "-1" - If Mov.GetProgramarPago(DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlUsuarioResponsable.SelectedValue.ToEntero, FechaI, FechaF, CveUsuarioProgramo, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, TxtTC.Text.ToDouble, DdlAgrupador.SelectedValue.ToEntero, Anio, Mes, Opcion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaIV:=FechaIV, FechaFV:=FechaFV, CodigoProgramacion:=CodigoProg, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, 0, DdlTipoProveedor.SelectedValue.ToEntero), ConComprobacion:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero) Then + If Mov.GetProgramarPago(DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlUsuarioResponsable.SelectedValue.ToEntero, FechaI, FechaF, CveUsuarioProgramo, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, TxtTC.Text.ToDouble, DdlAgrupador.SelectedValue.ToEntero, Anio, Mes, Opcion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaIV:=FechaIV, FechaFV:=FechaFV, CodigoProgramacion:=CodigoProg, CveTipoProveedor:=If(DdlTipoProveedor.SelectedValue.ToEntero = 3, 0, DdlTipoProveedor.SelectedValue.ToEntero), ConComprobacion:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero) Then DtDatos = Mov.DtResultados @@ -860,7 +860,7 @@ Partial Class Bancos_RepProgramarRecursos Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0))) + params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, "1", "0"))) params.Add(New ReportParameter("usuarioProgramo", UsuarioProgramo)) params.Add(New ReportParameter("Agrupador", DdlAgrupador.SelectedValue)) @@ -923,7 +923,7 @@ Partial Class Bancos_RepProgramarRecursos End Sub Private Sub DdlUsuarioProgramo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUsuarioProgramo.SelectedIndexChanged - If DdlUsuarioProgramo.SelectedValue > 0 Then + If DdlUsuarioProgramo.SelectedValue.ToEntero > 0 Then Dim ObjMovimientos As New ClsMovimientos If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb index b4494650f..210523456 100644 --- a/Bancos/RepProveedoresPagos.aspx.vb +++ b/Bancos/RepProveedoresPagos.aspx.vb @@ -308,7 +308,7 @@ Partial Class Bancos_RepProveedoresPagos params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}")) - params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, 1, 0))) + params.Add(New ReportParameter("Programadas", If(ChkProgramadas.Checked, "1", "0"))) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato) @@ -320,7 +320,7 @@ Partial Class Bancos_RepProveedoresPagos End Sub Private Sub DdlUsuarioProgramo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUsuarioProgramo.SelectedIndexChanged - If DdlUsuarioProgramo.SelectedValue > 0 Then + If DdlUsuarioProgramo.SelectedValue.ToEntero > 0 Then Dim ObjMovimientos As New ClsMovimientos If ObjMovimientos.GetCodigosProgramacionPersonal(UsuarioActual.CveEmpresa, DdlUsuarioProgramo.SelectedValue.ToEntero) Then DdlCodigoProgramacion.DataSource = ObjMovimientos.DtResultados diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index 2f3745c8a..ad59e9d04 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -217,9 +217,9 @@ Partial Class Bancos_Transferencias Dim MsgError As String = "" - Dim ImporteDestino As Double = TxtImporte.Text.Trim.ToDouble - Dim ImporteMXOrigen As Double = TxtImporte.Text.Trim.ToDouble - Dim ImporteMXDestino As Double = TxtImporte.Text.Trim.ToDouble + Dim ImporteDestino As Decimal = TxtImporte.Text.Trim.ToDecimal + Dim ImporteMXOrigen As Decimal = TxtImporte.Text.Trim.ToDecimal + Dim ImporteMXDestino As Decimal = TxtImporte.Text.Trim.ToDecimal Dim ObjIE As New ClsBancos() Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) @@ -257,17 +257,17 @@ Partial Class Bancos_Transferencias If CveMonedaOrigen = 1 AndAlso CveMonedaDestino <> 1 Then 'pesos a otra moneda se divide - ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDouble / TxtTipoCambio.Text.ToDouble, 2) - ImporteMXDestino = TxtImporte.Text.Trim.ToDouble + ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal / TxtTipoCambio.Text.ToDecimal, 2) + ImporteMXDestino = TxtImporte.Text.Trim.ToDecimal ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino = 1 Then 'de otra moneda a pesos se multiplica - ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) - ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) - ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) + ImporteDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) + ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) + ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) ElseIf CveMonedaOrigen <> 1 AndAlso CveMonedaDestino <> 1 Then - ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) - ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDouble * TxtTipoCambio.Text.ToDouble, 2) + ImporteMXDestino = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) + ImporteMXOrigen = Math.Round(TxtImporte.Text.Trim.ToDecimal * TxtTipoCambio.Text.ToDecimal, 2) End If If CveMonedaOrigen = 2 AndAlso CveMonedaDestino = 2 Then @@ -333,18 +333,18 @@ Partial Class Bancos_Transferencias Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDetalle, - TxtImporte.Text.ToDouble, If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDouble, ImporteMXOrigen), 30, + TxtImporte.Text.ToDecimal, If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDecimal, ImporteMXOrigen), 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIE, - ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDouble * TC, 0), + ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDecimal * TC, 0), CveIEDevolucion:=CveIEDevolucion) Then If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'Agregamos complementaria If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDetalle, - 0, (TxtImporte.Text.ToDouble * TC - TxtImporte.Text.ToDouble).RoundSQL, 204, + 0, (TxtImporte.Text.ToDecimal * TC - TxtImporte.Text.ToDecimal).RoundSQL, 204, $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIE, - ImporteME:=TxtImporte.Text.ToDouble, + ImporteME:=TxtImporte.Text.ToDecimal, TipoCambio:=TC) Then MsgError = "Ocurrió un error al registrar el asiento del ingreso." End If @@ -356,7 +356,7 @@ Partial Class Bancos_Transferencias For Each row As GridViewRow In GvTC.Rows - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, row.FCTextBox("TxtAbono").Text.ToDouble, 41, + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 41, $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}", CveIE:=CveIEDestino) Then MsgError = "Ocurrio un error al ingresar la prepoliza" @@ -405,7 +405,7 @@ Partial Class Bancos_Transferencias 'Conta ContPAQ If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text) Then + If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text.ToDate) Then If ObjMov.ContaIdPoliza > 0 Then AlertaGlobal.AppendFormat("

Ver Póliza", ObjMov.ContaIdPoliza) End If @@ -576,7 +576,7 @@ Partial Class Bancos_Transferencias Private Sub MandaCorreo() 'Dim ArrayAttachment As New List(Of String) Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - If ViewState("Adjunto") IsNot Nothing AndAlso ViewState("Adjunto") <> "" Then + If ViewState("Adjunto") IsNot Nothing AndAlso ViewState("Adjunto").ToString <> "" Then ' ArrayAttachment.Add(ViewState("Adjunto").ToString) ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ViewState("Adjunto").ToString}) End If