Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -7092,6 +7092,11 @@ Public Class ClsPaginas
|
||||
params.Add(New ReportParameter("DescripcionContrato", Vta.NumeroDescripcionContrato))
|
||||
params.Add(New ReportParameter("Contrato", Vta.NumeroContrato))
|
||||
params.Add(New ReportParameter("Fecha", String.Format("{0}T{1}", Vta.Fecha.ToString("yyyy-MM-dd"), Vta.Fecha.ToString("HH:mm:ss"))))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(189) Then
|
||||
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, #{UsuarioActual.Empresa.NoExt}, col: {UsuarioActual.Empresa.Colonia}, C.P. {UsuarioActual.Empresa.CP}, {UsuarioActual.Empresa.Estado}, {UsuarioActual.Empresa.Localidad}, Tel: {UsuarioActual.Empresa.Telefono}"))
|
||||
End If
|
||||
|
||||
'VENDEDOR
|
||||
Dim VendedorNombre As String = ""
|
||||
Dim VendedorMail As String = ""
|
||||
@@ -9544,7 +9549,7 @@ Public Class ClsPaginas
|
||||
If Pago.TipoPago = "NC" Then ConPreP.CveConcepto = If(VentaActual.CveMoneda <> 1, 301, 251)
|
||||
|
||||
'movimiento de pago cliente
|
||||
If Pago.ImportePagoVenta > 0 Then
|
||||
If Pago.ImportePagoVenta <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, ConPreP.CveConcepto, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
|
||||
'movimiento de pago cliente Complementaria
|
||||
If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then
|
||||
|
||||
@@ -136,7 +136,7 @@
|
||||
<value>ReportParameters,TipoRelacionTexto,TipoRelacionTexto,ReportParameter1,System.String,,False,False,True,False,,_x0034_17b8382f8e448a5b21018e50590835b</value>
|
||||
<value>ReportParameters,FolioFiscalRelacionado,FolioFiscalRelacionado,ReportParameter1,System.String,,False,False,True,False,,_x0037_0c2d36e39d1464d821ac353ccaa2dcd</value>
|
||||
<value>ReportParameters,ClienteDireccion,ClienteDireccion,ReportParameter1,System.String,,False,False,True,False,,f18e5fd820754666994a9d3f995d50a7</value>
|
||||
<value>ReportParameters,ClienteRegimenFiscal,ClienteRegimenFiscal,,System.String,,False,False,False,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_</value>
|
||||
<value>ReportParameters,ClienteRegimenFiscal,ClienteRegimenFiscal,,System.String,,False,False,False,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_</value>
|
||||
</Variables>
|
||||
</Dictionary>
|
||||
<EngineVersion>EngineV2</EngineVersion>
|
||||
@@ -147,15 +147,15 @@
|
||||
<Page1 Ref="5" type="Page" isKey="true">
|
||||
<Border>None;Black;2;Solid;False;4;Black</Border>
|
||||
<Brush>Transparent</Brush>
|
||||
<Components isList="true" count="5">
|
||||
<Components isList="true" count="6">
|
||||
<PageHeaderBand1 Ref="6" type="PageHeaderBand" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<ClientRectangle>0,0.4,21.1,5.4</ClientRectangle>
|
||||
<Components isList="true" count="6">
|
||||
<ClientRectangle>0,0.4,20.8,5.4</ClientRectangle>
|
||||
<Components isList="true" count="5">
|
||||
<Text5 Ref="7" type="Text" isKey="true">
|
||||
<AllowHtmlTags>True</AllowHtmlTags>
|
||||
<Brush>Transparent</Brush>
|
||||
<ClientRectangle>13,0.8,8,3.2</ClientRectangle>
|
||||
<ClientRectangle>12.8,0.8,7.8,3.2</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
|
||||
@@ -205,29 +205,9 @@ Hermosillo, Son. México.</Text>
|
||||
<TextBrush>[0:0:0]</TextBrush>
|
||||
<Type>Expression</Type>
|
||||
</Textbox32>
|
||||
<Textbox40 Ref="10" type="Text" isKey="true">
|
||||
<Text8 Ref="10" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>0,3.92,21.03,1.42</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
|
||||
<GrowToHeight>True</GrowToHeight>
|
||||
<HorAlignment>Right</HorAlignment>
|
||||
<Margins>2,2,2,2</Margins>
|
||||
<Name>Textbox40</Name>
|
||||
<Page isRef="5" />
|
||||
<Parent isRef="6" />
|
||||
<Text>Expedido en:
|
||||
{DomicilioSucursal}
|
||||
</Text>
|
||||
<TextBrush>Black</TextBrush>
|
||||
<TextQuality>Wysiwyg</TextQuality>
|
||||
<Type>Expression</Type>
|
||||
</Textbox40>
|
||||
<Text8 Ref="11" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<ClientRectangle>13,0.4,8,0.4</ClientRectangle>
|
||||
<ClientRectangle>12.8,0.4,7.8,0.4</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,11,Bold,Point,False,0</Font>
|
||||
@@ -240,7 +220,7 @@ Hermosillo, Son. México.</Text>
|
||||
<TextBrush>Black</TextBrush>
|
||||
<Type>Expression</Type>
|
||||
</Text8>
|
||||
<Image1 Ref="12" type="Image" isKey="true">
|
||||
<Image1 Ref="11" type="Image" isKey="true">
|
||||
<AspectRatio>True</AspectRatio>
|
||||
<Brush>Transparent</Brush>
|
||||
<ClientRectangle>0.2,0.2,4.8,2.2</ClientRectangle>
|
||||
@@ -1265,9 +1245,29 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Page isRef="5" />
|
||||
<Parent isRef="5" />
|
||||
</PageHeaderBand1>
|
||||
<Textbox40 Ref="12" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>-0.4,4.32,21.03,1.42</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
|
||||
<GrowToHeight>True</GrowToHeight>
|
||||
<HorAlignment>Right</HorAlignment>
|
||||
<Margins>2,2,2,2</Margins>
|
||||
<Name>Textbox40</Name>
|
||||
<Page isRef="5" />
|
||||
<Parent isRef="5" />
|
||||
<Text>Expedido en:
|
||||
{DomicilioSucursal}
|
||||
</Text>
|
||||
<TextBrush>Black</TextBrush>
|
||||
<TextQuality>Wysiwyg</TextQuality>
|
||||
<Type>Expression</Type>
|
||||
</Textbox40>
|
||||
<HeaderBand1 Ref="13" type="HeaderBand" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<ClientRectangle>0,6.6,21.1,0.5</ClientRectangle>
|
||||
<ClientRectangle>0,6.6,20.8,0.5</ClientRectangle>
|
||||
<Components isList="true" count="10">
|
||||
<Textbox23 Ref="14" type="Text" isKey="true">
|
||||
<Brush>[227:108:9]</Brush>
|
||||
@@ -1349,7 +1349,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Textbox2 Ref="19" type="Text" isKey="true">
|
||||
<Brush>[227:108:9]</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>17.5,0.03,1.57,0.5</ClientRectangle>
|
||||
<ClientRectangle>17.5,0.03,1.37,0.5</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
|
||||
@@ -1364,7 +1364,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Textbox6 Ref="20" type="Text" isKey="true">
|
||||
<Brush>[227:108:9]</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>19.02,0.03,2.11,0.5</ClientRectangle>
|
||||
<ClientRectangle>18.82,0.03,1.91,0.5</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
|
||||
@@ -1437,7 +1437,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Brush>Transparent</Brush>
|
||||
<BusinessObjectGuid isNull="true" />
|
||||
<CanShrink>True</CanShrink>
|
||||
<ClientRectangle>0,7.9,21.1,0.42</ClientRectangle>
|
||||
<ClientRectangle>0,7.9,20.8,0.42</ClientRectangle>
|
||||
<Components isList="true" count="10">
|
||||
<Cantidad1 Ref="25" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
@@ -1546,7 +1546,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<ImporteIVA Ref="33" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>17.5,0,1.57,0.37</ClientRectangle>
|
||||
<ClientRectangle>17.5,0,1.37,0.37</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
|
||||
@@ -1565,7 +1565,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<TiempoEntrega Ref="35" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>19.07,0,2.02,0.42</ClientRectangle>
|
||||
<ClientRectangle>18.87,0,1.82,0.42</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
|
||||
@@ -1634,14 +1634,14 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
</DataBand3>
|
||||
<FooterBand1 Ref="39" type="FooterBand" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<ClientRectangle>0,9.12,21.1,3.6</ClientRectangle>
|
||||
<ClientRectangle>0,9.12,20.8,3.6</ClientRectangle>
|
||||
<Components isList="true" count="6">
|
||||
<Panel3 Ref="40" type="Panel" isKey="true">
|
||||
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
|
||||
<Brush>Transparent</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<CanShrink>True</CanShrink>
|
||||
<ClientRectangle>15.8,0.38,5.2,0.65</ClientRectangle>
|
||||
<ClientRectangle>15.6,0.38,5.2,0.65</ClientRectangle>
|
||||
<Components isList="true" count="1">
|
||||
<DataBand1 Ref="41" type="DataBand" isKey="true">
|
||||
<Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border>
|
||||
@@ -1649,10 +1649,33 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<BusinessObjectGuid isNull="true" />
|
||||
<ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
|
||||
<Components isList="true" count="2">
|
||||
<Text2 Ref="42" type="Text" isKey="true">
|
||||
<Text22 Ref="42" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>0,0,1.48,0.37</ClientRectangle>
|
||||
<ClientRectangle>1.2,-0,3.88,0.37</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
|
||||
<HorAlignment>Right</HorAlignment>
|
||||
<Margins>2,2,2,2</Margins>
|
||||
<Name>Text22</Name>
|
||||
<Page isRef="5" />
|
||||
<Parent isRef="41" />
|
||||
<Text>{DtTotales.Importe}</Text>
|
||||
<TextBrush>Black</TextBrush>
|
||||
<TextFormat Ref="43" type="NumberFormat" isKey="true">
|
||||
<DecimalDigits>2</DecimalDigits>
|
||||
<GroupSeparator>,</GroupSeparator>
|
||||
<NegativePattern>1</NegativePattern>
|
||||
<State>DecimalDigits, DecimalSeparator, GroupSeparator, GroupSize</State>
|
||||
</TextFormat>
|
||||
<Type>DataColumn</Type>
|
||||
<VertAlignment>Bottom</VertAlignment>
|
||||
</Text22>
|
||||
<Text2 Ref="44" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>0.2,-0,1.48,0.37</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,8,Bold,Point,False,0</Font>
|
||||
@@ -1666,29 +1689,6 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Type>DataColumn</Type>
|
||||
<VertAlignment>Bottom</VertAlignment>
|
||||
</Text2>
|
||||
<Text22 Ref="43" type="Text" isKey="true">
|
||||
<Brush>Transparent</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>1.4,0,3.88,0.37</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
|
||||
<HorAlignment>Right</HorAlignment>
|
||||
<Margins>2,2,2,2</Margins>
|
||||
<Name>Text22</Name>
|
||||
<Page isRef="5" />
|
||||
<Parent isRef="41" />
|
||||
<Text>{DtTotales.Importe}</Text>
|
||||
<TextBrush>Black</TextBrush>
|
||||
<TextFormat Ref="44" type="NumberFormat" isKey="true">
|
||||
<DecimalDigits>2</DecimalDigits>
|
||||
<GroupSeparator>,</GroupSeparator>
|
||||
<NegativePattern>1</NegativePattern>
|
||||
<State>DecimalDigits, DecimalSeparator, GroupSeparator, GroupSize</State>
|
||||
</TextFormat>
|
||||
<Type>DataColumn</Type>
|
||||
<VertAlignment>Bottom</VertAlignment>
|
||||
</Text22>
|
||||
</Components>
|
||||
<Conditions isList="true" count="0" />
|
||||
<DataRelationName isNull="true" />
|
||||
@@ -1711,7 +1711,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Text21 Ref="45" type="Text" isKey="true">
|
||||
<Brush>[227:108:9]</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>0,0.08,21.09,0.14</ClientRectangle>
|
||||
<ClientRectangle>0,0.08,20.69,0.14</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Arial,10,Regular,Point,False,0</Font>
|
||||
@@ -1726,7 +1726,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Brush>Transparent</Brush>
|
||||
<CanBreak>True</CanBreak>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>5.2,1.48,15.85,0.48</ClientRectangle>
|
||||
<ClientRectangle>5,1.48,15.65,0.48</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,9,Bold,Point,False,0</Font>
|
||||
@@ -1773,7 +1773,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Text3 Ref="49" type="Text" isKey="true">
|
||||
<Brush>[227:108:9]</Brush>
|
||||
<CanGrow>True</CanGrow>
|
||||
<ClientRectangle>16,1.28,5.09,0.14</ClientRectangle>
|
||||
<ClientRectangle>15.8,1.28,4.89,0.14</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Arial,10,Regular,Point,False,0</Font>
|
||||
@@ -1814,12 +1814,12 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
|
||||
<Brush>Transparent</Brush>
|
||||
<CanBreak>True</CanBreak>
|
||||
<CanShrink>True</CanShrink>
|
||||
<ClientRectangle>0,13.52,21.1,4.6</ClientRectangle>
|
||||
<ClientRectangle>0,13.52,20.8,4.6</ClientRectangle>
|
||||
<Components isList="true" count="2">
|
||||
<Image3 Ref="52" type="Image" isKey="true">
|
||||
<AspectRatio>True</AspectRatio>
|
||||
<Brush>Transparent</Brush>
|
||||
<ClientRectangle>0,0.08,21.2,2.4</ClientRectangle>
|
||||
<ClientRectangle>0,0.08,20.6,2.4</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Guid>83739dede2db45168f7b2a7f155734c8</Guid>
|
||||
@@ -6282,7 +6282,7 @@ BANAMEX: 6724628 CLABE: 002760036367246288</Text>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Guid>2ad79495e57741faaae335298d7f673a</Guid>
|
||||
<Margins>0.25,0.25,0.25,0.25</Margins>
|
||||
<Margins>0.4,0.4,0.4,0.4</Margins>
|
||||
<Name>Page1</Name>
|
||||
<PageHeight>27.9</PageHeight>
|
||||
<PageWidth>21.6</PageWidth>
|
||||
@@ -6304,7 +6304,7 @@ BANAMEX: 6724628 CLABE: 002760036367246288</Text>
|
||||
<ReportChanged>12/14/2024 11:28:34 AM</ReportChanged>
|
||||
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
|
||||
<ReportFile>Cotizacion.mrt</ReportFile>
|
||||
<ReportGuid>922cc12405514f97971fb265603925cb</ReportGuid>
|
||||
<ReportGuid>330a4d3964c54bb38311e0052fbb1b94</ReportGuid>
|
||||
<ReportName>Report</ReportName>
|
||||
<ReportUnit>Centimeters</ReportUnit>
|
||||
<ReportVersion>2022.4.5.0</ReportVersion>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -350,7 +350,7 @@
|
||||
<TextRun>
|
||||
<Value>"Este documento es una representación impresa de un CFDI"</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -365,7 +365,7 @@
|
||||
<TextRun>
|
||||
<Value>Folio fiscal: </Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -373,7 +373,7 @@
|
||||
<TextRun>
|
||||
<Value>=Parameters!FolioFiscal.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -386,7 +386,7 @@
|
||||
<TextRun>
|
||||
<Value>Fecha y hora de certificación: </Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -394,7 +394,7 @@
|
||||
<TextRun>
|
||||
<Value>=Parameters!FechaCertificacion.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -402,7 +402,7 @@
|
||||
<TextRun>
|
||||
<Value> Número de serie del Certificado de Sello Digital: </Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -410,7 +410,7 @@
|
||||
<TextRun>
|
||||
<Value>=Parameters!CertificadoContribuyente.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -423,7 +423,7 @@
|
||||
<TextRun>
|
||||
<Value>Sello digital del CFDI: Número de serie del Certificado de Sello Digital del SAT: </Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -431,7 +431,7 @@
|
||||
<TextRun>
|
||||
<Value>=Parameters!SerieCertificadoSAT.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -444,7 +444,7 @@
|
||||
<TextRun>
|
||||
<Value>=Parameters!SelloCFDI.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -457,7 +457,7 @@
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -470,7 +470,7 @@
|
||||
<TextRun>
|
||||
<Value>Cadena original del complemento de certificación digital del SAT:</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -483,7 +483,7 @@
|
||||
<TextRun>
|
||||
<Value>=Parameters!CadenaOriginal.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -496,7 +496,7 @@
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -509,7 +509,7 @@
|
||||
<TextRun>
|
||||
<Value>Sello digital del SAT:</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
@@ -522,7 +522,7 @@
|
||||
<TextRun>
|
||||
<Value>=Parameters!SelloSAT.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>MYRIAd Pro</FontFamily>
|
||||
<FontFamily>Myriad Pro</FontFamily>
|
||||
<FontSize>6pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
|
||||
@@ -345,8 +345,9 @@
|
||||
<label class="col-md-4">Importe</label>
|
||||
<div class="col-md-8">
|
||||
|
||||
<asp:TextBox ID="TxtImporte" runat="server" CssClass="form-control col-md-6" type="number"
|
||||
<asp:TextBox ID="TxtImporte" runat="server" CssClass="form-control col-md-6"
|
||||
Width="50%"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtImporte" FilterType="Custom" ValidChars="1234567890." />
|
||||
<div class="input-group col-md-6" style="width: 50%">
|
||||
<div class="input-group-addon">
|
||||
<i class="fa fa-usd"></i>
|
||||
|
||||
@@ -462,8 +462,9 @@
|
||||
<label class="col-md-4">Importe</label>
|
||||
<div class="col-md-8">
|
||||
|
||||
<asp:TextBox ID="TxtImporte" runat="server" CssClass="form-control col-md-6" type="number"
|
||||
<asp:TextBox ID="TxtImporte" runat="server" CssClass="form-control col-md-6"
|
||||
Width="40%"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtImporte" FilterType="Custom" ValidChars="1234567890." />
|
||||
<div class="input-group col-md-6" style="width: 59%">
|
||||
<div class="input-group-addon">
|
||||
<i class="fa fa-usd"></i>
|
||||
|
||||
@@ -4838,7 +4838,7 @@
|
||||
<div class="modal-content">
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">Correo</h4>
|
||||
<h4 class="modal-title">Envio de Correo</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpSendMail" runat="server" UpdateMode="Conditional">
|
||||
|
||||
@@ -2289,6 +2289,8 @@ Partial Class Clientes
|
||||
If Dr IsNot Nothing Then
|
||||
Cuerpo = Cuerpo.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
@@ -2307,6 +2309,10 @@ Partial Class Clientes
|
||||
If Dr IsNot Nothing Then
|
||||
Asunto = Asunto.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
@@ -2327,6 +2333,10 @@ Partial Class Clientes
|
||||
If Dr IsNot Nothing Then
|
||||
Cuerpo = Cuerpo.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
@@ -2344,6 +2354,8 @@ Partial Class Clientes
|
||||
If Dr IsNot Nothing Then
|
||||
Asunto = Asunto.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
@@ -2354,7 +2366,7 @@ Partial Class Clientes
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Cuerpo = $"{Cuerpo} <br> {TxtBody.Text}"
|
||||
|
||||
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
||||
Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
|
||||
@@ -5751,6 +5763,10 @@ Partial Class Clientes
|
||||
If Dr IsNot Nothing Then
|
||||
Cuerpo = Cuerpo.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
@@ -5769,6 +5785,8 @@ Partial Class Clientes
|
||||
If Dr IsNot Nothing Then
|
||||
Asunto = Asunto.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
@@ -5789,6 +5807,8 @@ Partial Class Clientes
|
||||
If Dr IsNot Nothing Then
|
||||
Cuerpo = Cuerpo.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
@@ -5807,6 +5827,8 @@ Partial Class Clientes
|
||||
If Dr IsNot Nothing Then
|
||||
Asunto = Asunto.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
@@ -5819,7 +5841,7 @@ Partial Class Clientes
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Cuerpo = $"{Cuerpo}<br>{TxtBody2.Text}"
|
||||
|
||||
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto2.Value.Contiene("Ing", "Egs") Then
|
||||
If File.Exists($"{Ruta}PDF\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.pdf") AndAlso File.Exists($"{Ruta}XML\{HdnTipoDocto2.Value}\{HdnFolioVenta2.Value}.xml") Then
|
||||
|
||||
@@ -417,6 +417,9 @@
|
||||
<li>
|
||||
<asp:LinkButton ID="LbVerificarExistencia" Visible="false" runat="server"><i class='fa fa-list-alt'></i>Verificar Existencias</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkEnvioDeCorreoFactura" runat="server" CausesValidation="False" OnClick="LnkEnvioDeCorreoFactura_Click" Visible="false" > <i class="fa fa-envelope-o" aria-hidden="true"></i> Envio De Correo</asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />
|
||||
@@ -9319,6 +9322,64 @@
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div id="ModalDivMailFactura" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
|
||||
<div class="modal-content">
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">Envio de Correo</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpSendMailFactura" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:HiddenField ID="HdnCveVentaFactura" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HdnFolioVenta" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HdnTipoDocto" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HdnSerieFolio" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HdnSubProyecto" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HiddenField2" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<div class="row">
|
||||
<div class="col-xs-4">Para:</div>
|
||||
<div class="col-xs-8">
|
||||
<asp:TextBox ID="TxtParaMailFactura" runat="server" Width="370px" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-xs-4">
|
||||
Con copia para:<br />
|
||||
(Separar con: ;)
|
||||
|
||||
</div>
|
||||
<div class="col-xs-8">
|
||||
<asp:TextBox ID="TxtCCFactura" runat="server" TextMode="MultiLine" Columns="3" Rows="3" CssClass="form-control"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-xs-4">Texto Adicional:</div>
|
||||
<div class="col-xs-8">
|
||||
<asp:TextBox ID="TxtBodyFactura" runat="server" TextMode="MultiLine" Columns="3" Rows="3" CssClass="form-control"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<asp:Button ID="BtnSendMailFactura" Text="Enviar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" OnClick="BtnSendMailFactura_Click" />
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
|
||||
|
||||
@@ -2103,6 +2103,23 @@ Partial Class Ventas
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Private Property CobranzaCorreo As String
|
||||
Get
|
||||
If ViewState("CobranzaCorreo") Is Nothing Then
|
||||
ViewState("CobranzaCorreo") = ""
|
||||
End If
|
||||
Return ViewState("CobranzaCorreo").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("CobranzaCorreo") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
|
||||
Private Property VentaDesglosaIEPS As Boolean
|
||||
Get
|
||||
Return CBool(IfNull(ViewState("VentaDesglosaIEPS"), "False", ViewState("VentaDesglosaIEPS")))
|
||||
@@ -2976,6 +2993,8 @@ Partial Class Ventas
|
||||
|
||||
End If
|
||||
|
||||
LnkEnvioDeCorreoFactura.Visible = True
|
||||
|
||||
Else
|
||||
TxtFechaOS.Text = NowADS().ToDateTime.ToString("yyyy-MM-dd HH:mm").Replace(" ", "T")
|
||||
|
||||
@@ -6910,7 +6929,7 @@ Partial Class Ventas
|
||||
EnviarCorreoCliente = ObjCliente.EnviarFactura
|
||||
EstatusCliente = ObjCliente.Estatus
|
||||
EsFilial = ObjCliente.EsFilial
|
||||
|
||||
CobranzaCorreo = ObjCliente.CobranzaCorreo
|
||||
Me.PermiteCredito = ObjCliente.PermiteCredito
|
||||
LnkAgregarCliente.Visible = False
|
||||
|
||||
@@ -40875,5 +40894,256 @@ Partial Class Ventas
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkEnvioDeCorreoFactura_Click(sender As Object, e As EventArgs)
|
||||
'HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolioCP").ToString()
|
||||
TxtParaMailFactura.Text = CobranzaCorreo
|
||||
HdnSerieFolio.Value = If(ViewState("Serie").ToString.Trim.Length > 0, $"{ViewState("Serie").ToString}-{ViewState("Folio").ToString}", ViewState("Folio").ToString)
|
||||
HdnFolioVenta.Value = If(ViewState("Serie").ToString.Trim.Length > 0, $"{ViewState("Serie").ToString}-{ViewState("Folio").ToString}", ViewState("Folio").ToString)
|
||||
HdnTipoDocto.Value = DdlTipoComprobante.SelectedValue
|
||||
HdnCveVentaFactura.Value = CveVenta.ToString
|
||||
|
||||
UpSendMailFactura.Update()
|
||||
RegistraScript("$('#ModalDivMailFactura').modal();")
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnSendMailFactura_Click(sender As Object, e As EventArgs)
|
||||
Try
|
||||
|
||||
If HdnCveVentaFactura.Value <> "-1" AndAlso HdnFolioVenta.Value <> "-1" Then
|
||||
|
||||
Dim ArchivoPDF As String = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, HdnTipoDocto.Value, HdnFolioVenta.Value)
|
||||
'REGENERAR EL PDF
|
||||
If Not File.Exists(ArchivoPDF) Then
|
||||
Try
|
||||
GenerarPDFVenta(HdnCveVentaFactura.Value.ToEntero(), AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al regenerar el PDF", ex)
|
||||
End Try
|
||||
End If
|
||||
|
||||
Dim ObjMail As New ClsSisMail()
|
||||
Dim Ruta As String = UsuarioActual.Empresa.Ruta
|
||||
|
||||
Dim Cuerpo As String = TxtBodyFactura.Text
|
||||
Dim Asunto As String = ""
|
||||
Dim TipoComprobante As String = ""
|
||||
Dim Adjunto As String = ""
|
||||
|
||||
If DdlTipoComprobante.SelectedValue.ToString() = "Ing" Then TipoComprobante = "Factura"
|
||||
If DdlTipoComprobante.SelectedValue.ToString() = "Egs" Then TipoComprobante = "Nota de Crédito"
|
||||
If DdlTipoComprobante.SelectedValue.ToString() = "Dev" Then TipoComprobante = "Nota de Devolución"
|
||||
If DdlTipoComprobante.SelectedValue.ToString() = "Rem" Then TipoComprobante = "Remisión"
|
||||
If DdlTipoComprobante.SelectedValue.ToString() = "Cot" Then TipoComprobante = "Cotización"
|
||||
If DdlTipoComprobante.SelectedValue.ToString() = "Ant" Then TipoComprobante = "Anticipo"
|
||||
|
||||
Dim DisplayName As String = ""
|
||||
If UsuarioActual.CveEmpresa = 119 Then DisplayName = "Facturación Agroquímicos JAM"
|
||||
|
||||
Dim ObjVenta As New ClsVentas
|
||||
Dim Dr As DataRow = Nothing
|
||||
If ObjVenta.GetVenta(HdnCveVentaFactura.Value.ToEntero(), UsuarioActual.CveEmpresa) Then
|
||||
If ObjVenta.DtResultados.Rows.Count > 0 Then
|
||||
Dr = ObjVenta.DtResultados.Rows(0)
|
||||
End If
|
||||
End If
|
||||
ObjVenta.Dispose()
|
||||
|
||||
If HdnTipoDocto.Value.ToString() = "Cot" Then
|
||||
|
||||
If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
|
||||
|
||||
Cuerpo = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
|
||||
Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
|
||||
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
|
||||
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
|
||||
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
|
||||
|
||||
If Dr IsNot Nothing Then
|
||||
Cuerpo = Cuerpo.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
|
||||
End If
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
|
||||
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
|
||||
Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
|
||||
Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
|
||||
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
|
||||
Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
|
||||
|
||||
If Dr IsNot Nothing Then
|
||||
Asunto = Asunto.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
|
||||
Asunto = Asunto.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
|
||||
Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
|
||||
Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
|
||||
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
|
||||
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
|
||||
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
|
||||
If Dr IsNot Nothing Then
|
||||
Cuerpo = Cuerpo.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
|
||||
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
|
||||
Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
|
||||
End If
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
|
||||
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
|
||||
Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
|
||||
Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
|
||||
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
|
||||
Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
|
||||
If Dr IsNot Nothing Then
|
||||
Asunto = Asunto.Replace("{""FechaFactura""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""ImporteFactura""}", Dr("Total").ToString().FormatoNumero())
|
||||
Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
|
||||
Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
|
||||
Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString())
|
||||
Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString())
|
||||
Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString())
|
||||
Asunto = Asunto.Replace("{""DescripcionVenta""}", Dr("DescripcionVenta").ToString())
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Cuerpo = $"{Cuerpo} <br> {TxtBodyFactura.Text}"
|
||||
|
||||
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
||||
Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
|
||||
Dim XML As String = $"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml"
|
||||
If File.Exists(PDF) AndAlso File.Exists(XML) Then
|
||||
|
||||
Dim ResultadoMail As Integer = 0
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = XML})
|
||||
|
||||
If Dr("Adjunto").ToString() <> "" Then
|
||||
Adjunto = Dr("Adjunto").ToString()
|
||||
Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}"
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto})
|
||||
End If
|
||||
|
||||
'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
|
||||
If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMailFactura.Text.Trim, Asunto, Cuerpo, TxtCCFactura.Text.Trim, LSRutasMail, Displayname:=DisplayName) Then
|
||||
ResultadoMail = 1
|
||||
TxtCCFactura.Text = ""
|
||||
TxtBodyFactura.Text = ""
|
||||
RegistraScript("$('#ModalDivMailFactura').modal('hide');")
|
||||
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
ResultadoMail = 3
|
||||
Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVentaFactura.Value.ToEntero())
|
||||
ObjVentas.Dispose()
|
||||
Else
|
||||
Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ElseIf HdnTipoDocto.Value.Contiene("Cot", "Rem") Then
|
||||
If File.Exists($"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf") Then
|
||||
Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
|
||||
|
||||
Dim ResultadoMail As Integer = 0
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
|
||||
If Dr("Adjunto").ToString() <> "" Then
|
||||
Adjunto = Dr("Adjunto").ToString()
|
||||
Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}"
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto})
|
||||
End If
|
||||
'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
|
||||
If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMailFactura.Text.Trim, Asunto, Cuerpo, TxtCCFactura.Text.Trim, LSRutasMail) Then
|
||||
ResultadoMail = 1
|
||||
TxtCCFactura.Text = ""
|
||||
TxtBodyFactura.Text = ""
|
||||
RegistraScript("$('#ModalDivMailFactura').modal('hide');")
|
||||
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
ResultadoMail = 3
|
||||
End If
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVentaFactura.Value.ToEntero())
|
||||
ObjVentas.Dispose()
|
||||
Else
|
||||
Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
|
||||
End If
|
||||
End If
|
||||
|
||||
'End If
|
||||
'ObjEmprea.Dispose()
|
||||
ElseIf HdnSerieFolioPago.Value <> "-1" Then
|
||||
|
||||
Dim ObjMail As New ClsSisMail()
|
||||
Dim RutaXML As String = String.Format("{0}XML\Pag\{1}.xml", UsuarioActual.Empresa.Ruta, HdnSerieFolioPago.Value)
|
||||
Dim RutaPDF As String = String.Format("{0}PDF\Pag\{1}.pdf", UsuarioActual.Empresa.Ruta, HdnSerieFolioPago.Value)
|
||||
|
||||
Dim Cuerpo As String = "Se hace entrega del comprobante de pago"
|
||||
Dim Asunto As String = "Entrega de comprobante de pago"
|
||||
|
||||
If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then
|
||||
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF})
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML})
|
||||
|
||||
If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMailFactura.Text.Trim, Asunto, Cuerpo, TxtCCFactura.Text.Trim, LSRutasMail) Then
|
||||
TxtCCFactura.Text = ""
|
||||
RegistraScript("$('#ModalDivMailFactura').modal('hide');")
|
||||
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Else
|
||||
Alert("No se encontraron los archivos para enviar.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
Else
|
||||
Alert("No se seleccionó ninguna factura para envíar.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió error al mandar MAIL", ex)
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.UpdateVentaMail(3, HdnCveVentaFactura.Value.ToEntero())
|
||||
ObjVentas.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user