From 07753cbf022b13746070eaefd3120e5c308d62cc Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Nov 2023 11:54:41 -0700 Subject: [PATCH] =?UTF-8?q?--asignaci=C3=B3n=20de=20cuentas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Proveedores.aspx | 48 +++++++++++++++- Compras/Proveedores.aspx.vb | 107 +++++++++++++++++++++++++++++------- 2 files changed, 134 insertions(+), 21 deletions(-) diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index f3ae02aac..7d885cd86 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -868,11 +868,17 @@
+ - + + + + + +
@@ -4164,6 +4170,46 @@
+ + diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 5d0cc2851..6b144f494 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1032,13 +1032,18 @@ Partial Class Compras_Proveedores End Sub Private Sub CargaCuentasConceptos() + If UsuarioActual.TienePermisoProceso(88) OrElse UsuarioActual.TienePermisoProceso(87) Then + BtnVincularCuenta.Visible = True + If UsuarioActual.CveEmpresa = 13 Then BtnCuentaDesglose.Visible = True + End If Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentasConceptos(1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then + If ObjConta.GetCuentasConceptos(-1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then GvCta.DataSource = ObjConta.DtResultados - If ObjConta.DtResultados.Rows.Count = 0 Then BtnCuentaDesglose.Visible = True + If ObjConta.DtResultados.Rows.Count = 0 Then BtnCuentaDesglose.Visible = True Else BtnCuentaDesglose.Visible = False End If ObjConta.Dispose() GvCta.DataBind() + UPPContable.Update() End Sub @@ -5184,11 +5189,11 @@ Partial Class Compras_Proveedores Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) CargaEvaluacion(Row) - Dim Fecha = TxtFechaE.Text.ToDateTime() - Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX")) - Dim Obs = TxtObsE.Text.Trim() - Dim Calificacion = TxtCalificacion.Text.ToEntero() - Dim Firma = TxtFirma.Text + Dim Fecha As DateTime = TxtFechaE.Text.ToDateTime() + Dim Mes As String = Fecha.ToString("MMMM", New CultureInfo("es-MX")) + Dim Obs As String = TxtObsE.Text.Trim() + Dim Calificacion As Integer = TxtCalificacion.Text.ToEntero() + Dim Firma As String = TxtFirma.Text Dim Resultado As String = "" @@ -5206,12 +5211,12 @@ Partial Class Compras_Proveedores Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) CargaEvaluacion(Row) - Dim Fecha = TxtFechaE.Text.ToDateTime() + Dim Fecha As DateTime = TxtFechaE.Text.ToDateTime() - Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX")) - Dim Obs = TxtObsE.Text.Trim() - Dim Calificacion = TxtCalificacion.Text.ToEntero() - Dim Firma = TxtFirma.Text + Dim Mes As String = Fecha.ToString("MMMM", New CultureInfo("es-MX")) + Dim Obs As String = TxtObsE.Text.Trim() + Dim Calificacion As Integer = TxtCalificacion.Text.ToEntero() + Dim Firma As String = TxtFirma.Text Dim Resultado As String = "" @@ -5232,9 +5237,9 @@ Partial Class Compras_Proveedores e.Row.FCRadioButtonList("RblRespuesta").Visible = False End If If e.Row.DBCampo("TipoDato") = "2" Then - Dim CvePregunta = e.Row.DBCampo("CvePreguntaEvaluacion").ToEntero() + Dim CvePregunta As Integer = e.Row.DBCampo("CvePreguntaEvaluacion").ToEntero() If CvePregunta > 0 AndAlso DtRespuestasEvaluacion IsNot Nothing Then - Dim Respuesta = DtRespuestasEvaluacion.FiltroPrimeroValor("RespuestaBit", $"CvePreguntaEvaluacion={CvePregunta}") + Dim Respuesta As String = DtRespuestasEvaluacion.FiltroPrimeroValor("RespuestaBit", $"CvePreguntaEvaluacion={CvePregunta}") e.Row.FCRadioButtonList("RblRespuesta").SelectedValue = Respuesta End If End If @@ -5244,8 +5249,8 @@ Partial Class Compras_Proveedores Private Sub CargaEvaluacion(Row As GridViewRow) LimpiarDatosEvaluacion() - Dim CveEvaluacionProveedor = Row.DataKey("CveEvaluacionProveedor").ToEntero() - Dim CveCompra = Row.DataKey("CveCompra").ToEntero() + Dim CveEvaluacionProveedor As Integer = Row.DataKey("CveEvaluacionProveedor").ToEntero() + Dim CveCompra As Integer = Row.DataKey("CveCompra").ToEntero() TxtRS.Text = Row.DataKey("RazonSocial") TxtCodigoE.Text = Row.DataKey("Codigo") @@ -5314,7 +5319,7 @@ Partial Class Compras_Proveedores End Sub Protected Function GetTagsCartaEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) As List(Of TagsDocumentos) - Dim ListaTagsDocumentost = New List(Of TagsDocumentos) + Dim ListaTagsDocumentost As New List(Of TagsDocumentos) ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia)) ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes)) @@ -5345,7 +5350,7 @@ Partial Class Compras_Proveedores Return ListaTagsDocumentost End Function Protected Function GetTagsFormatoEvaluacion() As List(Of TagsDocumentos) - Dim ListaTagsDocumentos = New List(Of TagsDocumentos) + Dim ListaTagsDocumentos As New List(Of TagsDocumentos) ListaTagsDocumentos.Add(New TagsDocumentos("{{Proveedor}}", TxtRS.Text.Trim())) ListaTagsDocumentos.Add(New TagsDocumentos("{{Codigo}}", TxtCodigoE.Text.Trim())) ListaTagsDocumentos.Add(New TagsDocumentos("{{Fecha}}", TxtFechaE.Text)) @@ -5630,7 +5635,7 @@ Partial Class Compras_Proveedores Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click 'NotificacionPago(HdnCveIE.Value.ToEntero, Txt) Dim ObjMail As New ClsSisMail() - Dim Body = GeneraCorreo(HdnCveIE.Value.ToEntero) + Dim Body As String = GeneraCorreo(HdnCveIE.Value.ToEntero) Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) @@ -5827,6 +5832,9 @@ Partial Class Compras_Proveedores ObjBancos.Dispose() End Sub + +#Region "Asignación-Cuentas" + Protected Sub BtnCuentaDesglose_Click(sender As Object, e As EventArgs) Dim tCveConcepto As Integer = 5 Dim tError As Boolean = False @@ -5837,6 +5845,8 @@ Partial Class Compras_Proveedores Dim CveCuentaGlobal As Integer = -2 If UsuarioActual.CveEmpresa = 13 Then CveCuentaGlobal = 84157 + Else + End If 'If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa, tCveConcepto) Then Dim Cve As Integer = ObjConta.GeneraCuentaDesglose(tCveConcepto, 1, CveCuentaGlobal, CveProveedor, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -5860,6 +5870,10 @@ Partial Class Compras_Proveedores tError = True End If End If + If Not tError AndAlso UsuarioActual.CveEmpresa.Contiene(13) Then + 'para EMD, vincular la de anticipos + ObjConta.AddCuentasAsignaciones(10, UsuarioActual.CveEmpresa, Cve, CveProveedor:=CveProveedor) + End If End If End If Else @@ -5872,14 +5886,67 @@ Partial Class Compras_Proveedores Alert("Cuenta Generada correctamente.
" & Msg) ObjConta.Commit() If ObjContai IsNot Nothing Then ObjContai.Commit() + CargaCuentasConceptos() Else ObjConta.RollBack() If ObjContai IsNot Nothing Then ObjContai.RollBack() ObjConta.Dispose() End If ObjConta.Dispose() - CargaCuentasContables() End Sub + + Private Sub BtnVincularCuenta_Click(sender As Object, e As EventArgs) Handles BtnVincularCuenta.Click + RegistraScript("$('#ModalContaCuenta').modal('show');") + DdlContaCuenta.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1) + DdlContaCuenta.DataBind() + DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1).FiltraParametros(" CveConceptoContable in (5,305,10,311)") + DdlConceptosContables.DataBind() + UPPCta.Update() + + End Sub + + Protected Sub BtnCuentaAsociar_Click(sender As Object, e As EventArgs) + Dim ObjConta As New ClsContabilidad + ObjConta.IniciaTransacSQL() + Dim ErrorString As String = "" + If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then + If Not ObjConta.AddCuentasAsignaciones(DdlConceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlContaCuenta.SelectedValue.ToEntero, CveProveedor:=CveProveedor) Then + ErrorString = "Error al agregar" + End If + ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then + If Not ObjConta.UpdateCuentasAsignaciones(HdnCveCuentaAsignacion.Value.ToEntero, DdlConceptosContables.SelectedValue.ToEntero, CveCuenta:=DdlContaCuenta.SelectedValue.ToEntero, CveProveedor:=CveProveedor) Then + ErrorString = "Error al actualizar" + End If + End If + If ErrorString.Length > 0 Then + ObjConta.RollBack() + Else + ObjConta.Commit() + + RegistraScript("$('#ModalContaCuenta').modal('hide');") + Alert("Agregado correctamente") + End If + ObjConta.Dispose() + End Sub + Protected Sub ActualizaContaCuenta(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Dim CveConceptoContable As Integer = GvRow.DataKey("CveConceptoContable").ToString.ToEntero + HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacion").ToString + HdnCveConceptoContable.Value = GvRow.DataKey("CveConceptoContable").ToString + DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1).FiltraParametros(" CveConceptoContable in (5,305,10,311)") + DdlConceptosContables.DataBind() + DdlContaCuenta.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1) + DdlContaCuenta.DataBind() + DdlContaCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToString + DdlConceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable")) + + RegistraScript("$('#ModalContaCuenta').modal('show');") + UPPCta.Update() + End Sub + +#End Region End Class