AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://rpimienta@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Raul Pimienta
2019-08-28 11:33:48 -07:00
parent cad0f0c45d 50082ad2a8
commit 022fad4671
4 changed files with 15 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Compras/RepCompras.aspx.vb
View File

@@ -285,12 +285,10 @@ Partial Class Compras_RepCompras
If e.Row.DBCampo("Orden") = "" Then
e.Row.FCLiteral("LtlGrupo").Text = e.Row.FCLiteral("LtlGrupo").Text
e.Row.FCLiteral("LtlCantidad").Text = e.Row.FCLiteral("LtlCantidad").Text
Else
e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a class='{0}' target=""_blank"" href='{1}'>{2}</a>", Css, Liga, e.Row.FCLiteral("LtlGrupo").Text)
e.Row.FCLiteral("LtlCantidad").Text = String.Format("<a class='{0}' target=""_blank"" href='{1}'>{2}</a>", Css, Liga, e.Row.FCLiteral("LtlCantidad").Text)
End If
e.Row.FCLiteral("LtlCantidad").Text = String.Format("<a class='{0}' target=""_blank"" href='{1}'>{2}</a>", Css, Liga, e.Row.FCLiteral("LtlCantidad").Text)
If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = ""
If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = ""
@@ -399,7 +397,7 @@ Partial Class Compras_RepCompras
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Capturo}{Grupo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}"))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}"))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else

2
Compras/RepComprasDetalle.aspx.vb
View File

@@ -437,7 +437,7 @@ Partial Class Compras_RepComprasDetalle
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Capturo}{Grupo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}"))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}"))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else

20
Empresas/Grales/Formatos/RepComprasDetalle.rdlc
View File

@@ -50,7 +50,7 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>1.25345cm</Width>
<Width>1.862cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.29144cm</Width>
@@ -68,7 +68,7 @@
<Width>1.69804cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.03728cm</Width>
<Width>1.42874cm</Width>
</TablixColumn>
<TablixColumn>
<Width>3.5848cm</Width>
@@ -86,14 +86,14 @@
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Moneda">
<Textbox Name="SerieFolio1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Moneda.Value</Value>
<Value>=Fields!SerieFolio.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<Color>=IIF(CInt(Fields!CveCompra.Value) &lt; 1, "White","Black")</Color>
@@ -105,7 +105,7 @@
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Moneda</rd:DefaultName>
<rd:DefaultName>SerieFolio1</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
@@ -301,14 +301,14 @@
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="SerieFolio">
<Textbox Name="Moneda">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!SerieFolio.Value</Value>
<Value>=Fields!Moneda.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<Color>=IIF(CInt(Fields!CveCompra.Value) &lt; 1, "White","Black")</Color>
@@ -320,7 +320,7 @@
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>SerieFolio</rd:DefaultName>
<rd:DefaultName>Moneda</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
@@ -457,7 +457,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Moneda</Value>
<Value>Serie/Folio</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
@@ -685,7 +685,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Serie/Folio</Value>
<Value>Moneda</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>

3
General/SaldosIniciales.aspx.vb
View File

@@ -1533,8 +1533,9 @@ Partial Class General_SaldosIniciales
Dim contadorMovimientos As Integer = 0
Dim listadoMovimientos As String = ""
Dim mensajeError As String = ""
Dim banderRowCount As Integer = dt.Rows.Count
Try
For Each almacenSinRepetir As DataRow In dt.FiltraParametros("", DistinctColumns:={"Almacen"}).Rows
For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows
Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
'Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero