From 95a327197b169c75a2376d8cfcf7b8d94224e4fe Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 27 Sep 2022 19:52:56 -0700 Subject: [PATCH 1/2] Correcion de actualizacion de prepolizas --- App_Code/ClsContabilidad.vb | 25 +++++ Contabilidad/RegPrePolizaS.aspx.vb | 163 ++++++++++++++++++----------- 2 files changed, 127 insertions(+), 61 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 4c5f48563..9bbdb65df 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -716,6 +716,31 @@ Public Class ClsContabilidad Return Retorno End Function + Public Function RemovePrePolizasDetalle(CvePrePoliza As Integer, CvePrePolizaDetalle As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Conta_PrePolizasDetalleEspecificoRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + If ex.Message.Contains("50015;") Then + OnError("No se puede eliminar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + OnError("Ocurrió un error al eliminar el detalle de la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If + End Try + + Return Retorno + End Function + Public Function GetMovimientosPoliza(IdPoliza As Integer, CveEmpresa As Integer) As Integer Dim Retorno As Integer = -1 diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 1e0a49b93..2eeef22a0 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -25,6 +25,15 @@ Partial Class ContabilidadC_RegPrePolizaS ViewState("DtMovimientos") = value End Set End Property + + Public Property DtMovimientosEliminar As DataTable + Get + Return CType(ViewState("DtMovimientosEliminar"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtMovimientosEliminar") = value + End Set + End Property Public Property DtCuentasContables As DataTable Get Return CType(ViewState("DtCuentasContables"), DataTable) @@ -269,6 +278,7 @@ Partial Class ContabilidadC_RegPrePolizaS ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero CreaDT() + CreaDTEliminar() CargaPrePoliza() If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then GvPrePoliza.Columns(5).Visible = False @@ -412,6 +422,14 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.AcceptChanges() End Sub + + Private Sub CreaDTEliminar() + DtMovimientosEliminar = New DataTable("MovimientosEliminar") + With DtMovimientosEliminar.Columns + .Add("CvePrePolizaDetalle", GetType(Integer)) + End With + DtMovimientosEliminar.AcceptChanges() + End Sub Private Sub CargaPrePoliza() BtnEliminar.Visible = True LblEncabezado.Text = "Edición de Póliza" @@ -1142,7 +1160,7 @@ Partial Class ContabilidadC_RegPrePolizaS ' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()") 'End If - Alert(If(MensajeAlert.ToString = "", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""") + Alert(If(MensajeAlert.ToString = "", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""", ShowCloseButton:=False) ObjIE.Commit() @@ -1172,79 +1190,95 @@ Partial Class ContabilidadC_RegPrePolizaS Dim ObjContabilidad As New ClsContabilidad ObjContabilidad.IniciaTransacSQL() - ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) + Try + ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) - If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then - OcurrioError = True - End If + If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then + OcurrioError = True + End If - Dim CveIEAgregado As Integer = -1 - For Each row As GridViewRow In GvPrePoliza.Rows - If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then - If row.FCCheckBox("chkModificado").Checked Then - contador = contador + 1 + If DtMovimientosEliminar IsNot Nothing AndAlso DtMovimientosEliminar.Rows.Count > 0 Then + For Each RowEliminar As DataRow In DtMovimientosEliminar.Rows + If Not ObjContabilidad.RemovePrePolizasDetalle(Me.CvePrePoliza, RowEliminar("CvePrePolizaDetalle").ToString().ToEntero()) Then + OcurrioError = True + Exit For + End If + Next + End If - Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal) + If Not OcurrioError Then + Dim CveIEAgregado As Integer = -1 + For Each row As GridViewRow In GvPrePoliza.Rows + If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then + If row.FCCheckBox("chkModificado").Checked Then + contador = contador + 1 - If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then - Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) - CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"), - row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "", - False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If CveIEAgregado < 0 Then - 'MsgError = "No se pudo registrar movimiento bancario" + Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal) + + If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then + Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) + CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"), + row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "", + False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveIEAgregado < 0 Then + 'MsgError = "No se pudo registrar movimiento bancario" + OcurrioError = True + Exit For + End If + End If + + If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, + row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, + row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), + CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, + CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then + OcurrioError = True + Exit For + End If + End If + Else + contador = contador + 1 + + + Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal) + + If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then + Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) + CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"), + row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "", + False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveIEAgregado < 0 Then + 'MsgError = "No se pudo registrar movimiento bancario" + OcurrioError = True + Exit For + End If + End If + + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, + row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString, + row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now, + row.DataKey("IdCtaContable").ToEntero, 0, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, + CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), + ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, + row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero, + CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, + CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then OcurrioError = True Exit For End If End If - If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, - row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, - row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), - CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, - CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then - OcurrioError = True - Exit For - End If - End If - Else - contador = contador + 1 - - - Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal) - - If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then - Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) - CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"), - row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "", - False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If CveIEAgregado < 0 Then - 'MsgError = "No se pudo registrar movimiento bancario" - OcurrioError = True - Exit For - End If - End If - - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, - row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString, - row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now, - row.DataKey("IdCtaContable").ToEntero, 0, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, - CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), - ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, - row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero, - CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, - CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then - OcurrioError = True - Exit For - End If + Next End If - - Next + Catch ex As Exception + OcurrioError = True + OnError("Ocurrío un error al actualizar la PrePoliza", ex) + End Try If Not OcurrioError Then ObjContabilidad.Commit() - Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion) + Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False) Else ObjContabilidad.RollBack() Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) @@ -3057,12 +3091,19 @@ Partial Class ContabilidadC_RegPrePolizaS Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + If CvePrePoliza > 0 Then + Dim RowEliminar As DataRow = DtMovimientosEliminar.NewRow() + RowEliminar("CvePrePolizaDetalle") = GvRow.DataKey("CvePrePolizaDetalle") + DtMovimientosEliminar.Rows.Add(RowEliminar) + End If + DtMovimientos.Rows(GvRow.RowIndex).Delete() DtMovimientos.AcceptChanges() GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() + TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero UpTotalCargo.Update() From 71e2639c91ddc08f139285cd94c4f50fed20e683 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 27 Sep 2022 19:53:21 -0700 Subject: [PATCH 2/2] Impresion de moviientos de IE --- Bancos/Reportes/rptChequeMovimientos.rdlc | 3936 ++++++++++----------- 1 file changed, 1966 insertions(+), 1970 deletions(-) diff --git a/Bancos/Reportes/rptChequeMovimientos.rdlc b/Bancos/Reportes/rptChequeMovimientos.rdlc index 09954375b..f3455310b 100644 --- a/Bancos/Reportes/rptChequeMovimientos.rdlc +++ b/Bancos/Reportes/rptChequeMovimientos.rdlc @@ -1,1971 +1,1967 @@ - - - - - - true - true - - - - - =Parameters!Cuenta.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Paguese.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="<b>Importe: </b>" & FormatCurrency(Parameters!Importe.Value, 2) & " " & Parameters!MonedaAbreviatura.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.57974cm - - - 6.32386cm - - - 2.08353cm - - - 2.00257cm - - - 2.29951cm - - - 1.79499cm - - - 2.18122cm - - - - - 0.4677cm - - - - - true - true - - - - - Factura - - - - - - - Textbox19 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox21 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - F. Factura - - - - - - - Textbox23 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Original - - - - - - - Textbox25 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abonado - - - - - - - Textbox27 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - N.C - - - - - - - Textbox2 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldo - - - - - - - Textbox3 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descripcion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaCompra.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteNC.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Total - - - - : - - - - - - - Textbox30 - - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - =IiF(SUM(Fields!Importe.Value) > 0, SUM(Fields!Importe.Value),0.00) - - - - - - - Importe2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!ImporteNC.Value) - - - - - - - Textbox5 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!Saldo.Value) - - - - - - - Textbox6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - After - - - - - =Fields!SerieFolio.Value - =Fields!Descripcion.Value - =Fields!FechaCompra.Value - =Fields!Total.Value - =Fields!Importe.Value - =Fields!Saldo.Value - - - - - Before - - - - true - DataSet1 - 2.18687cm - 0.25413cm - 1.6677cm - 19.26542cm - 4 - - - - - - true - true - - - - - Cuenta: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Paguese: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Obs: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 2.03432cm - 19.51955cm - 0cm - -19.47588cm - 8 - - - - - - true - true - - - - - ="<b> Folio: </b>" & Parameters!Folio.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.5cm - - - 2.95074cm - - - 2.5cm - - - - - 0.52063cm - - - - - true - true - - - - - Resumen Notas de Crédito - - - - - - - Textbox7 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - 3 - - - - - - - - 0.6cm - - - - - true - true - - - - - Factura - - - - - - - Textbox4 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nota de Crédito - - - - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox10 - - - LightGrey - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SerieFolioNC.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - Total: - - - - - - - Textbox13 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =SUM(Fields!Importe.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - After - - - - - - =Fields!SerieFolio.Value - - - - - - - - Before - - - - true - DataSet2 - 4.20735cm - 0.25413cm - 2.32063cm - 7.95074cm - 10 - - =iif(Sum(Fields!Importe.Value)>0,false, true) - - - - - - - 6.70437cm - 19.51955cm - 0cm - -19.51955cm - 11 - - - - - - true - true - - - - - Fecha: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Fecha.Value - - - - - - - Cuenta - 0.0635cm - 6.22945in - 0.23622in - 1.40532in - 13 - - - 2pt - 2pt - 2pt - 2pt - - - - 7.24235cm - - - - - - - Textbox1 - 0.3175cm - 2.52765cm - 0.6cm - 14.40301cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE PAGO DE MOVIMIENTOS - - - - - - - - - - - - - - - - Textbox2 - 0.95278cm - 2.52765cm - 0.55591cm - 14.40301cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.15522cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.52063cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox41 - 0.01764cm - 16.41607cm - 0.48535cm - 2.97625cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 1cm - 1cm - 1.5cm - 1.5cm - 0.13cm - + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Paguese.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="<b>Importe: </b>" & FormatCurrency(Parameters!Importe.Value, 2) & " " & Parameters!MonedaAbreviatura.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.57974cm + + + 6.32386cm + + + 2.08353cm + + + 2.00257cm + + + 2.29951cm + + + 1.79499cm + + + 2.18122cm + + + + + 0.4677cm + + + + + true + true + + + + + Factura + + + + + + + Textbox19 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox21 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + F. Factura + + + + + + + Textbox23 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox25 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox27 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + N.C + + + + + + + Textbox2 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox3 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaCompra.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteNC.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Total + + + + : + + + + + + + Textbox30 + + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + =IiF(SUM(Fields!Importe.Value) > 0, SUM(Fields!Importe.Value),0.00) + + + + + + + Importe2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteNC.Value) + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!Saldo.Value) + + + + + + + Textbox6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + =Fields!SerieFolio.Value + =Fields!Descripcion.Value + =Fields!FechaCompra.Value + =Fields!Total.Value + =Fields!Importe.Value + =Fields!Saldo.Value + + + + + Before + + + + true + DataSet1 + 2.18687cm + 0.25413cm + 1.6677cm + 19.26542cm + 4 + + + + + + true + true + + + + + Cuenta: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Paguese: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Obs: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 2.03432cm + 19.51955cm + 0cm + -19.47588cm + 8 + + + + + + true + true + + + + + ="<b> Folio: </b>" & Parameters!Folio.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.5cm + + + 2.95074cm + + + 2.5cm + + + + + 0.52063cm + + + + + true + true + + + + + Resumen Notas de Crédito + + + + + + + Textbox7 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox4 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nota de Crédito + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox10 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolioNC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Total: + + + + + + + Textbox13 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =SUM(Fields!Importe.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + After + + + + + + =Fields!SerieFolio.Value + + + + + + + + Before + + + + true + DataSet2 + 4.20735cm + 0.25413cm + 2.32063cm + 7.95074cm + 10 + + =iif(Sum(Fields!Importe.Value)>0,false, true) + + + + + + + 6.70437cm + 19.51955cm + 0cm + -19.51955cm + 11 + + + + + + true + true + + + + + Fecha: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Cuenta + 0.0635cm + 6.22945in + 0.23622in + 1.40532in + 13 + + + 2pt + 2pt + 2pt + 2pt + + + + 7.24235cm + + + + + + + Textbox1 + 0.3175cm + 2.52765cm + 0.6cm + 14.40301cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE PAGO DE MOVIMIENTOS + + + + + + + + + + + + + + + + Textbox2 + 0.95278cm + 2.52765cm + 0.55591cm + 14.40301cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.15522cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.52063cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox41 + 0.01764cm + 16.41607cm + 0.48535cm + 2.97625cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 1cm + 1cm + 1.5cm + 1.5cm + 0.13cm +