AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RegPrePolizasCrear aaprtir de nueva estructura.

Browse Source
This commit is contained in:
rakcsle
2022-02-01 17:10:47 -07:00
parent b422fc3cb2
commit c87a3065fd
2 changed files with 376 additions and 398 deletions
Download Patch File Download Diff File Expand all files Collapse all files

359
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -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 & "<br>" & 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:<br><br>"
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("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", 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("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", 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("<br/><br/>Folio: <b><a href = ""/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", 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 <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & 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 & "<br>" & 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 & "<br>" & 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. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", 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. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", 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("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", 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("<br/><br/>Folio: <b><a href = ""/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", 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 & ".", "")} <br>" & 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 & ".", "")} <br>" & 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