From b447e3c72dac4e13e7dbae63d78880e002e1d8c5 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 21:44:44 -0700 Subject: [PATCH 01/11] mejora en cambio en PS --- Ashx/E48.ashx | 90 +++++++++++++++++++++++++++------------------------ 1 file changed, 47 insertions(+), 43 deletions(-) diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx index ae7947be3..a3d8a1d15 100644 --- a/Ashx/E48.ashx +++ b/Ashx/E48.ashx @@ -34,9 +34,9 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState Private Function Salida(ByVal context As HttpContext) As String Dim retorno As String = "" - Dim ObjInv As New ClsInventarios - Dim Respuesta As New FidelityAppsResponse - Dim RespuestaError As New FidelityAppsResponseError + + Dim Respuesta As New APHAppsResponse + Dim RespuestaError As New APHAppResponseError Dim TieneError As Boolean = False Dim JsonRequest As JObject = Nothing Dim ObjInventario As New ClsInventarios @@ -46,8 +46,8 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState Dim SinExistencia As String = "No hay existencias suficientes del producto: " Dim ObjUsuarios As New ClsSisUsuarios Dim CveUsuario As Integer - Dim UsuarioActual As Usuario = ValidaUsuarioSistema(100, CveEmpresa) - + Dim UsuarioActual As Usuario = Nothing 'ValidaUsuarioSistema(100, CveEmpresa) + Dim FolioSalida As Integer = 0 Dim ErrorAC As Boolean = False Dim ErrorMovInv As Boolean = False @@ -72,12 +72,10 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState End If If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha")) Then - Dim Inv As New ClsInventarios - Dim ObjProductosServicios As New ClsProductosServicios() Dim ObjContaAC As ClsContPAQi = Nothing - Dim tFolio As Integer = Inv.GetFolioSiguiente(3, CveEmpresa) + Dim observaciones As String = IIf(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen") - Dim CveAlmacen As Integer = 7 + Dim IDPoliza As Integer = 0 Dim usuario As String = JsonRequest("usuario").ToString() If ObjUsuarios.GetUsuariosEmpresas(-1) Then @@ -88,14 +86,24 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState Mensaje = "No se encontro el usuario ingresado" TieneError = True End If + Else + Mensaje = "No se encontro el usuario ingresado" + TieneError = True End If - Dim Fecha As Date = JsonRequest("fecha").ToString().ToDate - Dim almacen As String = JsonRequest("almacen").ToString() - Dim Recibe As String = JsonRequest("entrega").ToString() - Dim GlobalDTInvConceptos As DataTable - Dim EsContabilizable As Boolean = True - If Inv.GetConceptos Then GlobalDTInvConceptos = Inv.DtResultados Else GlobalDTInvConceptos = Nothing + If Not TieneError Then + + Dim GlobalDTInvConceptos As DataTable + If ObjInventario.GetConceptos Then GlobalDTInvConceptos = ObjInventario.DtResultados Else GlobalDTInvConceptos = Nothing + + Dim Fecha As Date = JsonRequest("fecha").ToString().ToDate + Dim almacen As String = JsonRequest("almacen").ToString() + Dim Recibe As String = JsonRequest("entrega").ToString() + Dim CveAlmacen As Integer = GlobalDTAlmacen(CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format(" Almacen = '{0}'", almacen)).ToEntero + + Dim EsContabilizable As Boolean = True + Dim tFolio As Integer = ObjInventario.GetFolioSiguiente(3, CveEmpresa) + Try Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("ASHX/E48", 53, 0, 0, 1, Fecha, observaciones, UsuarioActual.CveUsuario, CveEmpresa, CveTipoPoliza:=3) CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Fecha, tFolio, UsuarioActual.CveUsuario, CveEmpresa, -1, -1, -1, -1, Observaciones:=observaciones, Recibio:=Recibe, Modulo:="ASHX/E48") @@ -115,26 +123,16 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState For Each JsonPS As JObject In ListaPS Dim Cantidad As Double = JsonPS("cantidad").ToString.ToDouble() - Dim CvePS As Integer = GlobalDTPSSimplificado(Codigo:=JsonPS("codigo").ToString()).FiltroPrimeroValor("CvePS").ToEntero() - Dim DrPS As DataRow = GlobalDTPS(CveEmpresa, CvePS:=CvePS).FiltroPrimero("") - Dim CveUM As Integer - If ObjProductosServicios.GetPS(CvePS, -1, CveEmpresa) Then - If ObjProductosServicios.DtResultados.Rows.Count > 0 Then - CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero - End If - End If - If ObjInventario.GetExistenciasPS(CvePS, CveUM, CveEmpresa, CveAlmacen, FechaMovto:=String.Format("{0} 00:00", Fecha.ToString("yyyy/MM/dd"))) >= Cantidad Then + Dim dtt As DataTable = GlobalDTPSSimplificado(Codigo:=JsonPS("codigo").ToString()) + Dim CvePS As Integer = dtt.FiltroPrimeroValor("CvePS").ToEntero() + Dim CveUM As Integer = dtt.FiltroPrimeroValor("CveUnidadMedida").ToEntero() - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, 0, Observaciones:=observaciones, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - Mensaje = "Error al guardar los movimientos" + If CvePS > 0 Then + If ObjInventario.GetExistenciasPS(CvePS, CveUM, CveEmpresa, CveAlmacen, FechaMovto:=String.Format("{0} 00:00", Fecha.ToString("yyyy/MM/dd"))) >= Cantidad Then - ErrorMovInv = True - Exit For - End If - Else - If UsuarioActual.TienePermisoProceso(114) Then - If ObjInventario.GetExistenciasPS(CvePS, CveUM, CveEmpresa, CveAlmacen, FechaMovto:=String.Format("{0} 00:00", Fecha.ToString("yyyy/MM/dd"))) >= Cantidad Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, 0, Observaciones:=observaciones, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then Mensaje = "Error al guardar los movimientos" + ErrorMovInv = True Exit For End If @@ -142,7 +140,11 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState SinExistencia += String.Format("{0}, ", JsonPS("codigo").ToString()) ErrorMovInv = True End If + Else + SinExistencia += String.Format("{0}, ", JsonPS("codigo").ToString()) + ErrorMovInv = True End If + Cont += 1 Next Mensaje = SinExistencia @@ -162,8 +164,6 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero End If - - Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & 3).ToEntero If OrigenMov = 1 Then TipoMovtoAlmacen = False Else TipoMovtoAlmacen = True TipoMovtoOtro = Not TipoMovtoAlmacen @@ -247,15 +247,12 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState End If End If End If - - End If End If If IDPoliza > 0 Then ObjInventario.UpdateMovimientoPoliza(IDPoliza, CveMovimiento, UsuarioActual.CveEmpresa) End If - Else ErrorAC = True Mensaje = "No se pudo insertar la poliza" @@ -265,6 +262,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState If Not ErrorAC And Not ErrorMovInv Then Dim Msg As New StringBuilder + FolioSalida = ObjInventario.Folio Msg.AppendFormat("
El Movimiento se registro con el Folio: {0}", ObjInventario.Folio) Msg.AppendFormat("

Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) @@ -304,6 +302,8 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState TieneError = True End Try + Else + End If ObjInventario.Dispose() 'elimino la instancia @@ -321,7 +321,9 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState retorno = JsonConvert.SerializeObject(RespuestaError).ToString Else context.Response.StatusCode = 200 - Respuesta.Message = "La existencia se obtuvo correctamente" + Respuesta.Message = "La salida se registró correctamente" + Respuesta.Folio = folioSalida + retorno = JsonConvert.SerializeObject(Respuesta).ToString End If @@ -331,25 +333,27 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState End Function - Private Class FidelityAppsResponse + Private Class APHAppsResponse Sub New() - isSuccess = "true" + IsSuccess = "true" End Sub Public Property IsSuccess As String Public Property Message As String + Public Property Folio As String End Class - Private Class FidelityAppsResponseError + Private Class APHAppResponseError Sub New() - isSuccess = "false" + IsSuccess = "false" End Sub Public Property IsSuccess As String + Public Property Folio As String Public Property Message As String End Class Private Class AuthMessage Public Property IsSucces As Boolean - Public Property ErrorMessage As FidelityAppsResponseError + Public Property ErrorMessage As APHAppResponseError Public Property StatusCode As Integer End Class From 02715fc408f6453436fbb28e9d629dbd474df4b6 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 13 Jul 2021 16:24:26 -0700 Subject: [PATCH 02/11] ver el reporte --- Contabilidad/ContabilidadElectronica.aspx.vb | 35 +++++++++++++------- 1 file changed, 23 insertions(+), 12 deletions(-) diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb index 7f1ebb345..a90f7b512 100644 --- a/Contabilidad/ContabilidadElectronica.aspx.vb +++ b/Contabilidad/ContabilidadElectronica.aspx.vb @@ -37,19 +37,30 @@ Partial Class Contabilidad_ContabilidadElectronica 'TxtFechaI.Text = String.Format("01/01/{0}", Now.Year) 'TxtFechaI.Text = Now.ToShortDateString - If Not UsuarioActual.Empresa.UsaContabilidad Then - BtnGenerar.Enabled = False - Alert("Este módulo requiere el uso de contabilidad", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + 'If Not UsuarioActual.Empresa.UsaContabilidad Then + ' BtnGenerar.Enabled = False + ' Alert("Este módulo requiere el uso de contabilidad", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If - Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - If ObjConta.GetEjercicios() Then - DdlEjercicio.DataSource = ObjConta.DtResultados - Else - DdlEjercicio.DataSource = Nothing - End If - ObjConta.Dispose() + 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + 'If ObjConta.GetEjercicios() Then + ' DdlEjercicio.DataSource = ObjConta.DtResultados + 'Else + + Dim ClsConta As New ClsContabilidad + + If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then + DdlEjercicio.DataSource = ClsConta.DtResultados + Else + DdlEjercicio.DataSource = Nothing + End If + + ClsConta.Dispose() + + DdlEjercicio.DataBind() + 'End If + 'ObjConta.Dispose() DdlEjercicio.DataBind() From 93564dab721b084ca0297bd19309c65cb365e00b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:46:17 -0700 Subject: [PATCH 03/11] cambios para que tome los datos de sistema --- Contabilidad2/CatCuentasAsignaciones.aspx | 98 ++++++++----- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 143 +++++++++++++------ 2 files changed, 162 insertions(+), 79 deletions(-) diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index e27cdb81e..5d785e43e 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -21,29 +21,58 @@ + + +
+
+
+ + +
+
+
+ +
+ + + + + + + + + + + +
+ +
+
+
+ +
+ + + - + Style=" width:100%" GridLines="None"> - - - - - - - - - - + + + + + + - + - + - + @@ -67,53 +96,58 @@
- + +
-
+
-
- +
+
-
+

-
- +
+
-
+

- +
-
- +
+
-
- +
+
-
+
- +
-
- +
+
+
+ + +
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 5564dc374..301e181af 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -15,10 +15,15 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - CargaDatos() + If Not Page.IsPostBack Then + CargaDatosModal() End If + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click + CargaDatosSistema() + End Sub Private Sub CargaDatos() @@ -28,8 +33,19 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End If ObjConta.Dispose() GvDatos.DataBind() + End Sub + + Private Sub CargaDatosSistema() + Dim ObjConta As New ClsContabilidad + If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.selectedvalue.toentero) Then + GvDatos.DataSource = ObjConta.DtResultados + End If + ObjConta.Dispose() + GvDatos.DataBind() + UpDatos.Update() End Sub + Private Sub CargaDatosModal() DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa) DdlConceptoNomina.DataBind() @@ -53,7 +69,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa) - + DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) Dim ObjBancos As New ClsBancos If ObjBancos.GetBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) Then @@ -79,46 +95,79 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End Sub Protected Sub ActualizaModulo(sender As Object, e As EventArgs) - LimpiarDatos() - - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero - DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero - DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero - DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero) - DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero - DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero - DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero - TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta") - TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA") - DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta")) - - Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero - Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero - - If CveCliente > 0 Then - DdlClientes.setEsWebService(False) - Dim ObjCliente As New ClsClientes - If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - DdlClientes.ddl.DataSource = ObjCliente.DtResultados - End If - DdlClientes.ddl.DataBind() - DdlClientes.ddl.SelectedValue = CveCliente - End If - - If CvePersonal > 0 Then - DdlPersonal.setEsWebService(False) - Dim ObjPersonal As New ClsRH - If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then - DdlPersonal.ddl.DataSource = ObjPersonal.DtResultados - End If - DdlPersonal.ddl.DataBind() - DdlPersonal.ddl.SelectedValue = CvePersonal - End If - - LbAgregar.Text = "Actualizar" - UpModalModulos.Update() - RegistraScript("$('#ModalCat').modal();") + LimpiarDatos() + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim Dr As DataRow = GlobalDTContaConceptosContables(GvRow.DataKey("CveConceptoContable").ToEntero).FiltroPrimero("") + Dim CveConceptoContable As Integer = GvRow.DataKey("CveConceptoContable").ToString.ToEntero + HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacion").ToString + + If Dr IsNot Nothing Then + CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero + DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable")) + DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta")) + DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero) + DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor")) + DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) + DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen")) + TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta") + TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA") + DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta")) + + Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero + Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero + + If Dr("AplicaCliente").ToString = "True" Then + divCliente.Visible = True + If CveCliente > 0 Then + DdlClientes.setEsWebService(False) + Dim ObjCliente As New ClsClientes + If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + DdlClientes.ddl.DataSource = ObjCliente.DtResultados + End If + DdlClientes.ddl.DataBind() + DdlClientes.ddl.SelectedValue = CveCliente + End If + End If + If Dr("AplicaProveedor").ToString = "True" Then + divProveedor.Visible = True + End If + + If Dr("AplicaPersonal").ToString = "True" Then + divPersonal.Visible = True + If CvePersonal > 0 Then + DdlPersonal.setEsWebService(False) + Dim ObjPersonal As New ClsRH + If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then + DdlPersonal.ddl.DataSource = ObjPersonal.DtResultados + End If + DdlPersonal.ddl.DataBind() + DdlPersonal.ddl.SelectedValueExist(CvePersonal) + End If + End If + + If Dr("AplicaClasificacion").ToString = "True" Then + divClasificacion.Visible = True + End If + + If Dr("AplicaBancos").ToString = "True" Then + divBancos.Visible = True + End If + + If Dr("AplicaAlmacen").ToString = "True" Then + divAlmacen.Visible = True + End If + + If Dr("AplicaActivoFijo").ToString = "True" Then + divActivoFijo.Visible = True + End If + + + LbAgregar.Text = "Actualizar" + UpModalModulos.Update() + RegistraScript("$('#ModalCat').modal();") + End If + + End Sub Protected Sub EliminarRow(sender As Object, e As EventArgs) @@ -127,7 +176,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then Alert("se elimino correctamente") End If - CargaDatos() + CargaDatosSistema() UpDatos.Update() ObjConta.Dispose() End Sub @@ -162,13 +211,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click Dim ObjConta As New ClsContabilidad Dim ErrorString As String = "" - If LbAgregar.Text = "Agregar" Then + If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then ErrorString = "Error al agregar" End If - ElseIf LbAgregar.Text = "Actualizar" Then + ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then @@ -183,7 +232,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Else Alert("Agregado correctamente") End If - CargaDatos() + CargaDatosSistema() UpDatos.Update() End Sub End Class From e36d87c7ed9a329e5a2c1f36388471dc4d8b1c99 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:46:33 -0700 Subject: [PATCH 04/11] =?UTF-8?q?se=20omiti=C3=B3=20llamda=20aspmap?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SCT/RepLicencias.aspx.vb | 4 ---- 1 file changed, 4 deletions(-) diff --git a/SCT/RepLicencias.aspx.vb b/SCT/RepLicencias.aspx.vb index 163a7cd94..d37e92502 100644 --- a/SCT/RepLicencias.aspx.vb +++ b/SCT/RepLicencias.aspx.vb @@ -2,11 +2,7 @@ 'Option Strict On Imports System.Data -Imports AspMap -Imports System.Drawing Imports Extensiones -Imports System.IO -Imports AspMap.Web Partial Class SCT_RepLicencias Inherits ClsPaginas From a1f9e6dc25f05d9d8b95aa66638bea8602cfd2a2 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:46:57 -0700 Subject: [PATCH 05/11] =?UTF-8?q?que=20cargue=20todas=20las=20bit=C3=A1cor?= =?UTF-8?q?as=20del=20usuario,=20sin=20que=20considera=20el=20filtro=20de?= =?UTF-8?q?=20empresa?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/UsuarioDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 72683623b..2ed1f151e 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -4756,7 +4756,7 @@ Partial Class Sistemas_UsuarioDetalle Private Sub CargaGvBitacora() If CveUsuario > 0 Then Dim ObjGral As New ClsGenerales() - If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveUsuario:=CveUsuario) Then + If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, -1, CveUsuario:=CveUsuario) Then ' UsuarioActual.CveEmpresa, se manda empresa -1 GvBitacoraHistorial.DataSource = ObjGral.DtResultados ObjGral.Dispose() End If From 210cf13f9386a117f4db4d13f8bc4874b5fb2076 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:47:09 -0700 Subject: [PATCH 06/11] limitar dias de caducidad --- Ventas/ProductosServicios.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 88f10f22b..c9d4bb2ae 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -882,7 +882,7 @@
- +
From 25005b9a49acbaee6a3171969e1e5694be1c55ec Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:47:25 -0700 Subject: [PATCH 07/11] =?UTF-8?q?correci=C3=B3n=20de=20texto=20en=20funci?= =?UTF-8?q?=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepConciliacionSat.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/RepConciliacionSat.aspx.cs b/Ventas/RepConciliacionSat.aspx.cs index 9bf833b30..6d282df49 100644 --- a/Ventas/RepConciliacionSat.aspx.cs +++ b/Ventas/RepConciliacionSat.aspx.cs @@ -55,7 +55,7 @@ public partial class Ventas_RepConciliacionSat : ClsPaginas RfechaF = txtFechaF.Text.Length > 0 ? txtFechaF.Text.ToDateTime().ToString("yyyy/MM/dd") : ""; using (ClsGenerales ObjRepC = new ClsGenerales()) { - ObjRepC.RepConciliacionSatGET(UsuarioActual.CveEmpresa, RtipoDocto, RfechaI, RfechaF); + ObjRepC.RepConciliacionSATGet(UsuarioActual.CveEmpresa, RtipoDocto, RfechaI, RfechaF); GVRepConciliacionSatGET.DataSource = ObjRepC.DtResultados; ObjRepC.Dispose(); From 78328befc1b344226eeeaafe47d4c28266245a65 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:47:47 -0700 Subject: [PATCH 08/11] =?UTF-8?q?alinear=20columnas=20num=C3=A9ricas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RepGastosCC.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad/RepGastosCC.aspx.vb b/Contabilidad/RepGastosCC.aspx.vb index 492a0beaf..2222739d5 100644 --- a/Contabilidad/RepGastosCC.aspx.vb +++ b/Contabilidad/RepGastosCC.aspx.vb @@ -82,7 +82,7 @@ Partial Class RepGastosCC Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell) Cells.Text = Cells.Text.FormatoNumero(2) - + Cells.HorizontalAlign = HorizontalAlign.Right End If End If Next From 94e5cb74b2468c9506ceea7151d9a81cdbff0562 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:48:29 -0700 Subject: [PATCH 09/11] =?UTF-8?q?correccion=20de=20warning,=20para=20que?= =?UTF-8?q?=20retorne=20valor=20funci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- asmx/WSSIGApp.asmx | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx index 9aaca8891..4f0113534 100644 --- a/asmx/WSSIGApp.asmx +++ b/asmx/WSSIGApp.asmx @@ -1548,7 +1548,7 @@ Public Class WSSIGApp #Region "P R O D U C T O S - S E R V I C I O S" Public Function AddPS(parametros As String) As Boolean - 'Dim TieneError As Boolean = False + Dim TieneError As Boolean = False 'Dim ObjPS As New ClsProductosServicios 'ObjPS.IniciaTransacSQL() 'Try @@ -1571,7 +1571,7 @@ Public Class WSSIGApp ' End If ' ObjPS.Dispose() 'End Try - 'Return Not TieneError + Return Not TieneError End Function Public Function GetPS(CveEmpresa As Integer) As String @@ -1598,7 +1598,7 @@ Public Class WSSIGApp End Function Public Function AddClasificaciones(parametros As String) As Boolean - 'Dim TieneError As Boolean = False + Dim TieneError As Boolean = False 'Dim ObjClasi As New ClsClasificaciones 'ObjClasi.IniciaTransacSQL() 'Try @@ -1620,7 +1620,7 @@ Public Class WSSIGApp ' End If ' ObjClasi.Dispose() 'End Try - 'Return Not TieneError + Return Not TieneError End Function Public Function GetRepPS(params As String) As String From b4207f844a2d17fdcd46066bc760f57072d8780d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:48:57 -0700 Subject: [PATCH 10/11] =?UTF-8?q?--=20funci=C3=B3n=20de=20asignaciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 1621c3921..289b3981f 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -950,7 +950,7 @@ Public Class ClsContabilidad OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) - OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) @@ -5747,6 +5747,26 @@ Public Class ClsContabilidad Return Retorno End Function + Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer) As Boolean + Dim Retorno = False + + DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Tipo", SqlDbType.Int).Value = Tipo + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el catálogo de cuentas asignación2", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean From 0d9fd0e77ba153025a37ced3fe859c2c3c4ea993 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 14 Jul 2021 12:49:18 -0700 Subject: [PATCH 11/11] filtro porconcepto de globaldtconceptos --- App_Code/ClsPaginas.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index bf5d3e6f6..cb66a38d5 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3079,16 +3079,17 @@ Public Class ClsPaginas - Property GlobalDTContaConceptosContables(CvePlantillaPoliza As Integer) As DataTable + Property GlobalDTContaConceptosContables(CveConceptoContable As Integer) As DataTable Get - If CvePlantillaPoliza <> -1 Then - Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CvePlantillaPoliza = {0}", CvePlantillaPoliza), "", DataViewRowState.CurrentRows) + If CveConceptoContable <> -1 Then + Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CveConceptoContable = {0}", CveConceptoContable), "", DataViewRowState.CurrentRows) GlobalDTContaConceptosContables = Dv.ToTable Dv.Dispose() Else GlobalDTContaConceptosContables = DirectCast(Application("GlobalDTContaConceptosContables"), DataTable) End If + End Get Set(value As DataTable) Application("GlobalDTContaConceptosContables") = value