From 837db51595f62751f42130c7de1d2f80d38acdce Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 12 Apr 2022 20:36:56 -0700 Subject: [PATCH] Reg Prepolzias S --- Contabilidad/RegPrePolizaS.aspx | 4 +- Contabilidad/RegPrePolizaS.aspx.vb | 135 +++++++++++++++++------ Contabilidad/RepOrigenAplicacion.aspx.vb | 4 +- 3 files changed, 105 insertions(+), 38 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index f53ec254c..17a24c725 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -498,7 +498,7 @@ Cargo - +
ME: TC:
@@ -508,7 +508,7 @@ Abono - +
ME:
 diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index c482c796d..e66322f35 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -381,9 +381,17 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("EsComplementaria", Type.GetType("System.Boolean")) .Add("TC", Type.GetType("System.Decimal")) - - End With + + + If Not DtMovimientos.Columns.Contains("Cargo") Then + DtMovimientos.Columns.Add("Cargo", Type.GetType("System.Decimal")) + DtMovimientos.Columns.Add("Abono", Type.GetType("System.Decimal")) + End If + + + DtMovimientos.AcceptChanges() + End Sub 'Private Sub CargaNomina() @@ -517,9 +525,16 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.Columns.Add("ContadoObservaciones", GetType(String)) DtMovimientos.Columns.Add("ContadoImporte", GetType(Decimal)) - End If + If Not DtMovimientos.Columns.Contains("Cargo") Then + DtMovimientos.Columns.Add("Cargo", GetType(Decimal)) + DtMovimientos.Columns.Add("Abono", GetType(Decimal)) + End If + + + + GvPrePoliza.DataBind() If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then @@ -1015,6 +1030,11 @@ Partial Class ContabilidadC_RegPrePolizaS Dim MsgError As String = "" Dim CveIE As Integer Dim FolioIE As String = "" + Dim ContRegInsertados As Integer = 0 + + Dim TmpCargo As Decimal = 0D + Dim TmpAbono As Decimal = 0D + Dim DifCargoAbono As Decimal = 0D Try @@ -1032,7 +1052,6 @@ Partial Class ContabilidadC_RegPrePolizaS FolioPoliza = ObjMov.FolioPoliza - 'inserto las compras que voy a pagarDdlSaldos For Each gvr As GridViewRow In GvMov.Rows 'If gvr.DataKey("IDCuenta").ToEntero > 0 Then @@ -1056,20 +1075,28 @@ Partial Class ContabilidadC_RegPrePolizaS ImporteME = 0 TipoCambio = 1 + If gvr.DataKey("TipoMovto").ToDouble > 0 Then Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble + TmpAbono = TmpAbono + Importe TipoMovto = True + If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal End If + Else + Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble + TmpCargo = TmpCargo + Importe TipoMovto = False + If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal End If + End If If gvr.DataKey("CveConcepto").ToEntero <> 30 Then @@ -1100,6 +1127,8 @@ Partial Class ContabilidadC_RegPrePolizaS ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then + ContRegInsertados = ContRegInsertados + 1 + Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For @@ -1108,6 +1137,7 @@ Partial Class ContabilidadC_RegPrePolizaS If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then MensajeAlert.AppendFormat("

