From c87a3065fdcf40d6165f7409ee7a18be456da74b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 1 Feb 2022 17:10:47 -0700 Subject: [PATCH] RegPrePolizasCrear aaprtir de nueva estructura. --- Contabilidad/RegPrePolizaS.aspx | 415 ++++++++++++++++------------- Contabilidad/RegPrePolizaS.aspx.vb | 359 +++++++++++-------------- 2 files changed, 376 insertions(+), 398 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 48cc84eb9..ccd045873 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePolizaS.aspx.vb" Inherits="ContabilidadC_RegPrePolizaS" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePolizaS.aspx.vb" Inherits="ContabilidadC_RegPrePolizaS" EnableEventValidation="false" %> @@ -97,150 +97,12 @@ - - -
-
-
- -
-
- - - - -
- - - - - - -
- - - -
- -
- - -
- -
- -
- - - - - -
-
-
- -
- - -
- -
- -
- - -
- - - -
- -
-
- -
- -
-
-
- -
- - - - -
-
-
- - -
-
-
- - - - - - - - - - - - - - - - - - - - - - - -
Concepto - Cta. ContableReferenciaDescripciónSubProyectoCargoAbonoComandos
- -
- -
-
- - - - - 		- -
- 		- - - - - -
- 		- - - - - - -
-
-
-
-
- - -
+
@@ -259,7 +121,7 @@
- +
@@ -290,7 +152,7 @@
-
+
@@ -334,45 +196,35 @@
- - <%--
- - -
--%>
-
- - -
+
+ + +
- - -
+ + +
- -
+
+
+
+
+ + +
+
+
-
+
- - - - - - - - - - - -
@@ -398,12 +250,167 @@ + + + + + + + + + + + +
+ <%--
+
+ +
+
+ + + + +
+ + + + + + + +
+ + + +
+ +
+ + +
+ +
+ +
+ + + + + +
+
+
--%> + + <%--
+ + +
+ +
+ +
+ + +
+ + +
+ +
+ + +
+ +
+ + + + +
+
+
--%> + + + + + + + +
+
+
+ + + + + + + + + + + + + + + + + + + + + + + +
Concepto + Cta. ContableReferenciaDescripciónSubProyectoCargoAbonoComandos
+ +
+ +
+
+ + + + + 		+ +
+ 		+ + + + + +
+ 		+ + + + + + +
+
+
+
+
+ + + + + + + + + @@ -424,7 +431,7 @@
-
+
@@ -539,7 +546,7 @@ -
+
@@ -709,7 +716,7 @@ - + <%----%> @@ -790,6 +797,9 @@
+ + +
@@ -835,7 +845,7 @@
Concepto:
- +
@@ -844,6 +854,9 @@
Proveedor:
+ + +
@@ -853,6 +866,9 @@
Compra:
+ + +
@@ -860,6 +876,9 @@
Personal:
+ + +
@@ -867,6 +886,9 @@
Cliente:
+ + +
@@ -875,6 +897,10 @@
Venta:
+ + + +
@@ -883,6 +909,10 @@
Clasificación:
+ + + +
@@ -890,10 +920,16 @@
Procentaje IVA:
+ + + + + +
@@ -904,6 +940,9 @@

+ + +

@@ -911,6 +950,9 @@
Referencia:
+ + +

@@ -918,6 +960,11 @@
Descripción:
+ + + + +

@@ -935,6 +982,9 @@
Tipo Gasto:
+ + +

