diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 7b7617049..791d4eb80 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1649,7 +1649,7 @@ Public Class ClsGenerales Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer, CveEmpresa As Integer, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1, - Optional ConceptoCIE As String = "-1") As Boolean + Optional ConceptoCIE As String = "-1", Optional Estatus As Boolean = True) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosAdd") @@ -1678,6 +1678,7 @@ Public Class ClsGenerales .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE + .Add("@Estatus", SqlDbType.VarChar).Value = Estatus End With diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index fb461e57e..8e79bea06 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -108,7 +108,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState context.Response.Write(retorno) Case "EstadosCuenta" 'CargaEstadosCuenta(context, 119, 227774) - CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual) + 'CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual) + Dim tCveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero + CargaEstadosCuenta(context, tCveEmpresa, -1, FechaEnvio, FechaActual) Case "ScoreCard" CargaScoreCard(context, 140, FechaEnvio) @@ -354,6 +356,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState #Region "E S T A D O S D E C U E N T A" Private Sub CargaEstadosCuenta(ByVal context As HttpContext, pCveEmpresa As Integer, pCveCliente As Integer, FechaEnvio As DateTime, FechaActual As DateTime) + + Dim Usuario As Usuario = ValidaUsuarioSistema(100, pCveEmpresa) + Dim Retorno As New JArray() Dim DtEmpresas As DataTable = Nothing Using ObjEmpresas As New ClsSisEmpresas() @@ -364,7 +369,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState If DtEmpresas IsNot Nothing Then For Each Row As DataRow In DtEmpresas.Rows - Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero()) + 'Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero()) Dim obj As JObject = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente) Retorno.Add(obj) @@ -499,7 +504,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState Dim Envio As Boolean = False If Not String.IsNullOrEmpty(Correo) Then + 'Correo = "oscar.irigoyen@adssistemas.mx" Envio = EnviarEstadoCuenta(UsuarioActual, Correo, Cliente) + GuardaLog($"Log envio Estados Cuenta correo {If(Envio, "Enviado", "Error")} CveCliente {CveCliente} ") End If If Envio Then @@ -522,6 +529,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState New JProperty("Cliente", Cliente.Nombre) )) End If + End If Next End If @@ -857,7 +865,10 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState If sw.Elapsed.TotalSeconds > 10 Then GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds} ") End If - If MR IsNot Nothing Then MR.Dispose() + If MR IsNot Nothing Then + 'MR.Close() + MR.Dispose() + End If Return Bytes End Function diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 7f47b4731..4fd113f60 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -545,16 +545,7 @@ Partial Class Bancos_PopIEVentas FechaVenta = dr("Fecha").ToString.ToDate SaldoVenta = dr("Saldo").ToString.ToDouble - - 'Cortes de Caja - If UsuarioActual.TienePermisoProceso(160) Then - CargaCorteCaja() - End If - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse (dr("CveCorte").ToString.ToEntero > 0) Then 'toma como proridad el que viene de - CveCorte = dr("CveCorte").ToString.ToEntero - End If - + Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual) If RFCCliente.ToUpper <> "XAXX010101000" Then Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero @@ -581,18 +572,57 @@ Partial Class Bancos_PopIEVentas ObjVenta.Dispose() End Sub - Private Sub CargaCorteCaja() - 'Checar si hay un Turno Abierto - Dim ObjPVenta As New ClsPuntoVenta + Protected Function CargaCorteCaja(CveVenta As Integer, UsuarioActual As Usuario) As Integer + Dim CveCorte As Integer = -1 - If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then + Dim CveCorteVenta As Integer = -1 + Dim EsCredito As Boolean = False + Dim UsaCorteActual As Boolean = False - If ObjPVenta.DtResultados.Rows.Count > 0 Then - CveCorte = ObjPVenta.CveCorte + If CveVenta > 0 Then + Using ObjVentas As New ClsVentas + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then + EsCredito = If(ObjVentas.DtResultados.FiltroPrimeroValor("CondicionesPago").ToEntero() = 1, True, False) + CveCorteVenta = ObjVentas.DtResultados.FiltroPrimeroValor("CveCorte").ToEntero() + End If + End Using + + If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then + 'SI ES FACTURA A CREDITO + If EsCredito OrElse CveCorteVenta <= 0 Then + UsaCorteActual = True + End If + End If + + 'SI ES CONTADO TOMAR EL DE LA VENTA + If Not EsCredito Then + UsaCorteActual = False + End If + + 'EN BDH TOMAR EL DE LA VENTA + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + UsaCorteActual = False + End If + Else + If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then + UsaCorteActual = True End If End If - ObjPVenta.Dispose() - End Sub + + If UsaCorteActual Then + Dim ObjPVenta As New ClsPuntoVenta + If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then + If ObjPVenta.DtResultados.Rows.Count > 0 Then + CveCorte = ObjPVenta.CveCorte + End If + End If + ObjPVenta.Dispose() + Else + CveCorte = CveCorteVenta + End If + + Return CveCorte + End Function Private Sub CargaCliente(ByVal CveCliente As Integer, RFC As String) Dim ObjCliente As New ClsClientes diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 0f8f26f74..7c9ebeeb3 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -131,7 +131,7 @@ - + @@ -315,7 +315,7 @@ - <%----%> + @@ -448,6 +448,11 @@ + + + + + diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 177d8cb61..5827880e9 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -90,6 +90,10 @@ Partial Class Bancos_RepCortes GvDatos.Columns(4).Visible = True End If + If UsuarioActual.CveRol = 1 Then + GvDatos.Columns(21).Visible = True 'COLUMNA DE CveCorte + End If + GvP.DataBind() GvDep.DataBind() GvPorIVA.DataBind() @@ -219,7 +223,7 @@ Partial Class Bancos_RepCortes Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1" If ConsultaPorSucursal Then - CveCorte = -1 + 'CveCorte = -1 FechaConsulta = gvr.DataKey("FechaInicial").ToDate() End If @@ -231,6 +235,10 @@ Partial Class Bancos_RepCortes DtCortesVentas = DsDatos.Tables(0) GvD.DataSource = DtCortesVentas + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + GvD.Columns(3).Visible = True + End If + divDetalle.Visible = True 'RESUMEN DtCortesVentasResumen = DsDatos.Tables(1) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 034b3d77b..889e34b70 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -716,6 +716,8 @@ P.U.  IVA  IEPS  + Ret. IVA  + Ret. ISR  Total 
¿No Deducible?  @@ -826,55 +828,69 @@ + <%-- 10 --%> + + +
+ + + + <%-- 11 --%> + + +
+ + + - <%-- 10 --%> + <%-- 12 --%> - <%-- 11 --%> + <%-- 13 --%> - <%-- 12 --%> + <%-- 14 --%> - <%-- 13 --%> + <%-- 15 --%> - <%-- 14 --%> + <%-- 16 --%> - <%-- 15 --%> + <%-- 17 --%> - <%-- 16 --%> + <%-- 18 --%> - <%-- 17 --%> + <%-- 19 --%> - <%-- 18 --%> + <%-- 12 --%> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6ed284990..ca2afc967 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -978,6 +978,36 @@ Partial Class Compras_Compras End Set End Property + + + Private Property ProvRetIVA As Decimal + Get + If ViewState("ProvRetIVA") Is Nothing Then + ViewState("ProvRetIVA") = 0 + End If + + Return ViewState("ProvRetIVA").ToString.ToDecimal + End Get + Set(value As Decimal) + ViewState("ProvRetIVA") = value + End Set + End Property + + Private Property ProvRetISR As Decimal + Get + If ViewState("ProvRetISR") Is Nothing Then + ViewState("ProvRetISR") = 0 + End If + + Return ViewState("ProvRetISR").ToString.ToDecimal + End Get + Set(value As Decimal) + ViewState("ProvRetISR") = value + End Set + End Property + + + Private Property TotalOriginal As Decimal Get If ViewState("TotalOriginal") Is Nothing Then @@ -1787,7 +1817,7 @@ Partial Class Compras_Compras End If - MostrarOcultarColumnaIEPS() + MostrarOcultarColumnaIEPSRetIVARetISR() End Sub @@ -1886,7 +1916,7 @@ Partial Class Compras_Compras #Region "C A R G A S" - Private Sub MostrarOcultarColumnaIEPS() + Private Sub MostrarOcultarColumnaIEPSRetIVARetISR() If TxtIEPS.Text.ToDecimal <> 0 And TmpDT.SUM("IEPSPS") <> 0 Then @@ -1896,6 +1926,25 @@ Partial Class Compras_Compras GvPS.Columns(9).Visible = False TD_Gvps_IEPS.Visible = False End If + + If TxtRetIVA.Text.ToDecimal <> 0 And TmpDT.SUM("RetIVA") <> 0 Then + GvPS.Columns(10).Visible = True + TdRetIVA.Visible = True + Else + GvPS.Columns(10).Visible = False + TdRetIVA.Visible = False + End If + + + If TxtRetISR.Text.ToDecimal <> 0 And TmpDT.SUM("RetISR") <> 0 Then + GvPS.Columns(11).Visible = True + TdRetISR.Visible = True + Else + GvPS.Columns(11).Visible = False + TdRetISR.Visible = False + End If + + UpPS.Update() End Sub @@ -2562,7 +2611,7 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) End If - If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(0, 3, 4) Then ' 85 - Otros If UsuarioActual.CveEmpresa <> 119 Then DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) @@ -2585,7 +2634,7 @@ Partial Class Compras_Compras DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) End If - If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(3, 4) Then ' 85 - Otros If UsuarioActual.CveEmpresa <> 119 Then DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) @@ -2619,7 +2668,7 @@ Partial Class Compras_Compras DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2")) End If - If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros + If DIOTCveTipoOperacion.Contiene(3, 4) Then ' 85 - Otros If UsuarioActual.CveEmpresa <> 119 Then DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) @@ -2954,6 +3003,11 @@ Partial Class Compras_Compras TxtIVA.Text = dr("IVA").ToString.FormatoNumero(2) TxtRetIVA.Text = dr("RetIVA").ToString.FormatoNumero(2) TxtRetISR.Text = dr("RetISR").ToString.FormatoNumero(2) + + RetIVAOriginal = dr("RetIVA").ToString.ToDecimal + RetISROriginal = dr("RetISR").ToString.ToDecimal + + TxtIEPS.Text = dr("IEPS").ToString.FormatoNumero(2) If dr("IEPS").ToString.ToDouble > 0 Then TrIEPS.Visible = True If dr("RetIVA").ToString.ToDouble > 0 Then TrRetIVA.Visible = True @@ -3777,6 +3831,9 @@ Partial Class Compras_Compras End If End If + ProvRetIVA = ObjProveedor.RetIVA.ToDecimal + ProvRetISR = ObjProveedor.RetISR.ToDecimal + If CveCompra <= 0 AndAlso CveFactura <= 0 Then 'si se está cargando una factura o compra no se carga 'LblRetIVA.Text = ObjProveedor.RetIVA.ToString.FormatoNumero(5) 'LblRetISR.Text = ObjProveedor.RetISR.ToString.FormatoNumero(5) @@ -10739,12 +10796,12 @@ Partial Class Compras_Compras If e.Row.RowIndex = 0 Then If UsuarioActual.Empresa.UsaAC Then 'AndAlso (CveFactura > 0 Or CveCompra > 0) - e.Row.Cells(13).Width = Unit.Pixel(150) - e.Row.Cells(14).Width = Unit.Pixel(150) e.Row.Cells(15).Width = Unit.Pixel(150) e.Row.Cells(16).Width = Unit.Pixel(150) e.Row.Cells(17).Width = Unit.Pixel(150) - e.Row.Cells(18).Width = Unit.Pixel(100) + e.Row.Cells(18).Width = Unit.Pixel(150) + e.Row.Cells(19).Width = Unit.Pixel(150) + e.Row.Cells(20).Width = Unit.Pixel(100) End If End If @@ -10847,11 +10904,11 @@ Partial Class Compras_Compras 'CargaPresupuestosEgresos If UsuarioActual.Empresa.UsaAC Then - e.Row.Cells(14).Visible = True - e.Row.Cells(15).Visible = True e.Row.Cells(16).Visible = True e.Row.Cells(17).Visible = True e.Row.Cells(18).Visible = True + e.Row.Cells(19).Visible = True + e.Row.Cells(20).Visible = True e.Row.FCDropDownList("DdlAC1").Items.Clear() e.Row.FCDropDownList("DdlAC1").DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveProgramaOperativo", "ProgramaOperativo"}) @@ -10882,19 +10939,19 @@ Partial Class Compras_Compras 'SI EL PRESUPUESTO DE EGRESOS VIENE DESDE LA OC, SE BLOQUEA PE If e.Row.DBCampo("CveOrdenCompraDetalle").ToEntero > 0 AndAlso e.Row.DBCampo("CvePresupuestoEgreso").ToEntero > 0 Then - e.Row.Cells(14).Enabled = False - e.Row.Cells(15).Enabled = False e.Row.Cells(16).Enabled = False e.Row.Cells(17).Enabled = False e.Row.Cells(18).Enabled = False + e.Row.Cells(19).Enabled = False + e.Row.Cells(20).Enabled = False End If Else - e.Row.Cells(14).Visible = False - e.Row.Cells(15).Visible = False e.Row.Cells(16).Visible = False e.Row.Cells(17).Visible = False e.Row.Cells(18).Visible = False + e.Row.Cells(19).Visible = False + e.Row.Cells(20).Visible = False End If End If @@ -13049,12 +13106,12 @@ Partial Class Compras_Compras 'Seccion Grid GvPS.Width = 1760 - GvPS.Columns(13).Visible = True - GvPS.Columns(14).Visible = True GvPS.Columns(15).Visible = True GvPS.Columns(16).Visible = True GvPS.Columns(17).Visible = True GvPS.Columns(18).Visible = True + GvPS.Columns(19).Visible = True + GvPS.Columns(20).Visible = True 'Panel General UpPresupuestosAC.Visible = True @@ -17600,7 +17657,7 @@ Partial Class Compras_Compras CargaRetISRConcepto() Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ") - If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles + If NumNoDed > 0 Then GvPS.Columns(13).Visible = True 'visualiza columnas de nodeducibles 'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then ' InicializaAplicaNCFact() @@ -18151,6 +18208,9 @@ Partial Class Compras_Compras HdnPS.Value = PS("PSCodigo").ToString LblUnidadMedida.Text = PS("UnidadMedida").ToString + Dim PsRetIVA As Decimal = PS("RetIVA").ToString.ToDecimal + Dim PsRetISR As Decimal = PS("RetISR").ToString.ToDecimal + ddlUM.Items.Clear() If UsuarioActual.Empresa.UsaInventarios Then ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) @@ -18230,6 +18290,19 @@ Partial Class Compras_Compras TxtRetIVAModal.Text = FormatoNumero(ViewState("RetIVA").ToString().ToDouble * 100, 6) TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 6) + 'OIC 2025-04-29 + If CveCompra > 0 AndAlso Modalidad = "A" Then + If ProvRetIVA > 0 Or ProvRetISR > 0 Then + TxtRetIVAModal.Text = FormatoNumero(ProvRetIVA, 6) + TxtRetISRModal.Text = FormatoNumero(ProvRetISR, 6) + ElseIf PsRetIVA > 0 Or PsRetISR > 0 Then + TxtRetIVAModal.Text = FormatoNumero(PsRetIVA, 6) + TxtRetISRModal.Text = FormatoNumero(PsRetISR, 6) + End If + End If + + + If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 And PS("IEPSPorcentaje").ToString.ToDecimal > 0 Then TxtIEPSModal.Text = "0" Alert("El producto seleccionado contiene IEPS, pero el acumulado de la factura no contiene IEPS, por lo que no se agregara el impuesto.", TipoMensaje.MsgAdvertencia) @@ -18518,7 +18591,7 @@ Partial Class Compras_Compras UpPS.Update() CargaGvPersonal() - MostrarOcultarColumnaIEPS() + MostrarOcultarColumnaIEPSRetIVARetISR() End Sub @@ -20300,7 +20373,7 @@ Partial Class Compras_Compras Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia) End If - MostrarOcultarColumnaIEPS() + MostrarOcultarColumnaIEPSRetIVARetISR() AddPS2() End Sub #End Region @@ -21156,12 +21229,12 @@ Partial Class Compras_Compras If ChkEsNoDeducible.Checked Then EsNoDeducible = True dvNoDeducible.Visible = True - GvPS.Columns(11).Visible = True + GvPS.Columns(13).Visible = True DivEsNoDeducible.Visible = True Else EsNoDeducible = False dvNoDeducible.Visible = False - GvPS.Columns(11).Visible = False + GvPS.Columns(13).Visible = False DivEsNoDeducible.Visible = False End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 3ebde3353..b81b0efbe 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1749,7 +1749,7 @@ Partial Class PopUpVerFactura End Using End If - CveCorte = -1 + 'CveCorte = -1 End If Dim ObjVenta As New ClsVentas diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 4a7d61348..4c7dd8fa6 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -3326,89 +3326,89 @@
- -
+
+
-
-
-
-
- - -
-
-
-
- - - -
-
-
-
-
-
- - -
-
-
-
- - -
-
-
-
- - <%----%> - -
-
-
-
- - - -
-
-
-
-
-
- - - -
-
-
-
- - -
-
-
-
-
- - -
+
+ + +
-
-
- - - +
+
+
+ + + +
+
+
+
+
+
+ + +
+
+
+
+ + +
+
+
+
+
+
+ + +
+
+
+
+ + + +
+
+
+
+
+
+ + + +
+
+
+
+ + +
+
+
+
+
+
+ + +
+
+
+
+ + + +
+
-
-
@@ -3427,38 +3427,38 @@
-
-
-
+
+
+
-
-
+
+
-
- - +
+ +
-
-
+
+
-
- - - Seleccione uno - - - - +
+ + + Seleccione uno + + + + + +
-
-
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 8ad336c6e..7edaa79fb 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -950,7 +950,7 @@ Partial Class Compras_ReembolsosComprobaciones GvCxP.Visible = True ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), OpcionSaldo:=1) - DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0") + DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND LEN(SerieFolio) > 0 ") GvCxP.DataSource = DtDatos CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero diff --git a/Compras/RepComplementoPago.aspx b/Compras/RepComplementoPago.aspx index 4bbace20e..2eeab0a77 100644 --- a/Compras/RepComplementoPago.aspx +++ b/Compras/RepComplementoPago.aspx @@ -18,32 +18,32 @@ +
    • - - -
  • - PDF -
    • -     - - - -     - - -
  • - Excel -
    • -     - - - -     +
  • + PDF +
    • + +
  • + Excel +
    • +
  • + Personalizar +
    • +
  • + Excel Personalizado +
    • +     + + + + +     @@ -135,18 +135,32 @@ + <%--0--%> + <%--1--%> + <%--2--%> + + + + + + + <%--3--%> + <%--4--%> + <%--5--%> + <%--6--%> + <%--7--%> + <%--8--%> - - + @@ -154,6 +168,49 @@ + + + + + + + + + + diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index eb4b41f15..cf4bf2ab6 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/Compras/RepComplementoPago.aspx.vb @@ -69,15 +69,17 @@ Partial Class Compras_RepComplementoPago Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1) Dim Count As Integer = 0 + Personalizar() + Dim ObjCompras As New ClsCompras If ObjCompras.RepComplementosPago(CveProveedor, -1, TipoConsulta, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, CveTipoProveedor, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRegistra.SelectedValue.ToEntero) Then DTComplemntos = ObjCompras.DtResultados '.FiltraParametros(If(ChkViculadas.Checked, "FechaAsociacionPago IS NOT NULL", "FechaAsociacionPago IS NULL")) GvDatos.DataSource = DTComplemntos If ChkViculadas.Checked Then Count = DTComplemntos.Rows.Count - GvDatos.Columns(7).Visible = True + GvDatos.Columns(8).Visible = True Else - GvDatos.Columns(7).Visible = False + GvDatos.Columns(8).Visible = False End If End If ObjCompras.Dispose() @@ -98,6 +100,20 @@ Partial Class Compras_RepComplementoPago GvDatos.DataBind() UpDatos.Update() End Sub + + Private Sub Personalizar() + + GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked + If ChkFolioFiscal.Checked Then + GvDatos.Columns(0).ItemStyle.Width = 15% + Else + GvDatos.Columns(0).ItemStyle.Width = 30% + End If + + UpDatos.Update() + + End Sub + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then If ChkViculadas.Checked Then @@ -201,4 +217,32 @@ Partial Class Compras_RepComplementoPago End Sub #End Region + + Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) + Personalizar() + ImgExcelPersonalizado.Visible = True + UpAcciones.Update() + End Sub + + + Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click + + ' GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString) + 'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx") + Dim SubProyecto As String = "" + + If DdlSubProyecto.SelectedValue.ToEntero > 0 Then + SubProyecto = DdlSubProyecto.SelectedItem.Text + End If + + Dim SbFiltros As New StringBuilder() + SbFiltros.AppendFormat($"Fecha Inicio: {TxtFiltrosFechaInicio.Text} Fecha Fin: {TxtFiltrosFechaFin.Text}|") + SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto) + + + GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) + End Sub + + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub End Class diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index f305d7390..6f4ef8887 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -6485,6 +6485,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot 0.6cm 3.97474cm 45 + + true + @@ -6525,6 +6528,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot 0.6cm 3.97474cm 46 + + true + @@ -7793,7 +7799,6 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot Textbox14 - 0cm 14.77452cm 0.54708cm 4.70062cm diff --git a/Empresas/Grales/Formatos/EntradaSalida.rdlc b/Empresas/Grales/Formatos/EntradaSalida.rdlc index c80980b50..a6883293e 100644 --- a/Empresas/Grales/Formatos/EntradaSalida.rdlc +++ b/Empresas/Grales/Formatos/EntradaSalida.rdlc @@ -1,1095 +1,5 @@ - - - - - - - - 1.14223cm - - - 3.14766cm - - - 11.67011cm - - - 2.70027cm - - - 1.73945cm - - - - - 0.42054cm - - - - - true - true - - - - - Cant. - - - - - - - Textbox7 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Código - - - - - - - Textbox9 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox11 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Serie - - - - - - - Textbox6 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Lote - - - - - - - Textbox5 - - - - Black - - 1pt - - - Black - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.69042cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!PS.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!SerieLote.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!Lote.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - - - - - - - - - - =IIF(String.IsNullOrEmpty(Fields!Lote.Value), True,False) - - - - - - - - After - - - - - - - DsInventarios - 0.17639cm - 0.22456cm - 1.11096cm - 20.39971cm - - - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.82291in - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Concepto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.3175cm - 0.19987cm - 1.66316cm - 3.43141cm - 2 - - - - - - true - true - - - - - =Parameters!FacturaProveedor.Value - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!FacturadoA.Value - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Proveedor: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Factura: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio: - - - - - - - Textbox3 - 0.35028cm - 13.63291cm - 0.89103cm - 2.06494cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Folio.Value - - - - - - - Textbox31 - 0.31501cm - 15.69784cm - 0.9263cm - 2.57165cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Almacen.Value - - - - - - - Textbox6 - 2.34505cm - 14.4575cm - 0.6cm - 5.9022cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Fecha.Value - - - - - - - Textbox32 - 3.09701cm - 14.4575cm - 0.59999cm - 5.9022cm - 11 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Almacén: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 2.22251cm - true - true - - - 0.28886cm - 2.22221cm - 0cm - 4.95004cm - - - - - - true - true - - - - - =Parameters!NombreRecibio.Value - - - - Textbox31 - 0.46525cm - 1.74387cm - 0.6cm - 5.95755cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.28886cm - 12.20081cm - 0cm - 4.95004cm - 2 - - - - - - true - true - - - - - =Parameters!Almacen.Value - - - - Textbox31 - 0.42997cm - 11.80394cm - 0.6cm - 5.95755cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresion: - - - - - - - Textbox5 - 1.49022cm - 11.96388cm - 0.6cm - 2.90426cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - - Textbox33 - 1.49022cm - 14.86814cm - 0.6cm - 2.89335cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 1.5cm - 2cm - 2cm - 0.13cm - + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código + + + + + + + Textbox9 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox11 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Serie + + + + + + + Textbox6 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Lote + + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.69042cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!PS.Value + + + + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SerieLote.Value + + + + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!Lote.Value + + + + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + + + + + + + + + + =IIF(String.IsNullOrEmpty(Fields!Lote.Value), True,False) + + + + + + + + After + + + + + + + DsInventarios + 0.17639cm + 0.02646cm + 1.11096cm + 20.61138cm + + + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.82291in + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Concepto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.34574cm + 1.66316cm + 3.43141cm + 2 + + + + + + true + true + + + + + =Parameters!FacturaProveedor.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!FacturadoA.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Proveedor: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Factura: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio: + + + + + + + Textbox3 + 0.37852cm + 13.43304cm + 0.89103cm + 2.06494cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox31 + 0.34325cm + 15.49797cm + 0.9263cm + 2.57165cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Almacen.Value + + + + + + + Textbox6 + 2.05579cm + 13.14776cm + 0.6cm + 7.51654cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox32 + 2.74425cm + 13.1213cm + 0.59999cm + 7.51654cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Almacén: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!FolioOC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + OC: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 2.22251cm + true + true + + + 0.28886cm + 2.26223cm + 0cm + 4.95004cm + + + + + + true + true + + + + + =Parameters!NombreRecibio.Value + + + + Textbox31 + 0.46525cm + 1.78389cm + 0.6cm + 5.95755cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.28886cm + 12.24083cm + 0cm + 4.95004cm + 2 + + + + + + true + true + + + + + =Parameters!Almacen.Value + + + + Textbox31 + 0.42997cm + 11.84396cm + 0.6cm + 5.95755cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresion: + + + + + + + Textbox5 + 1.49022cm + 12.0039cm + 0.6cm + 2.90426cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + + Textbox33 + 1.49022cm + 14.90816cm + 0.6cm + 2.89335cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + - - - - - - Textbox5 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox4 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Código Barras - - - - - - - Textbox37 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Código - - - - - - - Textbox14 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Producto - - - - - - - Textbox16 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SerieLote - - - - - - - Textbox12 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cant - - - - - - - Textbox3 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Costo - - - - - - - Textbox26 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox35 - - - - - - - - - Silver - 2pt - 2pt - 2pt - - - - - - - - 0.38833cm - - - - - true - true - - - - - =RowNumber(nothing) - - - - - - - Textbox6 - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaInvFisico.Value - - - - - - - FechaInvFisico - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodigoBarras.Value - - - - - - - CodigoBarras - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value - - - - - - - RazonSocial - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SerieLote.Value - - - - - - - RazonSocial - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Costo.Value - - - - - - - Costo - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value * Fields!Costo.Value - - - - - - - Textbox36 - - - =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - - - - - - - - true - DataSet1 - 5.02913cm - 0.127cm - 0.82373cm - 25.50149cm - - - - CornflowerBlue - - - CornflowerBlue - - - CornflowerBlue - - - CornflowerBlue - - - - - 4.83482cm - 0.1599cm - 0cm - 25.46859cm - 1 - - - - - - - - true - true - - - - - Título: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Titulo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Inicio: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaInicio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Almacén: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Almacen.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Fin: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaFin.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Estatus: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Estatus.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Sucursal: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Sucursal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Clasificaciones: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Clasificaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Productos: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Productos.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Observaciones: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 2.47121cm - 0.1599cm - 2.18722cm - 25.46859cm - 2 - - - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.02646cm - 0.12943cm - 2.25453cm - 4.18606cm - 3 - - - - - - true - true - - - - - =Parameters!NombreEmpresa.Value - - - - - - - Textbox1 - 6.71438cm - 0.6cm - 13.51378cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE INVENTARIO FISICO - - - - - - - - - - - - - - - - Textbox2 - 0.6635cm - 6.71438cm - 0.66174cm - 13.51378cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - 2.41856cm - 0.127cm - 0cm - 25.50149cm - 6 - - - - - - true - true - - - - - Total: - - - - - - - Textbox34 - 5.85992cm - 21.63015cm - 0.59294cm - 1.23256cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Sum(Fields!Cantidad.Value * Fields!Costo.Value, "DataSet1") - - - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - 2.82511in - - - - - 10.08996in - - - 0.02646cm - true - - - - - - 0.57501cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.21166cm - 22.95411cm - 0.36335cm - 2.64795cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - - Textbox8 - 0.21166cm - 0.07091cm - 0.36335cm - 1.60042cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - - Textbox9 - 0.21166cm - 1.61524cm - 0.36335cm - 5.14936cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - Textbox10 - 0.21166cm - 11.41774cm - 0.36335cm - 2.92333cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - - Textbox11 - 0.21166cm - 14.32696cm - 0.36335cm - 4.32745cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.10583cm - 0cm - 25.62849cm - 5 - - - - - - - - - - 21.59cm - 27.94cm - 1cm - 1cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox5 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox4 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código Barras + + + + + + + Textbox37 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código + + + + + + + Textbox14 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Producto + + + + + + + Textbox16 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Serie + + + + + + + Textbox12 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cant + + + + + + + Textbox3 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Costo + + + + + + + Textbox26 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox35 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + =RowNumber(nothing) + + + + + + + Textbox6 + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaInvFisico.Value + + + + + + + FechaInvFisico + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoBarras.Value + + + + + + + CodigoBarras + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value + + + + + + + RazonSocial + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieLote.Value + + + + + + + RazonSocial + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Costo.Value + + + + + + + Costo + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value * Fields!Costo.Value + + + + + + + Textbox36 + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + + + + + + + true + DataSet1 + 5.02913cm + 0.127cm + 0.82373cm + 25.50149cm + + + + CornflowerBlue + + + CornflowerBlue + + + CornflowerBlue + + + CornflowerBlue + + + + + 4.83482cm + 0.1599cm + 0cm + 25.46859cm + 1 + + + + + + + + true + true + + + + + Título: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Titulo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Inicio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaInicio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Almacén: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Almacen.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Fin: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaFin.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estatus: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Estatus.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sucursal: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Sucursal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Clasificaciones: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Clasificaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Productos: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Productos.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Observaciones: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 2.47121cm + 0.1599cm + 2.18722cm + 25.46859cm + 2 + + + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.02646cm + 0.12943cm + 2.25453cm + 4.18606cm + 3 + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + Textbox1 + 6.71438cm + 0.6cm + 13.51378cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE INVENTARIO FISICO + + + + + + + + + + + + + + + + Textbox2 + 0.6635cm + 6.71438cm + 0.66174cm + 13.51378cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + 2.41856cm + 0.127cm + 0cm + 25.50149cm + 6 + + + + + + true + true + + + + + Total: + + + + + + + Textbox34 + 5.85992cm + 21.63015cm + 0.59294cm + 1.23256cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Sum(Fields!Cantidad.Value * Fields!Costo.Value, "DataSet1") + + + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + 2.82511in + + + + + 10.08996in + + + 0.02646cm + true + + + + + + 0.57501cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.21166cm + 22.95411cm + 0.36335cm + 2.64795cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + + Textbox8 + 0.21166cm + 0.07091cm + 0.36335cm + 1.60042cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + + Textbox9 + 0.21166cm + 1.61524cm + 0.36335cm + 5.14936cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.21166cm + 11.41774cm + 0.36335cm + 2.92333cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + + Textbox11 + 0.21166cm + 14.32696cm + 0.36335cm + 4.32745cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.10583cm + 0cm + 25.62849cm + 5 + + + + + + + + + + 21.59cm + 27.94cm + 1cm + 1cm + 1cm + 1cm + 0.13cm +