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("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)
@@ -479,6 +483,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
End Class
Public Class ParametroWS
Public Property CFDIVersion As String
Public Property Factura As FacturaWS
Public Property Cliente As ClienteWS
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">
<Border>None;Black;2;Solid;False;4;Black</Border>
<Brush>Transparent</Brush>
<Components isList="true" count="3">
<Components isList="true" count="4">
<PageHeaderBand1 Ref="8" type="PageHeaderBand" isKey="true">
<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">
<Panel4 Ref="9" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>0,0,21,6</ClientRectangle>
<ClientRectangle>0,0,21,5.6</ClientRectangle>
<Components isList="true" count="14">
<Text5 Ref="10" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>13,1.2,8,2.8</ClientRectangle>
<ClientRectangle>13,1.2,8,2.6</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<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:
Cliente: {ClienteCodigo} - {ClienteNombre}
RFC: {ClienteRFC}
Calle: {ClienteCalle}
Calle: {ClienteCalle} No.Ext:{ClienteNoExt}
Colonia: {ClienteColonia}
Ciudad: {ClienteCiudad} Estado: {ClienteEstado}
Municipio y/o Delegación: {ClienteMunicipio}
@@ -3457,7 +3457,7 @@ de Hermosillo SA de CV</Text>
<Textbox40 Ref="15" type="Text" isKey="true">
<Brush>Transparent</Brush>
<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" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
@@ -3475,7 +3475,7 @@ Vendedor: {VendedorNombre}</Text>
</Textbox40>
<Text4 Ref="16" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>4,4,8.8,1.8</ClientRectangle>
<ClientRectangle>4,4,8,1.4</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -3621,7 +3621,8 @@ de Hermosillo SA de CV</Text>
</PageHeaderBand1>
<PageFooterBand1 Ref="24" type="PageFooterBand" isKey="true">
<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">
<Text35 Ref="25" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -3629,7 +3630,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>7.4,0,2.91,0.6</ClientRectangle>
<Conditions 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>
<Margins>2,2,2,2</Margins>
<Name>Text35</Name>
@@ -3644,7 +3645,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>10.31,0,4.89,0.6</ClientRectangle>
<Conditions 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>
<Name>Textbox37</Name>
<Page isRef="7" />
@@ -3661,7 +3662,7 @@ de Hermosillo SA de CV</Text>
<ClientRectangle>17.31,0,3.69,0.6</ClientRectangle>
<Conditions 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>
<Margins>2,2,2,2</Margins>
<Name>Text37</Name>
@@ -3683,14 +3684,14 @@ de Hermosillo SA de CV</Text>
</PageFooterBand1>
<Panel1 Ref="30" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
<Brush>[255:255:0]</Brush>
<CanGrow>True</CanGrow>
<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">
<HeaderBand1 Ref="31" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0,21,0.5</ClientRectangle>
<ClientRectangle>0,0.4,21.1,0.5</ClientRectangle>
<Components isList="true" count="9">
<Textbox23 Ref="32" type="Text" isKey="true">
<Brush>[58:65:115]</Brush>
@@ -3840,7 +3841,7 @@ de Hermosillo SA de CV</Text>
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<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">
<Cantidad1 Ref="42" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4024,8 +4025,9 @@ de Hermosillo SA de CV</Text>
</DataBand3>
<FooterBand1 Ref="57" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,0.92,21,16.8</ClientRectangle>
<Components isList="true" count="15">
<CanBreak>True</CanBreak>
<ClientRectangle>0,2.92,21.1,10.6</ClientRectangle>
<Components isList="true" count="14">
<Panel3 Ref="58" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<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>
<Brush>Transparent</Brush>
<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">
<Text2 Ref="60" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4109,7 +4111,6 @@ de Hermosillo SA de CV</Text>
<Name>Text21</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text21>
<Text6 Ref="64" type="Text" isKey="true">
@@ -4126,7 +4127,6 @@ de Hermosillo SA de CV</Text>
<Name>Text6</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>{ImporteLetra}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
@@ -4138,7 +4138,7 @@ de Hermosillo SA de CV</Text>
<Components isList="true" count="2">
<HeaderBand2 Ref="66" type="HeaderBand" isKey="true">
<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">
<Textbox25 Ref="67" type="Text" isKey="true">
<Brush>[58:65:115]</Brush>
@@ -4195,7 +4195,7 @@ de Hermosillo SA de CV</Text>
<DataBand8 Ref="70" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.6,5.2,0</ClientRectangle>
<ClientRectangle>0,1.6,5.2,0</ClientRectangle>
<Components isList="true" count="3">
<Cantidad2 Ref="71" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4256,7 +4256,6 @@ de Hermosillo SA de CV</Text>
<Name>DataBand8</Name>
<Page isRef="7" />
<Parent isRef="65" />
<PrintOn>OnlyLastPage</PrintOn>
<Sort isList="true" count="0" />
</DataBand8>
</Components>
@@ -4265,7 +4264,6 @@ de Hermosillo SA de CV</Text>
<Name>Panel2</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel2>
<Text23 Ref="75" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4294,7 +4292,6 @@ de Hermosillo SA de CV</Text>
<Name>Text7</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text7>
<Textbox48 Ref="77" type="Text" isKey="true">
@@ -4404,18 +4401,14 @@ Sello digital del SAT:
<Name>Panel5</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel5>
<Panel6 Ref="84" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>2,8.28,17.2,1</ClientRectangle>
<ClientRectangle>2,8.15,17.3,1.2</ClientRectangle>
<Components isList="true" count="2">
<HeaderBand3 Ref="85" type="HeaderBand" isKey="true">
<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">
<Text24 Ref="86" type="Text" isKey="true">
<Brush>[58:65:115]</Brush>
@@ -4490,7 +4483,7 @@ Sello digital del SAT:
<DataBand2 Ref="90" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<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">
<Text27 Ref="91" type="Text" isKey="true">
<Brush>Transparent</Brush>
@@ -4549,7 +4542,7 @@ Sello digital del SAT:
<Text30 Ref="95" type="Text" isKey="true">
<Brush>Transparent</Brush>
<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" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -4560,6 +4553,9 @@ Sello digital del SAT:
<Parent isRef="90" />
<Text>{DtDocumentosRelacionados.FolioFiscal}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="96" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
<Type>DataColumn</Type>
</Text30>
</Components>
@@ -4577,15 +4573,14 @@ Sello digital del SAT:
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel6</Name>
<Page isRef="7" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel6>
<Text32 Ref="96" type="Text" isKey="true">
<Text32 Ref="97" type="Text" isKey="true">
<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" />
<Enabled>False</Enabled>
<Expressions isList="true" count="2">
@@ -4603,9 +4598,9 @@ Sello digital del SAT:
<TextBrush>[255:255:255]</TextBrush>
<Type>Expression</Type>
</Text32>
<Text33 Ref="97" type="Text" isKey="true">
<Text33 Ref="98" type="Text" isKey="true">
<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" />
<Enabled>False</Enabled>
<Expressions isList="true" count="2">
@@ -4623,9 +4618,9 @@ Sello digital del SAT:
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text33>
<Text34 Ref="98" type="Text" isKey="true">
<Text34 Ref="99" type="Text" isKey="true">
<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" />
<Enabled>False</Enabled>
<Expressions isList="true" count="2">
@@ -4642,20 +4637,55 @@ Sello digital del SAT:
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text34>
<Rectangle2 Ref="99" type="Panel" isKey="true">
<Anchor>Bottom, Right</Anchor>
<Line4 Ref="100" type="HorizontalLinePrimitive" isKey="true">
<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>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<ClientRectangle>0,11.8,21,5</ClientRectangle>
<Components isList="true" count="11">
<Image1 Ref="100" type="Image" isKey="true">
<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
<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
VHhe7N3NeSJZsy7QawLPsYDJmWOCTMAETMAEmYAJMgETZAImMLlzPDg38rTqfuro6CoJ8bMjcw3W
JAZVApI3iGSz9//5n//5HwAAAAAAAAAAAAAAAAAAAABuqCwCAAAAAAAAAAAAAAAAAAAAcL2yCAAA
@@ -7831,221 +7861,197 @@ AADgdsODAAAAAAAAAAAAAAAAAAAAANxueBAAAAAAAAAAAAAAAAAAAACA2w0PAgAAAAAAAAAAAAAA
AAAAAHC74UEAAAAAAAAAAAAAAAAAAAAAbjc8CAAAAAAAAAAAAAAAAAAAAMDthgcBAAAAAAAAAAAA
AAAAAAAAuN3wIAAAAAAAAAAAAAAAAAAAAAC3Gx4EAAAAAAAAAAAAAAAAAAAA4Fb/v//P/x94RXrG
/wp7ygAAAABJRU5ErkJggg==</ImageBytes>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Image1</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Stretch>True</Stretch>
</Image1>
<Textbox36 Ref="101" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.36,0.56,14.88,0.85</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox36</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text> Cliente: {ClienteCodigo} - {ClienteNombre} - {ClienteRFC}
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Image1</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Stretch>True</Stretch>
</Image1>
<Textbox36 Ref="106" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.36,0.56,14.88,0.85</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,8.5,Regular,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox36</Name>
<Page isRef="7" />
<Parent isRef="104" />
<Text> Cliente: {ClienteCodigo} - {ClienteNombre} - {ClienteRFC}
Domicilio: {ClienteDireccion}, {ClienteCiudad}, {ClienteEstado}</Text>
<TextBrush>Black</TextBrush>
</Textbox36>
<Textbox76 Ref="102" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,1.54,20.96,2.27</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7,Bold,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox76</Name>
<Page isRef="7" />
<Parent isRef="99" />
<Text>POR ESTE PAGARÉ PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE BDH BATERIAS DISTRIBUCIONES DE
<TextBrush>Black</TextBrush>
</Textbox36>
<Textbox76 Ref="107" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,1.54,20.96,2.27</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7,Bold,Point,False,0</Font>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Textbox76</Name>
<Page isRef="7" />
<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
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
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
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>
<TextBrush>[0:0:0]</TextBrush>
<Type>Expression</Type>
</Textbox76>
<Textbox47 Ref="103" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.86,4.43,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>
<TextBrush>[0:0:0]</TextBrush>
<Type>Expression</Type>
</Textbox76>
<Textbox47 Ref="108" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.86,4.63,6.65,0.47</ClientRectangle>
<Conditions isList="true" count="0" />
<DockStyle>Bottom</DockStyle>
<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" />
<Parent isRef="57" />
<PrintOn>OnlyLastPage</PrintOn>
<ShiftMode>None</ShiftMode>
</Rectangle2>
<Line4 Ref="115" type="HorizontalLinePrimitive" isKey="true">
<ClientRectangle>14.45,6.88,6.6,0.0254</ClientRectangle>
<Parent isRef="104" />
<Text>ACEPTO (AMOS) DE CONFORMIDAD</Text>
<TextBrush>Black</TextBrush>
</Textbox47>
<Textbox44 Ref="109" 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="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>
<Conditions isList="true" count="0" />
<EndCap Ref="116" type="Cap" isKey="true">
<EndCap Ref="115" type="Cap" isKey="true">
<Color>Black</Color>
</EndCap>
<Expressions isList="true" count="0" />
<Name>Line4</Name>
<Linked>True</Linked>
<Name>Line1</Name>
<Page isRef="7" />
<Parent isRef="57" />
<StartCap Ref="117" type="Cap" isKey="true">
<Parent isRef="104" />
<StartCap Ref="116" type="Cap" isKey="true">
<Color>Black</Color>
</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>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>FooterBand1</Name>
<GrowToHeight>True</GrowToHeight>
<Name>Pagare</Name>
<Page isRef="7" />
<Parent isRef="30" />
</FooterBand1>
<Parent isRef="103" />
<PrintOn>OnlyLastPage</PrintOn>
</Pagare>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<GrowToHeight>True</GrowToHeight>
<Name>Panel1</Name>
<Name>FooterBand2</Name>
<Page isRef="7" />
<Parent isRef="7" />
</Panel1>
</FooterBand2>
</Components>
<Conditions 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>
</ReferencedAssemblies>
<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>
<ReportFile>C:\inetpub\wwwSIGGIT\Empresas\140\Formatos\Factura.mrt</ReportFile>
<ReportGuid>37b51e78986c4b0a95ef37a74df287a1</ReportGuid>
<ReportGuid>3135a03f0de04b128f910e44a3c041ce</ReportGuid>
<ReportName>Factura</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<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")
Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}")
Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b> {DdlMoneda.SelectedItem.Text}")
Dim Concepto = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Concepto:</b> {DdlTipoMovimiento.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> {If(DdlMoneda.SelectedItem Is Nothing, "", DdlMoneda.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 Almacen = If(DdlAlmacen.SelectedValue = " - 1", "", $"&emsp;<b>Almacen: </b> {DdlAlmacen.SelectedItem.Text}")
Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion:</b> {DdlClasificacion.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>{If(DdlClasificacion.SelectedItem Is Nothing, "", DdlClasificacion.SelectedItem.Text)}")
Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {TxtFechaI.Text}"
Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {TxtFechaF.Text}"
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
If UsuarioActual.CveEmpresa.Contiene(141, 152, 153, 160, 161, 162) Then System.Threading.Thread.Sleep(2000)
If Not IsPostBack Then
If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then
@@ -6000,7 +6000,7 @@ Partial Class Ventas
DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
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
Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D
Dim RowDescuentos = TmpDT.Select("Descuento > 0")
@@ -6171,7 +6171,6 @@ Partial Class Ventas
End Sub
Private Sub CargaEmpresaCRM(CveEmpresaCRM As Integer)
Dim ObjCRM As New ClsCRM
If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) Then
@@ -6243,7 +6242,6 @@ Partial Class Ventas
ObjCRM.Dispose()
End Sub
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
If CveCliente <= 0 Then Exit Sub
@@ -6471,10 +6469,6 @@ Partial Class Ventas
ChkEmitirComercioExterior.Checked = True
ChkEmitirComercioExterior_CheckedChanged(ChkEmitirComercioExterior, EventArgs.Empty)
If CveCliente = 665317 Then
ChkAplicaDestinatario.Checked = True
ChkAplicaDestinatario_CheckedChanged(ChkAplicaDestinatario, EventArgs.Empty)
End If
End If
@@ -9103,15 +9097,15 @@ Partial Class Ventas
EsValido = True
End If
'If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
' CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
' 'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
' If PU <= CostoMayor Then
' EsValidoMayor = True
' End If
'Else
' EsValidoMayor = True
'End If
If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
If PU <= CostoMayor Then
EsValidoMayor = True
End If
Else
EsValidoMayor = True
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
If Not EsValido Or PU = 0 Then
@@ -9127,24 +9121,24 @@ Partial Class Ventas
End If
'NO DEJA REGISTRAR CON VALIDACION DE COSTO ALMACEN O PROMOCION
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())
' If TienePermisoImportes Then
' 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 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
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
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 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
'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())
' If TienePermisoImportes Then
' 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 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
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())
If TienePermisoImportes Then
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 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
' SOLO SI TIENE LA FUNCIONALIDAD DE RESTRICCION VALIDA EL IMPORTE CERO
If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 Then
@@ -9319,7 +9313,7 @@ Partial Class Ventas
TmpDTError = TmpDT.Copy()
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
Dim TotalDescuento As Decimal = LblDescuentoAdicional.Text.ToDecimal() / (1D + TmpDT.MAX("PorcentajeIVA").ToString().ToDecimal())
Dim RowDescuentos = TmpDT.Select("Descuento > 0")
@@ -10072,6 +10066,21 @@ Partial Class Ventas
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
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.")
@@ -10100,6 +10109,10 @@ Partial Class Ventas
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
'If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 Then
' If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
@@ -10194,7 +10207,12 @@ Partial Class Ventas
Liga2 = $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}"";"
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()
@@ -16075,9 +16093,48 @@ Partial Class Ventas
For Each gvr As GridViewRow In GVAnticipos.Rows
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 importeMN As Decimal = 0
Dim TC As Decimal
Dim IdCtaContable As Integer
Dim TipoMovimiento As Boolean = True
Dim Concepto As String = VentaActual.SerieFolio
@@ -16108,14 +16165,23 @@ Partial Class Ventas
If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
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
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
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
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
importeMovimiento = importeMovimiento.RoundSQL
importeMN = importeMN.RoundSQL
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(12, CveCliente) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -16147,22 +16213,81 @@ Partial Class Ventas
If gvr.DataKey("CveIE").ToEntero() > 0 Then
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
IdCtaContable = IdCtaContClientes
If importeMovimiento <> 0 Then
Dim Pago As New VentaPago
Pago.ImportePagoVenta = importeMovimiento
Pago.ImportePago = importeMovimiento
Pago.CveIE = CveIEAnticipo
Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal
Pago.TipoPago = "I"
Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
Pago.TipoPago = "A"
Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
Pago.Referencia = gvr.DataKey("Folio")
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 Select
@@ -18095,7 +18220,7 @@ Partial Class Ventas
Return ObjDescuento
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
TbDescuentosAdicionales.Visible = True
End If
@@ -20443,6 +20568,7 @@ Partial Class Ventas
Dim DtCostos As DataTable = Nothing
Dim DtCostosDistinct As DataTable = Nothing
Dim IdCtaContable As Integer = 0
Dim ValorInventario As Decimal = 0D
Dim TotalCostoAcumulado As Decimal = 0D
Dim Cont As Integer = 1
@@ -22467,7 +22593,7 @@ Partial Class Ventas
VieneDeCotizacion = True
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
Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D
Dim RowDescuentos = TmpDT.Select("Descuento > 0")