AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Generacion de PDF 4.0 en SALI, validacion al exportar excel pdf en reporte de existencias y costos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-12-20 20:32:01 -07:00
parent c2d228e8f5
commit 5711fb1f91
6 changed files with 426 additions and 289 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ashx/GenerarPDFFactura.ashx
View File

@@ -200,6 +200,10 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal)) parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal))
parametros.Add(New ReportParameter("Observaciones", datos.Factura.Observaciones)) parametros.Add(New ReportParameter("Observaciones", datos.Factura.Observaciones))
If datos.CFDIVersion = "4.0" Then
rutaReporte = "Empresas\Grales\Formatos\FacturaSALI40.rdlc"
parametros.Add(New ReportParameter("receptor_RegimenFiscal", objxml.receptor.RegimenFiscalReceptorTexto))
End If
Dim ds As New List(Of ReportDataSource) Dim ds As New List(Of ReportDataSource)
@@ -479,6 +483,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
End Class End Class
Public Class ParametroWS Public Class ParametroWS
Public Property CFDIVersion As String
Public Property Factura As FacturaWS Public Property Factura As FacturaWS
Public Property Cliente As ClienteWS Public Property Cliente As ClienteWS
Public Property Empresa As EmpresaWS Public Property Empresa As EmpresaWS

BIN
Bin/APP_Code_CSharp.dll
View File

Binary file not shown.

BIN
Bin/APP_Code_CSharp.pdb
View File

Binary file not shown.

492
Empresas/140/Formatos/Factura.mrt
View File

