From a7b7b8f473b5634d65963538608459ebd0dbdeee Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 30 Apr 2020 11:35:42 -0700
Subject: [PATCH 1/2] se les dio formato a las fechas

---
 Empresas/72/Formatos/Reembolso.rdlc           | 88 ++++++++++++++++++-
 .../Formatos/RepRembolsosComprobaciones.rdlc  | 57 +++++++++++-
 2 files changed, 142 insertions(+), 3 deletions(-)

diff --git a/Empresas/72/Formatos/Reembolso.rdlc b/Empresas/72/Formatos/Reembolso.rdlc
index 91c6883b3..e761b4240 100644
--- a/Empresas/72/Formatos/Reembolso.rdlc
+++ b/Empresas/72/Formatos/Reembolso.rdlc
@@ -1376,7 +1376,7 @@
   <Width>11.24353in</Width>
   <Page>
     <PageHeader>
-      <Height>4.88309cm</Height>
+      <Height>5.51809cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -1789,6 +1789,92 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
+        <Textbox Name="Textbox36">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Inicio:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>SemiBold</FontWeight>
+                  </Style>
+                </TextRun>
+                <TextRun>
+                  <Value>=Parameters!FechaInicio.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>SemiBold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox23</rd:DefaultName>
+          <Top>4.85106cm</Top>
+          <Left>0.127cm</Left>
+          <Height>0.49417cm</Height>
+          <Width>7.15118cm</Width>
+          <ZIndex>12</ZIndex>
+          <Visibility>
+            <Hidden>=Microsoft.VisualBasic.Interaction.IIF(Microsoft.VisualBasic.Strings.Len(Parameters!FechaInicio.Value) &gt; 0 And Microsoft.VisualBasic.Strings.Len(Parameters!FechaFin.Value) &gt; 0, True, False)</Hidden>
+          </Visibility>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox37">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Fin:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>SemiBold</FontWeight>
+                  </Style>
+                </TextRun>
+                <TextRun>
+                  <Value>=Parameters!FechaFin.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>SemiBold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox23</rd:DefaultName>
+          <Top>4.85106cm</Top>
+          <Left>7.27818cm</Left>
+          <Height>0.49417cm</Height>
+          <Width>7.15118cm</Width>
+          <ZIndex>13</ZIndex>
+          <Visibility>
+            <Hidden>=Microsoft.VisualBasic.Interaction.IIF(Microsoft.VisualBasic.Strings.Len(Parameters!FechaInicio.Value) &gt; 0 And Microsoft.VisualBasic.Strings.Len(Parameters!FechaFin.Value) &gt; 0, True, False)</Hidden>
+          </Visibility>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
       </ReportItems>
       <Style>
         <Border>
diff --git a/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc b/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
index 6ff754d32..0fcd0c0d8 100644
--- a/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
+++ b/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
@@ -1416,7 +1416,14 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>=IIF(Len(Parameters!FechaInicio.Value) &gt; 0 and Len(Parameters!FechaFin.Value) &gt; 0,"Desde el día "&amp;Parameters!FechaInicio.Value &amp;" a "&amp;Parameters!FechaFin.Value,"")</Value>
+                  <Value>Fecha Inicio:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>SemiBold</FontWeight>
+                  </Style>
+                </TextRun>
+                <TextRun>
+                  <Value>=Parameters!FechaInicio.Value</Value>
                   <Style>
                     <FontSize>9pt</FontSize>
                     <FontWeight>SemiBold</FontWeight>
@@ -1430,8 +1437,54 @@
           <Top>4.4021cm</Top>
           <Left>0.127cm</Left>
           <Height>0.49417cm</Height>
-          <Width>14.30236cm</Width>
+          <Width>7.15118cm</Width>
           <ZIndex>12</ZIndex>
+          <Visibility>
+            <Hidden>=IIF(Len(Parameters!FechaInicio.Value) &gt; 0 and Len(Parameters!FechaFin.Value) &gt; 0,TRUE,FALSE)</Hidden>
+          </Visibility>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox25">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Fin:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>SemiBold</FontWeight>
+                  </Style>
+                </TextRun>
+                <TextRun>
+                  <Value>=Parameters!FechaFin.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>SemiBold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox23</rd:DefaultName>
+          <Top>4.4021cm</Top>
+          <Left>7.27818cm</Left>
+          <Height>0.49417cm</Height>
+          <Width>7.15118cm</Width>
+          <ZIndex>13</ZIndex>
+          <Visibility>
+            <Hidden>=IIF(Len(Parameters!FechaInicio.Value) &gt; 0 and Len(Parameters!FechaFin.Value) &gt; 0,TRUE,FALSE)</Hidden>
+          </Visibility>
           <Style>
             <Border>
               <Style>None</Style>

From 61d6dad2490520fc7941cd108a5279e73f301cfa Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 30 Apr 2020 19:32:31 -0700
Subject: [PATCH 2/2] soportando caso de una nota de credito directa

---
 Ventas/Ventas.aspx.vb | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f0f39809c..362fa1fca 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9426,15 +9426,20 @@ Partial Class Ventas
             If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Then
                 If DtVentasNC IsNot Nothing Then
                     For Each row As DataRow In DtVentasNC.Rows
-                        If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, row("CveVenta").ToString.ToEntero) Then
-                            ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                        If Not row("CveVenta").ToString.ToEntero = -1 Then
+                            If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, row("CveVenta").ToString.ToEntero) Then
+                                ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                            End If
                         End If
                     Next
                 Else
-                    If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
-                        ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                    If Not CveVenta = -1 Then
+                        If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
+                            ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                        End If
                     End If
                 End If
+
             End If
         End If