Folio Bancario: {1}", CveIE, FolioIE) End If + Next If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaInsertada, 1) Then @@ -1124,40 +1154,48 @@ Partial Class ContabilidadC_RegPrePolizaS MsgError = "No se pudo insertar la póliza" End If Catch ex As Exception - MsgError = "Error" + MsgError = $"Error {ex.Message}" End Try - If MsgError = "" Then - 'MENSAJE IE - 'If CveIE Then - ' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") - 'Else - ' 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}""") - - - ObjIE.Commit() - If Conta IsNot Nothing Then Conta.Commit() - - UPPDocumento.Update() - - TxtConcepto.Text = "" - GvMov.DataBind() - TxtFechaDocumento.Text = "" - - Else - Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) - ObjIE.RollBack() - If Conta IsNot Nothing Then Conta.RollBack() + If ContRegInsertados = 0 Then + MsgError = $"No se insertaron registros (Revise que los importes de los registros contengan valores)" End If - ObjIE.Dispose() - ObjMov.Dispose() - If Conta IsNot Nothing Then Conta.Dispose() - End If + + If MsgError = "" Then + 'MENSAJE IE + + 'If CveIE Then + ' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") + 'Else + ' 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}""") + + + ObjIE.Commit() + If Conta IsNot Nothing Then Conta.Commit() + + UPPDocumento.Update() + + TxtConcepto.Text = "" + 'GvMov.DataBind() + DdlPlantilla_SelectedIndexChanged(Nothing, Nothing) + + TxtFechaDocumento.Text = "" + + Else + Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) + ObjIE.RollBack() + If Conta IsNot Nothing Then Conta.RollBack() + End If + + ObjIE.Dispose() + ObjMov.Dispose() + If Conta IsNot Nothing Then Conta.Dispose() + End If End Sub Private Sub ActualizarPrePoliza() @@ -2004,7 +2042,6 @@ Partial Class ContabilidadC_RegPrePolizaS If Rows.Count > 0 Then Dim dr As DataRow = Rows(0) - dr("ContadoTipoTransaccion") = DdlTipoTransaccion.SelectedValue.ToEntero dr("ContadoCuenta") = DdlCuenta.SelectedValue.ToEntero dr("ContadoNumeroFolio") = TxtDocumentoFolio.Text @@ -2012,9 +2049,33 @@ Partial Class ContabilidadC_RegPrePolizaS dr("ContadoBeneficiario") = TxtDocumentoBeneficiario.Text dr("ContadoObservaciones") = TxtDocumentoObservaciones.Text End If + DtMovimientos.AcceptChanges() + + If Not DtMovimientos.Columns.Contains("Cargo") Then + DtMovimientos.Columns.Add("Cargo", GetType(Decimal)) + DtMovimientos.Columns.Add("Abono", GetType(Decimal)) + End If + + Dim IndexX As Integer = 0 + For Each PGvRow As GridViewRow In GvMov.Rows + + If PGvRow.RowType = DataControlRowType.DataRow Then + + DtMovimientos.Rows(IndexX)("Cargo") = PGvRow.FCTextBox("TxtCargo").Text.ToDecimal + DtMovimientos.Rows(IndexX)("Abono") = PGvRow.FCTextBox("TxtAbono").Text.ToDecimal + + IndexX = IndexX + 1 + End If + Next + GvMov.DataSource = DtMovimientos GvMov.DataBind() + + + + + 'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero 'CveCuenta = DdlCuenta.SelectedValue.ToEntero 'Folio = TxtDocumentoFolio.Text @@ -2793,6 +2854,12 @@ Partial Class ContabilidadC_RegPrePolizaS End If + + If Not DtMovimientos.Columns.Contains("Cargo") Then + DtMovimientos.Columns.Add("Cargo", GetType(Decimal)) + DtMovimientos.Columns.Add("Abono", GetType(Decimal)) + End If + GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() diff --git a/Contabilidad/RepOrigenAplicacion.aspx.vb b/Contabilidad/RepOrigenAplicacion.aspx.vb index 12fd1f715..f3ffed8e0 100644 --- a/Contabilidad/RepOrigenAplicacion.aspx.vb +++ b/Contabilidad/RepOrigenAplicacion.aspx.vb @@ -84,8 +84,8 @@ Partial Class Contabilidad_RepOrigenAplicacion If UsuarioActual.Empresa.TipoContabilidad = 1 Then - TabMensual.Enabled = False - TabAnual.Enabled = False + TabMensual.Visible = False + TabAnual.Visible = False TdFI.Visible = False tdTipoReporte.Visible = False