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", ""))
End If
params.Add(New ReportParameter("pFechaFin", FechaF))
params.Add(New ReportParameter("Level2", If(ChkNivel.Checked, "SI", "NO")))
ImprimirPDF(reportpath, lrds, params, fileName, Formato)
End Sub
End Class

View File

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

View File

@@ -4884,7 +4884,7 @@ Partial Class Bancos_IE
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
End If
Else

View File

@@ -147,11 +147,11 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
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.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.Items.Insert(0, New ListItem("Seleccione", "-1"))

View File

@@ -3344,7 +3344,7 @@ Partial Class Ventas
Dim Cons As Integer = 1
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)
'Dim drt As DataRow = TmpDT.NewRow