@@ -998,7 +1048,7 @@
- +
@@ -1023,29 +1073,14 @@ - - - - - - - - - - - - - - -
- +
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 2e37ed2e3..f62dd3a9e 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -253,7 +253,10 @@ Partial Class ContabilidadC_RegPrePolizaS Beneficiario = "-1" Actualizar = False IdPoliza = -1 - CargaCtaContableE() + CargaCtaContableE() + + CargaConceptosContablesE() + CargaModalConceptoCuentas() If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then DivTipoGasto.Visible = True @@ -261,7 +264,8 @@ Partial Class ContabilidadC_RegPrePolizaS CargaTiposGasto() End If - If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then + If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then + ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero CreaDT() CargaPrePoliza() @@ -271,7 +275,10 @@ Partial Class ContabilidadC_RegPrePolizaS GvMov.Columns(5).Visible = False End If ValidaCrearAPartirDe() + DvPlantilla.Visible = False + UPPDocumento.Visible = False Exit Sub + ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then @@ -280,7 +287,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaPrePolizaOrigen() OcultarControlesCrearApartirDe() - + DvPlantilla.Visible = False Exit Sub @@ -289,6 +296,17 @@ Partial Class ContabilidadC_RegPrePolizaS BtnEliminar.Visible = False LnkExcel.Visible = True LnkImprimirPDF.Visible = False + DvPlantilla.Visible = True + + TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy") + TxtFechaelaboracion.Text = Now.ToString("dd/MM/yyyy") + TxtConcepto.Enabled = True + TxtUsuarioElaboro.Text = UsuarioActual.Usuario + DvPlantilla.Visible = True + LnkAddConcepto.Visible = False + + UpPrePoliza.Visible = False + End If @@ -300,7 +318,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaPlantillas(TipoPlantilla) - If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True + 'If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True CargaConceptos() CargaSubProyectos() @@ -311,23 +329,6 @@ Partial Class ContabilidadC_RegPrePolizaS CargaCuentas() - 'If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then - ' ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero - ' ViewState("CveProyecto") = Request("CveProyecto").ToEntero - ' ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero - ' ViewState("CveTurno") = Request("CveTurno").ToEntero - - ' DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61")) - ' DdlPlantilla.SelectedValue = "61" - ' DdlPlantilla.Enabled = False - ' DivAgregarConceptos.Visible = False - - ' CargaNomina() - - ' RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1) - ' RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2) - ' RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3) - 'End If If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then GvPrePoliza.Columns(4).Visible = False @@ -469,7 +470,7 @@ Partial Class ContabilidadC_RegPrePolizaS If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("") If dr IsNot Nothing Then - DivAgregarConceptos.Visible = False + 'DivAgregarConceptos.Visible = False DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza") TxtFechaDocumento.Text = dr("Fecha") TxtConcepto.Text = dr("Concepto") @@ -520,7 +521,7 @@ Partial Class ContabilidadC_RegPrePolizaS If UsuarioActual.CveEmpresa = 119 Then - BtnContabilizar.Visible = True + ' BtnContabilizar.Visible = True End If If UsuarioActual.Empresa.TipoContabilizacion = 1 Then @@ -537,12 +538,12 @@ Partial Class ContabilidadC_RegPrePolizaS IdPoliza = dr("IdPoliza").ToString.ToEntero ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then 'sino está contabilizada, se activa el botón - BtnContabilizar.Visible = True + ' BtnContabilizar.Visible = True End If End If - divDatosPrincipales.Visible = False - divObservaciones.Visible = False + 'divDatosPrincipales.Visible = False + 'divObservaciones.Visible = False UPMovs.Visible = False UPMovs.Update() UPPDocumento.Update() @@ -835,7 +836,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CodigoCuenta") = drt("Codigo").ToString & "
" & drt("Nombre").ToString dr("Cuenta") = Cuenta 'TxtCuentaContable.Text dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) - dr("Concepto") = TxtObservaciones.Text + dr("Concepto") = TxtConcepto.Text dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1) dr("EsComodin") = EsComodin dr("CveConcepto") = drt("CveConcepto") @@ -944,6 +945,8 @@ Partial Class ContabilidadC_RegPrePolizaS Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click + Dim FolioPoliza As Integer = -1 + Dim CvePrePolizaInsertada As Integer = -1 If CvePrePolizaOrigen > 0 Then CrarPrePolizaApartirDe() @@ -970,19 +973,26 @@ Partial Class ContabilidadC_RegPrePolizaS Exit Sub End If - For Each Gvr As GridViewRow In GvMov.Rows - If Gvr.DataKey("CveConceptoContable") = "30" AndAlso (Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 OrElse Gvr.FCTextBox("TxtAbono").Text.ToDecimal <> 0) Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE - If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then - Alert("No se han especificado las condiciones de pago ", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If - Next - - - 'terminan validaciones - + If Not CvePrePoliza > 0 Then + + For Each Gvr As GridViewRow In GvMov.Rows + If Gvr.DataKey("CveConceptoContable") = "30" AndAlso (Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 OrElse Gvr.FCTextBox("TxtAbono").Text.ToDecimal <> 0) Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE + If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then + Alert("No se han especificado las condiciones de pago ", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + Next + + End If + + + + + 'terminan validaciones + If CvePrePoliza > 0 Then ActualizarPrePoliza() Else @@ -996,12 +1006,12 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveIE As Integer Dim FolioIE As String = "" - Try - Dim CvePrePoliza As Integer - Dim ConceptoPoliza As String = TxtObservaciones.Text - CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero) + Try + + Dim ConceptoPoliza As String = TxtConcepto.Text + CvePrePolizaInsertada = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPoliza.SelectedValue.ToEntero, AgregarFolio:=True) - If CvePrePoliza > 0 Then + If CvePrePolizaInsertada > 0 Then Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