@@ -176,20 +176,20 @@
<Page1 Ref="7" type="Page" isKey="true"> <Page1 Ref="7" type="Page" isKey="true">
<Border>None;Black;2;Solid;False;4;Black</Border> <Border>None;Black;2;Solid;False;4;Black</Border>
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<Components isList="true" count="3"> <Components isList="true" count="4">
<PageHeaderBand1 Ref="8" type="PageHeaderBand" isKey="true"> <PageHeaderBand1 Ref="8" type="PageHeaderBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0,0,21.1,5.4</ClientRectangle> <ClientRectangle>0,0.4,21.1,5.4</ClientRectangle>
<Components isList="true" count="1"> <Components isList="true" count="1">
<Panel4 Ref="9" type="Panel" isKey="true"> <Panel4 Ref="9" type="Panel" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanGrow>True</CanGrow> <CanGrow>True</CanGrow>
<CanShrink>True</CanShrink> <CanShrink>True</CanShrink>
<ClientRectangle>0,0,21,6</ClientRectangle> <ClientRectangle>0,0,21,5.6</ClientRectangle>
<Components isList="true" count="14"> <Components isList="true" count="14">
<Text5 Ref="10" type="Text" isKey="true"> <Text5 Ref="10" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>13,1.2,8,2.8</ClientRectangle> <ClientRectangle>13,1.2,8,2.6</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font> <Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -223,7 +223,7 @@ Régimen fiscal: Regimen General de Ley Personas Morales
<Text>Facturado a: <Text>Facturado a:
Cliente: {ClienteCodigo} - {ClienteNombre} Cliente: {ClienteCodigo} - {ClienteNombre}
RFC: {ClienteRFC} RFC: {ClienteRFC}
Calle: {ClienteCalle} Calle: {ClienteCalle} No.Ext:{ClienteNoExt}
Colonia: {ClienteColonia} Colonia: {ClienteColonia}
Ciudad: {ClienteCiudad} Estado: {ClienteEstado} Ciudad: {ClienteCiudad} Estado: {ClienteEstado}
Municipio y/o Delegación: {ClienteMunicipio} Municipio y/o Delegación: {ClienteMunicipio}
@@ -3457,7 +3457,7 @@ de Hermosillo SA de CV</Text>
<Textbox40 Ref="15" type="Text" isKey="true"> <Textbox40 Ref="15" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanGrow>True</CanGrow> <CanGrow>True</CanGrow>
<ClientRectangle>12.6,4.12,8.43,1.42</ClientRectangle> <ClientRectangle>12,3.72,9.03,1.62</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,6.7,Bold,Point,False,0</Font> <Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
@@ -3475,7 +3475,7 @@ Vendedor: {VendedorNombre}</Text>
</Textbox40> </Textbox40>
<Text4 Ref="16" type="Text" isKey="true"> <Text4 Ref="16" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>4,4,8.8,1.8</ClientRectangle> <ClientRectangle>4,4,8,1.4</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font> <Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -3621,7 +3621,8 @@ de Hermosillo SA de CV</Text>
</PageHeaderBand1> </PageHeaderBand1>
<PageFooterBand1 Ref="24" type="PageFooterBand" isKey="true"> <PageFooterBand1 Ref="24" type="PageFooterBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0,27,21.1,0.4</ClientRectangle> <CanGrow>False</CanGrow>
<ClientRectangle>0,32.48,21.1,0.4</ClientRectangle>
<Components isList="true" count="3"> <Components isList="true" count="3">
<Text35 Ref="25" type="Text" isKey="true"> <Text35 Ref="25" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -3629,7 +3630,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>7.4,0,2.91,0.6</ClientRectangle> <ClientRectangle>7.4,0,2.91,0.6</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Bold</Font> <Font>Myriad Pro,8,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment> <HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins> <Margins>2,2,2,2</Margins>
<Name>Text35</Name> <Name>Text35</Name>
@@ -3644,7 +3645,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>10.31,0,4.89,0.6</ClientRectangle> <ClientRectangle>10.31,0,4.89,0.6</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,8</Font> <Font>Myriad Pro,8,Regular,Point,False,0</Font>
<Margins>2,2,2,2</Margins> <Margins>2,2,2,2</Margins>
<Name>Textbox37</Name> <Name>Textbox37</Name>
<Page isRef="7" /> <Page isRef="7" />
@@ -3661,7 +3662,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>17.31,0,3.69,0.6</ClientRectangle> <ClientRectangle>17.31,0,3.69,0.6</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Bold</Font> <Font>Myriad Pro,8,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment> <HorAlignment>Right</HorAlignment>
<Margins>2,2,2,2</Margins> <Margins>2,2,2,2</Margins>
<Name>Text37</Name> <Name>Text37</Name>
@@ -3683,14 +3684,14 @@ de Hermosillo SA de CV</Text>
</PageFooterBand1> </PageFooterBand1>
<Panel1 Ref="30" type="Panel" isKey="true"> <Panel1 Ref="30" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border> <Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush> <Brush>[255:255:0]</Brush>
<CanGrow>True</CanGrow> <CanGrow>True</CanGrow>
<CanShrink>True</CanShrink> <CanShrink>True</CanShrink>
<ClientRectangle>0,6.2,21,3.2</ClientRectangle> <ClientRectangle>0,6.2,21.1,13.6</ClientRectangle>
<Components isList="true" count="3"> <Components isList="true" count="3">
<HeaderBand1 Ref="31" type="HeaderBand" isKey="true"> <HeaderBand1 Ref="31" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0,0,21,0.5</ClientRectangle> <ClientRectangle>0,0.4,21.1,0.5</ClientRectangle>
<Components isList="true" count="9"> <Components isList="true" count="9">
<Textbox23 Ref="32" type="Text" isKey="true"> <Textbox23 Ref="32" type="Text" isKey="true">
<Brush>[58:65:115]</Brush> <Brush>[58:65:115]</Brush>
@@ -3840,7 +3841,7 @@ de Hermosillo SA de CV</Text>
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" /> <BusinessObjectGuid isNull="true" />
<CanShrink>True</CanShrink> <CanShrink>True</CanShrink>
<ClientRectangle>0,0.5,21,0.42</ClientRectangle> <ClientRectangle>0,1.7,21.1,0.42</ClientRectangle>
<Components isList="true" count="9"> <Components isList="true" count="9">
<Cantidad1 Ref="42" type="Text" isKey="true"> <Cantidad1 Ref="42" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -4024,8 +4025,9 @@ de Hermosillo SA de CV</Text>
</DataBand3> </DataBand3>
<FooterBand1 Ref="57" type="FooterBand" isKey="true"> <FooterBand1 Ref="57" type="FooterBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0,0.92,21,16.8</ClientRectangle> <CanBreak>True</CanBreak>
<Components isList="true" count="15"> <ClientRectangle>0,2.92,21.1,10.6</ClientRectangle>
<Components isList="true" count="14">
<Panel3 Ref="58" type="Panel" isKey="true"> <Panel3 Ref="58" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border> <Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -4037,7 +4039,7 @@ de Hermosillo SA de CV</Text>
<Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border> <Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border>
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" /> <BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0,5.2,0.4</ClientRectangle> <ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
<Components isList="true" count="2"> <Components isList="true" count="2">
<Text2 Ref="60" type="Text" isKey="true"> <Text2 Ref="60" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -4109,7 +4111,6 @@ de Hermosillo SA de CV</Text>
<Name>Text21</Name> <Name>Text21</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="57" /> <Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
</Text21> </Text21>
<Text6 Ref="64" type="Text" isKey="true"> <Text6 Ref="64" type="Text" isKey="true">
@@ -4126,7 +4127,6 @@ de Hermosillo SA de CV</Text>
<Name>Text6</Name> <Name>Text6</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="57" /> <Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>{ImporteLetra}</Text> <Text>{ImporteLetra}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
@@ -4138,7 +4138,7 @@ de Hermosillo SA de CV</Text>
<Components isList="true" count="2"> <Components isList="true" count="2">
<HeaderBand2 Ref="66" type="HeaderBand" isKey="true"> <HeaderBand2 Ref="66" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0,0,5.2,0.6</ClientRectangle> <ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
<Components isList="true" count="3"> <Components isList="true" count="3">
<Textbox25 Ref="67" type="Text" isKey="true"> <Textbox25 Ref="67" type="Text" isKey="true">
<Brush>[58:65:115]</Brush> <Brush>[58:65:115]</Brush>
@@ -4195,7 +4195,7 @@ de Hermosillo SA de CV</Text>
<DataBand8 Ref="70" type="DataBand" isKey="true"> <DataBand8 Ref="70" type="DataBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" /> <BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.6,5.2,0</ClientRectangle> <ClientRectangle>0,1.6,5.2,0</ClientRectangle>
<Components isList="true" count="3"> <Components isList="true" count="3">
<Cantidad2 Ref="71" type="Text" isKey="true"> <Cantidad2 Ref="71" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -4256,7 +4256,6 @@ de Hermosillo SA de CV</Text>
<Name>DataBand8</Name> <Name>DataBand8</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="65" /> <Parent isRef="65" />
<PrintOn>OnlyLastPage</PrintOn>
<Sort isList="true" count="0" /> <Sort isList="true" count="0" />
</DataBand8> </DataBand8>
</Components> </Components>
@@ -4265,7 +4264,6 @@ de Hermosillo SA de CV</Text>
<Name>Panel2</Name> <Name>Panel2</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="57" /> <Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel2> </Panel2>
<Text23 Ref="75" type="Text" isKey="true"> <Text23 Ref="75" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -4294,7 +4292,6 @@ de Hermosillo SA de CV</Text>
<Name>Text7</Name> <Name>Text7</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="57" /> <Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
</Text7> </Text7>
<Textbox48 Ref="77" type="Text" isKey="true"> <Textbox48 Ref="77" type="Text" isKey="true">
@@ -4404,18 +4401,14 @@ Sello digital del SAT:
<Name>Panel5</Name> <Name>Panel5</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="57" /> <Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel5> </Panel5>
<Panel6 Ref="84" type="Panel" isKey="true"> <Panel6 Ref="84" type="Panel" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanBreak>True</CanBreak> <ClientRectangle>2,8.15,17.3,1.2</ClientRectangle>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>2,8.28,17.2,1</ClientRectangle>
<Components isList="true" count="2"> <Components isList="true" count="2">
<HeaderBand3 Ref="85" type="HeaderBand" isKey="true"> <HeaderBand3 Ref="85" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>0,0,17.2,0.6</ClientRectangle> <ClientRectangle>0,0.4,17.3,0.6</ClientRectangle>
<Components isList="true" count="4"> <Components isList="true" count="4">
<Text24 Ref="86" type="Text" isKey="true"> <Text24 Ref="86" type="Text" isKey="true">
<Brush>[58:65:115]</Brush> <Brush>[58:65:115]</Brush>
@@ -4490,7 +4483,7 @@ Sello digital del SAT:
<DataBand2 Ref="90" type="DataBand" isKey="true"> <DataBand2 Ref="90" type="DataBand" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" /> <BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.6,17.2,0.4</ClientRectangle> <ClientRectangle>0,1.8,17.3,0.4</ClientRectangle>
<Components isList="true" count="4"> <Components isList="true" count="4">
<Text27 Ref="91" type="Text" isKey="true"> <Text27 Ref="91" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
@@ -4549,7 +4542,7 @@ Sello digital del SAT:
<Text30 Ref="95" type="Text" isKey="true"> <Text30 Ref="95" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanGrow>True</CanGrow> <CanGrow>True</CanGrow>
<ClientRectangle>9.2,0,8,0.37</ClientRectangle> <ClientRectangle>9.4,0,7.82,0.37</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font> <Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -4560,6 +4553,9 @@ Sello digital del SAT:
<Parent isRef="90" /> <Parent isRef="90" />
<Text>{DtDocumentosRelacionados.FolioFiscal}</Text> <Text>{DtDocumentosRelacionados.FolioFiscal}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<TextFormat Ref="96" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
<Type>DataColumn</Type> <Type>DataColumn</Type>
</Text30> </Text30>
</Components> </Components>
@@ -4577,15 +4573,14 @@ Sello digital del SAT:
</Components> </Components>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel6</Name> <Name>Panel6</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="57" /> <Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn> <PrintOn>OnlyLastPage</PrintOn>
</Panel6> </Panel6>
<Text32 Ref="96" type="Text" isKey="true"> <Text32 Ref="97" type="Text" isKey="true">
<Brush>[58:65:115]</Brush> <Brush>[58:65:115]</Brush>
<ClientRectangle>0,7.28,21.2,0.5</ClientRectangle> <ClientRectangle>0,7.28,21,0.5</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Enabled>False</Enabled> <Enabled>False</Enabled>
<Expressions isList="true" count="2"> <Expressions isList="true" count="2">
@@ -4603,9 +4598,9 @@ Sello digital del SAT:
<TextBrush>[255:255:255]</TextBrush> <TextBrush>[255:255:255]</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text32> </Text32>
<Text33 Ref="97" type="Text" isKey="true"> <Text33 Ref="98" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>5.6,7.88,2.4,0.4</ClientRectangle> <ClientRectangle>5.4,7.8,2.4,0.35</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Enabled>False</Enabled> <Enabled>False</Enabled>
<Expressions isList="true" count="2"> <Expressions isList="true" count="2">
@@ -4623,9 +4618,9 @@ Sello digital del SAT:
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text33> </Text33>
<Text34 Ref="98" type="Text" isKey="true"> <Text34 Ref="99" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<ClientRectangle>8,7.88,9.4,0.4</ClientRectangle> <ClientRectangle>7.8,7.8,9.4,0.35</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Enabled>False</Enabled> <Enabled>False</Enabled>
<Expressions isList="true" count="2"> <Expressions isList="true" count="2">
@@ -4642,20 +4637,55 @@ Sello digital del SAT:
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Text34> </Text34>
<Rectangle2 Ref="99" type="Panel" isKey="true"> <Line4 Ref="100" type="HorizontalLinePrimitive" isKey="true">
<Anchor>Bottom, Right</Anchor> <ClientRectangle>14.45,6.88,6.6,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="101" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Name>Line4</Name>
<Page isRef="7" />
<Parent isRef="57" />
<StartCap Ref="102" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line4>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<KeepFooterTogether>False</KeepFooterTogether>
<Name>FooterBand1</Name>
<Page isRef="7" />
<Parent isRef="30" />
</FooterBand1>
</Components>
<Conditions isList="true" count="0" />
<DockStyle>Top</DockStyle>
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel1</Name>
<Page isRef="7" />
<Parent isRef="7" />
</Panel1>
<FooterBand2 Ref="103" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,20.2,21.1,5.4</ClientRectangle>
<Components isList="true" count="1">
<Pagare Ref="104" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>0,0,21.1,5.2</ClientRectangle>
<Components isList="true" count="11">
<Image1 Ref="105" type="Image" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanBreak>True</CanBreak> <ClientRectangle>0.6,0,2.58,1.41</ClientRectangle>
<CanGrow>True</CanGrow> <Conditions isList="true" count="0" />
<ClientRectangle>0,11.8,21,5</ClientRectangle> <Expressions isList="true" count="0" />
<Components isList="true" count="11"> <IconColor>68, 114, 196</IconColor>
<Image1 Ref="100" type="Image" isKey="true"> <ImageBytes>iVBORw0KGgoAAAANSUhEUgAAEHQAAAgICAYAAAC1Y1ExAAAABGdBTUEAALGPC/xhBQAAAAlwSFlz
<Brush>Transparent</Brush>
<ClientRectangle>0.6,0,2.58,1.41</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<IconColor>68, 114, 196</IconColor>
<ImageBytes>iVBORw0KGgoAAAANSUhEUgAAEHQAAAgICAYAAAC1Y1ExAAAABGdBTUEAALGPC/xhBQAAAAlwSFlz
AAAuIgAALiIBquLdkgAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAP+NSURB AAAuIgAALiIBquLdkgAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAP+NSURB
VHhe7N3NeSJZsy7QawLPsYDJmWOCTMAETMAEmYAJMgETZAImMLlzPDg38rTqfuro6CoJ8bMjcw3W VHhe7N3NeSJZsy7QawLPsYDJmWOCTMAETMAEmYAJMgETZAImMLlzPDg38rTqfuro6CoJ8bMjcw3W
JAZVApI3iGSz9//5n//5HwAAAAAAAAAAAAAAAAAAAABuqCwCAAAAAAAAAAAAAAAAAAAAcL2yCAAA JAZVApI3iGSz9//5n//5HwAAAAAAAAAAAAAAAAAAAABuqCwCAAAAAAAAAAAAAAAAAAAAcL2yCAAA
@@ -7831,221 +7861,197 @@ AADgdsODAAAAAAAAAAAAAAAAAAAAANxueBAAAAAAAAAAAAAAAAAAAACA2w0PAgAAAAAAAAAAAAAA
AAAAAHC74UEAAAAAAAAAAAAAAAAAAAAAbjc8CAAAAAAAAAAAAAAAAAAAAMDthgcBAAAAAAAAAAAA AAAAAHC74UEAAAAAAAAAAAAAAAAAAAAAbjc8CAAAAAAAAAAAAAAAAAAAAMDthgcBAAAAAAAAAAAA
AAAAAAAAuN3wIAAAAAAAAAAAAAAAAAAAAAC3Gx4EAAAAAAAAAAAAAAAAAAAA4Fb/v//P/x94RXrG AAAAAAAAuN3wIAAAAAAAAAAAAAAAAAAAAAC3Gx4EAAAAAAAAAAAAAAAAAAAA4Fb/v//P/x94RXrG
/wp7ygAAAABJRU5ErkJggg==</ImageBytes> /wp7ygAAAABJRU5ErkJggg==</ImageBytes>
<Linked>True</Linked> <Linked>True</Linked>
<Margins>2,2,2,2</Margins> <Margins>2,2,2,2</Margins>
<Name>Image1</Name> <Name>Image1</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="99" /> <Parent isRef="104" />
<Stretch>True</Stretch> <Stretch>True</Stretch>
</Image1> </Image1>
<Textbox36 Ref="101" type="Text" isKey="true"> <Textbox36 Ref="106" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanGrow>True</CanGrow> <CanGrow>True</CanGrow>
<ClientRectangle>3.36,0.56,14.88,0.85</ClientRectangle> <ClientRectangle>3.36,0.56,14.88,0.85</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,8.5,Regular,Point,False,0</Font> <Font>Myriad Pro,8.5,Regular,Point,False,0</Font>
<Linked>True</Linked> <Linked>True</Linked>
<Margins>2,2,2,2</Margins> <Margins>2,2,2,2</Margins>
<Name>Textbox36</Name> <Name>Textbox36</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="99" /> <Parent isRef="104" />
<Text> Cliente: {ClienteCodigo} - {ClienteNombre} - {ClienteRFC} <Text> Cliente: {ClienteCodigo} - {ClienteNombre} - {ClienteRFC}
Domicilio: {ClienteDireccion}, {ClienteCiudad}, {ClienteEstado}</Text> Domicilio: {ClienteDireccion}, {ClienteCiudad}, {ClienteEstado}</Text>
<TextBrush>Black</TextBrush> <TextBrush>Black</TextBrush>
</Textbox36> </Textbox36>
<Textbox76 Ref="102" type="Text" isKey="true"> <Textbox76 Ref="107" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanGrow>True</CanGrow> <CanGrow>True</CanGrow>
<ClientRectangle>0,1.54,20.96,2.27</ClientRectangle> <ClientRectangle>0,1.54,20.96,2.27</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,7,Bold,Point,False,0</Font> <Font>Myriad Pro,7,Bold,Point,False,0</Font>
<Linked>True</Linked> <Linked>True</Linked>
<Margins>2,2,2,2</Margins> <Margins>2,2,2,2</Margins>
<Name>Textbox76</Name> <Name>Textbox76</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="99" /> <Parent isRef="104" />
<Text>POR ESTE PAGARÉ PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE BDH BATERIAS DISTRIBUCIONES DE <Text>POR ESTE PAGARÉ PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE BDH BATERIAS DISTRIBUCIONES DE
HERMOSILLO SA DE CV, EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, HERMOSILLO SA DE CV, EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO,
LA CANTIDAD DE $ {Total} ***SON {ImporteLetra}*** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU LA CANTIDAD DE $ {Total} ***SON {ImporteLetra}*** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU
VENCIMIENTO {Vencimiento}, DE NO PAGARSE CAUSARÍA UN INTERÉS MORATORIO DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA VENCIMIENTO {Vencimiento}, DE NO PAGARSE CAUSARÍA UN INTERÉS MORATORIO DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA
INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO
JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE,
ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO.</Text> ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO.</Text>
<TextBrush>[0:0:0]</TextBrush> <TextBrush>[0:0:0]</TextBrush>
<Type>Expression</Type> <Type>Expression</Type>
</Textbox76> </Textbox76>
<Textbox47 Ref="103" type="Text" isKey="true"> <Textbox47 Ref="108" type="Text" isKey="true">
<Brush>Transparent</Brush> <Brush>Transparent</Brush>
<CanGrow>True</CanGrow> <CanGrow>True</CanGrow>
<ClientRectangle>6.86,4.43,6.65,0.47</ClientRectangle> <ClientRectangle>6.86,4.63,6.65,0.47</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox47</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>ACEPTO (AMOS) DE CONFORMIDAD</Text>
<TextBrush>Black</TextBrush>
</Textbox47>
<Textbox44 Ref="104" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.86,3.67,6.65,0.54</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox44</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>Obligado</Text>
<TextBrush>[0:0:0]</TextBrush>
</Textbox44>
<Text15 Ref="105" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17,0.2,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,10,Bold,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text15</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>{Serie}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text15>
<Text16 Ref="106" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>18,0.2,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text16</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>Folio:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text16>
<Text17 Ref="107" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>19,0.2,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,10,Bold,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text17</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>{Folio}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text17>
<Text18 Ref="108" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>15.4,0.2,1.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text18</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>Serie:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text18>
<Line1 Ref="109" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>0,1.44,21,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="110" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Linked>True</Linked>
<Name>Line1</Name>
<Page isRef="7" />
<Parent isRef="99" />
<StartCap Ref="111" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line1>
<Line3 Ref="112" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>6.86,4.46,6.65,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="113" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Linked>True</Linked>
<Name>Line3</Name>
<Page isRef="7" />
<Parent isRef="99" />
<StartCap Ref="114" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line3>
</Components>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<DockStyle>Bottom</DockStyle>
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Name>Rectangle2</Name> <Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox47</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="57" /> <Parent isRef="104" />
<PrintOn>OnlyLastPage</PrintOn> <Text>ACEPTO (AMOS) DE CONFORMIDAD</Text>
<ShiftMode>None</ShiftMode> <TextBrush>Black</TextBrush>
</Rectangle2> </Textbox47>
<Line4 Ref="115" type="HorizontalLinePrimitive" isKey="true"> <Textbox44 Ref="109" type="Text" isKey="true">
<ClientRectangle>14.45,6.88,6.6,0.0254</ClientRectangle> <Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.86,3.67,6.65,0.54</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
<HorAlignment>Center</HorAlignment>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox44</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>Obligado</Text>
<TextBrush>[0:0:0]</TextBrush>
</Textbox44>
<Text15 Ref="110" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17,0.2,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,10,Bold,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text15</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>{Serie}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text15>
<Text16 Ref="111" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>18,0.2,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text16</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>Folio:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text16>
<Text17 Ref="112" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>19,0.2,1,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,10,Bold,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text17</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>{Folio}</Text>
<TextBrush>[255:0:0]</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text17>
<Text18 Ref="113" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>15.4,0.2,1.6,0.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
<HorAlignment>Right</HorAlignment>
<Margins>0,0,0,0</Margins>
<Name>Text18</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text>Serie:</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
<VertAlignment>Bottom</VertAlignment>
</Text18>
<Line1 Ref="114" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>0,1.44,21,0.0254</ClientRectangle>
<Color>Black</Color> <Color>Black</Color>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<EndCap Ref="116" type="Cap" isKey="true"> <EndCap Ref="115" type="Cap" isKey="true">
<Color>Black</Color> <Color>Black</Color>
</EndCap> </EndCap>
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Name>Line4</Name> <Linked>True</Linked>
<Name>Line1</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="57" /> <Parent isRef="104" />
<StartCap Ref="117" type="Cap" isKey="true"> <StartCap Ref="116" type="Cap" isKey="true">
<Color>Black</Color> <Color>Black</Color>
</StartCap> </StartCap>
</Line4> </Line1>
<Line3 Ref="117" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>6.86,4.66,6.65,0.0254</ClientRectangle>
<Color>Black</Color>
<Conditions isList="true" count="0" />
<EndCap Ref="118" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Linked>True</Linked>
<Name>Line3</Name>
<Page isRef="7" />
<Parent isRef="104" />
<StartCap Ref="119" type="Cap" isKey="true">
<Color>Black</Color>
</StartCap>
</Line3>
</Components> </Components>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Name>FooterBand1</Name> <GrowToHeight>True</GrowToHeight>
<Name>Pagare</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="30" /> <Parent isRef="103" />
</FooterBand1> <PrintOn>OnlyLastPage</PrintOn>
</Pagare>
</Components> </Components>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight> <Name>FooterBand2</Name>
<Name>Panel1</Name>
<Page isRef="7" /> <Page isRef="7" />
<Parent isRef="7" /> <Parent isRef="7" />
</Panel1> </FooterBand2>
</Components> </Components>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
@@ -8069,10 +8075,10 @@ ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPE
<value>Stimulsoft.Report.Dll</value> <value>Stimulsoft.Report.Dll</value>
</ReferencedAssemblies> </ReferencedAssemblies>
<ReportAlias>Factura</ReportAlias> <ReportAlias>Factura</ReportAlias>
<ReportChanged>12/3/2022 4:12:16 PM</ReportChanged> <ReportChanged>12/9/2022 10:44:46 AM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated> <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>C:\inetpub\wwwSIGGIT\Empresas\140\Formatos\Factura.mrt</ReportFile> <ReportFile>C:\inetpub\wwwSIGGIT\Empresas\140\Formatos\Factura.mrt</ReportFile>
<ReportGuid>37b51e78986c4b0a95ef37a74df287a1</ReportGuid> <ReportGuid>3135a03f0de04b128f910e44a3c041ce</ReportGuid>
<ReportName>Factura</ReportName> <ReportName>Factura</ReportName>
<ReportUnit>Centimeters</ReportUnit> <ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion> <ReportVersion>2022.4.5.0</ReportVersion>

