From 1a30530778d52e105c4ae2a07531d7827425382e Mon Sep 17 00:00:00 2001 From: Desarrollo2019 Date: Mon, 19 Aug 2019 12:24:41 -0700 Subject: [PATCH] En el reporte de rembolsos comprobaciones contabilizar automaticamente cuando se unifica, en IE que agare el folio que regrese cuando se registre este mismo. --- Bancos/IE.aspx.vb | 38 +++++++++++++---------- Compras/RepRembolsoComprobaciones.aspx.vb | 37 ++++++++++++++++++++-- 2 files changed, 56 insertions(+), 19 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 78282a279..3b46b208e 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2352,7 +2352,6 @@ Partial Class Bancos_IE Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero Dim tImporteMonedaExtranjera As Decimal = 0 If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal - If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero 'cheque Dim PagueseA = "" If HdnCveCliente.Value.ToEntero > 0 Then @@ -2372,18 +2371,21 @@ Partial Class Bancos_IE End If If MsgError = "" Then - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) - - 'valida prepoliza - If CvePrePoliza > 0 Then - Dim Conc As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text) - Dim Ref As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text) - CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, + + CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1)) - If CveIE > 0 Then + If CveIE > 0 Then + + If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = ObjIE.Folio.ToEntero 'cheque + CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) + + 'valida prepoliza + If CvePrePoliza > 0 Then + Dim Conc As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text) + Dim Ref As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text) If Comprobante <> "" Then ComprobanteIE = $"{CveIE}.{Comprobante}" @@ -2462,7 +2464,7 @@ Partial Class Bancos_IE TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) importeMovimiento = 0 Multiplicador = (Row("Multiplicador").ToString.ToEntero) - Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", TxtFolio.Text) + Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio) Select Case ConceptoContable @@ -2562,7 +2564,7 @@ Partial Class Bancos_IE Dim ImporteAplicar = 0.0D Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = TxtFolio.Text + Dim ReferenciaAplicar = ObjIE.Folio Dim ConceptoAplicar = $"Devolución al cliente {PagueseA} {TxtImporte.Text} NC:{SerieFolioDevDin}" ImporteAplicar = TxtImporte.Text.ToDecimal @@ -2643,7 +2645,7 @@ Partial Class Bancos_IE Dim ImporteAplicar = 0.0D Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = TxtFolio.Text + Dim ReferenciaAplicar = ObjIE.Folio Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" @@ -2883,7 +2885,7 @@ Partial Class Bancos_IE TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) importeMovimiento = 0 Multiplicador = (Row("Multiplicador").ToString.ToEntero) - Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", TxtFolio.Text) + Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio) Select Case ConceptoContable @@ -3038,11 +3040,11 @@ Partial Class Bancos_IE If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ" ConceptoRenglon = String.Format("Anticipo {0}", PagueseA) - IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq) + IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, ObjIE.Folio, TipoChq) If IDPoliza > 0 Then FolioPoliza = Conta.Folio - Referencia = TxtFolio.Text + Referencia = ObjIE.Folio ConceptoRenglon = String.Format("Anticipo {0} {1}", PagueseA, TxtObservaciones.Text) Total = TxtImporte.Text.ToDouble @@ -3075,11 +3077,13 @@ Partial Class Bancos_IE End If Else - MsgError = "No se insertó el encabezado" + MsgError = "No se pudo insertar la póliza" End If + Else - MsgError = "No se pudo insertar la póliza" + MsgError = "No se insertó el encabezado" End If + End If Else diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index efc17754c..b3484860e 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -160,10 +160,17 @@ Partial Class Compras_RepRembolsoComprobaciones Private Sub LbkUnificar_Click(sender As Object, e As EventArgs) Handles LbkUnificar.Click Dim ObjComp As New ClsCompras() Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL) + Dim ObjAC As ClsContPAQi = Nothing + If UsuarioActual.Empresa.UsaAC Then + ObjAC = New ClsContPAQi(UsuarioActual.Empresa) + ObjAC.IniciaTransacSQL() + End If Dim TieneError = False Dim CvePrePoliza As Integer = 0 + Dim IdPoliza As Integer = 0 + Dim Msg As New StringBuilder - CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, txtfechaUnificacion.text.trim.todate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) + CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, DdlPersonal.SelectedValue.ToEntero, -1, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then @@ -187,17 +194,43 @@ Partial Class Compras_RepRembolsoComprobaciones End If End If + If Not TieneError Then + Msg.AppendFormat("Se unificaron todas las compras con éxito") + End If + + If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then + If ObjAC Is Nothing Then + TieneError = True + Return + End If + + If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then + TieneError = True + Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia) + Else + IdPoliza = ObjMov.ContaIdPoliza + End If + + If IdPoliza > 0 AndAlso Not TieneError Then + Msg.AppendFormat("

Ver Póliza", IdPoliza) + End If + + End If + If Not TieneError Then ObjComp.Commit() - Alert("Se unificaron todas las compras con éxito", TipoMensaje.MsgInformacion) + If ObjAC IsNot Nothing Then ObjAC.Commit() + Alert(Msg.ToString, TipoMensaje.MsgInformacion) Else ObjComp.RollBack() + If ObjAC IsNot Nothing Then ObjAC.RollBack() Alert("Ocurrió un error al unificar las compras", TipoMensaje.MsgAdvertencia) End If ObjComp.Dispose() ObjMov.Dispose() + If ObjAC IsNot Nothing Then ObjAC.Dispose() End Sub #Region " CARGA DATOS "