" Dim idCuentaContabilizacion As Long = 1 Dim Importe As Double = 0 @@ -1010,6 +1020,8 @@ Partial Class ContabilidadC_RegPrePolizaS Dim TipoMovto As Boolean = False Dim IdCtaContable As Integer = 0 + FolioPoliza = ObjMov.FolioPoliza + 'inserto las compras que voy a pagarDdlSaldos For Each gvr As GridViewRow In GvMov.Rows @@ -1020,9 +1032,9 @@ Partial Class ContabilidadC_RegPrePolizaS 'Registra movimieno bancario If gvr.DataKey("CveConcepto").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToString.ToDecimal <> 0 Then - CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString, + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio").ToString, gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", - False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario" Exit For @@ -1071,8 +1083,8 @@ Partial Class ContabilidadC_RegPrePolizaS ' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero 'End If - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, - TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE, + If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, + TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, @@ -1084,36 +1096,20 @@ Partial Class ContabilidadC_RegPrePolizaS End If End If If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then - MensajeAlert.AppendFormat("

Folio Bancario: {1}", CveIE, FolioIE) + MensajeAlert.AppendFormat("

Folio Bancario: {1}", CveIE, FolioIE) End If Next - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then + If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaInsertada, 1) Then If ObjMov.ValorPolizaDescuadre > 0 Then - GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaInsertada}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre End If End If - 'El movimiento 2 es el de Pago - If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - If idCuentaContabilizacion > 0 Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - - 'MENSAJE PRINCIPAL - MensajeAlert.AppendFormat("

Folio de Salida: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) - 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion) - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - End If - Else - Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas") - End If - Else - MensajeAlert.AppendFormat("

