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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-01-02 18:27:08 -07:00
parent af8da10471 3782603ec2
commit 200ec1acce
3 changed files with 31 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3118,7 +3118,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDecimal.Texto2Letras(CveMoneda).ToUpper)))
params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble - dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, "")))
params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, "")))

33
Empresas/189/Formatos/Entradas.rdlc
View File

@@ -1413,11 +1413,15 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Cargo.Value</Value>
<Value>=IIf(
Fields!Cargo.Value = 0,
"",
Format(Fields!Cargo.Value, "###,###,###.00")
)</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>6.5pt</FontSize>
<Format>###,###,###.##</Format>
<Format>###,###,###.00</Format>
</Style>
</TextRun>
</TextRuns>
@@ -1445,11 +1449,15 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Abono.Value</Value>
<Value>=IIf(
Fields!Abono.Value = 0,
"",
Format(Fields!Abono.Value, "###,###,###.00")
)</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>6.5pt</FontSize>
<Format>###,###,###.##</Format>
<Format>###,###,###.00</Format>
</Style>
</TextRun>
</TextRuns>
@@ -1572,12 +1580,16 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Sum(Fields!Cargo.Value)</Value>
<Value>=IIf(
Fields!Cargo.Value = 0,
"",
Format(Sum(Fields!Cargo.Value), "###,###,###.00")
)</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>7.5pt</FontSize>
<FontWeight>Bold</FontWeight>
<Format>###,###,###.##</Format>
<Format>###,###,###.00</Format>
</Style>
</TextRun>
</TextRuns>
@@ -1594,6 +1606,7 @@
</Border>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -1605,12 +1618,16 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Sum(Fields!Abono.Value)</Value>
<Value>=IIf(
Fields!Abono.Value = 0,
"",
Format(Sum(Fields!Abono.Value), "###,###,###.00")
)</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>7.5pt</FontSize>
<FontWeight>Bold</FontWeight>
<Format>###,###,###.##</Format>
<Format>###,###,###.00</Format>
</Style>
</TextRun>
</TextRuns>

7
Ventas/PVCobranza.aspx.vb
View File

@@ -339,9 +339,12 @@ Partial Class Ventas_PVCobranza
Private Sub MuestraNoTimbradasCentroCosto()
Dim ObjSub As New ClsSubProyectos
If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then
If ObjSub.DtResultados.Rows.Count > 0 Then
GvPendientesTimbrar.DataSource = ObjSub.DtResultados.FiltraParametros($"Fecha = '{Now.ToString("dd/MM/yyyy")}'")
Dim miFecha As DateTime = Now
Dim fechaSiguiente As DateTime = miFecha.AddDays(1)
Dim filtro As String = String.Format("Fecha >= #{0}# AND Fecha < #{1}#", miFecha.ToString("MM/dd/yyyy"), fechaSiguiente.ToString("MM/dd/yyyy"))
GvPendientesTimbrar.DataSource = ObjSub.DtResultados.FiltraParametros(filtro)
End If
End If
ObjSub.Dispose()