Correciones en cancelacion,factura bdh,formato de cliente pago

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."

Empresas/140/Formatos/Factura.rdlc

@@ -1297,7 +1297,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>= Parameters!Fecha.Value</Value>
+                <Value>=Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy")</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9.16pt</FontSize>
@@ -1623,13 +1623,13 @@
               <Width>0.54927in</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.58129in</Width>
+              <Width>0.826in</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>0.8527in</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.66416in</Width>
+              <Width>3.41945in</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>0.57354in</Width>
@@ -1703,7 +1703,9 @@
                               </Style>
                             </TextRun>
                           </TextRuns>
-                          <Style />
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
                         </Paragraph>
                       </Paragraphs>
                       <rd:DefaultName>Textbox15</rd:DefaultName>
@@ -1991,7 +1993,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!UM.Value</Value>
+                              <Value>=(Fields!UM.Value &amp; "-" &amp; Fields!UnidadMedida.Value)</Value>
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7.5pt</FontSize>
@@ -2000,7 +2002,7 @@
                             </TextRun>
                           </TextRuns>
                           <Style>
-                            <TextAlign>Center</TextAlign>
+                            <TextAlign>Left</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
@@ -2015,6 +2017,7 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>

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 = "<b>Filtros: </b> "
-
-
-
-        '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