Folio: {1}", CvePrePoliza, ObjMov.ContaFolio) - End If - + + Else MsgError = "No se pudo insertar la póliza" End If @@ -1121,23 +1117,27 @@ Partial Class ContabilidadC_RegPrePolizaS MsgError = "Error" 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 + 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() - TxtObservaciones.Text = "" + TxtConcepto.Text = "" GvMov.DataBind() - TxtFecha.Text = "" - TxtObservaciones.Text = "" + TxtFechaDocumento.Text = "" + Else Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) ObjIE.RollBack() @@ -1207,7 +1207,7 @@ Partial Class ContabilidadC_RegPrePolizaS If Not OcurrioError Then If IdPoliza > 0 AndAlso contador Then - BtnContabilizar_Click(Nothing, Nothing) + ' BtnContabilizar_Click(Nothing, Nothing) End If End If @@ -1218,7 +1218,7 @@ Partial Class ContabilidadC_RegPrePolizaS BtnAceptar.Text = "Agregar" LimpiaCampos() - CargaConceptosContablesE() + 'CargaConceptosContablesE() CargaSubProyectoE() CargaTipoGastoE() @@ -1250,8 +1250,8 @@ Partial Class ContabilidadC_RegPrePolizaS Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtAbono").Text.ToDouble Dim PorcentajeImpuesto As Double = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToEntero - CargaConceptosContablesE() - CargaModalConceptoCuentas() + 'CargaConceptosContablesE() + 'CargaModalConceptoCuentas() DdlConceptosContablesE.SelectedValueExist(CveConceptoContable) DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e) @@ -1833,7 +1833,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta dr("Cuenta") = DdlConceptosContables.SelectedItem dr("Referencia") = TxtReferencia.Text - dr("Concepto") = TxtObservaciones.Text + dr("Concepto") = TxtConcepto.Text dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) dr("EsComodin") = 0 dr("CveConcepto") = DdlConceptosContables.SelectedValue @@ -1905,7 +1905,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta dr("Cuenta") = DdlConceptosContables.SelectedItem.Text dr("Referencia") = TxtReferencia.Text - dr("Concepto") = TxtObservaciones.Text + dr("Concepto") = TxtConcepto.Text dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) dr("EsComodin") = 0 dr("CveConcepto") = DdlConceptosContables.SelectedValue @@ -2091,22 +2091,25 @@ Partial Class ContabilidadC_RegPrePolizaS If DrM IsNot Nothing Then HdnCve.Value = idMov.ToString - DdlCuentaContable.SelectedValue = DrM("CveCuenta") - TxtReferencia.Text = DrM("Referencia") - TxtObservaciones.Text = DrM("Concepto") + DdlCuentaContable.SelectedValueExist(DrM("CveCuenta").ToString) + TxtReferencia.Text = DrM("Referencia").ToString + TxtConcepto.Text = DrM("Concepto") ' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto") DrM("EsComodin") = 0 - DdlConceptosContables.SelectedValue = DrM("CveConcepto").ToString + DdlConceptosContables.SelectedValueExist(DrM("CveConcepto").ToString) TxtCargo.Text = DrM("Cargo").ToString TxtAbono.Text = DrM("Abono").ToString - TxtDescripcion.Text = DrM("Descripcion") - DdlSubProyecto.SelectedValue = DrM("CveSubProyecto") - DdlProveedores.SelectedValue = DrM("CveProveedor") - DdlCompras.SelectedValue = DrM("CveCompra") - DdlPersonal.SelectedValue = DrM("CvePersonal") - ' DrM("CveClasificacion") = -1 - DdlClientes.SelectedValue = DrM("CveCliente") - DdlVentas.SelectedValue = DrM("CveVenta") + TxtDescripcion.Text = DrM("Descripcion").ToString + DdlSubProyecto.SelectedValueExist(DrM("CveSubProyecto").ToString) + DdlProveedores.SelectedValueExist(DrM("CveProveedor").ToString) + DdlCompras.SelectedValueExist(DrM("CveCompra").ToString) + DdlPersonal.SelectedValueExist(DrM("CvePersonal").ToString) + ' DrM("CveClasificacion") = -1 + + DdlClientes.txtValue.Value = DrM("CveCliente").ToString + 'DdlClientes.txtText.Value = DrM("CveCliente").ToString + + DdlVentas.SelectedValueExist(DrM("CveVenta").ToString) LbCancelarEdicion.Visible = True LbAgregar.Text = "Actualizar" @@ -2168,7 +2171,7 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub LbCancelarEdicion_Click(sender As Object, e As EventArgs) Handles LbCancelarEdicion.Click LbCancelarEdicion.Visible = False - TxtObservaciones.Text = "" + TxtConcepto.Text = "" Actualizar = False LbAgregar.Text = "Agregar" End Sub @@ -2574,29 +2577,29 @@ Partial Class ContabilidadC_RegPrePolizaS End Function #End Region - Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click + 'Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click - Contabilizar() + ' Contabilizar() - End Sub + 'End Sub - Private Sub Contabilizar() + 'Private Sub Contabilizar() - Dim ObjConta As New ClsContabilidad + ' Dim ObjConta As New ClsContabilidad - If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero - ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) - End If + ' If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero + ' ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) + ' End If - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then - Alert(String.Format("Prepóliza contabilizada.

Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) - Else + ' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then + ' Alert(String.Format("Prepóliza contabilizada.

Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) + ' Else - Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) - End If + ' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) + ' End If - ObjConta.Dispose() - End Sub + ' ObjConta.Dispose() + 'End Sub #Region "Paquete Egresos" @@ -2666,7 +2669,7 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub OcultarControlesCrearApartirDe() BtnEliminar.Visible = False - BtnContabilizar.Visible = False + 'BtnContabilizar.Visible = False GvPrePoliza.Columns(5).Visible = False DivTG.Visible = False GvMov.Columns(5).Visible = False @@ -2760,7 +2763,7 @@ Partial Class ContabilidadC_RegPrePolizaS If UsuarioActual.CveEmpresa = 119 Then - BtnContabilizar.Visible = True + ' BtnContabilizar.Visible = True End If @@ -2778,13 +2781,13 @@ Partial Class ContabilidadC_RegPrePolizaS IdPoliza = dr("IdPoliza").ToString.ToEntero ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then 'sino está contabilizada, se activa el botón - BtnContabilizar.Visible = True + 'BtnContabilizar.Visible = True End If End If - divDatosPrincipales.Visible = False - divObservaciones.Visible = False + 'divDatosPrincipales.Visible = False + 'divObservaciones.Visible = False UPMovs.Visible = False UPMovs.Update() UPPDocumento.Update() @@ -2812,9 +2815,6 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub -#End Region - - Protected Sub LnkCrearAPartirDe_Click(sender As Object, e As EventArgs) Response.Redirect($"./RegPrePolizaS.aspx?CvePrePolizaOrigen={CvePrePoliza}") End Sub @@ -2838,16 +2838,6 @@ Partial Class ContabilidadC_RegPrePolizaS Exit Sub End If - 'For Each Gvr As GridViewRow In GvPrePoliza.Rows - ' If Gvr.DataKey("CveConceptoContable") = "30" AndAlso (Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 OrElse Gvr.FCTextBox("TxtAbono").Text.ToDecimal <> 0) Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE - ' If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then - ' Alert("No se han especificado las condiciones de pago ", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - ' End If - - 'Next - 'terminan validaciones @@ -2945,14 +2935,12 @@ Partial Class ContabilidadC_RegPrePolizaS idCuentaContabilizacion = 0 End If If Importe <> 0 Then - Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero - - 'If gvr.datakey("CveConcepto") = "299" Then - ' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero - 'End If - + Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero + + + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.DataKey("Referencia"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("Concepto"), - TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveIE:=CveIE, + TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveIE:=CveIE, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.DataKey("CveTipoGasto").ToEntero, @@ -2976,24 +2964,7 @@ Partial Class ContabilidadC_RegPrePolizaS End If End If - - ''El movimiento 2 es el de Pago - 'If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - ' If idCuentaContabilizacion > 0 Then - ' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - ' 'MENSAJE PRINCIPAL - ' MensajeAlert.AppendFormat("

