diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index ce78e577c..25c25c7a7 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -3390,6 +3390,28 @@ Public Class ClsCGame End Function +#End Region + +#Region "INDICADORES" + + Public Function GetIndicadores(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Citrus_IndicadoresGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + #End Region #Region "IDisposable Support" diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 83508ed79..282f11041 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9809,13 +9809,13 @@ Public Class ClsPaginas Dim Ret As New ConceptosRetenciones If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index b6ee28d2f..5fb4804f3 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2452,7 +2452,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean) As Boolean + Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAltasUp") @@ -2466,6 +2466,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@ValIndemnizacion", SqlDbType.Bit).Value = If(ValIndemnizacion, 1, 0) .Add("@ValSeparacionunica", SqlDbType.Bit).Value = If(ValSeparacionunica, 1, 0) .Add("@ValPrimadeantiguedad", SqlDbType.Bit).Value = If(ValPrimadeantiguedad, 1, 0) + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones End With Try SqlAdapter.Fill(Data) @@ -7397,7 +7398,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno End Function - Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional CveMotivoBaja As Integer = -1, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False Data = New DataTable SqlDataAdapter("PA_RH_EstatusPersonalUp") @@ -7407,6 +7408,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveMotivoBaja", SqlDbType.Int).Value = CveMotivoBaja ' + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones End With Try SqlAdapter.Fill(Data) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 782584b41..3bcda13fb 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -196,6 +196,8 @@ Public Class E119 : Implements IHttpHandler TieneError = True End If End Using + Dim Msg As String = "Consultado día: " & Fecha.ToShortDateString + Msg.GuardaLogAD("LogE119") Else RespuestaError.message = "la fecha no es leida correctamente" TieneError = True diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 52b8f4eff..e7ae66cd7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1,10 +1,14 @@ Option Explicit On Option Strict On +Imports System.Data +Imports System.Xml Imports System.Diagnostics Imports System.Globalization Imports System.IO Imports System.Threading.Tasks +Imports Newtonsoft.Json +Imports Extensiones Partial Class Compras_Compras diff --git a/Empresas/140/Formatos/Cotizacion.rdlc b/Empresas/140/Formatos/Cotizacion.rdlc index a1e70d57d..542612f69 100644 --- a/Empresas/140/Formatos/Cotizacion.rdlc +++ b/Empresas/140/Formatos/Cotizacion.rdlc @@ -1,1719 +1,5 @@ - - - - - true - true - - - - - Cliente: - - - - =Parameters!ClienteNombre.Value - - - - - - - - - Dirección: - - - - =Parameters!ClienteDireccion.Value - - - - - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Atención A: - - - - =Parameters!ClienteContacto.Value - - - - - - - Textbox2 - 0.05159in - 4.32145cm - 0.99993in - 3.6362in - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo - Fit - 0.05159in - 0.0375in - 0.99993in - 1.60289in - 1 - - - - - - true - true - - - - - Domicilio fiscal: - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - - - Cotización - - - - - - - - - - - - - Serie: - - - - =Parameters!Serie.Value - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - - - Fecha: - - - - - - - - = Parameters!Fecha.Value - - - - - - - - - - - - - Forma de pago: - - - - =Parameters!FormaPago.Value - - - - - - - - - Método de pago: - - - - =Parameters!MetodoPago.Value - - - - - - - - - Cuenta: - - - - =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) - - - - - - - Textbox4 - 0.05159in - 5.39311in - 1.27833in - 2.8593in - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Expedido en - - - - : - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - - - BBD021220APA - - - - - - - - - - - - - - - - - - Vendedor: - - - - =Parameters!VendedorNombre.Value - - - - - - - Textbox40 - 3.51387cm - 13.72673cm - 2.47332cm - 7.26261cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 0.75572in - - - 0.58129in - - - 0.79461in - - - 2.38421in - - - 0.78125in - - - 0.63048in - - - 0.55487in - - - 0.62063in - - - 1.11998in - - - - - 0.19645in - - - - - true - true - - - - - CANT - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UNIDAD - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CODIGO - - - - - - - Textbox29 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PU - - - - - - - Textbox1 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - %DESC - - - - - - - Textbox21 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IEPS - - - - - - - Textbox23 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IVA - - - - - - - Textbox8 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TOTAL - - - - - - - Textbox1 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!UM.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!IEPS.Value - - - - - - - IEPS - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!IVA.Value - - - - - - - IVA - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 2.45577in - 0.04048in - 0.34081in - 8.22304in - 5 - - - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 3.25108in - 1.038in - 0.18861in - 7.22552in - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.99824cm - - - - - 0.48004cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 2.93858cm - - - true - true - - - - - =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) - - - - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - DataSet1 - 7.4511cm - 15.05252cm - 0.48004cm - 5.93682cm - 9 - - - - - - true - true - - - - - Sin más por el momento, se despide su seguro proveedor - - - - Textbox2 - 12.55395cm - 3.49882cm - 0.57354cm - 12.91587cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - 14.00062cm - 7.56391cm - 0cm - 5.675cm - 11 - - - - - - true - true - - - - - =Parameters!VendedorNombre.Value - - - - Textbox3 - 14.07117cm - 7.56391cm - 0.6cm - 5.675cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Observaciones de crédito: - - - - =Parameters!Observaciones.Value - - - - - - - =Parameters!FormaEntrega.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 14.80346cm - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0.5cm - 0.5cm - 1.27cm - + + + =Parameters!ClienteNombre.Value + + + + + + + + + Dirección: + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Atención A: + + + + =Parameters!ClienteContacto.Value + + + + + + + Textbox2 + 0.05159in + 4.32145cm + 0.99993in + 3.6362in + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + Fit + 0.05159in + 0.0375in + 0.99993in + 1.60289in + 1 + + + + + + true + true + + + + + Domicilio fiscal: + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + + Cotización + + + + + + + + + + + + + Serie: + + + + =Parameters!Serie.Value + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + + + Fecha: + + + + + + + + = Parameters!Fecha.Value + + + + + + + + + + + + + Forma de pago: + + + + =Parameters!FormaPago.Value + + + + + + + + + Método de pago: + + + + =Parameters!MetodoPago.Value + + + + + + + + + Cuenta: + + + + =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) + + + + + + + Textbox4 + 0.05159in + 5.39311in + 1.27833in + 2.8593in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Expedido en + + + + : + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + + + BBD021220APA + + + + + + + + + + + + + + + + + + Vendedor: + + + + =Parameters!VendedorNombre.Value + + + + + + + Textbox40 + 3.51387cm + 13.72673cm + 2.47332cm + 7.26261cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.75572in + + + 0.58129in + + + 0.79461in + + + 2.38421in + + + 0.78125in + + + 0.63048in + + + 0.55487in + + + 0.62063in + + + 1.11998in + + + + + 0.19645in + + + + + true + true + + + + + CANT + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UNIDAD + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CODIGO + + + + + + + Textbox29 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PU + + + + + + + Textbox1 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + %DESC + + + + + + + Textbox21 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IEPS + + + + + + + Textbox23 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IVA + + + + + + + Textbox8 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TOTAL + + + + + + + Textbox1 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!IEPS.Value + + + + + + + IEPS + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!IVA.Value + + + + + + + IVA + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.45577in + 0.04048in + 0.34081in + 8.22304in + 5 + + + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 3.25108in + 1.038in + 0.18861in + 7.22552in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.99824cm + + + + + 0.48004cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.93858cm + + + true + true + + + + + =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 7.4511cm + 15.05252cm + 0.48004cm + 5.93682cm + 9 + + + + + + true + true + + + + + Sin más por el momento, se despide su seguro proveedor + + + + Textbox2 + 12.55395cm + 3.49882cm + 0.57354cm + 12.91587cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + 14.00062cm + 7.56391cm + 0cm + 5.675cm + 11 + + + + + + true + true + + + + + =Parameters!VendedorNombre.Value + + + + Textbox3 + 14.07117cm + 7.56391cm + 0.6cm + 5.675cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Observaciones de crédito: + + + + =Parameters!Observaciones.Value + + + + + + + =Parameters!FormaEntrega.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 14.80346cm + + + + + + + + =Today + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm + @@ -26,7 +26,7 @@ Cliente: @@ -34,21 +34,21 @@ =Parameters!ClienteCodigo.Value - =Parameters!ClienteNombre.Value @@ -62,7 +62,7 @@ RFC: @@ -70,7 +70,7 @@ =Parameters!ClienteRFC.Value @@ -85,7 +85,7 @@ Calle: @@ -93,7 +93,7 @@ @@ -101,7 +101,7 @@ =Parameters!ClienteCalle.Value & IIF(Parameters!ClienteNoExt.Value <> "", " No.Ext: " & Parameters!ClienteNoExt.Value & iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,"")) @@ -116,7 +116,7 @@ Colonia: @@ -124,7 +124,7 @@ @@ -132,7 +132,7 @@ =Parameters!ClienteColonia.Value @@ -147,7 +147,7 @@ Ciudad: @@ -155,7 +155,7 @@ =Parameters!ClienteCiudad.Value @@ -163,7 +163,7 @@ @@ -171,7 +171,7 @@ Estado: @@ -179,7 +179,7 @@ @@ -187,7 +187,7 @@ =Parameters!ClienteEstado.Value @@ -202,7 +202,7 @@ Municipio y/o Delegación: @@ -210,7 +210,7 @@ =Parameters!ClienteMunicipio.Value @@ -218,7 +218,7 @@ @@ -233,7 +233,7 @@ Pais: @@ -241,7 +241,7 @@ =Parameters!ClientePais.Value @@ -249,7 +249,7 @@ @@ -257,7 +257,7 @@ CP: @@ -265,7 +265,7 @@ @@ -273,7 +273,7 @@ =Parameters!ClienteCP.Value @@ -310,7 +310,7 @@ "Este documento es una representación impresa de un CFDI" @@ -325,7 +325,7 @@ Folio fiscal: @@ -333,7 +333,7 @@ =Parameters!FolioFiscal.Value @@ -346,7 +346,7 @@ Fecha y hora de certificación: @@ -354,7 +354,7 @@ =Parameters!FechaCertificacion.Value @@ -362,7 +362,7 @@ Número de serie del Certificado de Sello Digital: @@ -370,7 +370,7 @@ =Parameters!CertificadoContribuyente.Value @@ -383,7 +383,7 @@ Sello digital del CFDI: Número de serie del Certificado de Sello Digital del SAT: @@ -391,7 +391,7 @@ =Parameters!SerieCertificadoSAT.Value @@ -404,7 +404,7 @@ =Parameters!SelloCFDI.Value @@ -417,7 +417,7 @@ @@ -430,7 +430,7 @@ Cadena original del complemento de certificación digital del SAT: @@ -443,7 +443,7 @@ =Parameters!CadenaOriginal.Value @@ -456,7 +456,7 @@ @@ -469,7 +469,7 @@ Sello digital del SAT: @@ -482,7 +482,7 @@ =Parameters!SelloSAT.Value @@ -542,7 +542,7 @@ Domicilio fiscal: @@ -555,7 +555,7 @@ Tamaulipas S/N @@ -568,7 +568,7 @@ C.P. 83190 Col. San Benito @@ -581,7 +581,7 @@ Hermosillo, Son. México. @@ -615,7 +615,7 @@ = IIF(Parameters!Tipo.Value = "INGRESO","FACTURA","NOTA DE CRÉDITO") @@ -630,7 +630,7 @@ @@ -638,7 +638,7 @@ Serie: @@ -654,7 +654,7 @@ @@ -662,7 +662,7 @@ Folio: @@ -685,7 +685,7 @@ Fecha: @@ -693,7 +693,7 @@ @@ -701,7 +701,7 @@ =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy") @@ -725,7 +725,7 @@ @@ -733,7 +733,7 @@ =Parameters!MonedaAbreviatura.Value @@ -748,7 +748,7 @@ Vencimiento @@ -756,7 +756,7 @@ : @@ -764,7 +764,7 @@ =Parameters!Vencimiento.Value @@ -772,7 +772,7 @@ @@ -787,7 +787,7 @@ Forma de pago: @@ -795,7 +795,7 @@ =Parameters!FormaPago.Value @@ -810,7 +810,7 @@ Método de pago: @@ -818,7 +818,7 @@ =Parameters!MetodoPago.Value @@ -833,7 +833,7 @@ Uso CFDI: @@ -841,7 +841,7 @@ =Parameters!UsoCFDI.Value @@ -856,7 +856,7 @@ Régimen fiscal: @@ -864,7 +864,7 @@ Regimen General de Ley Personas Morales @@ -872,7 +872,7 @@ @@ -908,7 +908,7 @@ Expedido en @@ -916,7 +916,7 @@ : @@ -931,7 +931,7 @@ =Parameters!DomicilioSucursal.Value @@ -946,7 +946,7 @@ BBD021220APA @@ -961,7 +961,7 @@ @@ -976,7 +976,7 @@ Vendedor: @@ -984,7 +984,7 @@ =Parameters!VendedorNombre.Value @@ -1054,7 +1054,7 @@ CANT @@ -1426,7 +1426,7 @@ =Fields!SATClaveProdServ.Value @@ -1461,7 +1461,7 @@ =Fields!PS.Value & " " & Fields!Obs.Value @@ -1494,7 +1494,7 @@ =Fields!PU.Value @@ -1835,7 +1835,7 @@ =Parameters!Observaciones.Value @@ -1881,7 +1881,7 @@ =Fields!Importe.Value @@ -1984,7 +1984,7 @@ CFDI Relacionados @@ -2057,7 +2057,7 @@ =Parameters!TipoRelacionTexto.Value @@ -2112,7 +2112,7 @@ Folio @@ -2297,7 +2297,7 @@ =Fields!Fecha.Value @@ -2332,7 +2332,7 @@ =Fields!Importe.Value @@ -2367,7 +2367,7 @@ =Fields!FolioFiscal.Value @@ -2429,9 +2429,9 @@ - VERSION 3.3 + VERSION 4.0 @@ -2502,7 +2502,7 @@ IMPUESTO @@ -2653,7 +2653,7 @@ =Fields!tasa.Value @@ -2688,7 +2688,7 @@ =Fields!Importe.Value @@ -2770,7 +2770,7 @@ TODA DEVOLUCIÓN NO REALIZADA EL DÍA DE LA COMPRA CAUSARÁ EL 10% DE CARGO" @@ -2925,7 +2925,7 @@ Nombre @@ -2961,7 +2961,7 @@ Recibí Producto @@ -3071,14 +3071,14 @@ =Parameters!Serie.Value @@ -3086,7 +3086,7 @@ @@ -3103,7 +3103,7 @@ =Parameters!Folio.Value @@ -3152,7 +3152,7 @@ @@ -3160,7 +3160,7 @@ Cliente: @@ -3168,7 +3168,7 @@ =Parameters!ClienteCodigo.Value @@ -3176,7 +3176,7 @@ - @@ -3184,7 +3184,7 @@ =Parameters!ClienteNombre.Value @@ -3192,7 +3192,7 @@ - @@ -3200,7 +3200,7 @@ =Parameters!ClienteRFC.Value @@ -3215,7 +3215,7 @@ Domicilio: @@ -3223,7 +3223,7 @@ =Parameters!ClienteDireccion.Value @@ -3231,7 +3231,7 @@ , @@ -3239,7 +3239,7 @@ =Parameters!ClienteCiudad.Value @@ -3247,7 +3247,7 @@ , @@ -3255,7 +3255,7 @@ =Parameters!ClienteEstado.Value @@ -3303,7 +3303,7 @@ POR ESTE @@ -3388,7 +3388,7 @@ *** @@ -3546,7 +3546,7 @@ Obligado =Parameters!FechaImpresion.Value @@ -3681,7 +3681,7 @@ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages @@ -4566,6 +4566,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Empresas/Grales/Formatos/EntradaSalida.mrt b/Empresas/Grales/Formatos/EntradaSalida.mrt new file mode 100644 index 000000000..7ed95f52d --- /dev/null +++ b/Empresas/Grales/Formatos/EntradaSalida.mrt @@ -0,0 +1,677 @@ + + + + + + + + DsInventarios + + Codigo,System.String + PS,System.String + UnidadMedida,System.String + PU,System.Decimal + Cantidad,System.Decimal + Total,System.Decimal + Descuento,System.Decimal + CodigoAF,System.String + Almacen,System.String + Lote,System.String + Batch,System.String + SerieLote,System.String + + + 9f26b214e5b34695ab9f7508c6bb98f2 + DsInventarios + Datos.DsInventarios + + + + + + + ReportParameters,Empresa,Empresa,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Almacen,Almacen,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Folio,Folio,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Concepto,Concepto,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Fecha,Fecha,ReportParameter1,System.String,,False,False,True,False + ReportParameters,FechaImpresion,FechaImpresion,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Descuentos,Descuentos,ReportParameter1,System.String,,False,False,True,False + ReportParameters,IVA,IVA,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Total,Total,ReportParameter1,System.String,,False,False,True,False + ReportParameters,NombreRecibio,NombreRecibio,ReportParameter1,System.String,,False,False,True,False + ReportParameters,NombreEntrego,NombreEntrego,ReportParameter1,System.String,,False,False,True,False + ReportParameters,LogoPath,LogoPath,ReportParameter1,System.String,,False,False,True,False + ReportParameters,FacturaProveedor,FacturaProveedor,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Observaciones,Observaciones,ReportParameter1,System.String,,False,False,True,False + ReportParameters,FacturadoA,FacturadoA,ReportParameter1,System.String,,False,False,True,False + ReportParameters,UsuarioImprimio,UsuarioImprimio,ReportParameter1,System.String,,False,False,True,False + ReportParameters,DomicilioFiscal,DomicilioFiscal,ReportParameter1,System.String,,False,False,True,False + + + EngineV2 + + dd46217c7a274120b98e67b7fdbf8a1e + + + + None;Black;2;Solid;False;4;Black + Transparent + + + None;Black;1;None;False;4;Black + Transparent + 0,0,20,4.11 + + + True + Transparent + True + 4.37,0.43,9.11,1.55 + + + Arial,12,Bold + True + True + 2,2,2,2 + Textbox34 + + + {Empresa}<br/> +{Concepto} + Black + ,,,,WordWrap=True,A=0 + Wysiwyg + Expression + + + True + Transparent + 0.2,0.32,3.43,1.66 + + + 68, 114, 196 + {LogoPath} + True + 2,2,2,2 + Logo + + + True + + + Transparent + True + 2.43,2.34,9.54,0.6 + + + Enabled,FacturaProveedor_x0020__x0021__x003D__x0020__x0022__x0022_ + + Arial,10 + True + 2,2,2,2 + Textbox15 + + + {FacturaProveedor} + Black + + + Transparent + 2.43,3.09,9.54,0.6 + + + Enabled,FacturadoA_x0020__x0021__x003D__x0020__x0022__x0022_ + + Arial,10 + True + 2,2,2,2 + Textbox18 + + + {FacturadoA} + Black + + + Transparent + True + 0.27,3.1,2.12,0.6 + + + Enabled,FacturadoA_x0020__x0021__x003D__x0020__x0022__x0022_ + + Arial,10,Bold + True + 2,2,2,2 + Textbox16 + + + Proveedor: + Black + + + Transparent + True + 0.26,2.34,2.13,0.6 + + False + + Enabled,FacturaProveedor_x0020__x0021__x003D__x0020__x0022__x0022_ + + Arial,10,Bold + True + 2,2,2,2 + Textbox20 + + + Factura: + Black + + + Transparent + True + 13.63,0.35,2.07,0.89 + + + Arial,16,Bold + Right + True + 2,2,2,2 + Textbox3 + + + Folio: + Black + + + Transparent + True + 15.7,0.31,2.57,0.93 + + + Arial,16,Bold + True + 2,2,2,2 + Textbox31 + + + {Folio} + [255:0:0] + + + Transparent + True + 12.65,3.1,1.81,0.6 + + + Arial,10,Bold + True + 2,2,2,2 + Textbox4 + + + Fecha: + Black + + + Transparent + 14.46,2.34,3.9,0.6 + + + Arial,8 + True + 2,2,2,2 + Textbox10 + + + {Almacen} + Black + + + Transparent + True + 14.46,3.1,3.9,0.6 + + + Arial,8 + True + 2,2,2,2 + Textbox32 + + + {Fecha} + Black + + d + + + + Transparent + True + 12.65,2.34,1.81,0.6 + + + Arial,10,Bold + True + 2,2,2,2 + Textbox21 + + + Almacén: + Black + + + + + PageHeaderBand1 + + + + + None;Black;1;None;False;4;Black + Transparent + 0,26.48,20,2.22 + + + Transparent + True + 1.74,0.47,5.96,0.6 + + + Arial,10 + Center + True + 2,2,2,2 + Textbox35 + + + {NombreRecibio} + Black + + + Transparent + True + 11.8,0.43,5.96,0.6 + + + Arial,10 + Center + True + 2,2,2,2 + Textbox36 + + + {Almacen} + Black + + + Transparent + True + 11.96,1.49,2.91,0.6 + + + Arial,9,Bold + Right + True + 2,2,2,2 + Textbox8 + + + Fecha Impresion: + Black + + + Transparent + True + 14.87,1.49,2.89,0.6 + + + Arial,10 + True + 2,2,2,2 + Textbox37 + + + {FechaImpresion} + Black + + d + + + + 2.22,0.29,4.95,0.0254 + Black + + + Black + + + True + Line6 + + + + Black + + + + 12.2,0.29,4.95,0.0254 + Black + + + Black + + + True + Line7 + + + + Black + + + + + + PageFooterBand1 + + + + + Transparent + True + True + 0,4.11,20,2.69 + + + Transparent + True + 0.02,0.18,20,1.51 + + + Transparent + + 0,0,20,0.42 + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 0,0,1.14,0.42 + + + Arial,8,Bold + True + 2,2,2,2 + Textbox7 + + + Cant. + Black + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 1.14,0,3.15,0.42 + + + Arial,8,Bold + True + 2,2,2,2 + Textbox9 + + + Código + Black + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 4.29,0,11.27,0.42 + + + Arial,8,Bold + True + 2,2,2,2 + Textbox11 + + + Descripción + Black + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 15.56,0,2.7,0.42 + + + Enabled,DsInventarios.SerieLote_x0021__x003D__x0020__x0022__x0022_ + + Arial,8,Bold + True + 2,2,2,2 + Textbox6 + + + Serie + Black + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 18.26,0,1.74,0.42 + + + Enabled,DsInventarios.Lote_x0021__x003D__x0020__x0022__x0022_ + + Arial,8,Bold + True + 2,2,2,2 + Textbox5 + + + Lote + Black + + + + DsInventarios + + + True + DataBand2 + + + + + + Transparent + + 0,0.42,20,0.69 + + + Transparent + True + 0,0,1.14,0.69 + + + Arial,8 + Right + True + 2,2,2,2 + Cantidad + + + {DsInventarios.Cantidad} + Black + + 0;(0) + + + + Transparent + True + 1.14,0,3.15,0.69 + + + Arial,8 + True + 2,2,2,2 + Codigo + + + {DsInventarios.Codigo} + Black + + + Transparent + True + 4.29,0,11.27,0.69 + + + Arial,8 + True + 2,2,2,2 + PS + + + {DsInventarios.PS} + Black + + + Transparent + True + 15.56,0,2.7,0.69 + + + Enabled,DsInventarios.SerieLote_x0021__x003D__x0020__x0022__x0022_ + + Arial,8 + True + 2,2,2,2 + SerieLote + + + {DsInventarios.SerieLote} + Black + + + Transparent + True + 18.26,0,1.74,0.69 + + + Enabled,DsInventarios.Lote_x0021__x003D__x0020__x0022__x0022_ + + Arial,8 + True + 2,2,2,2 + Lote + + + {DsInventarios.Lote} + Black + + + + DsInventarios + + + True + DataBand3 + + + + + + + + True + Tablix2 + + + + + Transparent + True + 0.06,1.79,11.37,0.6 + + + Arial,8 + True + 2,2,2,2 + Textbox2 + + + {Observaciones} + Black + + + + 1 + + + MainBand + + + + + + + + c751c4d57273461888e484933acfb628 + 0.5,0.5,0.5,0.5 + Page1 + 29.7 + 21 + + + + + System.Dll + System.Drawing.Dll + System.Windows.Forms.Dll + System.Data.Dll + System.Xml.Dll + Stimulsoft.Controls.Dll + Stimulsoft.Base.Dll + Stimulsoft.Report.Dll + + Report + 10/13/2022 7:15:28 PM + 10/13/2022 4:49:14 PM + C:\inetpub\wwwSIGGIT\Empresas\Grales\Formatos\EntradaSalida.mrt + fbf73b9709d54158a65b0723556fde8e + Report + Centimeters + 2022.1.6.0 + + CSharp + + \ No newline at end of file diff --git a/General/CONTRATO.doc b/General/CONTRATO.doc new file mode 100644 index 000000000..47e90f754 Binary files /dev/null and b/General/CONTRATO.doc differ diff --git a/General/RepIndicadorResumen.aspx b/General/RepIndicadorResumen.aspx index 150701480..bbe65bf2a 100644 --- a/General/RepIndicadorResumen.aspx +++ b/General/RepIndicadorResumen.aspx @@ -127,7 +127,8 @@ - + + @@ -183,9 +184,14 @@ - + + + <%-- + --%> @@ -239,7 +245,8 @@ - + + @@ -294,7 +301,8 @@ AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + + @@ -348,8 +356,9 @@ CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - - + + + @@ -381,6 +390,66 @@ +
+
+ + +
+
+ + Indicadores por Proveedor Productor +
+
+
+
+
+
+ +
+
+
+ + + + + + + + + + + +
+ + +
+ + <%--
+ + +
+
+ + Indicadores por Proveedor Productor- Gráfica +
+
+
+
+
+
+ +
+
+
+
+
+ + +
--%> +
+ @@ -435,6 +504,7 @@ AmCharts.makeChart("chartdiv_cxp192", { ...chartconfig, dataProvider: json["CxP192"] }); // Compras x Producto ProveedorClasificacion 192 AmCharts.makeChart("chartdiv_ccxc", { ...chartconfig, dataProvider: json["CCxC"] }); // Cuentas por Cobrar x Cliente AmCharts.makeChart("chartdiv_cpxp", { ...chartconfig, dataProvider: json["CPxP"] }); // Cuentas por Pagar x Proveedor + // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor Productor document.getElementById('amChartsAttribution').style.visibility = 'visible'; } diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb index 64dd89557..29e79f3e9 100644 --- a/General/RepIndicadorResumen.aspx.vb +++ b/General/RepIndicadorResumen.aspx.vb @@ -77,6 +77,36 @@ Partial Class General_RepIndicadorResumen ViewState("CPxP") = value End Set End Property +#If False Then + Private Property gv1 As DataTable + Get + + If ViewState("gv1") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("gv1"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("gv1") = value + End Set + End Property +#End If + Private Property Indicadores As DataTable + Get + + If ViewState("Indicadores") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("Indicadores"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("Indicadores") = value + End Set + End Property Private Property DtColor As DataTable Get @@ -126,11 +156,14 @@ Partial Class General_RepIndicadorResumen Dim ObjVentas As New ClsVentas Dim ObjCompras As New ClsCompras - Dim ObjMovtos As New ClsMovimientos() + Dim ObjMovtos As New ClsMovimientos + Dim ObjCitrus As New ClsCGame If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then VxP = ObjVentas.DtResultados + VxP.DefaultView.Sort = "CveMoneda,SubTotal DESC" + VxP = VxP.DefaultView.ToTable GvVxP.DataSource = VxP Else GvVxP.DataSource = Nothing @@ -140,6 +173,8 @@ Partial Class General_RepIndicadorResumen If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then CxP192 = ObjCompras.DtResultados + CxP192.DefaultView.Sort = "CveMoneda,SubTotal DESC" + CxP192 = CxP192.DefaultView.ToTable GvCxP192.DataSource = CxP192 Else GvCxP192.DataSource = Nothing @@ -149,6 +184,8 @@ Partial Class General_RepIndicadorResumen If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=1) Then CxP = ObjCompras.DtResultados + CxP.DefaultView.Sort = "CveMoneda,SubTotal DESC" + CxP = CxP.DefaultView.ToTable GvCxP.DataSource = CxP Else GvCxP.DataSource = Nothing @@ -161,6 +198,8 @@ Partial Class General_RepIndicadorResumen "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then CCxC = ObjMovtos.DtResultados + CCxC.DefaultView.Sort = "CveMoneda,Saldo DESC" + CCxC = CCxC.DefaultView.ToTable GvCCxC.DataSource = CCxC Else GvCCxC.DataSource = Nothing @@ -171,23 +210,48 @@ Partial Class General_RepIndicadorResumen "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then CPxP = ObjMovtos.DtResultados + CPxP.DefaultView.Sort = "CveMoneda,Saldo DESC" + CPxP = CPxP.DefaultView.ToTable GvCPxP.DataSource = CPxP Else GvCPxP.DataSource = Nothing CPxP = Nothing End If + 'If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, + ' UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then + ' gv1 = ObjCompras.DtResultados + ' GridView1.DataSource = gv1 + 'Else + ' GridView1.DataSource = Nothing + ' gv1 = Nothing + 'End If + + If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text) Then + + Indicadores = ObjCitrus.DtResultados + Indicadores.DefaultView.Sort = "Saldo DESC" + Indicadores = Indicadores.DefaultView.ToTable + GvIndicadores.DataSource = Indicadores + Else + GvIndicadores.DataSource = Nothing + Indicadores = Nothing + End If + ObjVentas.Dispose() ObjCompras.Dispose() ObjMovtos.Dispose() + ObjCitrus.Dispose() GvVxP.DataBind() GvCxP192.DataBind() GvCxP.DataBind() + 'GridView1.DataBind() GvCCxC.DataBind() GvCPxP.DataBind() + GvIndicadores.DataBind() - ' Mostrar gráficos solo si hay datos en su respectiva tabla + 'Mostrar gráficos solo si hay datos en su respectiva tabla If GvVxP.Rows.Count > 0 Then UPGraficaVxP.Visible = True Else @@ -213,8 +277,13 @@ Partial Class General_RepIndicadorResumen Else UPGraficaCPxP.Visible = False End If + 'If GvIndicadores.Rows.Count > 0 Then + ' UPGraficaIndicadores.Visible = True + 'Else + ' UPGraficaIndicadores.Visible = False + 'End If - ' Si no había datos en ninguna tabla no cargar función de gráficos + 'Si no había datos en ninguna tabla no cargar función de gráficos If (GvVxP.Rows.Count = 0 AndAlso GvCxP.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCCxC.Rows.Count = 0 AndAlso GvCPxP.Rows.Count = 0) Then Exit Sub GraficasPastel() 'GraficasBarras() @@ -228,8 +297,19 @@ Partial Class General_RepIndicadorResumen End Sub Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Orden") = "" Then + 'e.Row.Cells(0).Text = e.Row.DBCampo("Orden") + If e.Row.DBCampo("Orden") = "00ND" Then e.Row.CssClass = "Totales" + e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura") + End If + End If + End Sub + Protected Sub GvCxP192_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP192.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + 'e.Row.Cells(0).Text = e.Row.DBCampo("Orden") + If e.Row.DBCampo("Orden") = "00ND" Then + e.Row.CssClass = "Totales" + e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura") End If End If End Sub @@ -238,6 +318,8 @@ Partial Class General_RepIndicadorResumen If e.Row.DBCampo("Orden") = "" Then e.Row.CssClass = "Totales" End If + 'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura + e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" End If End Sub Protected Sub GvCPxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCPxP.RowDataBound @@ -245,8 +327,17 @@ Partial Class General_RepIndicadorResumen If e.Row.DBCampo("Orden") = "" Then e.Row.CssClass = "Totales" End If + 'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura + e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" End If End Sub + Protected Sub GvIndicadores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIndicadores.RowDataBound + 'If e.Row.RowType = DataControlRowType.DataRow Then + ' If e.Row.DBCampo("Orden") = "" Then + ' e.Row.CssClass = "Totales" + ' End If + 'End If + End Sub Private Sub CreaDataTableColor() DtColor = New DataTable DtColor.Columns.Add("Color") @@ -339,7 +430,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtVxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -347,7 +438,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_vxp = From s In DtVxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Compras x Producto TipoProveedor=1 DtCxP.Reset() @@ -357,13 +448,13 @@ Partial Class General_RepIndicadorResumen DtCxP.Columns.Add("Moneda") RowColorIndex = 0 For Each Dr As DataRow In CxP.Rows - If Not Dr("Orden").ToString = "" Then + If Not Dr("Orden").ToString = "00ND" Then Dim Row As DataRow = Nothing Row = DtCxP.NewRow() Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtCxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -371,7 +462,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cxp = From s In DtCxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cxp = From s In DtCxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Compras x Producto ProveedorClasificacion=192 DtCxP192.Reset() @@ -381,13 +472,13 @@ Partial Class General_RepIndicadorResumen DtCxP192.Columns.Add("Moneda") RowColorIndex = 0 For Each Dr As DataRow In CxP192.Rows - If Not Dr("Orden").ToString = "" Then + If Not Dr("Orden").ToString = "00ND" Then Dim Row As DataRow = Nothing Row = DtCxP192.NewRow() Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtCxP192.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -395,7 +486,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cxp192 = From s In DtCxP192.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cxp192 = From s In DtCxP192.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CCxC.Rows)) @@ -413,7 +504,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("Saldo").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" DtCCxC.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -421,7 +512,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_ccxc = From s In DtCCxC.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_ccxc = From s In DtCCxC.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Cuentas por pagar x Proveedor DtCPxP.Reset() @@ -437,7 +528,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("Saldo").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" DtCPxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -445,9 +536,11 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cpxp = From s In DtCPxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cpxp = From s In DtCPxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} - 'Serializar datos agrupándolos en su respectivo DataTable, todos en un solo JSON + 'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172 + + 'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp}) 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}}) 'Alert(json) diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 7204fddf2..69b5b8280 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -2610,6 +2610,8 @@ public partial class Nomina_Nomina2 : ClsPaginas { if (objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, SRCvePersonal)) { + DdlVacPeriodo.DataSource = objnom.DtResultados; + DdlVacPeriodo.DataBind(); DataRow drow = objnom.DtResultados.FiltroPrimero("Selected =1"); if (drow != null) { @@ -2618,6 +2620,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } } } + UPSRModalVacaciones.Update(); RegistraScript("$('#ModalSRVacaciones').modal()"); } diff --git a/RH/Personal.aspx b/RH/Personal.aspx index ca73980fd..3c308cc86 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -109,7 +109,14 @@
  • Modificar salario
    • + +
  • + Contrato +
    • + + + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index b77a4883e..08b0b90ee 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -847,7 +847,7 @@ Partial Class RH_Personal If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then pnlSalarioIMSS.Visible = False End If - ' + LnkContratoAgropecuaria.Visible = (UsuarioActual.CveEmpresa.Contiene(1, 158)) Using objno = New ClsNominas objno.GetConceptos() dtNomConceptos = objno.DtResultados @@ -7478,6 +7478,68 @@ Partial Class RH_Personal Alert("Se guardo correctamente", TipoMensaje.MsgInformacion) CargaDatos() End If + End Sub + + Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs) + Dim RutaArchivo As String = "C:\Proyectos\SIGGIT\General\CONTRATO.doc" + + Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo) + + Dim ObjRH As New ClsRH + + If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then + Dim Tags As New List(Of TagsDocumentos) + + Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto)) + Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString())) + Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text)) + Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text)) + + Tags.Add(New TagsDocumentos("{CiudadOrigen}", TxtCiudad.Text)) + Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC)) + + Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso))) + Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso))) + Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso))) + objGemBoxDocument.SustituirTags(Tags) + + End If + ObjRH.Dispose() + + + + + objGemBoxDocument.GuardarStreamPDF() + + + Dim objbyte = objGemBoxDocument.GetBytesDocumento + + + + + Try + Response.Buffer = True + Response.Clear() + Response.ContentType = "application/pdf" + Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", "attachment", "Contrato.pdf", "pdf")) + Response.BinaryWrite(objbyte) ' create the file + Response.Flush() ' send it to the client to download + objbyte = Nothing + HttpContext.Current.Response.SuppressContent = True + HttpContext.Current.ApplicationInstance.CompleteRequest() + 'HttpContext.Current.Response.End() + Catch ex As Exception + + If UsuarioActual.CveRol = 1 Then + Alert($"Error: {ex.Message} | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))}", TipoMensaje.MsgAdvertencia) + Else + Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia) + End If + End Try + + + + End Sub End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2685f8520..12851b38b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -33494,7 +33494,7 @@ Partial Class Ventas End If ObjFactura.SetSubProyecto() - 'EnviarPolizaVentaWS(obj, CvePolizaVirtual, ObjFactura.SubProyecto.Acum_PortalUsuario, ObjFactura.SubProyecto.Acum_PortalContrasena) + EnviarPolizaVentaWS(obj, CvePolizaVirtual, ObjFactura.SubProyecto.Acum_PortalUsuario, ObjFactura.SubProyecto.Acum_PortalContrasena) End If Next