This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-05-01 14:25:29 -07:00
3 changed files with 151 additions and 7 deletions

View File

@@ -1376,7 +1376,7 @@
<Width>11.24353in</Width> <Width>11.24353in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>4.88309cm</Height> <Height>5.51809cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -1789,6 +1789,92 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </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> </ReportItems>
<Style> <Style>
<Border> <Border>

View File

@@ -1416,7 +1416,14 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <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> <Style>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<FontWeight>SemiBold</FontWeight> <FontWeight>SemiBold</FontWeight>
@@ -1430,8 +1437,54 @@
<Top>4.4021cm</Top> <Top>4.4021cm</Top>
<Left>0.127cm</Left> <Left>0.127cm</Left>
<Height>0.49417cm</Height> <Height>0.49417cm</Height>
<Width>14.30236cm</Width> <Width>7.15118cm</Width>
<ZIndex>12</ZIndex> <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> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>

View File

@@ -9426,15 +9426,20 @@ Partial Class Ventas
If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Then If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Then
If DtVentasNC IsNot Nothing Then If DtVentasNC IsNot Nothing Then
For Each row As DataRow In DtVentasNC.Rows For Each row As DataRow In DtVentasNC.Rows
If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, row("CveVenta").ToString.ToEntero) Then If Not row("CveVenta").ToString.ToEntero = -1 Then
ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico") 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 End If
Next Next
Else Else
If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then If Not CveVenta = -1 Then
ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico") 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
End If End If
End If End If