10
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -273,12 +273,12 @@ Partial Class Inventarios_RepExistenciasCostos
Private Sub impimir(Optional reporte As String = "PDF") Private Sub impimir(Optional reporte As String = "PDF")
Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}") Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {If(DdlProveedor.SelectedItem Is Nothing, "", DdlProveedor.SelectedItem.Text)}")
Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b> {DdlMoneda.SelectedItem.Text}") Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b> {If(DdlMoneda.SelectedItem Is Nothing, "", DdlMoneda.SelectedItem.Text)}")
Dim Concepto = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Concepto:</b> {DdlTipoMovimiento.SelectedItem.Text}") Dim Concepto = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Concepto:</b> {If(DdlTipoMovimiento.SelectedItem Is Nothing, "", DdlTipoMovimiento.SelectedItem.Text)}")
Dim PS = If(HFProducto.Value.ToEntero > 0, $"&emsp;<b>Producto/Servicio:</b> {GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=HFProducto.Value.ToEntero).Rows(0)("PSCodigo").ToString}", "") Dim PS = If(HFProducto.Value.ToEntero > 0, $"&emsp;<b>Producto/Servicio:</b> {GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=HFProducto.Value.ToEntero).Rows(0)("PSCodigo").ToString}", "")
Dim Almacen = If(DdlAlmacen.SelectedValue = " - 1", "", $"&emsp;<b>Almacen: </b> {DdlAlmacen.SelectedItem.Text}") Dim Almacen = If(DdlAlmacen.SelectedValue = " - 1", "", $"&emsp;<b>Almacen: </b> {If(DdlAlmacen.SelectedItem Is Nothing, "", DdlAlmacen.SelectedItem.Text)}")
Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion:</b> {DdlClasificacion.SelectedItem.Text}") Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion</b>{If(DdlClasificacion.SelectedItem Is Nothing, "", DdlClasificacion.SelectedItem.Text)}")
Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {TxtFechaI.Text}" Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {TxtFechaI.Text}"
Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {TxtFechaF.Text}" Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {TxtFechaF.Text}"
If TxtFechaI.Text = "" Then FechaIn = "" If TxtFechaI.Text = "" Then FechaIn = ""

