Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsPaginas.vb

@@ -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

Empresas/189/Formatos/Cotizacion.mrt

@@ -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>
+          <ClientRectangle>0,0.4,20.8,5.4</ClientRectangle>
-          <Components isList="true" count="6">
+          <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>12.8,0.4,7.8,0.4</ClientRectangle>
-              <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>
               <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>

Empresas/189/Formatos/Traspaso.rdlc

@@ -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>

Transportes/RepContratoDetalle.aspx

@@ -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>

Transportes/RepContratos.aspx

@@ -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>

Ventas/Clientes.aspx

@@ -4838,7 +4838,7 @@
             <div class="modal-content">
                 <div class="modal-header ">
                     <button type="button" class="close" data-dismiss="modal">&times;</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">

Ventas/Clientes.aspx.vb

@@ -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

Ventas/Ventas.aspx

@@ -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">&times;</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>

Ventas/Ventas.aspx.vb

@@ -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