diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 8d840b5a5..375835619 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3931,6 +3931,11 @@ Namespace Modelos
Dim TotalT As Decimal = ObjFactura.Total
Dim RFCReceptor As String = ObjFactura.Cliente.RFC
Dim CvePACCancelacion As Integer = ObjFactura.CvePAC
+
+ If CvePACCancelacion <= 0 Then
+ CvePACCancelacion = UsuarioActual.Empresa.CvePAC
+ End If
+
Dim CveEstatus As Integer = 4
Dim IDPoliza As Integer = -1
Dim CvePrePoliza As Integer
@@ -4435,10 +4440,6 @@ Namespace Modelos
If CveEstatus.Contiene(4, 5) Then
- If CvePACCancelacion <= 0 Then
- CvePACCancelacion = UsuarioActual.Empresa.CvePAC
- End If
-
If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc
index 35ca50a70..578fd245d 100644
--- a/Empresas/140/Formatos/Factura.rdlc
+++ b/Empresas/140/Formatos/Factura.rdlc
@@ -1297,7 +1297,7 @@
- = Parameters!Fecha.Value
+ =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy")
-
+
Textbox15
@@ -1991,7 +1993,7 @@
- =Fields!UM.Value
+ =(Fields!UM.Value & "-" & Fields!UnidadMedida.Value)
@@ -2015,6 +2017,7 @@
2pt
+ true
diff --git a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc
index 5158fd16f..4ee983390 100644
--- a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc
+++ b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc
@@ -1,969 +1,970 @@
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!AgrupadoPor.Value
- HTML
-
-
-
-
-
-
- Textbox9
- 0.0441cm
- 0.63675cm
- 19.97078cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 0.84237cm
- 0.15558cm
- 0cm
- 19.84166cm
- 1
-
-
-
-
-
-
-
-
- 4.42895cm
-
-
- 3.2021cm
-
-
- 3.36938cm
-
-
- 2.89562cm
-
-
- 3.34667cm
-
-
- 2.5cm
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- Factura
-
-
-
-
-
-
- Textbox3
-
-
-
- 1pt
-
-
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Fecha Venta
-
-
-
-
-
-
- Textbox15
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Fecha Ven.
-
-
-
-
-
-
- Textbox13
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Movto.
-
-
-
-
-
-
- Textbox17
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Abono
-
-
-
-
-
-
- Textbox19
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox21
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value)
-
-
-
-
-
-
- Factura
-
-
- = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Fecha.Value
-
-
-
-
-
-
- Fecha
-
-
- = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value)
-
-
-
-
-
-
- FechaVencimiento
-
-
- = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"")
-
-
-
-
-
-
- FolioCobro
-
-
- = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!ImporteAbonado.Value
-
-
-
-
-
-
- ImporteAbonado
-
-
- = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
- 2pt
- 2pt
- 2pt
- 2pt
- es-MX
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!MonedaIE.Value
-
-
-
-
-
-
- MonedaVenta
-
-
- = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- DataSet1
- 1.00112cm
- 0.12912cm
- 1.2cm
- 19.74272cm
- 2
-
-
-
-
-
- 0.99158in
-
-
- 7.87293in
-
-
- 2.25008cm
- true
- true
-
-
- true
- true
-
-
-
-
- =Parameters!NombreEmpresa.Value
-
-
-
-
-
-
- Textbox1
- 0.18521cm
- 3.21468cm
- 0.6cm
- 14.02238cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- REPORTE PAGOS CLIENTES
-
-
-
-
-
-
- Textbox2
- 1.10271cm
- 3.21468cm
- 0.52945cm
- 14.02238cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- External
- =Parameters!LogoPath.Value
- FitProportional
- 0.06614cm
- 2.22362cm
- 2.33715cm
- 2
-
-
-
-
-
-
-
-
-
-
- 0.76376cm
- true
- true
-
-
- true
- true
-
-
-
-
- ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
-
-
-
-
-
-
- Textbox3
- 0.08291cm
- 17.90491cm
- 0.68085cm
- 2.09233cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Usuario:
-
-
-
-
-
-
- Textbox8
- 0.08291cm
- 0.06614cm
- 0.68085cm
- 1.60042cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!UsuarioImprimio.Value
-
-
-
-
-
-
- Textbox9
- 0.08291cm
- 1.61047cm
- 0.68085cm
- 5.14936cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Fecha Impresión:
-
-
-
-
-
-
- Textbox10
- 0.08291cm
- 8.20622cm
- 0.68085cm
- 2.92333cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!FechaImpresion.Value
-
-
-
-
-
-
- Textbox11
- 0.08291cm
- 11.11544cm
- 0.68085cm
- 4.32745cm
- 4
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 29.7cm
- 21cm
- 0.25cm
- 0.25cm
- 1cm
- 1cm
- 0.13cm
-
-
- 0
-
-
-
- System.Data.DataSet
- /* Local Connection */
-
- f55ecc33-47ff-4fc5-a233-35ea9bb1f578
-
-
-
-
-
- DataSet
- /* Local Query */
-
-
-
- Factura
- System.String
-
-
- Fecha
- System.Date
-
-
- FechaVencimiento
- System.Date
-
-
- FechaDocumento
- System.Date
-
-
- FolioCobro
- System.String
-
-
- Genero
- System.String
-
-
- ImporteAbonado
- System.Decimal
-
-
- ImporteIE
- System.Decimal
-
-
- MonedaIE
- System.String
-
-
- TipoPeriodo
- System.String
-
-
- MonedaVenta
- System.String
-
-
- CveVenta
- System.String
-
-
- CveIE
- System.String
-
-
- NumCuenta
- System.String
-
-
- Banco
- System.String
-
-
- SerieFolio
- System.String
-
-
-
- DataSet
- C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd
- DataTable1
-
-
-
-
-
-
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- Cm
- 40c94aad-a12a-44fb-ab0d-ea36a9656792
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!AgrupadoPor.Value
+ HTML
+
+
+
+
+
+
+ Textbox9
+ 0.0441cm
+ 0.63675cm
+ 19.97078cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 0.84237cm
+ 0.15558cm
+ 0cm
+ 19.84166cm
+ 1
+
+
+
+
+
+
+
+
+ 4.42895cm
+
+
+ 3.2021cm
+
+
+ 3.36938cm
+
+
+ 2.89562cm
+
+
+ 3.34667cm
+
+
+ 2.5cm
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Factura
+
+
+
+
+
+
+ Textbox3
+
+
+
+ 1pt
+
+
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Venta
+
+
+
+
+
+
+ Textbox15
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Ven.
+
+
+
+
+
+
+ Textbox13
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Movto.
+
+
+
+
+
+
+ Textbox17
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Abono
+
+
+
+
+
+
+ Textbox19
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox21
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value)
+
+
+
+
+
+
+ Factura
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Fecha.Value
+
+
+
+
+
+
+ Fecha
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value)
+
+
+
+
+
+
+ FechaVencimiento
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"")
+
+
+
+
+
+
+ FolioCobro
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!ImporteAbonado.Value
+
+
+
+
+
+
+ ImporteAbonado
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+ es-MX
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =IIF(Fields!CveVenta.Value > 0,Fields!MonedaVenta.Value, Fields!MonedaIE.Value)
+
+
+
+
+
+
+ MonedaVenta
+
+
+ = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White")
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+ true
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DataSet1
+ 1.00112cm
+ 0.12912cm
+ 1.2cm
+ 19.74272cm
+ 2
+
+
+
+
+
+ 0.99158in
+
+
+ 7.87293in
+
+
+ 2.25008cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ =Parameters!NombreEmpresa.Value
+
+
+
+
+
+
+ Textbox1
+ 0.18521cm
+ 3.21468cm
+ 0.6cm
+ 14.02238cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ REPORTE PAGOS CLIENTES
+
+
+
+
+
+
+ Textbox2
+ 1.10271cm
+ 3.21468cm
+ 0.52945cm
+ 14.02238cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ External
+ =Parameters!LogoPath.Value
+ FitProportional
+ 0.06614cm
+ 2.22362cm
+ 2.33715cm
+ 2
+
+
+
+
+
+
+
+
+
+
+ 0.76376cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
+
+
+
+
+
+
+ Textbox3
+ 0.08291cm
+ 17.90491cm
+ 0.68085cm
+ 2.09233cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+
+
+
+ Textbox8
+ 0.08291cm
+ 0.06614cm
+ 0.68085cm
+ 1.60042cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!UsuarioImprimio.Value
+
+
+
+
+
+
+ Textbox9
+ 0.08291cm
+ 1.61047cm
+ 0.68085cm
+ 5.14936cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+ Textbox10
+ 0.08291cm
+ 8.20622cm
+ 0.68085cm
+ 2.92333cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!FechaImpresion.Value
+
+
+
+
+
+
+ Textbox11
+ 0.08291cm
+ 11.11544cm
+ 0.68085cm
+ 4.32745cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 29.7cm
+ 21cm
+ 0.25cm
+ 0.25cm
+ 1cm
+ 1cm
+ 0.13cm
+
+
+ 0
+
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ f55ecc33-47ff-4fc5-a233-35ea9bb1f578
+
+
+
+
+
+ DataSet
+ /* Local Query */
+
+
+
+ Factura
+ System.String
+
+
+ Fecha
+ System.Date
+
+
+ FechaVencimiento
+ System.Date
+
+
+ FechaDocumento
+ System.Date
+
+
+ FolioCobro
+ System.String
+
+
+ Genero
+ System.String
+
+
+ ImporteAbonado
+ System.Decimal
+
+
+ ImporteIE
+ System.Decimal
+
+
+ MonedaIE
+ System.String
+
+
+ TipoPeriodo
+ System.String
+
+
+ MonedaVenta
+ System.String
+
+
+ CveVenta
+ System.String
+
+
+ CveIE
+ System.String
+
+
+ NumCuenta
+ System.String
+
+
+ Banco
+ System.String
+
+
+ SerieFolio
+ System.String
+
+
+
+ DataSet
+ C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd
+ DataTable1
+
+
+
+
+
+
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ Cm
+ 40c94aad-a12a-44fb-ab0d-ea36a9656792
\ No newline at end of file
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index f7efa6c91..d582f05cc 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -6224,25 +6224,11 @@ Partial Class Clientes
GenerarPDF()
End Sub
Private Sub GenerarPDF(Optional Formato As String = "PDF")
- Dim ObjTareas As New ClsOIEventos
-
Dim params As New List(Of ReportParameter)
-
-
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
- ' Dim Filtros As String = "Filtros: "
-
-
-
- 'Dim FechaI, FechaF As String
-
- ' params.Add(New ReportParameter("AgrupadoPor", Filtros))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
- 'params.Add(New ReportParameter("FechaInicio", FechaI))
- 'params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -6254,11 +6240,11 @@ Partial Class Clientes
ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
- End Sub
+ End Sub
#End Region
-
+
#Region "VENTAS"
-
+
Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte()
Dim ObjVentas As New ClsVentas
Dim Vta As Modelos.Factura = Nothing