-
-
-
-
Detalles del Corte
-
-
-
-
-
-
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCortes.aspx.vb" Inherits="Bancos_RepCortes" %>
+
+
+
+
+
+
+
+
+
+
+ Generar EXCEL
+
+
+ Generar PDF
+
+
+
+ Personalizar
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
+ <%--SubProyecto--%>
+
+
+
+ F.I.:
+
+
+
+
+ F.F.:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%----%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Detalles del Corte
+
+
+
+
+
+
+
+
+
+
+
+
+
Serie - Folio
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
- <%----%>
-
-
-
-
-
-
-
-
-
-
+
+ <%----%>
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
-
+
+
-
-
+
+
+
-
+
+
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index c90c3d82e..975d682c3 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -86,7 +86,7 @@ Partial Class Bancos_RepCortes
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
GvDatos.Columns(3).Visible = True
GvDatos.Columns(4).Visible = True
- GvDatos.Columns(12).Visible = True
+ GvDatos.Columns(13).Visible = True
End If
GvDatos.DataSource = DtCortes
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 26d4b1869..aeb94a329 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6489,7 +6489,8 @@ Partial Class Compras_Compras
If DdlMoneda.SelectedValue.ToEntero <> 1 Then
TCO = TxtTC.Text.ToDecimal
ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
- CostoIndirectoAcum176 += ImporteCI176
+ 'CostoIndirectoAcum176 += ImporteCI176
+ CostoIndirectoAcum176 += 0
SumatoriaInventario += Importe228 + Importe229
'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN228 + ImporteMN229 - ImporteCI176)
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index f97eb6abc..a3fde73da 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1602,7 +1602,14 @@ Partial Class PopUpVerFactura
If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
Dim lrds As New List(Of ReportDataSource)
- Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
+ Dim DtMetodosPago = DtCortesVentasResumen.Copy()
+
+ 'MOVER EL VENTAS CREDITO DE LA DERECHA A LA IZQUIERDA EN EL PDF
+ If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+ DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
+ End If
+
+ Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
lrds.Add(rds)
Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
lrds.Add(rds2)
@@ -1689,6 +1696,14 @@ Partial Class PopUpVerFactura
End If
Next
+ Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
+
+ Dim rowCredito = DtDatosResumen.NewRow()
+ rowCredito("Columna") = "Crédito"
+ rowCredito("Importe") = TotalCredito
+ rowCredito("Orden") = 4
+ DtDatosResumen.Rows.Add(rowCredito)
+
Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosResumen.FiltraParametros("Orden > 0", "Orden")}
lrds.Add(rds3)
diff --git a/Empresas/Grales/Formatos/DepositoCaja.rdlc b/Empresas/Grales/Formatos/DepositoCaja.rdlc
index 1295c3fbc..15daf66f2 100644
--- a/Empresas/Grales/Formatos/DepositoCaja.rdlc
+++ b/Empresas/Grales/Formatos/DepositoCaja.rdlc
@@ -506,9 +506,9 @@
DataSet1
-
1.43975in
+
1.6342in
0.43in
-
7.89456in
+
7.89455in
@@ -761,8 +761,8 @@
Textbox2
-
4.74917cm
-
15.02042cm
+
5.31361cm
+
15.35404cm
0.6cm
2.53175cm
7
@@ -795,8 +795,8 @@
Textbox4
-
4.74917cm
-
17.56276cm
+
5.31361cm
+
17.89638cm
0.6cm
2.14313cm
8
@@ -999,10 +999,10 @@
Textbox12
-
2.96905cm
-
12.49038cm
+
3.44148cm
+
0.12912cm
0.53299cm
-
2.14725cm
+
3.12013cm
13
=(Parameters!TipoPago.Value = "")
@@ -1039,8 +1039,8 @@
Textbox12
- 2.96905cm
- 15.61669cm
+ 3.44148cm
+ 3.28453cm
0.53299cm
3.76632cm
14
@@ -1056,10 +1056,10 @@
- 5.34917cm
+ 6.09cm