diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index ce3783cd5..68ed6f984 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -2997,9 +2997,51 @@ Public Class ClsCompras OnError("Ocurrió un error al obtener las compras con método de pago PUE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return retorno - End Function - + End Function + #End Region +#Region "Reporte de REQ-OC-Compra-Inv" + Public Function GetRepReqOCCompraInv(FI As Date, FF As Date, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ReqOCCompraInvGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FI", SqlDbType.Date).Value = FI + .Add("@FF", SqlDbType.Date).Value = FF + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de REQ-OC-Compra-Inv", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function +#End Region +#Region "Reporte de Precios de Compras" + Public Function GetRepComprasPrecios(CveProveedor As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasPreciosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Precios de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function +#End Region End Class diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index d7a1a565b..55e577b76 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3757,15 +3757,16 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/ProveedoresAuxiliar.aspx".ToUpper(), 536) PaginaDict.Add("/Compras/RepComprasInventarios.aspx".ToUpper(), 537) PaginaDict.Add("/Compras/RepAnt-NC-EXC.aspx".ToUpper(), 538) - PaginaDict.Add("/Compras/RepAnt-NC-EXCDetalle.aspx".ToUpper(), 538) - 'EvaluacionProveedor.aspx - PaginaDict.Add("/Compras/EvaluacionProveedor.aspx".ToUpper(), 715) - PaginaDict.Add("/Compras/RepPUESinPago.aspx".ToUpper(), 675) + PaginaDict.Add("/Compras/RepAnt-NC-EXCDetalle.aspx".ToUpper(), 538) + PaginaDict.Add("/Compras/EvaluacionProveedor.aspx".ToUpper(), 715) 'EvaluacionProveedor.aspx + PaginaDict.Add("/Compras/RepPUESinPago.aspx".ToUpper(), 675) + PaginaDict.Add("/Compras/RepReqOCCompraInv.aspx".ToUpper(), 689) + PaginaDict.Add("/Compras/RepComprasPrecios.aspx".ToUpper(), 690) #End Region - - 'CONTABILIDAD + + 'CONTABILIDAD #Region "Contabilidad" - 'CONTABILIDAD ELECTRONICA + 'CONTABILIDAD ELECTRONICA PaginaDict.Add("/Contabilidad/ContabilidadElectronica.aspx".ToUpper(), 566) PaginaDict.Add("/Contabilidad/RepGastosCC.aspx".ToUpper(), 535) PaginaDict.Add("/Contabilidad/ContabilizarPagosCliente.aspx".ToUpper(), 52) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index f9fe5c1e1..dbb113a45 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3228,10 +3228,24 @@ Public Class Timbrado Else + Dim Resultados = Newtonsoft.Json.Linq.JArray.Parse(resultadoTimbre.Detalle) + If Resultados.Count > 0 Then - Retorno = Resultados(0)("Value").ToString() - MensajeErrorCFDI = Resultados(0)("Value").ToString() + + If resultadoTimbre.Descripcion.Contains("RFC del receptor no existe") Then + + Retorno = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente" + MensajeErrorCFDI = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente" + + Else + + Retorno = Resultados(0)("Value").ToString() + MensajeErrorCFDI = Resultados(0)("Value").ToString() + + End If + + Else Retorno = resultadoTimbre.Detalle MensajeErrorCFDI = resultadoTimbre.Detalle diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 194981e48..91663ea7a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4190,7 +4190,7 @@ Partial Class Compras_Compras Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal Dim CveMonedaPago As Integer = DdlMoneda.SelectedValue.ToEntero - If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado + If RBLPago.SelectedValue.ToEntero = 2 Then 'Contado If RBLContado.SelectedValue = "1" Then ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal @@ -6740,7 +6740,7 @@ Partial Class Compras_Compras ' End If 'End If - For Each Ant As Anticipos In ArrAnticipos + For Each Ant As Compras_Compras.Anticipos In ArrAnticipos Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer Dim CveCompraNC As Integer = CveCompra @@ -7327,7 +7327,7 @@ Partial Class Compras_Compras Dim PorcentajePago As Decimal Dim CveConceptoAnt As Integer = 21 Dim CveCompraNC As Integer - For Each Ant As Anticipos In ArrAnticipos + For Each Ant As Compras_Compras.Anticipos In ArrAnticipos CveCompraNC = CveCompra Dim CveConceptoPago As Integer = 17 Select Case Ant.TipoMovto @@ -8840,7 +8840,7 @@ Partial Class Compras_Compras Dim ImporteAnticipo As Decimal = 0 If ArrAnticipos.Count > 0 Then - For Each Ant As Anticipos In ArrAnticipos + For Each Ant As Compras_Compras.Anticipos In ArrAnticipos ImporteAnticipo += Ant.Importe Next End If @@ -12255,7 +12255,7 @@ Partial Class Compras_Compras Select Case RBLContado.SelectedValue Case "1" ' Bancos PnlContadoBancos.Visible = True - TxtDocumentoImporte.Text = TxtTotal.Text + TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero Case "2" ' F y E PnlContadoFyE.Visible = True CargaFuncionariosEmpleados() @@ -12270,7 +12270,7 @@ Partial Class Compras_Compras CargaAcreedores() Case "6" ' Caja Chica PnlContadoCajaChica.Visible = True - TxtDocumentoImporteCaja.Text = TxtTotal.Text + TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero End Select UpContado.Update() @@ -14596,7 +14596,7 @@ Partial Class Compras_Compras 'ANTICIPOS COMPRA Dim ImporteAnticipo As Decimal = 0 If ArrAnticipos.Count > 0 Then - For Each Ant As Anticipos In ArrAnticipos + For Each Ant As Compras_Compras.Anticipos In ArrAnticipos ImporteAnticipo += Ant.Importe Next End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index aee05f84b..de293344c 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2972,6 +2972,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString)) params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString)) params.Add(New ReportParameter("Copia", "Copia: Original")) + params.Add(New ReportParameter("Equipo", dr("Equipo").ToString)) End If End If End If diff --git a/Compras/RepComprasPrecios.aspx b/Compras/RepComprasPrecios.aspx new file mode 100644 index 000000000..6adade2de --- /dev/null +++ b/Compras/RepComprasPrecios.aspx @@ -0,0 +1,316 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasPrecios.aspx.vb" Inherits="RepComprasPrecios" %> + + + + + + + +
  • + PDF +
    • +
  • + Excel +
    • +     + + + + + + + + + <%-- + +
    + +
    +     +     --%> +     + + + + +
    +
    +
    + + "> + +
    +
    +
    + +
    + +
    +
    +
    +
    + +
    > +
    +
    +     +     +
    +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + +<%-- + + + + + + + + + + + + + + + + --%> + + + + + + + + + + + + + + +     + + <%----%> + + + + + + + + diff --git a/Compras/RepComprasPrecios.aspx.vb b/Compras/RepComprasPrecios.aspx.vb new file mode 100644 index 000000000..af6c4034b --- /dev/null +++ b/Compras/RepComprasPrecios.aspx.vb @@ -0,0 +1,140 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Microsoft.Reporting.WebForms +Imports Extensiones +Partial Class RepComprasPrecios + Inherits ClsPaginas + Private Shared missing As Object = System.Reflection.Missing.Value + +#Region "PROPIEDADES" + Private Property DtCompras As DataTable + Get + Return DirectCast(ViewState("DtCompras"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtCompras") = value + End Set + End Property + +#End Region + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaProveedor() + CargaDatos() + End If + End Sub + +#Region " C A R G A - D A T O S " + Public Sub CargaDatos() + Dim ObjCompras As New ClsCompras + + If ObjCompras.GetRepComprasPrecios(DdlProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjCompras.DtResultados + DtCompras = ObjCompras.DtResultados + GvDatos.DataBind() + UPDatos.Update() + End If + + ObjCompras.Dispose() + End Sub +#End Region + +#Region "G V - D A T O S " + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + GvDatos.HeaderRow.Cells(0).Visible = False + e.Row.Cells(0).Visible = False + + e.Row.HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left + + If e.Row.DBCampo("CvePS") = "" Then + e.Row.CssClass = "Totales" + End If + + For Each Cells As TableCell In e.Row.Cells + Dim Celda As String = Cells.Text + If IsNumeric(Celda) Then + 'If Celda.ToDouble = 0 Then + ' Cells.Text = "" + 'Else + Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell) + + If Not ce.ContainingField.HeaderText = "PS" Then + Cells.Text = Cells.Text.FormatoNumero(2) + End If + 'End If + End If + Next + + 'Cuando es titulo + 'If e.Row.DBCampo("PS").ToString.Trim = "" Then + ' e.Row.CssClass = "Totales" + + ' e.Row.Cells(0).Text = String.Format("Folio: {0} ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida")) + ' e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString) + ' e.Row.Cells(3).Text = String.Format("Almacen Destino: {0}       Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio")) + 'End If + + End If + End Sub +#End Region + +#Region "CARGA COMBOS FILTRO" + Private Sub CargaProveedor() + DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedor.DataBind() + DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlProveedor.SelectedValue = "-1" + End Sub +#End Region + +#Region "IMPRESION" + Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click + Imprime("PDF") + End Sub + Private Sub Imprime(Formato As String) + 'If DtInventarios IsNot Nothing Then + ' Dim StrFiltro As New StringBuilder + ' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToShortDateString) + ' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text.ToDate.ToShortDateString) + + ' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Origen: {0}", DdlAlmacenOrigen.SelectedItem.Text) + ' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Destino: {0}", DdlAlmacenDestino.SelectedItem.Text) + ' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" Recibidos: Si") Else StrFiltro.AppendFormat(" Recibidos: No") + + ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + ' Dim FechaI, FechaF As String + ' FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) + ' FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) + + ' Dim params As New List(Of ReportParameter) + ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("FechaInicio", FechaI)) + ' params.Add(New ReportParameter("FechaFin", FechaF)) + ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + ' params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato) + 'Else + ' Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + 'End If + End Sub +#End Region + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + End Sub + + Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + Imprime("Excel") + End Sub +End Class diff --git a/Compras/RepReqOCCompraInv.aspx b/Compras/RepReqOCCompraInv.aspx new file mode 100644 index 000000000..8360ec7ca --- /dev/null +++ b/Compras/RepReqOCCompraInv.aspx @@ -0,0 +1,365 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepReqOCCompraInv.aspx.vb" Inherits="RepReqOCCompraInv" %> + + + + + + + +<%--
  • + PDF +
    • +
  • + Excel +
    • --%> +     + + + + + + + + + <%-- + +
    + +
    +     +     --%> +     + + + + +
    +
    +
    + + "> + +
    +
    +
    + + + +
    +
    + + + + + + + + + + +
    +
    + +
    +
    + + + + + + + + + + +
    +
    + + +
    + +
    + +
    +
    +
    + +
    > +
    + +
    + +
    + +<%-- +
    + +
    --%> +
    +
    +
    +     +     +
    +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + <%----%> + + + + + + + + diff --git a/Compras/RepReqOCCompraInv.aspx.vb b/Compras/RepReqOCCompraInv.aspx.vb new file mode 100644 index 000000000..d92cc9125 --- /dev/null +++ b/Compras/RepReqOCCompraInv.aspx.vb @@ -0,0 +1,161 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Microsoft.Reporting.WebForms +Imports Extensiones +Partial Class RepReqOCCompraInv + Inherits ClsPaginas + Private Shared missing As Object = System.Reflection.Missing.Value + +#Region "PROPIEDADES" + Private Property FechaI As String + Get + Return ViewState("FechaI").ToString + End Get + Set(value As String) + ViewState("FechaI") = value + End Set + End Property + Private Property FechaF As String + Get + Return ViewState("FechaF").ToString + End Get + Set(value As String) + ViewState("FechaF") = value + End Set + End Property + 'Private Property CveCliente As Integer + ' Get + ' Return ViewState("CveCliente").ToString.ToEntero + ' End Get + ' Set(value As Integer) + ' ViewState("CveCliente") = value + ' End Set + 'End Property + 'Private Property Sucursales As String + ' Get + ' Return ViewState("Sucursales").ToString + ' End Get + ' Set(value As String) + ' ViewState("Sucursales") = value + ' End Set + 'End Property + Private Property DtCompras As DataTable + Get + Return DirectCast(ViewState("DtCompras"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtCompras") = value + End Set + End Property + +#End Region + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + txtFechaI.Text = Now.ToShortDateString + txtFechaF.Text = Now.ToShortDateString + + CargaSucursal() + CargaProveedor() + CargaDatos() + + End If + End Sub + +#Region " C A R G A - D A T O S " + Public Sub CargaDatos() + Dim ObjCompras As New ClsCompras + + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString) + + If ObjCompras.GetRepReqOCCompraInv(FechaI.ToDate, FechaF.ToDate, DdlProveedor.SelectedValue.ToEntero, DdlSucursal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjCompras.DtResultados + DtCompras = ObjCompras.DtResultados + GvDatos.DataBind() + UPDatos.Update() + End If + + ObjCompras.Dispose() + End Sub +#End Region + +#Region "G V - D A T O S " + 'Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + ' If e.Row.RowType = DataControlRowType.DataRow Then + + ' 'Cuando es titulo + ' 'If e.Row.DBCampo("PS").ToString.Trim = "" Then + ' ' e.Row.CssClass = "Totales" + + ' ' e.Row.Cells(0).Text = String.Format("Folio: {0} ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida")) + ' ' e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString) + ' ' e.Row.Cells(3).Text = String.Format("Almacen Destino: {0}       Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio")) + ' 'End If + + ' End If + 'End Sub +#End Region + +#Region "CARGA COMBOS FILTRO" + Private Sub CargaSucursal() + DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSucursal.DataBind() + DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSucursal.SelectedValue = "-1" + End Sub + Private Sub CargaProveedor() + DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedor.DataBind() + DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlProveedor.SelectedValue = "-1" + End Sub +#End Region + +#Region "IMPRESION" + 'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click + ' Imprime("PDF") + 'End Sub + 'Private Sub Imprime(Formato As String) + ' If DtInventarios IsNot Nothing Then + ' Dim StrFiltro As New StringBuilder + ' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToShortDateString) + ' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text.ToDate.ToShortDateString) + + ' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Origen: {0}", DdlAlmacenOrigen.SelectedItem.Text) + ' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Destino: {0}", DdlAlmacenDestino.SelectedItem.Text) + ' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" Recibidos: Si") Else StrFiltro.AppendFormat(" Recibidos: No") + + ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + ' Dim FechaI, FechaF As String + ' FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) + ' FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) + + ' Dim params As New List(Of ReportParameter) + ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("FechaInicio", FechaI)) + ' params.Add(New ReportParameter("FechaFin", FechaF)) + ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + ' params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato) + ' Else + ' Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + ' End If + 'End Sub +#End Region + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + End Sub + + 'Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + ' Imprime("Excel") + 'End Sub +End Class diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 3db5b514a..063f02588 100644 --- a/Contabilidad/RepBalanceGeneral.aspx.vb +++ b/Contabilidad/RepBalanceGeneral.aspx.vb @@ -394,12 +394,12 @@ Partial Class Contabilidad_RepBalanceGeneral End Sub Private Sub ConfiguraFiltros() - FiltroActivoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO CIRCULANTE' OR Nombre = 'ACTIVO CIRCULANTE' OR Sup = 'CIRCULANTE' OR Nombre ='CIRCULANTE')" - FiltroActivoNoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO NO CIRCULANTE' OR Nombre = 'ACTIVO NO CIRCULANTE' OR Sup = 'FIJO' OR Nombre ='FIJO')" + FiltroActivoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO CIRCULANTE' OR Nombre = 'ACTIVO CIRCULANTE' OR Sup = 'CIRCULANTE' OR Nombre ='CIRCULANTE' OR Sup = 'Activo a corto plazo' OR Nombre ='Activo a corto plazo' )" + FiltroActivoNoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO NO CIRCULANTE' OR Nombre = 'ACTIVO NO CIRCULANTE' OR Sup = 'FIJO' OR Nombre ='FIJO' OR Sup = 'Activo a largo plazo' OR Nombre ='Activo a largo plazo')" FiltroActivoDiferido = "Tipo In ('A','B','C') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')" - FiltroPasivoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO CIRCULANTE' OR (Sup = 'PASIVO' AND Nombre <> 'DIFERIDO' AND Nombre <> 'PASIVO NO CIRCULANTE' ) OR Sup = 'CIRCULANTE' OR Nombre = 'PASIVO CIRCULANTE' OR Sup = 'CORTO PLAZO' OR Nombre = 'CORTO PLAZO')" - FiltroPasivoNoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO NO CIRCULANTE' OR Nombre = 'PASIVO NO CIRCULANTE' OR Sup = 'LARGO PLAZO' OR Nombre = 'LARGO PLAZO' OR Nombre = 'PASIVO LARGO PLAZO')" + FiltroPasivoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO CIRCULANTE' OR (Sup = 'PASIVO' AND Nombre <> 'DIFERIDO' AND Nombre <> 'PASIVO NO CIRCULANTE' ) OR Sup = 'CIRCULANTE' OR Nombre = 'PASIVO CIRCULANTE' OR Sup = 'CORTO PLAZO' OR Nombre = 'CORTO PLAZO' OR Sup = 'Pasivo a corto plazo' OR Nombre = 'Pasivo a corto plazo')" + FiltroPasivoNoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO NO CIRCULANTE' OR Nombre = 'PASIVO NO CIRCULANTE' OR Sup = 'LARGO PLAZO' OR Nombre = 'LARGO PLAZO' OR Nombre = 'PASIVO LARGO PLAZO' OR Sup = 'Pasivo a largo plazo' OR Nombre = 'Pasivo a largo plazo')" FiltroPasivoDiferido = "Tipo in ('D') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')" FiltroCapital = "Tipo in ('F') AND (Sup = 'PATRIMONIO CONTRIBUIDO' OR Nombre = 'PATRIMONIO CONTRIBUIDO' OR Sup = 'CAPITAL CONTABLE' OR Sup = 'CAPITAL' OR Nombre = 'CAPITAL CONTABLE' OR Nombre = 'CAPITAL')" diff --git a/Empresas/72/Formatos/OrdenServicio.rdlc b/Empresas/72/Formatos/OrdenServicio.rdlc new file mode 100644 index 000000000..b2229978d --- /dev/null +++ b/Empresas/72/Formatos/OrdenServicio.rdlc @@ -0,0 +1,2872 @@ + + + + + + true + true + + + + + DATOS DEL CLIENTE + + + + + + + Textbox165 + 3.63358cm + 0.07cm + 0.47364cm + 18.64497cm + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FECHA + + + + + + + Textbox165 + 0.5338cm + 8.84441cm + 0.47364cm + 4.43083cm + 1 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCRIPCIÓN DEL SERVICIO EN PROCESO + + + + + + + Textbox165 + 6.93966cm + 0.07344cm + 0.48cm + 18.65153cm + 2 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VIGENCIA + + + + + + + Textbox165 + 2.08369cm + 8.84441cm + 0.47364cm + 4.43083cm + 3 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FOLIO + + + + + + + Textbox165 + 0.5338cm + 13.45163cm + 0.47364cm + 5.24334cm + 4 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioOS.Value + + + + + + + Textbox165 + 1.00743cm + 13.45163cm + 0.97042cm + 5.26334cm + 5 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CodigoDeServicio.Value + + + + + + + Textbox165 + 2.62788cm + 13.45163cm + 0.89986cm + 5.26334cm + 6 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + CÓDIGO DE SERVICIO + + + + + + + Textbox165 + 2.15424cm + 13.45163cm + 0.47364cm + 5.25334cm + 7 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo1 + FitProportional + 0.1546in + 0.07918in + 1.2065in + 1.21875in + 8 + + + + + + true + true + + + + + SOLICITUD DE + + + + + + + + + SERVICIO + + + + + + + Textbox165 + 1.00743cm + 3.29673cm + 2.52032cm + 5.37129cm + 9 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + RECEPCIÓN DE + + + + + + + Textbox165 + 9.69619cm + 0.07cm + 0.44775cm + 18.65497cm + 10 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #eceaed + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + + Textbox165 + 13.43126cm + 0.07cm + 0.99688cm + 18.64497cm + 11 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FALLA REPORTADA + + + + + + + Textbox165 + 12.95762cm + 0.07cm + 0.47364cm + 18.64497cm + 12 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOMBRE Y FIRMA DEL TÉCNICO + + + + + + + + + ASIGNADO AL SERVICIO + + + + + + + Textbox165 + 15.56836cm + 0.20112cm + 0.89754cm + 6.17587cm + 13 + + + + Black + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOMBRE Y FIRMA DE ENTERADO DEL + + + + + + + + + COORDINADOR EMPRESARIAL + + + + + + + Textbox165 + 15.56836cm + 6.67991cm + 0.89754cm + 6.17587cm + 14 + + + + Black + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOMBRE Y FIRMA DEL CLIENTE + + + + + + + Textbox165 + 15.56836cm + 13.29827cm + 0.89754cm + 5.28334cm + 15 + + + + Black + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + POLÍTICAS + + + + + + + Textbox165 + 16.4659cm + 0.20112cm + 0.47421cm + 18.64497cm + 16 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 1. Toda solicitud será descrita de forma clara para ofrecerle un mejor servicio. +2. La recepción y atención de las solicitudes de servicio se efectuará conforme se vayan recibiendo de acuerdo al número de su reporte. +3. El tiempo estimado para realizar el diagnóstico de su equipo será de 48 horas, posteriores a la recepción de su solicitud. El diagnostico +tiene un costo de $200 pesos, el cual deberá cubrirlo al momento de ingresar su equipo. Sin factura y pago de diagnóstico este reporte no +será procesado. +4. El tiempo de reparación del equipo estará sujeto a la autorización del Cliente y de acuerdo a la disponibilidad de componentes en +Compuproveedores, fabricantes y/o proveedores. +5. El Cliente recibirá una liga al correo electrónico que indicó al momento de ingresar su equipo, en donde podrá consultar el seguimiento a +su servicio. +6. Una vez que reciba la notificación por correo electrónico, de que su equipo ha sido reparado podrá pasar a nuestras oficinas en un horario +de lunes a viernes de 8:00 a.m. a 12:00 a.m. y de 2:00 p.m. a 4:00 p.m. +7. Una vez realizada la reparación de su equipo, podrá permanecer por 10 días hábiles en Compuproveedores/HP store, posteriormente del +día 11 al 20 hábil se cobrara un 3% diario del monto total de la reparación por concepto de almacenaje. Después de este periodo +Compuproveeores no se hace responsable por el resguardo de su equipo. + + + + + + + Textbox165 + 16.94011cm + 0.20112cm + 7.1417cm + 17.72549cm + 17 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Copia.Value + + + + Copia + 24.08181cm + 0.20112cm + 0.6cm + 18.38049cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 9.31248cm + + + 9.31248cm + + + + + 0.54708cm + + + + + true + true + + + + + CLIENTE + + + + : + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + NO. DE CLIENTE: + + + + + + + + =Parameters!NoDeCliente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.54709cm + + + + + true + true + + + + + DIRECCIÓN: + + + + + + + + =Parameters!ClienteCalle.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + RFC: + + + + + + + + =Parameters!RFC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.57354cm + + + + + true + true + + + + + POBLACIÓN: + + + + + + + + =Parameters!ClienteCiudad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + VENDEDOR: + + + + + + + + =Parameters!Vendedor.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + CONTACTAR A: + + + + + + + + =Parameters!Cliente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CORREO: + + + + + + + + =Parameters!Correo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + Before + + + + DataSet1 + 4.10722cm + 0.07cm + 2.26772cm + 18.62496cm + 19 + + + 7pt + + + + true + true + + + + + TELÉFONO: + + + + =Parameters!ClienteTelefono.Value + + + + EXT.: TELÉFONO ADICIONAL: + + + + =Parameters!ClienteTelefono.Value + + + + CELULAR: + + + + =Parameters!ClienteTelefono.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.47694cm + + + 1.47694cm + + + 1.47694cm + + + + + 0.97042cm + + + + + true + true + + + + + Día + + + + + + + + + =Day(Parameters!FechaRecibido.Value) + + + + + + + Textbox42 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Mes + + + + + + + + + =Month(Parameters!FechaRecibido.Value) + + + + + + + Textbox44 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Año + + + + + + + + + =Year(Parameters!FechaRecibido.Value) + + + + + + + Textbox46 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet1 + 1.00743cm + 8.84441cm + 0.97042cm + 4.43082cm + 21 + + + + + + + + + 1.47694cm + + + 1.47694cm + + + 1.47694cm + + + + + 0.97042cm + + + + + true + true + + + + + Día + + + + + + + + + =Microsoft.VisualBasic.DateAndTime.Day(Parameters!FechaRecibido.Value) + + + + + + + Textbox42 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Mes + + + + + + + + + =Microsoft.VisualBasic.DateAndTime.Month(Parameters!FechaRecibido.Value) + + + + + + + Textbox44 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Año + + + + + + + + + =Microsoft.VisualBasic.DateAndTime.Year(Parameters!FechaRecibido.Value) + + + + + + + Textbox46 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet1 + 2.55733cm + 8.84441cm + 0.97042cm + 4.43082cm + 22 + + + + + + + + + 9.32749cm + + + 9.32749cm + + + + + 0.57354cm + + + + + true + true + + + + + SUCURSARL: + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + LUGAR DE SERVICIO: + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + + + true + true + + + + + TIPO DE SERVICIO: + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TIPO DE EQUIPO: + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet1 + 7.41966cm + 0.07344cm + 1.09417cm + 18.65497cm + 23 + + + 9pt + + + + + + + 9.30904cm + + + + + 0.6cm + + + + + true + true + + + + + Equipo + + + + + + + Textbox23 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + =Parameters!Equipo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + 8.58438cm + 0.07344cm + 1.04125cm + 9.30904cm + 24 + + + + + + true + true + + + + + ( ) Bandeja + + + + + + + + + + + + + + + + + + + + + + + + + + + + 9.8435in +