Folio de Salida: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) - ' 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion) - ' Else - ' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - ' End If - ' Else - ' Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas") - ' End If - 'Else - ' MensajeAlert.AppendFormat("

Folio: {1}", CvePrePoliza, ObjMov.ContaFolio) - 'End If Else MsgError = "No se pudo insertar la póliza" @@ -3004,24 +2975,21 @@ Partial Class ContabilidadC_RegPrePolizaS If MsgError = "" Then - 'MENSAJE IE - 'If CveIE > 0 Then - ' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()") - 'Else - 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={CvePrePoliza}""") - - '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={CvePrePoliza}""") + + + ObjIE.Commit() If Conta IsNot Nothing Then Conta.Commit() UPPDocumento.Update() - TxtObservaciones.Text = "" + TxtConcepto.Text = "" GvMov.DataBind() - TxtFecha.Text = "" - TxtObservaciones.Text = "" + TxtFechaDocumento.Text = "" + Else Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) ObjIE.RollBack() @@ -3051,61 +3019,36 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub - Private Sub CargaModalConceptoTipoTransaccion(Tipo As String) - DdlModalConceptoTipoTransaccion.Items.Clear() - DdlModalConceptoTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ") + Private Sub CargaModalConceptoTipoTransaccion(Tipo As String) + + DdlModalConceptoTipoTransaccion.Items.Clear() + + DdlModalConceptoTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ") + DdlModalConceptoTipoTransaccion.SelectedIndex = -1 + DdlModalConceptoTipoTransaccion.ClearSelection() + DdlModalConceptoTipoTransaccion.SelectedValue = Nothing DdlModalConceptoTipoTransaccion.DataBind() DdlModalConceptoTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1")) + End Sub Private Sub CargaModalConceptoCuentas() - DdlModalConceptoCuenta.Items.Clear() + DdlModalConceptoCuenta.Items.Clear() + DdlModalConceptoCuenta.ClearSelection() DdlModalConceptoCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue)) + DdlModalConceptoCuenta.SelectedValue = Nothing DdlModalConceptoCuenta.DataBind() - DdlModalConceptoCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlModalConceptoCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) + + + End Sub +#End Region - Private Function ValidaConceptoRow(DTRow As DataRow, GvRow As GridViewRow) As Boolean - - Dim ResPuesta As Boolean = False - Dim CveConCeptoValidar As Integer = -1 - ' Dim - - - If DTRow IsNot Nothing Then - CveConCeptoValidar = DTRow("CveConceptoContable") - End If - - - If GvRow IsNot Nothing Then - CveConCeptoValidar = DTRow("CveConceptoContable") - End If - - If CveConCeptoValidar > 0 Then - ' Aqui validar Row - End If - - - 'AplicaActivoFijo, - 'AplicaAlmacen, - 'AplicaBancos, - 'AplicaClasificacion, - 'AplicaCliente, - 'AplicaCompra, - 'AplicaImpuesto, - 'AplicaNomina, - 'AplicaPersonal, - 'AplicaProveedor, - 'AplicaSubProyecto, - 'AplicaTC, - 'AplicaVenta - - Return ResPuesta - End Function End Class