208
Ventas/Ventas.aspx.vb
View File

@@ -2315,7 +2315,7 @@ Partial Class Ventas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If UsuarioActual.CveEmpresa.Contiene(141, 152, 153, 160, 161, 162) Then System.Threading.Thread.Sleep(2000)
If Not IsPostBack Then If Not IsPostBack Then
If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then
@@ -6000,7 +6000,7 @@ Partial Class Ventas
DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
DdlMetodoCliente.DataBind() DdlMetodoCliente.DataBind()
If CveMetodoPago = 1 AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then If UsuarioActual.CveRol = 1 AndAlso CveMetodoPago = 1 AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
If TmpDT.SUMD("Descuento") > 0 Then If TmpDT.SUMD("Descuento") > 0 Then
Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D
Dim RowDescuentos = TmpDT.Select("Descuento > 0") Dim RowDescuentos = TmpDT.Select("Descuento > 0")
@@ -6171,7 +6171,6 @@ Partial Class Ventas
End Sub End Sub
Private Sub CargaEmpresaCRM(CveEmpresaCRM As Integer) Private Sub CargaEmpresaCRM(CveEmpresaCRM As Integer)
Dim ObjCRM As New ClsCRM Dim ObjCRM As New ClsCRM
If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) Then If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) Then
@@ -6243,7 +6242,6 @@ Partial Class Ventas
ObjCRM.Dispose() ObjCRM.Dispose()
End Sub End Sub
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1) Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
If CveCliente <= 0 Then Exit Sub If CveCliente <= 0 Then Exit Sub
@@ -6471,10 +6469,6 @@ Partial Class Ventas
ChkEmitirComercioExterior.Checked = True ChkEmitirComercioExterior.Checked = True
ChkEmitirComercioExterior_CheckedChanged(ChkEmitirComercioExterior, EventArgs.Empty) ChkEmitirComercioExterior_CheckedChanged(ChkEmitirComercioExterior, EventArgs.Empty)
If CveCliente = 665317 Then
ChkAplicaDestinatario.Checked = True
ChkAplicaDestinatario_CheckedChanged(ChkAplicaDestinatario, EventArgs.Empty)
End If
End If End If
@@ -9103,15 +9097,15 @@ Partial Class Ventas
EsValido = True EsValido = True
End If End If
'If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
' CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo) CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
' 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
' If PU <= CostoMayor Then If PU <= CostoMayor Then
' EsValidoMayor = True EsValidoMayor = True
' End If End If
'Else Else
' EsValidoMayor = True EsValidoMayor = True
'End If End If
'VALIDA PROMOCION: SI TIENE PROMOCION Y EL PRECIO ES MENOR AL PRECIO DE PROMOCION, NO PASA | SI YA CUMPLE NO VUELVE A VALIDAR 'VALIDA PROMOCION: SI TIENE PROMOCION Y EL PRECIO ES MENOR AL PRECIO DE PROMOCION, NO PASA | SI YA CUMPLE NO VUELVE A VALIDAR
If Not EsValido Or PU = 0 Then If Not EsValido Or PU = 0 Then
@@ -9127,24 +9121,24 @@ Partial Class Ventas
End If End If
'NO DEJA REGISTRAR CON VALIDACION DE COSTO ALMACEN O PROMOCION 'NO DEJA REGISTRAR CON VALIDACION DE COSTO ALMACEN O PROMOCION
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
'If Not EsValido Then If Not EsValido Then
' MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("PS").ToString()) MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
' If TienePermisoImportes Then If TienePermisoImportes Then
' MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo) MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
' MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor) MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor)
' MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)) MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
' End If End If
'End If End If
'If Not EsValidoMayor Then If Not EsValidoMayor Then
' MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", dr("PS").ToString()) MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
' If TienePermisoImportes Then If TienePermisoImportes Then
' MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo) MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
' MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor) MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor)
' MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)) MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
' End If End If
'End If End If
' SOLO SI TIENE LA FUNCIONALIDAD DE RESTRICCION VALIDA EL IMPORTE CERO ' SOLO SI TIENE LA FUNCIONALIDAD DE RESTRICCION VALIDA EL IMPORTE CERO
If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 Then If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 Then
@@ -9319,7 +9313,7 @@ Partial Class Ventas
TmpDTError = TmpDT.Copy() TmpDTError = TmpDT.Copy()
End If End If
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
If LblDescuentoAdicional.Text.ToDecimal() > 0 Then If LblDescuentoAdicional.Text.ToDecimal() > 0 Then
Dim TotalDescuento As Decimal = LblDescuentoAdicional.Text.ToDecimal() / (1D + TmpDT.MAX("PorcentajeIVA").ToString().ToDecimal()) Dim TotalDescuento As Decimal = LblDescuentoAdicional.Text.ToDecimal() / (1D + TmpDT.MAX("PorcentajeIVA").ToString().ToDecimal())
Dim RowDescuentos = TmpDT.Select("Descuento > 0") Dim RowDescuentos = TmpDT.Select("Descuento > 0")
@@ -10072,6 +10066,21 @@ Partial Class Ventas
End If End If
End If End If
If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
Dim ArchivoCotRdlc As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
Dim ArchivoCotMrt As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.mrt", UsuarioActual.Empresa.Ruta))
If ArchivoCotRdlc.Exists Or ArchivoCotMrt.Exists Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
Else
MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
End If
End If
'ERROR DE NO TIMBRADO 'ERROR DE NO TIMBRADO
If Not SeTimbro And (DdlTipoComprobante.SelectedValue = "Ing" Or DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Or DdlTipoComprobante.SelectedValue = "Ant") Then If Not SeTimbro And (DdlTipoComprobante.SelectedValue = "Ing" Or DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Or DdlTipoComprobante.SelectedValue = "Ant") Then
MensajeAlert.AppendFormat("La factura no se pudo timbrar.</b> Por favor intentelo de nuevo a traves del boton Emitir.") MensajeAlert.AppendFormat("La factura no se pudo timbrar.</b> Por favor intentelo de nuevo a traves del boton Emitir.")
@@ -10100,6 +10109,10 @@ Partial Class Ventas
End If End If
End If End If
If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}'", "Imprimir")
End If
'DESCARGAR PDF DE CICOVISA 'DESCARGAR PDF DE CICOVISA
'If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 Then 'If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 Then
' If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then ' If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
@@ -10194,7 +10207,12 @@ Partial Class Ventas
Liga2 = $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}"";" Liga2 = $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}"";"
End If End If
Alert(MensajeAlert.ToString(), TipoMensaje.MsgDosBotones, Liga, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Cliente", JSBtn2:=Liga2, ShowCloseButton:=False) If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
Liga = $"document.location.href=""/CRM/Acercamiento.aspx?CveAcercamiento={CveAcercamientoCRM}&OPTAB=COT"";"
Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Aceptar", TextoSegundoBoton:=Nothing, JSBtn2:=Nothing, ShowCloseButton:=False)
Else
Alert(MensajeAlert.ToString(), TipoMensaje.MsgDosBotones, Liga, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Cliente", JSBtn2:=Liga2, ShowCloseButton:=False)
End If
MensajeAlert.Clear() MensajeAlert.Clear()
@@ -16075,9 +16093,48 @@ Partial Class Ventas
For Each gvr As GridViewRow In GVAnticipos.Rows For Each gvr As GridViewRow In GVAnticipos.Rows
If gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then If gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then
Dim FechaUltimaFluctuacion As Date = MinFecha
Dim TipoCambioFluctuacion As Decimal = 1
Dim tFecha As Date = Now
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
End If
End If
If DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN PESOS
tipoCambioPago = 1
tipoCambioVenta = 1
tipoCambioVentaValuacion = 1
PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal
ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN PESOS
tipoCambioPago = gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
tipoCambioVenta = TxtTipoCambio.Text.ToDecimal
tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal
ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN DOLARES
tipoCambioPago = gvr.DataKey("TipoCambio").ToString().ToDecimal
tipoCambioVenta = TxtTipoCambio.Text.ToDecimal
tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal
ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN DOLARES
tipoCambioPago = gvr.DataKey("TipoCambioHoy").ToDecimal() ' gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
tipoCambioVenta = 1
tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal
End If
Dim importeMovimiento As Decimal = 0 Dim importeMovimiento As Decimal = 0
Dim importeMN As Decimal = 0 Dim importeMN As Decimal = 0
Dim TC As Decimal
Dim IdCtaContable As Integer Dim IdCtaContable As Integer
Dim TipoMovimiento As Boolean = True Dim TipoMovimiento As Boolean = True
Dim Concepto As String = VentaActual.SerieFolio Dim Concepto As String = VentaActual.SerieFolio
@@ -16108,14 +16165,23 @@ Partial Class Ventas
If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 1 Then If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
importeMN = importeMovimiento
TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 2 Then ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
importeMN = importeMovimiento * gvr.DataKey("TipoCambio").ToString().ToDecimal
TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
ElseIf CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 2 Then ElseIf CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
TC = TipoCambioFluctuacion
ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 1 Then ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
importeMN = importeMovimiento
TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
End If End If
importeMovimiento = importeMovimiento.RoundSQL importeMovimiento = importeMovimiento.RoundSQL
importeMN = importeMN.RoundSQL
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(12, CveCliente) Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(12, CveCliente) Then
If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -16147,22 +16213,81 @@ Partial Class Ventas
If gvr.DataKey("CveIE").ToEntero() > 0 Then If gvr.DataKey("CveIE").ToEntero() > 0 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
IdCtaContable = IdCtaContClientes
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
Dim Pago As New VentaPago Dim Pago As New VentaPago
Pago.ImportePagoVenta = importeMovimiento
Pago.ImportePago = importeMovimiento Pago.ImportePago = importeMovimiento
Pago.CveIE = CveIEAnticipo Pago.CveIE = CveIEAnticipo
Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero() Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal Pago.TipoPago = "A"
Pago.TipoPago = "I"
Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero() Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
Pago.Referencia = gvr.DataKey("Folio") Pago.Referencia = gvr.DataKey("Folio")
ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta) ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
' Agregamos el 2
If tipoCambioPago = 1 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
Else 'Cuando son dolares
If importeMovimiento <> 0 Then
If IdCtaContComplementaria > 0 Or 0 > 0 Then
'Agregamos la Complementaria
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, Now, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
Else
'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
End If
End If
End If
importeMovimiento = ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / TxtTotal.Text.ToDecimal) * TxtIVA.Text.ToDecimal)
importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
'Agregamos el 92
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal 'gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo" & gvr.RowIndex).ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
IdCtaContable = IdCtaContAnticipos
If ObjCliente.GetClientes(gvr.DataKey("CveCliente").ToEntero(), "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
If Not tipoCambioPago = 1 Then
IdCtaContable = ObjCliente.IdCtaMonedaExtranjeraAnticipos
Else
IdCtaContable = ObjCliente.IdCtaContAnticipos
End If
End If
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
If gvr.DataKey("Fecha").ToDate.Year <= 2017 AndAlso TxtFechaAnticipoCliente.Text.ToDate.Year >= 2018 Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
If Not tipoCambioPago = 1 Then
IdCtaContable = ObjCliente.IdCtaContMonedaExtranjera
Else
IdCtaContable = ObjCliente.IdCtaContClientes
End If
End If
End If
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 555, Concepto, Now, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMN, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
ErrorConta = True
End If
End If End If
End If End If
End Select End Select
@@ -18095,7 +18220,7 @@ Partial Class Ventas
Return ObjDescuento Return ObjDescuento
End If End If
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Cot") AndAlso CveRinTamañoPS > 0 Then If UsuarioActual.CveRol = 1 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Cot") AndAlso CveRinTamañoPS > 0 Then
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Not TbDescuentosAdicionales.Visible Then If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Not TbDescuentosAdicionales.Visible Then
TbDescuentosAdicionales.Visible = True TbDescuentosAdicionales.Visible = True
End If End If
@@ -20443,6 +20568,7 @@ Partial Class Ventas
Dim DtCostos As DataTable = Nothing Dim DtCostos As DataTable = Nothing
Dim DtCostosDistinct As DataTable = Nothing Dim DtCostosDistinct As DataTable = Nothing
Dim IdCtaContable As Integer = 0 Dim IdCtaContable As Integer = 0
Dim ValorInventario As Decimal = 0D Dim ValorInventario As Decimal = 0D
Dim TotalCostoAcumulado As Decimal = 0D Dim TotalCostoAcumulado As Decimal = 0D
Dim Cont As Integer = 1 Dim Cont As Integer = 1
@@ -22467,7 +22593,7 @@ Partial Class Ventas
VieneDeCotizacion = True VieneDeCotizacion = True
End If End If
If DdlTipoComprobante.SelectedValue = "Ing" AndAlso (Not VieneDeCotizacion) AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DtPagos IsNot Nothing AndAlso TbDescuentosAdicionales.Visible Then If UsuarioActual.CveRol = 1 AndAlso DdlTipoComprobante.SelectedValue = "Ing" AndAlso (Not VieneDeCotizacion) AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DtPagos IsNot Nothing AndAlso TbDescuentosAdicionales.Visible Then
If TmpDT.SUMD("Descuento") > 0 AndAlso DtPagos.SUMD("Importe", "MesesSinIntereses <=0") = TxtTotal.Text.ToDecimal() Then If TmpDT.SUMD("Descuento") > 0 AndAlso DtPagos.SUMD("Importe", "MesesSinIntereses <=0") = TxtTotal.Text.ToDecimal() Then
Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D
Dim RowDescuentos = TmpDT.Select("Descuento > 0") Dim RowDescuentos = TmpDT.Select("Descuento > 0")