This commit is contained in:
2019-11-09 01:08:37 -07:00
5 changed files with 3757 additions and 3744 deletions

View File

@@ -650,6 +650,7 @@ Partial Class AC_SituacionFinanciera
params.Add(New ReportParameter("pFirma2", "")) params.Add(New ReportParameter("pFirma2", ""))
End If End If
params.Add(New ReportParameter("pFechaFin", FechaF)) params.Add(New ReportParameter("pFechaFin", FechaF))
params.Add(New ReportParameter("Level2", If(ChkNivel.Checked, "SI", "NO")))
ImprimirPDF(reportpath, lrds, params, fileName, Formato) ImprimirPDF(reportpath, lrds, params, fileName, Formato)
End Sub End Sub
End Class End Class

View File

@@ -139,6 +139,7 @@
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
<FontWeight>=IIf(Fields!Level.Value &lt; 2 AND Parameters!Level2.Value = "SI", "Bold", "Default")</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -275,7 +276,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteActual.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteActual.Value, 0))</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -309,7 +310,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteAnterior.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteAnterior.Value, 0))</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -471,6 +472,7 @@
<Value>=Fields!Nombre.Value</Value> <Value>=Fields!Nombre.Value</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=IIf(Fields!Level.Value &lt; 2 AND Parameters!Level2.Value = "SI", "Bold", "Default")</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -606,7 +608,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteActual.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteActual.Value, 0))</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -640,7 +642,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum( Fields!ImporteAnterior.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteAnterior.Value, 0))</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -801,6 +803,7 @@
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
<FontWeight>=IIf(Fields!Level.Value &lt; 2 AND Parameters!Level2.Value = "SI", "Bold", "Default")</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -938,7 +941,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteActual.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteActual.Value, 0))</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -972,7 +975,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteAnterior.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteAnterior.Value, 0))</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -1132,6 +1135,7 @@
<Value>=Fields!Nombre.Value</Value> <Value>=Fields!Nombre.Value</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=IIf(Fields!Level.Value &lt; 2 AND Parameters!Level2.Value = "SI", "Bold", "Default")</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1266,7 +1270,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteActual.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteActual.Value, 0))</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
@@ -1299,7 +1303,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteAnterior.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteAnterior.Value, 0))</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
@@ -1526,6 +1530,7 @@
<Value>=Fields!Nombre.Value</Value> <Value>=Fields!Nombre.Value</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=IIf(Fields!Level.Value &lt; 2 AND Parameters!Level2.Value = "SI", "Bold", "Default")</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1662,7 +1667,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteActual.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteActual.Value, 0))</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
@@ -1696,7 +1701,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteAnterior.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteAnterior.Value, 0))</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<Format>#,0.00</Format> <Format>#,0.00</Format>
@@ -2500,6 +2505,7 @@
<Value>=Fields!Nombre.Value</Value> <Value>=Fields!Nombre.Value</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=IIf(Fields!Level.Value &lt; 2 AND Parameters!Level2.Value = "SI", "Bold", "Default")</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -2635,7 +2641,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteActual.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteActual.Value, 0))</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -2669,7 +2675,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Sum(Fields!ImporteAnterior.Value)</Value> <Value>=Sum(IIf(Fields!Level.Value &lt; 2, Fields!ImporteAnterior.Value, 0))</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -3047,6 +3053,12 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="Level2">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<Variables> <Variables>
<Variable Name="TotalActivoActual"> <Variable Name="TotalActivoActual">

View File

@@ -4884,7 +4884,7 @@ Partial Class Bancos_IE
GvComplementoPagos.DataSource = ObjBancos.DtResultados GvComplementoPagos.DataSource = ObjBancos.DtResultados
If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 And CveEstatusIE <> 2 Then If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
DVGenerarComplementoModal.Visible = True DVGenerarComplementoModal.Visible = True
End If End If
Else Else

View File

@@ -147,11 +147,11 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
DdlPaqueteDesarmado.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlPaqueteDesarmado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacenArmado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,9)") DdlAlmacenArmado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 1")
DdlAlmacenArmado.DataBind() DdlAlmacenArmado.DataBind()
DdlAlmacenArmado.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenArmado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacenDesarmado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,9)") DdlAlmacenDesarmado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 1")
DdlAlmacenDesarmado.DataBind() DdlAlmacenDesarmado.DataBind()
DdlAlmacenDesarmado.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenDesarmado.Items.Insert(0, New ListItem("Seleccione", "-1"))

View File

@@ -3344,7 +3344,7 @@ Partial Class Ventas
Dim Cons As Integer = 1 Dim Cons As Integer = 1
For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows
AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, 0, 0, -1, "", AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, dr("PU"), 0, -1, "",
dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString) dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString)
'Dim drt As DataRow = TmpDT.NewRow 'Dim drt As DataRow = TmpDT.NewRow