-merge

App_Code/ClsClientes.vb

@@ -172,6 +172,9 @@ Public Class ClsClientes
         End Get
     End Property
 
+    Public Property CodigoRegimenFiscal As String
+    Public Property RegimenFiscal As String
+
 #End Region
 
     Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
@@ -426,6 +429,9 @@ Public Class ClsClientes
                 _BonificacionUsado = CBool(Data(0)("BonificacionUsado"))
                 _CveSATEstado = Data(0)("CveSATEstado").ToString.ToEntero
 
+                _RegimenFiscal = Data(0)("RegimenFiscal").ToString
+                _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString
+
             End If
             Retorno = True
         Catch ex As Exception
@@ -435,6 +441,8 @@ Public Class ClsClientes
         Return Retorno
     End Function
 
+
+
     Public Function GetSiguienteCodigoCliente(CveEmpresa As Integer) As Integer
 
         Dim Codigo As Integer = 0

App_Code/ClsPaginas.vb

@@ -6012,11 +6012,17 @@ Public Class ClsPaginas
             RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
         End If
 
-        If EsProduccion AndAlso SubReportData Is Nothing Then
+        If EsProduccion Then
 
-            Dim wsreport As New WSRDLC.WebServiceSoapClient
+            Dim wsreport As New WSRDLC2.WebServiceSoapClient
-            Dim params As New List(Of WSRDLC.ReportParameter)
+            Dim params As New List(Of WSRDLC2.ReportParameter)
-            Dim reportobjects As New List(Of WSRDLC.ReportObjects)
+            Dim reportobjects As New List(Of WSRDLC2.ReportObjects)
+
+            Dim jsonData As String = Nothing
+
+            If SubReportData IsNot Nothing Then
+                jsonData = Newtonsoft.Json.JsonConvert.SerializeObject(SubReportData)
+            End If
 
             Dim ds As New DataSet
             For Each rpds As ReportDataSource In DataSource
@@ -6026,7 +6032,7 @@ Public Class ClsPaginas
                     dt.TableName = rpds.Name
                     ds.Tables.Add(dt)
                 Else
-                    Dim ojext As New WSRDLC.ReportObjects
+                    Dim ojext As New WSRDLC2.ReportObjects
                     ojext.Name = rpds.Name
                     ojext.Value = rpds.Value
                     reportobjects.Add(ojext)
@@ -6034,7 +6040,7 @@ Public Class ClsPaginas
             Next
 
             For Each rpds As ReportParameter In Parametros
-                Dim param As New WSRDLC.ReportParameter
+                Dim param As New WSRDLC2.ReportParameter
                 param.Name = rpds.Name
 
                 'SI ES TEXTO, QUITAR TABS Y OTROS ESPACIOS QUE DEN PROBLEMAS AL MANDAR LA PETICION
@@ -6047,7 +6053,7 @@ Public Class ClsPaginas
                 params.Add(param)
             Next
 
-            Bytes = wsreport.StreamNEWPDFBytes(RutaReporte, ds, reportobjects.ToArray(), params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
+            Bytes = wsreport.StreamNEWPDFBytes(RutaReporte, ds, reportobjects.ToArray(), params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario, jsonData)
             wsreport = Nothing
             params = Nothing
             ds.Dispose() : ds = Nothing
@@ -8872,6 +8878,11 @@ Public Class ClsPaginas
         Dim TotalLetra = ""
 
         Dim FechaRecibo = ""
+        Dim RegimenFiscalCodigo As String = ""
+        Dim CFDIVersion As String = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", "4.0", "3.3")
+
+
+
 
         'DT PAGO
         Dim DTConceptosPago As New DataTable
@@ -8896,6 +8907,47 @@ Public Class ClsPaginas
         DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String))
         DTConceptosPagoRelacionado.Columns.Add("ObjetoImpDR", GetType(String))
 
+        DTConceptosPagoRelacionado.Columns.Add("Tra001ImpuestoDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra001TipoFactorDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra001TasaOCuotaDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra001ImporteDR", GetType(Decimal))
+
+        DTConceptosPagoRelacionado.Columns.Add("Tra002ImpuestoDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra002TipoFactorDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra002TasaOCuotaDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra002ImporteDR", GetType(Decimal))
+
+        DTConceptosPagoRelacionado.Columns.Add("Tra003ImpuestoDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra003TipoFactorDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra003TasaOCuotaDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Tra003ImporteDR", GetType(Decimal))
+
+
+        DTConceptosPagoRelacionado.Columns.Add("Ret001ImpuestoDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret001TipoFactorDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret001TasaOCuotaDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret001ImporteDR", GetType(Decimal))
+
+        DTConceptosPagoRelacionado.Columns.Add("Ret002ImpuestoDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret002TipoFactorDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret002TasaOCuotaDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret002ImporteDR", GetType(Decimal))
+
+        DTConceptosPagoRelacionado.Columns.Add("Ret003ImpuestoDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret003TipoFactorDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret003TasaOCuotaDR", GetType(String))
+        DTConceptosPagoRelacionado.Columns.Add("Ret003ImporteDR", GetType(Decimal))
+
+
+
+        '001 ISR
+        '002 IVA
+        '003 IEPS
+        'Impuetos
+        'Retenciones
+
+
+
         Dim ObjBancos As New ClsBancos
         If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then
             Serie = ObjBancos.DtResultados.FiltroPrimeroValor("Serie")
@@ -8938,6 +8990,14 @@ Public Class ClsPaginas
             params.Add(New ReportParameter("ClienteEstado", ObjClientes.Estado))
             params.Add(New ReportParameter("ClienteCP", ObjClientes.CP))
             params.Add(New ReportParameter("ClienteRFC", ObjClientes.RFC))
+
+
+            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                If ObjClientes.CodigoRegimenFiscal.ToString.Length > 0 Then
+                    RegimenFiscalCodigo = $"{ObjClientes.CodigoRegimenFiscal}-{ObjClientes.RegimenFiscal}"
+                End If
+            End If
+
         End If
 
         ObjClientes.Dispose()
@@ -8974,6 +9034,7 @@ Public Class ClsPaginas
 
             Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento")
             Dim validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos")
+
             If Version = "3.3" Then
                 cfdVer = "http://www.sat.gob.mx/cfd/3"
                 PagoVersion = "pago10"
@@ -8981,6 +9042,19 @@ Public Class ClsPaginas
                 cfdVer = "http://www.sat.gob.mx/cfd/4"
             End If
 
+
+            If Version = "4.0" Then
+
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                    params.Add(New ReportParameter("CFDIVersion", Version))
+                    If ObjClientes.CodigoRegimenFiscal.ToString.Length > 0 Then
+                        params.Add(New ReportParameter("RegimenFiscalCodigo", RegimenFiscalCodigo))
+                    End If
+                End If
+            End If
+
+
+
             namespaces.AddNamespace(Prefijo, cfdVer)
             namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
             namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
@@ -9044,7 +9118,92 @@ Public Class ClsPaginas
                         If Version = "4.0" Then DrRelacionado("ObjetoImpDR") = Relacionado.Attributes("ObjetoImpDR").Value
 
                         DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value
+
+
+                        If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso Version = "4.0" Then
+
+
+
+                            ' Relacionado.SelectSingleNode($"//{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
+
+                            'Dim NodoImpuestosDR As XmlNode = Relacionado.SelectSingleNode($"{PagoVersion}:ImpuestosDR", namespaces)
+                            'Dim NodoTrasladosDR As XmlNode = NodoImpuestosDR.SelectSingleNode($"{PagoVersion}:TrasladosDR", namespaces)
+                            'Dim TrasladoDR As XmlNodeList = NodoTrasladosDR.ChildNodes
+
+                            Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
+                            For Each NodoTraslados As XmlNode In NodosTraslados
+
+                                Dim ImpuestoDR As String = ValorXML(NodoTraslados, "ImpuestoDR")  ' ImpuestoDR
+                                Dim TipoFactor As String = ValorXML(NodoTraslados, "TipoFactorDR")
+                                Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR")
+                                Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal
+
+
+                                If ImpuestoDR = "001" Then
+                                    DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR
+                                    DrRelacionado("Tra001TipoFactorDR") = TipoFactor
+                                    DrRelacionado("Tra001TasaOCuotaDR") = TasaOCuotaDR
+                                    DrRelacionado("Tra001ImporteDR") = ImporteDR
+                                End If
+
+                                If ImpuestoDR = "002" Then
+                                    DrRelacionado("Tra002ImpuestoDR") = ImpuestoDR
+                                    DrRelacionado("Tra002TipoFactorDR") = TipoFactor
+                                    DrRelacionado("Tra002TasaOCuotaDR") = TasaOCuotaDR
+                                    DrRelacionado("Tra002ImporteDR") = ImporteDR
+                                End If
+
+                                If ImpuestoDR = "003" Then
+                                    DrRelacionado("Tra003ImpuestoDR") = ImpuestoDR
+                                    DrRelacionado("Tra003TipoFactorDR") = TipoFactor
+                                    DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR
+                                    DrRelacionado("Tra003ImporteDR") = ImporteDR
+                                End If
+
+                            Next
+
+
+                            For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces)
+
+
+                                Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR")  ' ImpuestoDR
+                                Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR")
+                                Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR")
+                                Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal
+
+
+                                If ImpuestoDR = "001" Then
+                                    DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR
+                                    DrRelacionado("Ret001TipoFactorDR") = TipoFactor
+                                    DrRelacionado("Ret001TasaOCuotaDR") = TasaOCuotaDR
+                                    DrRelacionado("Ret001ImporteDR") = ImporteDR
+                                End If
+
+                                If ImpuestoDR = "002" Then
+                                    DrRelacionado("Ret002ImpuestoDR") = ImpuestoDR
+                                    DrRelacionado("Ret002TipoFactorDR") = TipoFactor
+                                    DrRelacionado("Ret002TasaOCuotaDR") = TasaOCuotaDR
+                                    DrRelacionado("Ret002ImporteDR") = ImporteDR
+                                End If
+
+                                If ImpuestoDR = "003" Then
+                                    DrRelacionado("Ret003ImpuestoDR") = ImpuestoDR
+                                    DrRelacionado("Ret003TipoFactorDR") = TipoFactor
+                                    DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR
+                                    DrRelacionado("Ret003ImporteDR") = ImporteDR
+                                End If
+
+                            Next
+
+
+
+
+                        End If
+
                         DTConceptosPagoRelacionado.Rows.Add(DrRelacionado)
+
+
+
                     Next
 
                 End If

App_WebReferences/WSRDLC2/Reference.svcmap

@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ReferenceGroup xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ID="2105a997-fa03-4807-8d26-cbfb76ae1932" xmlns="urn:schemas-microsoft-com:xml-wcfservicemap">
+  <ClientOptions>
+    <GenerateAsynchronousMethods>false</GenerateAsynchronousMethods>
+    <EnableDataBinding>true</EnableDataBinding>
+    <ExcludedTypes />
+    <ImportXmlTypes>false</ImportXmlTypes>
+    <GenerateInternalTypes>false</GenerateInternalTypes>
+    <GenerateMessageContracts>false</GenerateMessageContracts>
+    <NamespaceMappings />
+    <CollectionMappings />
+    <GenerateSerializableTypes>true</GenerateSerializableTypes>
+    <Serializer>Auto</Serializer>
+    <UseSerializerForFaults>true</UseSerializerForFaults>
+    <ReferenceAllAssemblies>true</ReferenceAllAssemblies>
+    <ReferencedAssemblies />
+    <ReferencedDataContractTypes />
+    <ServiceContractMappings />
+  </ClientOptions>
+  <MetadataSources>
+    <MetadataSource Address="http://localhost:7999/WebService.asmx" Protocol="http" SourceId="1" />
+  </MetadataSources>
+  <Metadata>
+    <MetadataFile FileName="WebService.disco" MetadataType="Disco" ID="0abaa1a0-3fdc-4ecb-a1c7-88bc3c7f8fb7" SourceId="1" SourceUrl="http://localhost:7999/WebService.asmx?disco" />
+    <MetadataFile FileName="WebService.wsdl" MetadataType="Wsdl" ID="a3713287-032e-47a0-ad01-24b755d2f1e5" SourceId="1" SourceUrl="http://localhost:7999/WebService.asmx?wsdl" />
+  </Metadata>
+  <Extensions>
+    <ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />
+    <ExtensionFile FileName="configuration.svcinfo" Name="configuration.svcinfo" />
+  </Extensions>
+</ReferenceGroup>

App_WebReferences/WSRDLC2/WebService.disco

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<discovery xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/disco/">
+  <contractRef ref="http://localhost:7999/WebService.asmx?wsdl" docRef="http://localhost:7999/WebService.asmx" xmlns="http://schemas.xmlsoap.org/disco/scl/" />
+  <soap address="http://localhost:7999/WebService.asmx" xmlns:q1="http://tempuri.org/" binding="q1:WebServiceSoap" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
+  <soap address="http://localhost:7999/WebService.asmx" xmlns:q2="http://tempuri.org/" binding="q2:WebServiceSoap12" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
+</discovery>

App_WebReferences/WSRDLC2/WebService.wsdl

@@ -0,0 +1,312 @@
+<?xml version="1.0" encoding="utf-8"?>
+<wsdl:definitions xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:tns="http://tempuri.org/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" targetNamespace="http://tempuri.org/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+  <wsdl:types>
+    <s:schema elementFormDefault="qualified" targetNamespace="http://tempuri.org/">
+      <s:element name="HelloWorld">
+        <s:complexType />
+      </s:element>
+      <s:element name="HelloWorldResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="HelloWorldResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="StreamPDF">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="RutaReporte" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="source">
+              <s:complexType>
+                <s:sequence>
+                  <s:element ref="s:schema" />
+                  <s:any />
+                </s:sequence>
+              </s:complexType>
+            </s:element>
+            <s:element minOccurs="0" maxOccurs="1" name="Parametros" type="tns:ArrayOfReportParameter" />
+            <s:element minOccurs="0" maxOccurs="1" name="NombreArchivo" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Formato" type="s:string" />
+            <s:element minOccurs="1" maxOccurs="1" name="CveEmpresa" type="s:int" />
+            <s:element minOccurs="1" maxOccurs="1" name="CveUsuario" type="s:int" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:complexType name="ArrayOfReportParameter">
+        <s:sequence>
+          <s:element minOccurs="0" maxOccurs="unbounded" name="ReportParameter" nillable="true" type="tns:ReportParameter" />
+        </s:sequence>
+      </s:complexType>
+      <s:complexType name="ReportParameter">
+        <s:sequence>
+          <s:element minOccurs="0" maxOccurs="1" name="Name" type="s:string" />
+          <s:element minOccurs="0" maxOccurs="1" name="Values" type="tns:ArrayOfString" />
+          <s:element minOccurs="1" maxOccurs="1" name="Visible" type="s:boolean" />
+        </s:sequence>
+      </s:complexType>
+      <s:complexType name="ArrayOfString">
+        <s:sequence>
+          <s:element minOccurs="0" maxOccurs="unbounded" name="string" nillable="true" type="s:string" />
+        </s:sequence>
+      </s:complexType>
+      <s:element name="StreamPDFResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="StreamPDFResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="StreamPDFBytes">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="RutaReporte" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="source">
+              <s:complexType>
+                <s:sequence>
+                  <s:element ref="s:schema" />
+                  <s:any />
+                </s:sequence>
+              </s:complexType>
+            </s:element>
+            <s:element minOccurs="0" maxOccurs="1" name="Parametros" type="tns:ArrayOfReportParameter" />
+            <s:element minOccurs="0" maxOccurs="1" name="NombreArchivo" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Formato" type="s:string" />
+            <s:element minOccurs="1" maxOccurs="1" name="CveEmpresa" type="s:int" />
+            <s:element minOccurs="1" maxOccurs="1" name="CveUsuario" type="s:int" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="StreamPDFBytesResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="StreamPDFBytesResult" type="s:base64Binary" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="StreamNEWPDF">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="RutaReporte" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="source">
+              <s:complexType>
+                <s:sequence>
+                  <s:element ref="s:schema" />
+                  <s:any />
+                </s:sequence>
+              </s:complexType>
+            </s:element>
+            <s:element minOccurs="0" maxOccurs="1" name="reportobjects" type="tns:ArrayOfReportObjects" />
+            <s:element minOccurs="0" maxOccurs="1" name="Parametros" type="tns:ArrayOfReportParameter" />
+            <s:element minOccurs="0" maxOccurs="1" name="NombreArchivo" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Formato" type="s:string" />
+            <s:element minOccurs="1" maxOccurs="1" name="CveEmpresa" type="s:int" />
+            <s:element minOccurs="1" maxOccurs="1" name="CveUsuario" type="s:int" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:complexType name="ArrayOfReportObjects">
+        <s:sequence>
+          <s:element minOccurs="0" maxOccurs="unbounded" name="ReportObjects" nillable="true" type="tns:ReportObjects" />
+        </s:sequence>
+      </s:complexType>
+      <s:complexType name="ReportObjects">
+        <s:sequence>
+          <s:element minOccurs="0" maxOccurs="1" name="Name" type="s:string" />
+          <s:element minOccurs="0" maxOccurs="1" name="Value" />
+        </s:sequence>
+      </s:complexType>
+      <s:element name="StreamNEWPDFResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="StreamNEWPDFResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="StreamNEWPDFBytes">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="RutaReporte" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="source">
+              <s:complexType>
+                <s:sequence>
+                  <s:element ref="s:schema" />
+                  <s:any />
+                </s:sequence>
+              </s:complexType>
+            </s:element>
+            <s:element minOccurs="0" maxOccurs="1" name="reportobjects" type="tns:ArrayOfReportObjects" />
+            <s:element minOccurs="0" maxOccurs="1" name="Parametros" type="tns:ArrayOfReportParameter" />
+            <s:element minOccurs="0" maxOccurs="1" name="NombreArchivo" type="s:string" />
+            <s:element minOccurs="0" maxOccurs="1" name="Formato" type="s:string" />
+            <s:element minOccurs="1" maxOccurs="1" name="CveEmpresa" type="s:int" />
+            <s:element minOccurs="1" maxOccurs="1" name="CveUsuario" type="s:int" />
+            <s:element minOccurs="0" maxOccurs="1" name="JsonSubReportData" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="StreamNEWPDFBytesResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="StreamNEWPDFBytesResult" type="s:base64Binary" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+    </s:schema>
+  </wsdl:types>
+  <wsdl:message name="HelloWorldSoapIn">
+    <wsdl:part name="parameters" element="tns:HelloWorld" />
+  </wsdl:message>
+  <wsdl:message name="HelloWorldSoapOut">
+    <wsdl:part name="parameters" element="tns:HelloWorldResponse" />
+  </wsdl:message>
+  <wsdl:message name="StreamPDFSoapIn">
+    <wsdl:part name="parameters" element="tns:StreamPDF" />
+  </wsdl:message>
+  <wsdl:message name="StreamPDFSoapOut">
+    <wsdl:part name="parameters" element="tns:StreamPDFResponse" />
+  </wsdl:message>
+  <wsdl:message name="StreamPDFBytesSoapIn">
+    <wsdl:part name="parameters" element="tns:StreamPDFBytes" />
+  </wsdl:message>
+  <wsdl:message name="StreamPDFBytesSoapOut">
+    <wsdl:part name="parameters" element="tns:StreamPDFBytesResponse" />
+  </wsdl:message>
+  <wsdl:message name="StreamNEWPDFSoapIn">
+    <wsdl:part name="parameters" element="tns:StreamNEWPDF" />
+  </wsdl:message>
+  <wsdl:message name="StreamNEWPDFSoapOut">
+    <wsdl:part name="parameters" element="tns:StreamNEWPDFResponse" />
+  </wsdl:message>
+  <wsdl:message name="StreamNEWPDFBytesSoapIn">
+    <wsdl:part name="parameters" element="tns:StreamNEWPDFBytes" />
+  </wsdl:message>
+  <wsdl:message name="StreamNEWPDFBytesSoapOut">
+    <wsdl:part name="parameters" element="tns:StreamNEWPDFBytesResponse" />
+  </wsdl:message>
+  <wsdl:portType name="WebServiceSoap">
+    <wsdl:operation name="HelloWorld">
+      <wsdl:input message="tns:HelloWorldSoapIn" />
+      <wsdl:output message="tns:HelloWorldSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="StreamPDF">
+      <wsdl:input message="tns:StreamPDFSoapIn" />
+      <wsdl:output message="tns:StreamPDFSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="StreamPDFBytes">
+      <wsdl:input message="tns:StreamPDFBytesSoapIn" />
+      <wsdl:output message="tns:StreamPDFBytesSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="StreamNEWPDF">
+      <wsdl:input message="tns:StreamNEWPDFSoapIn" />
+      <wsdl:output message="tns:StreamNEWPDFSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="StreamNEWPDFBytes">
+      <wsdl:input message="tns:StreamNEWPDFBytesSoapIn" />
+      <wsdl:output message="tns:StreamNEWPDFBytesSoapOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:binding name="WebServiceSoap" type="tns:WebServiceSoap">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
+    <wsdl:operation name="HelloWorld">
+      <soap:operation soapAction="http://tempuri.org/HelloWorld" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="StreamPDF">
+      <soap:operation soapAction="http://tempuri.org/StreamPDF" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="StreamPDFBytes">
+      <soap:operation soapAction="http://tempuri.org/StreamPDFBytes" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="StreamNEWPDF">
+      <soap:operation soapAction="http://tempuri.org/StreamNEWPDF" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="StreamNEWPDFBytes">
+      <soap:operation soapAction="http://tempuri.org/StreamNEWPDFBytes" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:binding name="WebServiceSoap12" type="tns:WebServiceSoap">
+    <soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
+    <wsdl:operation name="HelloWorld">
+      <soap12:operation soapAction="http://tempuri.org/HelloWorld" style="document" />
+      <wsdl:input>
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap12:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="StreamPDF">
+      <soap12:operation soapAction="http://tempuri.org/StreamPDF" style="document" />
+      <wsdl:input>
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap12:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="StreamPDFBytes">
+      <soap12:operation soapAction="http://tempuri.org/StreamPDFBytes" style="document" />
+      <wsdl:input>
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap12:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="StreamNEWPDF">
+      <soap12:operation soapAction="http://tempuri.org/StreamNEWPDF" style="document" />
+      <wsdl:input>
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap12:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="StreamNEWPDFBytes">
+      <soap12:operation soapAction="http://tempuri.org/StreamNEWPDFBytes" style="document" />
+      <wsdl:input>
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap12:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:service name="WebService">
+    <wsdl:port name="WebServiceSoap" binding="tns:WebServiceSoap">
+      <soap:address location="http://localhost:7999/WebService.asmx" />
+    </wsdl:port>
+    <wsdl:port name="WebServiceSoap12" binding="tns:WebServiceSoap12">
+      <soap12:address location="http://localhost:7999/WebService.asmx" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>

App_WebReferences/WSRDLC2/configuration.svcinfo

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configurationSnapshot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot">
+  <behaviors />
+  <bindings>
+    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;WebServiceSoap1&quot; /&gt;" bindingType="basicHttpBinding" name="WebServiceSoap1" />
+  </bindings>
+  <endpoints>
+    <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://localhost:7999/WebService.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;WebServiceSoap1&quot; contract=&quot;WSRDLC2.WebServiceSoap&quot; name=&quot;WebServiceSoap1&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://localhost:7999/WebService.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;WebServiceSoap1&quot; contract=&quot;WSRDLC2.WebServiceSoap&quot; name=&quot;WebServiceSoap1&quot; /&gt;" contractName="WSRDLC2.WebServiceSoap" name="WebServiceSoap1" />
+  </endpoints>
+</configurationSnapshot>

App_WebReferences/WSRDLC2/configuration91.svcinfo

@@ -0,0 +1,201 @@
+<?xml version="1.0" encoding="utf-8"?>
+<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="P0uAp1SH45jZSSsEEmhR5aLMvQQ=">
+  <bindingConfigurations>
+    <bindingConfiguration bindingType="basicHttpBinding" name="WebServiceSoap1">
+      <properties>
+        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>WebServiceSoap1</serializedValue>
+        </property>
+        <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/allowCookies" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>StrongWildcard</serializedValue>
+        </property>
+        <property path="/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>65536</serializedValue>
+        </property>
+        <property path="/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>0</serializedValue>
+        </property>
+        <property path="/textEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.Text.UTF8Encoding</serializedValue>
+        </property>
+        <property path="/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Buffered</serializedValue>
+        </property>
+        <property path="/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/messageEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.WSMessageEncoding, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Text</serializedValue>
+        </property>
+        <property path="/security" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.BasicHttpSecurityElement</serializedValue>
+        </property>
+        <property path="/security/mode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpSecurityMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>None</serializedValue>
+        </property>
+        <property path="/security/transport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpTransportSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.HttpTransportSecurityElement</serializedValue>
+        </property>
+        <property path="/security/transport/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpClientCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>None</serializedValue>
+        </property>
+        <property path="/security/transport/proxyCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpProxyCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>None</serializedValue>
+        </property>
+        <property path="/security/transport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
+        </property>
+        <property path="/security/transport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Never</serializedValue>
+        </property>
+        <property path="/security/transport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>TransportSelected</serializedValue>
+        </property>
+        <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>(Collection)</serializedValue>
+        </property>
+        <property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpMessageSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.BasicHttpMessageSecurityElement</serializedValue>
+        </property>
+        <property path="/security/message/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpMessageCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>UserName</serializedValue>
+        </property>
+        <property path="/security/message/algorithmSuite" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Security.SecurityAlgorithmSuite, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>Default</serializedValue>
+        </property>
+      </properties>
+    </bindingConfiguration>
+  </bindingConfigurations>
+  <endpoints>
+    <endpoint name="WebServiceSoap1" contract="WSRDLC2.WebServiceSoap" bindingType="basicHttpBinding" address="http://localhost:7999/WebService.asmx" bindingConfiguration="WebServiceSoap1">
+      <properties>
+        <property path="/address" isComplexType="false" isExplicitlyDefined="true" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>http://localhost:7999/WebService.asmx</serializedValue>
+        </property>
+        <property path="/behaviorConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/binding" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>basicHttpBinding</serializedValue>
+        </property>
+        <property path="/bindingConfiguration" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>WebServiceSoap1</serializedValue>
+        </property>
+        <property path="/contract" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>WSRDLC2.WebServiceSoap</serializedValue>
+        </property>
+        <property path="/headers" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.AddressHeaderCollectionElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.AddressHeaderCollectionElement</serializedValue>
+        </property>
+        <property path="/headers/headers" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.Channels.AddressHeaderCollection, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>&lt;Header /&gt;</serializedValue>
+        </property>
+        <property path="/identity" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.IdentityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.IdentityElement</serializedValue>
+        </property>
+        <property path="/identity/userPrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.UserPrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.UserPrincipalNameElement</serializedValue>
+        </property>
+        <property path="/identity/userPrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/identity/servicePrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.ServicePrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.ServicePrincipalNameElement</serializedValue>
+        </property>
+        <property path="/identity/servicePrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/identity/dns" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.DnsElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.DnsElement</serializedValue>
+        </property>
+        <property path="/identity/dns/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/identity/rsa" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.RsaElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.RsaElement</serializedValue>
+        </property>
+        <property path="/identity/rsa/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/identity/certificate" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.CertificateElement</serializedValue>
+        </property>
+        <property path="/identity/certificate/encodedValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/identity/certificateReference" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateReferenceElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>System.ServiceModel.Configuration.CertificateReferenceElement</serializedValue>
+        </property>
+        <property path="/identity/certificateReference/storeName" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreName, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>My</serializedValue>
+        </property>
+        <property path="/identity/certificateReference/storeLocation" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreLocation, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>LocalMachine</serializedValue>
+        </property>
+        <property path="/identity/certificateReference/x509FindType" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.X509FindType, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>FindBySubjectDistinguishedName</serializedValue>
+        </property>
+        <property path="/identity/certificateReference/findValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/identity/certificateReference/isChainIncluded" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>False</serializedValue>
+        </property>
+        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue>WebServiceSoap1</serializedValue>
+        </property>
+        <property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+        <property path="/endpointConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+          <serializedValue />
+        </property>
+      </properties>
+    </endpoint>
+  </endpoints>
+</SavedWcfConfigurationInformation>

Bancos/IE.aspx

@@ -30,8 +30,8 @@
     <li>
         <asp:HyperLink ID="HLModalActualizarTC" NavigateUrl="#" runat="server" Visible="false" data-toggle="modal" data-target="#ModalActualizarTC" Style="color: #686868;"><i class="fa fa-usd" style="color:#686868;"></i> Actualizar Tipo Cambio</asp:HyperLink>
     </li>
-        <li>
+    <li>
-        <asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false"  Style="color: #686868;"><i class="" style="color:#686868;"></i> PrePoliza</asp:HyperLink>
+        <asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="" style="color:#686868;"></i> PrePoliza</asp:HyperLink>
     </li>
 
     <%--     <li>
@@ -44,18 +44,18 @@
                 <asp:LinkButton ID="LnkChqDevuelto" runat="server" Visible="false" OnClick="LnkChqDevuelto_Click" Style="color: #686868;"><i class="fa fa-ban" style="color:#686868;"></i> Cheque Devuelto</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkCancelar" runat="server" Visible="false" OnClick="LnkCancelar_Click" Style="color: #686868;" data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento" ><i class="fa fa-ban" style="color:#686868;"></i> Cancelar Movimiento</asp:LinkButton>
+                <asp:LinkButton ID="LnkCancelar" runat="server" Visible="false" OnClick="LnkCancelar_Click" Style="color: #686868;" data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento"><i class="fa fa-ban" style="color:#686868;"></i> Cancelar Movimiento</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkEliminar" runat="server" Visible="false" OnClientClick="return confirm('¿Está seguro de eliminar el documento?');" Style="color: #686868;"><i class="fa fa-minus" style="color: #686868;"></i> Eliminar Movimiento</asp:LinkButton>
             </li>
-            
+
             <%--<li>
                 <asp:LinkButton ID="LnkCancelarComplemento" OnClick="LnkCancelarComplemento_Click" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-ban" style="color: #686868;"></i> Refacturar Complemento</asp:LinkButton>
             </li>--%>
 
             <li>
-                <asp:LinkButton ID="LnkCancelarComplementoImporte" OnClick="LnkCancelarComplementoImporte_Click" runat="server" Visible="false" data-btn-ok-label="si" Style="color: #686868;"  data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento  y Complemento" > <i class="fa fa-pencil"></i> Cancelar Movimiento y Complemento</asp:LinkButton>
+                <%--<asp:LinkButton ID="LnkCancelarComplementoImporte" OnClick="LnkCancelarComplementoImporte_Click" runat="server" Visible="false" data-btn-ok-label="si" Style="color: #686868;"  data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento  y Complemento" > <i class="fa fa-pencil"></i> Cancelar Movimiento y Complemento</asp:LinkButton>--%>
 
                 <%-- data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;"><i class="fa fa-pencil"--%>
 
@@ -126,10 +126,10 @@
                                 </div>
 
 
-                                <asp:Label CssClass="col-md-1" Text="" ID="LbTipoMoneda" runat="server"   />
+                                <asp:Label CssClass="col-md-1" Text="" ID="LbTipoMoneda" runat="server" />
-                                <div class="col-md-2" id="DVPAgoEnPesos" runat="server"  visible ="false">
+                                <div class="col-md-2" id="DVPAgoEnPesos" runat="server" visible="false">
-                                    <asp:CheckBox Text="Pagar con pesos" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarPesos" OnCheckedChanged="ChkPagarPesos_CheckedChanged" runat="server" ClientIDMode="Static" />
+                                    <asp:CheckBox Text="Pagar con pesos" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarPesos" OnCheckedChanged="ChkPagarPesos_CheckedChanged" runat="server" ClientIDMode="Static" />
-                                    <%--<asp:CheckBox Text="Pagar con dolares" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarDolares" runat="server" OnCheckedChanged="ChkPagarDolares_CheckedChanged" ClientIDMode="Static" />--%>
+                                    <%--<asp:CheckBox Text="Pagar con dolares" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarDolares" runat="server" OnCheckedChanged="ChkPagarDolares_CheckedChanged" ClientIDMode="Static" />--%>
                                 </div>
 
 
@@ -147,24 +147,25 @@
                                     <asp:Label ID="LblEstatusIE" runat="server" Text="Activo" Visible="false"></asp:Label>
                                     <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlEstatusIE" DataValueField="CveEstatusIE" DataTextField="EstatusIE" AutoPostBack="false"></asp:DropDownList>
                                 </div>
-                                
+
-                            <div class="col-md-2" runat="server" id="DivTC" visible="false">
+                                <div class="col-md-2" runat="server" id="DivTC" visible="false">
                                     T.C.:
-                                    <asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaTCPagoOC();"  Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
+                                   
-                                    <asp:RequiredFieldValidator ID="RFVTC" Enabled="false" runat="server" ControlToValidate="TxtTC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cambio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                    <asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaTCPagoOC();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
-                                    <ajax:ValidatorCalloutExtender ID="VCETC" runat="server" HighlightCssClass="vco" TargetControlID="RFVTC" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <asp:RequiredFieldValidator ID="RFVTC" Enabled="false" runat="server" ControlToValidate="TxtTC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cambio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCETC" runat="server" HighlightCssClass="vco" TargetControlID="RFVTC" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <asp:Label ID="LbImporteME" Text="" ClientIDMode="Static" runat="server" />
-                                <div style="display:none">
+                                    <div style="display: none">
-                                    <asp:Button ID="LnkActualizaTCOC" ClientIDMode="Static"  runat="server" Text="Actaulziar" OnClick="LnkActualizaTCOC_Click" ></asp:Button>
+                                        <asp:Button ID="LnkActualizaTCOC" ClientIDMode="Static" runat="server" Text="Actaulziar" OnClick="LnkActualizaTCOC_Click"></asp:Button>
+                                    </div>
+
                                 </div>
-
+                                <div class="col-md-2" runat="server" id="DivTC2" visible="false">
-                            </div>
-                            <div class="col-md-2" runat="server" id="DivTC2" visible="false">
                                     Dolares
-                                    <asp:TextBox ID="TxtImporteDolares" runat="server" Text="1" placeholder="Dolares" CssClass="form-control input-sm" MaxLength="12"   Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />                                                                        
+                                   
+                                    <asp:TextBox ID="TxtImporteDolares" runat="server" Text="1" placeholder="Dolares" CssClass="form-control input-sm" MaxLength="12" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
                                     <%--<asp:Label ID="Label1" Text="" ClientIDMode="Static" runat="server" />--%>
-
+                                </div>
-                            </div>
 
 
                             </div>
@@ -217,15 +218,15 @@
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
 
 
-                                    <div runat="server"  id="DvFolioACCondiciones" visible="false">
+                                    <div runat="server" id="DvFolioACCondiciones" visible="false">
-                                        
+
-                                        <ajax:FilteredTextBoxExtender runat="server" ID="FTEFolio" TargetControlID="TxtFolio"  FilterType="Custom" ValidChars="0123456789" />                                                                                                      
+                                        <ajax:FilteredTextBoxExtender runat="server" ID="FTEFolio" TargetControlID="TxtFolio" FilterType="Custom" ValidChars="0123456789" />
-                                        <asp:RangeValidator ID="RvTxtFolio" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="El Folio debe de tener un valor de entre 1 y 2147483647" Type="Integer" MinimumValue="1" MaximumValue="2147483647"   ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                        <asp:RangeValidator ID="RvTxtFolio" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="El Folio debe de tener un valor de entre 1 y 2147483647" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender8" runat="server" HighlightCssClass="vco" TargetControlID="RvTxtFolio" Width="350px"></ajax:ValidatorCalloutExtender>
 
-                                    </div>  
+                                    </div>
+
 
-                                    
 
 
                                 </div>
@@ -280,8 +281,8 @@
                                             <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" Visible="false" Onselectedindexchange="DdlProveedores_selectedindexchange"></ADS:Dropdownlost>
                                             <asp:DropDownList ID="DdlPersonal" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm input-medium select2me" Visible="false" Width="100%" OnSelectedIndexChanged="DdlPersonal_SelectedIndexChanged" AutoPostBack="true">
                                             </asp:DropDownList>
-                                            
+
-                                            <asp:Label runat="server"  ID="LblPagarA" Visible="false"></asp:Label>
+                                            <asp:Label runat="server" ID="LblPagarA" Visible="false"></asp:Label>
 
 
                                         </div>
@@ -294,13 +295,13 @@
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
                             </asp:Panel>
-                             <div id="DivOtrosIngresosEgresos" runat="server" visible="false" class="row">
+                            <div id="DivOtrosIngresosEgresos" runat="server" visible="false" class="row">
-                                                 
+
                                 <label class="col-md-2 control-label ">Otros:</label>
                                 <div class="col-md-2 input-icon">
                                     <i style="margin: 0px;">$</i>
-                                    <asp:TextBox ID="TxtOtrosIngresosEgresos" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;"  AutoComplete="off"></asp:TextBox>
+                                    <asp:TextBox ID="TxtOtrosIngresosEgresos" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off"></asp:TextBox>
-                                    
+
                                 </div>
                             </div>
                             <br />
@@ -433,7 +434,7 @@
                                         </div>
                                     </div>
                                     <div class="row" id="TrReferenciaCIE" runat="server" visible="False">
-                                        
+
                                         <label class="col-md-2 control-label">Referencia:</label>
                                         <div class="col-md-4">
                                             <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="20" />
@@ -441,12 +442,12 @@
                                             <ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
                                         </div>
 
-                                    <label class="col-md-2 control-label">Concepto:</label>
+                                        <label class="col-md-2 control-label">Concepto:</label>
-                                    <div class="col-md-4">
+                                        <div class="col-md-4">
-                                        <asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
+                                            <asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
-                                        <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                    </div>
+                                        </div>
 
                                     </div>
                                 </ContentTemplate>
@@ -493,7 +494,7 @@
 
 
 
-                 <div class="portlet light xspadding bordered " runat="server" id="DVDevolucion" visible="false">
+            <div class="portlet light xspadding bordered " runat="server" id="DVDevolucion" visible="false">
                 <div class="portlet-title">
                     <div class="caption font-green">
                         <i class="icon-pin font-green"></i>
@@ -887,7 +888,7 @@
                                                             <td>
                                                                 <asp:TextBox ID="TxtTipoCambio" runat="server" MaxLength="12" Width="80px"></asp:TextBox></td>
                                                         </tr>
-                                                    <asp:Button ID="BtnCambiaTipoMoneda" Text="" OnClick="BtnCambiaTipoMoneda_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
+                                                        <asp:Button ID="BtnCambiaTipoMoneda" Text="" OnClick="BtnCambiaTipoMoneda_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
                                                     </ContentTemplate>
                                                 </asp:UpdatePanel>
 
@@ -1029,8 +1030,8 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
-    
+
-       
+
 
     <table border="0" cellpadding="0" cellspacing="0" width="100%">
         <tr>
@@ -1042,7 +1043,7 @@
                         <asp:Button ID="BtnCancelar" runat="server" Visible="false" Text="Volver" OnClientClick="javascript:window.location.href='/Bancos/CatBancosIE.aspx';return false;" class="btn btn-danger " />
                         <asp:Button ID="BtnImprimir" runat="server" Text="Imprimir" Visible="False" class="btn btn-primary " />
                         <asp:Button ID="BtnActualizar" runat="server" Text="Actualizar" ValidationGroup="GrpGuardar" Visible="False" class="btn btn-info " />
-                        <asp:Button Text="Editar" ID="BtnEditar" OnClick="BtnEditar_Click" CssClass="btn btn-primary"   runat="server" Visible ="false"   ValidationGroup="GrpGuardar" />
+                        <asp:Button Text="Editar" ID="BtnEditar" OnClick="BtnEditar_Click" CssClass="btn btn-primary" runat="server" Visible="false" ValidationGroup="GrpGuardar" />
                     </ContentTemplate>
                 </asp:UpdatePanel>
             </td>
@@ -1066,8 +1067,8 @@
                                 <i class="fa fa-commenting font-green"></i>
                                 <span class="caption-subject bold">Agregar</span>
                             </div>--%>
-                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'  ></i>Agendar" Visible="false" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'  ></i>Agendar" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
 
                         </div>
                     </div>
@@ -1261,8 +1262,39 @@
 
 
                         </div>
+                        <br />
+                        <div class="row" id="DivCancelarComplemento" runat="server" Visible="false">
+                            <div class="col-md-12">
+                                <div class="portlet light xspadding bordered whitoutcol" style="width: 100%">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Cancelar Complemento</span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body ">
+                                        <div class="row" style="align-items: center; vertical-align: middle;">
+                                             <label class="col-md-3" style="max-width: 155px;">Motivo de cancelación:</label>
+                                             <div class="col-md-9">
+                                                 <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%" >                                
+                                                 </asp:DropDownList>
+
+                                                <asp:RequiredFieldValidator ID="RfvDdlMotivoCancelacion" runat="server" ControlToValidate="DdlMotivoCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de Cancelación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCERfvDdlMotivoCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMotivoCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
 
-                  
                     </div>
                     <div class="modal-footer">
                         <asp:Button ID="BtnCancelarIE" OnClick="BtnCancelarIE_Click" runat="server" CssClass="btn btn-success" Text="Cancelar Movimiento" ValidationGroup="GrpCancelarIE" />
@@ -1393,29 +1425,28 @@
                                 </asp:TemplateField>
 
                                 <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
-                                      <ItemTemplate>
+                                    <ItemTemplate>
-                                          <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible ="false">
+                                        <asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible="false">
-                                          </asp:DropDownList>
+                                        </asp:DropDownList>
-                                          <asp:Literal runat="server" ID="LtlMotivoCancelacion"  Text='<%# Eval("MotivoCancelacion") %>'>  </asp:Literal>
+                                        <asp:Literal runat="server" ID="LtlMotivoCancelacion" Text='<%# Eval("MotivoCancelacion") %>'>  </asp:Literal>
-                                       </ItemTemplate>
+                                    </ItemTemplate>
-                                    
+
                                 </asp:TemplateField>
 
                                 <asp:TemplateField HeaderText="Cancelar" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
-                                        <asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False" 
+                                        <asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
                                             data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si"
                                             CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                             <%--   <asp:TemplateField HeaderText="EstatusSAT" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                <%--   <asp:TemplateField HeaderText="EstatusSAT" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkEstatusSAT" OnClick="LnkEstatusSAT_Click" runat="server" AlternateText="Editar" CausesValidation="False"                                              
                                             CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-question'></i>" />
                                     </ItemTemplate>
                                 </asp:TemplateField>--%>
-
                             </Columns>
                         </asp:GridView>
                     </div>
@@ -1457,7 +1488,7 @@
                     <div class="modal-footer">
                         <button id="CancelarActualizarTC" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
                         <asp:Button Text="Actualizar" ID="BtnActualizarTC" OnClick="BtnActualizarTC_Click" CssClass="btn btn-primary" ValidationGroup="GrpModalActualizarTC" runat="server" />
-                        
+
                     </div>
                 </div>
             </ContentTemplate>
@@ -1556,7 +1587,7 @@
     </div>
 
 
-    <div id="ModalCancelarComplemetno" class="modal ADS fade" role="dialog">
+    <%--    <div id="ModalCancelarComplemetno" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
             <!-- Modal content-->
@@ -1572,13 +1603,6 @@
 
                             <div class="row">
 
-                              <%--  <p>¿Cual de  las siguientes acciones es la que desea  realizar?</p>
-
-                                <asp:RadioButtonList runat="server" ID="RdlCancelarComplemento" OnSelectedIndexChanged="RdlCancelarComplemento_SelectedIndexChanged" AutoPostBack="true" RepeatDirection="Horizontal">
-                                    <asp:ListItem Value="1" Selected="True">Cancelar Complemento</asp:ListItem>
-                                    <asp:ListItem Value="2">Cancelar Pago y Complemento</asp:ListItem>
-                                </asp:RadioButtonList>--%>
-
                             </div>
                             <div class="row" runat="server" id="DivFechaCancelación" visible="true">
 
@@ -1639,7 +1663,8 @@
                 </div>
             </div>
         </div>
-    </div>
+    </div>--%>
+
     <div id="DModalDesconciliar" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpDesconciliar" UpdateMode="Conditional">
             <ContentTemplate>
@@ -1809,7 +1834,7 @@
         function ValidarCantidad(t, c) {
             var Ot = 0.00;
             // considera importe de OT ingresos, para que se peuda exceder
-            if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value);}
+            if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
             t.value = (ToDouble(t.value) > ToDouble(c) + Ot ? c : t.value)
         }
 
@@ -1823,10 +1848,10 @@
         }
 
 
-        function SelectorNotas(Chk) {           
+        function SelectorNotas(Chk) {
 
             $(`.CssSelector input[type=checkbox]`).each(function () {
-                $(this).prop('checked', Chk.checked);              
+                $(this).prop('checked', Chk.checked);
             });
 
             FCSumaTotalesNotas()
@@ -1839,7 +1864,7 @@
             $(`.CssSelector input[type=checkbox]`).each(function () {
                 if ($(this).is(":checked")) {
                     Total += parseFloat($(this).attr("data-saldo"));
-                }               
+                }
             });
 
 
@@ -1847,22 +1872,22 @@
 
                 $(`#TxtImporte`).val(Total);
 
-                FormatoMoneda( $get("TxtImporte"));
+                FormatoMoneda($get("TxtImporte"));
 
             } else {
                 $(`#TxtImporte`).val("");
-            } 
+            }
 
         }
 
 
-        function  DeshabilitarTxt(){
+        function DeshabilitarTxt() {
 
             return false;
         }
 
         function CambiaTCPagoOC() {
-             
+
             $("#LnkActualizaTCOC").click();
         }
 

Bancos/IE.aspx.vb

@@ -1128,7 +1128,8 @@ Partial Class Bancos_IE
                 End If
 
                 'LnkCancelarComplemento.Visible = False
-                LnkCancelarComplementoImporte.Visible = False
+                'LnkCancelarComplementoImporte.Visible = False
+                DivCancelarComplemento.Visible = False
                 UppEliminarIE.Update()
 
 
@@ -1304,7 +1305,8 @@ Partial Class Bancos_IE
                     'LnkCancelar.Visible = False
 
                     'LnkCancelarComplemento.Visible = True
-                    LnkCancelarComplementoImporte.Visible = True
+                    'LnkCancelarComplementoImporte.Visible = True
+                    DivCancelarComplemento.Visible = True
 
                 End If
 
@@ -1312,7 +1314,8 @@ Partial Class Bancos_IE
             Else
                 BtnEditar.Visible = False
                 ' LnkCancelarComplemento.Visible = False
-                LnkCancelarComplementoImporte.Visible = False
+                'LnkCancelarComplementoImporte.Visible = False
+                DivCancelarComplemento.Visible = False
                 DVGenerarComplementoModal.Visible = False
             End If
 
@@ -4275,13 +4278,12 @@ Partial Class Bancos_IE
     Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivCancelarIE').modal('hide');")
         Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
-
+        If ExistenComplementosVigentes AndAlso DdlMotivoCancelacion.SelectedValue.ToEntero() <= 0 Then
-        If Not ExistenComplementosVigentes Then
+            Alert("Debe seleccionar un motivo de cancelación", TipoMensaje.MsgError)
-            CancelarIE()
+            Exit Sub
-        Else
-            Alert("No se puede cancelar documento con complementos de pago vigentes", TipoMensaje.MsgError)
         End If
 
+        CancelarIE(CancelarComplemento:=ExistenComplementosVigentes)
 
     End Sub
 
@@ -5760,7 +5762,7 @@ Partial Class Bancos_IE
                     End If
 
                     If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
-                        DVmotivoCancelacion.Visible = True
+                        DivCancelarComplemento.Visible = True
                     End If
 
 
@@ -6593,16 +6595,16 @@ Partial Class Bancos_IE
 
                 If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
-                    Alert("El complemento se cancelo correctamente.")
+                    '    Alert("El complemento se cancelo correctamente.")
+                    'End If
+                Else
+                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
                 End If
-            Else
+
-                Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
             End If
 
-        End If
+            ObjBanco.Dispose()
-
+            CargaComplementosPago()
-        ObjBanco.Dispose()
-        CargaComplementosPago()
 
     End Sub
 
@@ -6614,7 +6616,7 @@ Partial Class Bancos_IE
             Exit Sub
         End If
 
-        TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
+        'TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
         CancelarIE(True)
 
     End Sub
@@ -6645,10 +6647,10 @@ Partial Class Bancos_IE
             CvePACCancelacion = DTComplementos.Rows(0)("CvePAC").ToString.ToEntero
 
             RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
-            DivFechaCancelación.Visible = True
+            'DivFechaCancelación.Visible = True
             CargaComplementosPago()
 
-            UpModalCancelarComplemetno.Update()
+            'UpModalCancelarComplemetno.Update()
 
         Else
             If DTComplementos.Rows.Count = 0 Then

Bancos/PopIECompras.aspx.vb

@@ -2581,7 +2581,7 @@ Partial Class Bancos_PopIECompras
                                                 TimpocambioGeneral = TCImpuestos
                                                 Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)
                                                 '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
-                                                If tipoCambioPago < tipoCambioCompra AndAlso CveMonedaCompra = 2 Then
+                                                If tipoCambioPago < tipoCambioCompra AndAlso CveMonedaCompra = 2 Or (CveMonedaCompra = 2 AndAlso UsuarioActual.CveEmpresa = 119 AndAlso PagoMismoMes = False AndAlso tipoCambioPago < TCUltimaFluctuacion) Then
                                                     ImporteMovimiento = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioCompraValuacion) 'Añadimos la diferencia de ganancia en la venta
                                                     ImporteMovimiento -= ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IVA
                                                     ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA
@@ -2604,9 +2604,10 @@ Partial Class Bancos_PopIECompras
                                             If CveMoneda <> 1 OrElse CveMonedaCompra <> 1 Then
                                                 IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                 Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)
+                                                Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)
-                                                '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
+                                                '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra
-                                                If tipoCambioPago > tipoCambioCompra AndAlso CveMonedaCompra = 2 Then
+
+                                                If tipoCambioPago > tipoCambioCompra AndAlso CveMonedaCompra = 2 Or (CveMonedaCompra = 2 AndAlso UsuarioActual.CveEmpresa = 119 AndAlso PagoMismoMes = False AndAlso tipoCambioPago > TCUltimaFluctuacion) Then
                                                     ImporteMovimiento = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioCompraValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta
                                                     ImporteMovimiento -= ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
                                                     ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA

Compras/PopUpVerFactura.aspx.vb

@@ -2047,6 +2047,7 @@ Partial Class PopUpVerFactura
                         For Each parametro As ReportParameter In params
                             retorno.Parametros.Add(New ReportParameter($"SRP_{parametro.Name}", parametro.Values.Item(0)))
                         Next
+                        retorno.Parametros.Add(New ReportParameter($"TieneCartaPorte", "True"))
                     Else
                         retorno.Parametros.AddRange(params)
                     End If
@@ -2690,7 +2691,7 @@ Partial Class PopUpVerFactura
         Dim CveTimbreCartaPorteVenta As Integer = -1
         Dim CartaPorte As Modelos.MSubReportData = Nothing
 
-        If Vta.TipoDocto = "Ing" Then
+        If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Ing" Then
             Using ObjGral As New ClsGenerales
                 If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
                     Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
@@ -2713,6 +2714,9 @@ Partial Class PopUpVerFactura
                 'CartaPorte.DataSources.Add(New ReportDataSource() With {.Name = "DataSet1", .Value = dt})
 
                 CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True)
+            Else
+                CartaPorte = New Modelos.MSubReportData()
+                CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
             End If
         End If
 

Empresas/Grales/Formatos/ReciboDePago.rdlc

@@ -398,7 +398,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet2</DataSetName>
-        <Top>2.55889cm</Top>
+        <Top>2.78114cm</Top>
         <Left>0.30837cm</Left>
         <Height>1.09cm</Height>
         <Width>20.35756cm</Width>
@@ -715,7 +715,7 @@
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.6cm</Height>
+              <Height>0.54708cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -979,6 +979,303 @@
                 </TablixCell>
               </TablixCells>
             </TablixRow>
+            <TablixRow>
+              <Height>0.46771cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox2">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Ret IVA:</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox2</rd:DefaultName>
+                      <Visibility>
+                        <Hidden>=IIF( Fields!RetIVA.Value &gt; 0  or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
+                      </Visibility>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox4">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!RetIVA.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox4</rd:DefaultName>
+                      <Visibility>
+                        <Hidden>=IIF( Fields!RetIVA.Value &gt; 0  or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
+                      </Visibility>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox7">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Ret. ISR:</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox7</rd:DefaultName>
+                      <Visibility>
+                        <Hidden>=IIF( Fields!RetIVA.Value &gt; 0  or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
+                      </Visibility>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!RetISR.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Format>#,0.00</Format>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Visibility>
+                        <Hidden>=IIF( Fields!RetIVA.Value &gt; 0  or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
+                      </Visibility>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox17">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox17</rd:DefaultName>
+                      <Visibility>
+                        <Hidden>=IIF( Fields!RetIVA.Value &gt; 0  or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
+                      </Visibility>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox18">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox18</rd:DefaultName>
+                      <Visibility>
+                        <Hidden>=IIF( Fields!RetIVA.Value &gt; 0  or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
+                      </Visibility>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox20">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox20</rd:DefaultName>
+                      <Visibility>
+                        <Hidden>=IIF( Fields!RetIVA.Value &gt; 0  or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
+                      </Visibility>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox23">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox23</rd:DefaultName>
+                      <Visibility>
+                        <Hidden>=IIF( Fields!RetIVA.Value &gt; 0  or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
+                      </Visibility>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
           </TablixRows>
         </TablixBody>
         <TablixColumnHierarchy>
@@ -1000,13 +1297,17 @@
             </TablixMember>
             <TablixMember>
               <Group Name="Detalles" />
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
             </TablixMember>
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet2</DataSetName>
-        <Top>4.59176cm</Top>
+        <Top>4.65526cm</Top>
         <Left>0.30837cm</Left>
-        <Height>1.09cm</Height>
+        <Height>1.50479cm</Height>
         <Width>20.32362cm</Width>
         <ZIndex>1</ZIndex>
         <Style>
@@ -1676,7 +1977,7 @@
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
-        <Top>6.12961cm</Top>
+        <Top>6.44711cm</Top>
         <Left>0.31556cm</Left>
         <Height>1.69cm</Height>
         <Width>20.32067cm</Width>
@@ -1708,7 +2009,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>3.98116cm</Top>
+        <Top>4.04466cm</Top>
         <Left>0.30837cm</Left>
         <Height>0.49cm</Height>
         <Width>20.32362cm</Width>
@@ -1898,10 +2199,25 @@
               <TextAlign>Left</TextAlign>
             </Style>
           </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=  IIF( Parameters!RegimenFiscalCodigo.Value &lt;&gt; "ND-", "&lt;b&gt;Reg. Fiscal:&lt;/b&gt; " &amp;  Parameters!RegimenFiscalCodigo.Value,"")</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Left>0.30837cm</Left>
-        <Height>0.99355in</Height>
+        <Height>0.98591in</Height>
         <Width>5.35046in</Width>
         <ZIndex>4</ZIndex>
         <Style>
@@ -2099,11 +2415,6 @@
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
               <TextRun>
                 <Value>=Parameters!UUIDPago.Value</Value>
                 <Style>
@@ -2117,10 +2428,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox45</rd:DefaultName>
-        <Top>8.41556cm</Top>
+        <Top>8.73306cm</Top>
         <Left>0.31556cm</Left>
-        <Height>3.43104cm</Height>
+        <Height>2.98125cm</Height>
-        <Width>16.30472cm</Width>
+        <Width>16.26945cm</Width>
         <ZIndex>5</ZIndex>
         <Style>
           <Border>
@@ -2147,7 +2458,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>8.15097cm</Top>
+        <Top>8.46847cm</Top>
         <Left>0.31261cm</Left>
         <Height>0.0882cm</Height>
         <Width>20.32362cm</Width>
@@ -2167,10 +2478,10 @@
         <Source>External</Source>
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>3.31321in</Top>
+        <Top>3.43821in</Top>
-        <Left>6.55731in</Left>
+        <Left>6.67189in</Left>
-        <Height>1.3in</Height>
+        <Height>1.17372in</Height>
-        <Width>1.5in</Width>
+        <Width>1.38542in</Width>
         <ZIndex>7</ZIndex>
         <Style>
           <Border>
@@ -2179,7 +2490,7 @@
         </Style>
       </Image>
     </ReportItems>
-    <Height>11.92271cm</Height>
+    <Height>11.71431cm</Height>
     <Style />
   </Body>
   <Width>20.71612cm</Width>
@@ -2694,6 +3005,14 @@
           <DataField>TipoCambioDR</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="RetIVA">
+          <DataField>RetIVA</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="RetISR">
+          <DataField>RetISR</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>
@@ -3000,6 +3319,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>ce050101-4530-4332-90ec-6ac094336e40</rd:ReportID>

Ventas/ProductosServicios.aspx

@@ -231,7 +231,7 @@
                                         <br />
                                         <div class="form-group form-md-line-input input-iconright" runat="server" id="DivPSAdicionalVigencia" visible="false">
                                             <ADS:Dropdownlost runat="server" ID="DdlPSAdicionalVigencia" CssStyle="width: 46%;" CssClass="form-control input-sm select2me" DataTextField="PSCodigo" DataValueField="CvePS"  />
-                                            <label for="<%= DdlPSAdicionalVigencia.ClientID.ToString()%>">Producto de vigencia:</label>
+                                            <label for="<%= DdlPSAdicionalVigencia.ClientID.ToString()%>"><asp:Literal runat="server" Text="Producto de vigencia:" ID="LtlPSAdicionalVigencia"></asp:Literal> </label>
                                             <i></i>
                                         </div>
                                         <br />

Ventas/ProductosServicios.aspx.vb

@@ -330,6 +330,12 @@ Partial Class ProductosyServicios
             CargaPSAdicionalesVigencias()
         End If
 
+        If UsuarioActual.CveEmpresa = 13 Then
+            DivPSAdicionalVigencia.Visible = True
+            LtlPSAdicionalVigencia.Text = "Producto Relacionado:"
+            CargaPSAdicionalesVigencias()
+        End If
+
         'Nuevo R: 26/09/2017
         CargaProveedores()
 

Ventas/Ventas.aspx.vb

@@ -2351,7 +2351,7 @@ Partial Class Ventas
             UpFacturar.Update()
             'CargaTiposDocumentos()
             TrEmitir.Visible = False
-            If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 13 Then
+            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                 DivCartaPorte.Visible = True
             End If
             ViewState("EstablecioFolio") = False
@@ -5818,10 +5818,11 @@ Partial Class Ventas
 
     End Sub
     Private Sub CargaFormaPago(CveMetodoPago As Integer)
-        'FACTURACION 3.3
+        'EN LA VERSION 4.0 NO PERMITE DESBLOEQUEAR RELACION METODO Y FOMA DE PAGO
-
+        If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
-        'permiso para desbloquear la relación entre Método de pago y forma de pago
+            'permiso para desbloquear la relación entre Método de pago y forma de pago
-        If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
+            If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
+        End If
 
         Dim dtt As DataTable = Nothing
         If CveMetodoPago > 0 Then
@@ -6197,6 +6198,14 @@ Partial Class Ventas
                         DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
                     End If
                     DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
+                    'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
+                    If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                        'S01	Sin efectos fiscales.
+                        DdlUsoCFDI.SelectedValueExist("23")
+                        DdlUsoCFDI.Enabled = False
+                        RegimenFiscalCliente = "616"
+                        ClienteCodigoRegimenFiscal = "616"
+                    End If
 
                 End If
 
@@ -7149,6 +7158,15 @@ Partial Class Ventas
 
                         DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString())
                         DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString())
+                        'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
+                        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                            'S01	Sin efectos fiscales.
+                            DdlUsoCFDI.SelectedValueExist("23")
+                            DdlUsoCFDI.Enabled = False
+                            RegimenFiscalCliente = "616"
+                            ClienteCodigoRegimenFiscal = "616"
+                        End If
+
                     End If
 
                     If CveVenta < 0 Then TxtAtencionA.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString()
@@ -7182,6 +7200,15 @@ Partial Class Ventas
 
                         DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
                         DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
+                        'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
+                        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                            'S01	Sin efectos fiscales.
+                            DdlUsoCFDI.SelectedValueExist("23")
+                            DdlUsoCFDI.Enabled = False
+                            RegimenFiscalCliente = "616"
+                            ClienteCodigoRegimenFiscal = "616"
+                        End If
+
                     End If
 
                 End If
@@ -7290,7 +7317,7 @@ Partial Class Ventas
         If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
             Objeto.ddl.Items.Clear()
             'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
-            Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=1)
+            Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=If(AplicaParaVenta, 1, -1))
             Objeto.ddl.DataBind()
             Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
             Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
@@ -7307,9 +7334,9 @@ Partial Class Ventas
 
             Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto)
             Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
-            Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
             Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
             If AplicaParaVenta Then
+                Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
                 Objeto.ddlWS.Attributes.Add("data-AplicaparaVenta", "1")
             End If
         End If
@@ -14855,86 +14882,93 @@ Partial Class Ventas
         End If
 
         Select Case ConversionRemision
-                Case "*"
+            Case "*"
-                    For Each Row As DataRow In TmpDT.Rows
+                For Each Row As DataRow In TmpDT.Rows
-                        Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
+                    Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                        Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
+                    Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                        Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                    Next
+                Next
 
-                    For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
+                For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
-                        If gvr.RowType = DataControlRowType.DataRow Then
+                    If gvr.RowType = DataControlRowType.DataRow Then
-                            gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TipoCambioRemision, NumeroDecimales)).FormatoNumero
+                        gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TipoCambioRemision, NumeroDecimales)).FormatoNumero
-                        End If
+                    End If
-                    Next
+                Next
-                Case "/"
+            Case "/"
-                    For Each Row As DataRow In TmpDT.Rows
+                For Each Row As DataRow In TmpDT.Rows
-                        Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
+                    Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                        Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
+                    Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                        Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                    Next
+                Next
 
-                    For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
+                For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
-                        If gvr.RowType = DataControlRowType.DataRow Then
+                    If gvr.RowType = DataControlRowType.DataRow Then
-                            gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TipoCambioRemision, NumeroDecimales)).FormatoNumero
+                        gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TipoCambioRemision, NumeroDecimales)).FormatoNumero
-                        End If
+                    End If
-                    Next
+                Next
-                Case Else
+            Case Else
 
-            End Select
+        End Select
 
-            ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False), "Factura", "PDF")
+        Dim CartaPorte As Modelos.MSubReportData = Nothing
 
-            Select Case ConversionRemision
+        If UsuarioActual.CveEmpresa = 13 Then
-                Case "*"
+            CartaPorte = New Modelos.MSubReportData()
-                    For Each Row As DataRow In TmpDT.Rows
+            CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
-                        Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+        End If
-                        Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                        Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                        Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                    Next
 
-                    For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
+        ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF")
-                        If gvr.RowType = DataControlRowType.DataRow Then
-                            gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TipoCambioRemision, NumeroDecimales)).FormatoNumero
-                        End If
-                    Next
-                Case "/"
-                    For Each Row As DataRow In TmpDT.Rows
-                        Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                        Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                        Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                        Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
-                    Next
 
-                    For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
+        Select Case ConversionRemision
-                        If gvr.RowType = DataControlRowType.DataRow Then
+            Case "*"
-                            gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TipoCambioRemision, NumeroDecimales)).FormatoNumero
+                For Each Row As DataRow In TmpDT.Rows
-                        End If
+                    Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
-                    Next
+                    Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
-                Case Else
+                    Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
+                    Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
+                Next
 
-            End Select
+                For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
+                    If gvr.RowType = DataControlRowType.DataRow Then
+                        gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TipoCambioRemision, NumeroDecimales)).FormatoNumero
+                    End If
+                Next
+            Case "/"
+                For Each Row As DataRow In TmpDT.Rows
+                    Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
+                    Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
+                    Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                    Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
+                Next
+
+                For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
+                    If gvr.RowType = DataControlRowType.DataRow Then
+                        gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TipoCambioRemision, NumeroDecimales)).FormatoNumero
+                    End If
+                Next
+            Case Else
+
+        End Select
 
     End Sub
 
@@ -15355,9 +15389,9 @@ Partial Class Ventas
             'End If
             'Dim Now As DateTime = New DateTime(2020, 2, 19)
             Try
-                CvePrepoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                If CvePrepoliza > 0 Then
+                If CvePrePoliza > 0 Then
                     Dim tipoCambioPago As Decimal = 1
                     Dim tipoCambioVenta As Decimal = 1
                     Dim tipoCambioVentaValuacion As Decimal = 1
@@ -15470,7 +15504,7 @@ Partial Class Ventas
                                                             idCuentaContabilizacion = 0
                                                         End If
 
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, TipoCambio:=tipoCambioVentaValuacion, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, TipoCambio:=tipoCambioVentaValuacion, CveSubProyecto:=CveSubProyectoVenta) Then
                                                             ErrorConta = True
                                                         End If
 
@@ -15503,7 +15537,7 @@ Partial Class Ventas
                                                         idCuentaContabilizacion = 0
                                                     End If
 
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoVenta) Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoVenta) Then
                                                         ErrorConta = True
                                                     End If
                                                 End If
@@ -15514,7 +15548,7 @@ Partial Class Ventas
                                                     Dim Importe13 = gvr.DataKey("IVA").ToDecimal
                                                     Dim Importe8 = gvr.DataKey("RetIVA").ToDecimal
                                                     Dim Importe9 = gvr.DataKey("RetISR").ToDecimal
-                                                    If Not AgregarPrePolizasXTrasladar(ObjConta, CvePrepoliza, PorcentajePago, tipoCambioPago, CuentasContablesInvalidas, idCuentaContabilizacion, CveCuentaContabilizacion, Importe13, Importe8, Importe9) Then
+                                                    If Not AgregarPrePolizasXTrasladar(ObjConta, CvePrePoliza, PorcentajePago, tipoCambioPago, CuentasContablesInvalidas, idCuentaContabilizacion, CveCuentaContabilizacion, Importe13, Importe8, Importe9) Then
                                                         ErrorConta = True
                                                     End If
                                                 End If
@@ -15561,7 +15595,7 @@ Partial Class Ventas
                                                         IdCtaContable = IdCtaContComplementaria
                                                         importeMX = importeMovimiento
                                                         ImporteComplementaria = ((importeMovimiento * TC) - importeMovimiento).RoundSQL
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(gvr.DataKey("TipoCambio").ToString().ToDecimal = 1, 0, importeMovimiento), TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(gvr.DataKey("TipoCambio").ToString().ToDecimal = 1, 0, importeMovimiento), TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then
                                                             ErrorConta = True
                                                             Exit For
                                                         End If
@@ -15572,7 +15606,7 @@ Partial Class Ventas
                                                         IdCtaContable = IdCtaContMonedaExtranjera
                                                     End If
 
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMX, TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMX, TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then
                                                         ErrorConta = True
                                                         Exit For
                                                     End If
@@ -15580,8 +15614,8 @@ Partial Class Ventas
                                                     'AMORTIZA NC CONTRA ANTICIPO A CLIENTES
                                                     If Not ErrorConta And DdlTipoComprobante.SelectedValue = "Ant" Then
                                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal) * gvr.DataKey("IVA").ToDecimal)
-                                                        If ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString().ToEntero(), ImporteMX:=importeMovimiento) Then
+                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString().ToEntero(), ImporteMX:=importeMovimiento) Then
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero(), -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero(), -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveSubProyecto:=CveSubProyectoVenta) Then
                                                                 ErrorConta = True
                                                                 Exit For
                                                             End If
@@ -15603,23 +15637,23 @@ Partial Class Ventas
                                                 If importeMovimiento <> 0 Then
                                                     ' Agregamos el 2
                                                     If tipoCambioPago = 1 Then
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
                                                             ErrorConta = True
                                                         End If
                                                     Else 'Cuando son dolares
                                                         If importeMovimiento <> 0 Then
                                                             If IdCtaContComplementaria > 0 Or 0 > 0 Then
                                                                 'Agregamos la Complementaria
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
                                                                     ErrorConta = True
                                                                 End If
                                                                 'Agregamos la Extranjera
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
                                                                     ErrorConta = True
                                                                 End If
                                                             Else
                                                                 'Agregamos la Extranjera
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
                                                                     ErrorConta = True
                                                                 End If
                                                             End If
@@ -15635,14 +15669,14 @@ Partial Class Ventas
                                                         'Agregamos el 13
 
                                                         IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
                                                             ErrorConta = True
                                                         End If
 
                                                         'Agregamos el 61
 
                                                         IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
                                                             ErrorConta = True
                                                         End If
                                                     End If
@@ -15656,14 +15690,14 @@ Partial Class Ventas
                                                         'Agregamos el 38
 
                                                         IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, 38, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 38, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
                                                             ErrorConta = True
                                                         End If
 
                                                         'Agregamos el 39
 
                                                         IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
                                                             ErrorConta = True
                                                         End If
                                                     End If
@@ -15696,7 +15730,7 @@ Partial Class Ventas
                                                         End If
                                                     End If
 
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
                                                         ErrorConta = True
                                                     End If
 
@@ -15847,7 +15881,7 @@ Partial Class Ventas
                                             idCuentaContabilizacion = 0
                                         End If
 
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1,
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1,
                                                                              CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, TipoCambio:=TipoCambioGeneral, CveIE:=CveIEAnticipo,
                                                                              PorcentajeImpuesto:=PorcentajeImpuesto, CveSubProyecto:=CveSubProyectoVenta) Then
                                             ErrorConta = True
@@ -15862,13 +15896,13 @@ Partial Class Ventas
                     ErrorConta = True
                 End If
 
-                If Not ErrorConta AndAlso SimplificaPrePoliza AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrepoliza, UsuarioActual.CveEmpresa) Then
+                If Not ErrorConta AndAlso SimplificaPrePoliza AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                     Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
                 End If
 
-                If ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then
+                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
                     If ObjConta.ValorPolizaDescuadre > 0 Then
-                        GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrepoliza}", "LogPrePolizas")
+                        GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                         ErrorConta = True
 
                     End If
@@ -33961,8 +33995,8 @@ Partial Class Ventas
 
     Public Sub CargarCamiones()
 
-        TxtFechaEntregaCP.Text = Now.ToString("dd/MM/yyyy")
+        TxtFechaEntregaCP.Text = Now.Date.ToString("dd/MM/yyyy HH:mm")
-        TxtFechaLlegadaCP.Text = Now.ToString("dd/MM/yyyy")
+        TxtFechaLlegadaCP.Text = Now.Date.ToString("dd/MM/yyyy HH:mm") 'Now.Date.AddDays(1).AddMinutes(-1).ToString("dd/MM/yyyy HH:mm")
 
         DdlConfigAuto.Items.Clear()
         DdlUnidadCamion.Items.Clear()
@@ -34031,6 +34065,10 @@ Partial Class Ventas
         TxtFechaEntregaCP.Enabled = False
         TxtFechaLlegadaCP.Enabled = False
 
+        Dim CveEntregaAlmacen As Integer = -1
+        Dim CveDireccionOrigen As Integer = -1
+        Dim CveDireccionDestino As Integer = -1
+
         Using ObjGral As New ClsGenerales
             If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
                 Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
@@ -34039,19 +34077,58 @@ Partial Class Ventas
                 If CveTimbreCartaPorteVenta > 0 Then
                     ChkEmitirCartaPorte.Checked = True
                     ChkEmitirCartaPorte.Enabled = False
+
+
+                    CveEntregaAlmacen = RowCP("CveEntregaAlmacen").ToString().ToEntero()
+
+                    CveDireccionOrigen = RowCP("CveDireccionOrigen").ToString().ToEntero()
+                    CveDireccionDestino = RowCP("CveDireccionDestino").ToString().ToEntero()
+
+                    TxtFechaEntregaCP.Text = RowCP("FechaEntrega").ToString()
+                    TxtFechaLlegadaCP.Text = RowCP("FechaLlegada").ToString()
+                    TxtDistancia.Text = RowCP("Distancia").ToString()
+
+                    DdlChofer.SelectedValueExist(RowCP("CveChofer").ToString())
+                    DdlUnidadCamion.SelectedValueExist(RowCP("CveCamion").ToString())
                 End If
 
-                TxtFechaEntregaCP.Text = RowCP("FechaEntrega").ToString()
-                TxtFechaLlegadaCP.Text = RowCP("FechaLlegada").ToString()
-                TxtDistancia.Text = RowCP("Distancia").ToString()
-
-                DdlChofer.SelectedValueExist(RowCP("CveChofer").ToString())
-                DdlUnidadCamion.SelectedValueExist(RowCP("CveCamion").ToString())
             End If
+
+            If ChkEmitirCartaPorte.Checked AndAlso CveEntregaAlmacen > 0 AndAlso ObjGral.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen) Then
+                DtMercancias = ObjGral.DtResultados
+            End If
+
+
         End Using
 
+        If ChkEmitirCartaPorte.Checked AndAlso CveCliente > 0 Then
+            Dim ObjClientes As New ClsClientes
+            If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
+                TmpDTDireccionCP = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
+            End If
+            ObjClientes.Dispose()
+
+            DdlDireccionOrigen.DataSource = TmpDTDireccionCP
+            DdlDireccionOrigen.DataBind()
+
+            DdlDireccionDestino.DataSource = TmpDTDireccionCP
+            DdlDireccionDestino.DataBind()
+
+            DdlDireccionOrigen.SelectedValueExist(CveDireccionOrigen.ToString())
+            DdlDireccionDestino.SelectedValueExist(CveDireccionDestino.ToString())
+
+            GvMercanciasCP.DataSource = DtMercancias
+            GvMercanciasCP.DataBind()
+        Else
+            TmpDTDireccionCP = Nothing
+        End If
+
         DdlChofer.Enabled = False
         DdlUnidadCamion.Enabled = False
+        DdlDireccionOrigen.Enabled = False
+        DdlDireccionDestino.Enabled = False
+
+        UpEmitirTransitorio.Update()
     End Sub
 
     Private Sub ValidaConfiguracionVehiculo()
@@ -34129,16 +34206,16 @@ Partial Class Ventas
         Dim CveTimbre As Integer = -1
         Try
 
-            Dim CveDireccionOrigen As Integer = -1
+            Dim CveDireccionOrigen As Integer = DdlDireccionOrigen.SelectedValue.ToEntero
-            Dim CveDireccionDestino As Integer = -1
+            Dim CveDireccionDestino As Integer = DdlDireccionDestino.SelectedValue.ToEntero
 
-            If SucursalOrigenCP IsNot Nothing Then
+            'If SucursalOrigenCP IsNot Nothing Then
-                CveDireccionOrigen = ObjClientes.DireccionEnvioAdd(-1, SucursalOrigenCP.Direccion, SucursalOrigenCP.NoExt, SucursalOrigenCP.NoInt, SucursalOrigenCP.Colonia, SucursalOrigenCP.Municipio, SucursalOrigenCP.Estado, SucursalOrigenCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalOrigenCP.CveEstado, CvePais:=SucursalOrigenCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa)
+            '    CveDireccionOrigen = ObjClientes.DireccionEnvioAdd(-1, SucursalOrigenCP.Direccion, SucursalOrigenCP.NoExt, SucursalOrigenCP.NoInt, SucursalOrigenCP.Colonia, SucursalOrigenCP.Municipio, SucursalOrigenCP.Estado, SucursalOrigenCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalOrigenCP.CveEstado, CvePais:=SucursalOrigenCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa)
-            End If
+            'End If
 
-            If SucursalDestinoCP IsNot Nothing Then
+            'If SucursalDestinoCP IsNot Nothing Then
-                CveDireccionDestino = ObjClientes.DireccionEnvioAdd(-1, SucursalDestinoCP.Direccion, SucursalDestinoCP.NoExt, SucursalDestinoCP.NoInt, SucursalDestinoCP.Colonia, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalDestinoCP.CveEstado, CvePais:=SucursalDestinoCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa)
+            '    CveDireccionDestino = ObjClientes.DireccionEnvioAdd(-1, SucursalDestinoCP.Direccion, SucursalDestinoCP.NoExt, SucursalDestinoCP.NoInt, SucursalDestinoCP.Colonia, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalDestinoCP.CveEstado, CvePais:=SucursalDestinoCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa)
-            End If
+            'End If
 
             If Not (CveDireccionOrigen > 0 And CveDireccionDestino > 0) Then
                 ErrorProceso = True
@@ -34156,7 +34233,7 @@ Partial Class Ventas
             If CveEntregaAlmacen > 0 Then
 
                 For Each RowPS As DataRow In ObjFactura.DtMercancias.Rows
-                    If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUM").ToString().ToEntero, UsuarioActual.CveUsuario) Then
+                    If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUnidadMedida").ToString().ToEntero, UsuarioActual.CveUsuario) Then
                         ErrorProceso = True
                         Exit For
                     End If
@@ -34408,20 +34485,24 @@ Partial Class Ventas
         UpAgregarMercancia.Update()
         RegistraScript("$('#DivAddMercancia').modal('show');", "M1")
     End Sub
+    Private Sub CreaDTMercancias()
+        DtMercancias = New DataTable()
+        DtMercancias.Columns.Add(New DataColumn("Consec", GetType(Integer)))
+        DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+        DtMercancias.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+        DtMercancias.Columns.Add(New DataColumn("CveUnidadMedida", GetType(Integer)))
+        DtMercancias.Columns.Add(New DataColumn("CodigoPS", GetType(String)))
+    End Sub
     Protected Sub LnkAddPSMercancia_Click(sender As Object, e As EventArgs)
         If DtMercancias Is Nothing Then
-            DtMercancias = New DataTable()
+            CreaDTMercancias()
-            DtMercancias.Columns.Add(New DataColumn("Consec", GetType(Integer)))
-            DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Integer)))
-            DtMercancias.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
-            DtMercancias.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
-            DtMercancias.Columns.Add(New DataColumn("CodigoPS", GetType(String)))
         End If
+
         Dim CvePS As Integer = DdlPSMercancia.SelectedValue.ToEntero()
 
         Dim DrPS As DataRow = GlobalDTPSSimplificado(CveEmpresa:=UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
         If DrPS Is Nothing Then
-            Alert("No se encontró el producto/servicio", TipoMensaje.MsgAdvertencia)
+            Alert("No se encontró la mercancía", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
@@ -34429,7 +34510,7 @@ Partial Class Ventas
         NewRow("Consec") = DtMercancias.MAX("Consec").ToEntero() + 1
         NewRow("Cantidad") = TxtCantidadMercancia.Text.ToDecimal()
         NewRow("CvePS") = DrPS("CvePS")
-        NewRow("CveUM") = DrPS("CveUnidadMedida")
+        NewRow("CveUnidadMedida") = DrPS("CveUnidadMedida")
         NewRow("CodigoPS") = DrPS("PSCodigo")
 
         DtMercancias.Rows.Add(NewRow)
@@ -34437,46 +34518,50 @@ Partial Class Ventas
         GvMercanciasCP.DataSource = DtMercancias
         GvMercanciasCP.DataBind()
 
-        If ChkAgregarFlete.Checked Then
+        If ChkLimpiarPS.Checked Then
-            Dim CvePSServicio As Integer = DdlPSFlete.SelectedValue.ToEntero()
+            If TmpDT IsNot Nothing Then
-            If CvePSServicio > 0 Then
+                TmpDT.Rows.Clear()
-                Dim Cantidad As Decimal = TxtCantidadMercancia.Text.ToDecimal
+            End If
-                Dim PU As Decimal = TxtPrecioMercancia.Text.Trim.ToDecimal
+        End If
-                Dim Descuento As Decimal = 0
-                Dim CveUM As Integer = -1
-                Dim UnidadMedida As String = ""
-                Dim CveClasificacion As Integer = -1
-                Dim Clasificacion As String = ""
 
-                Dim drPSFlete As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSServicio).FiltroPrimero("")
+        Dim CvePSServicio As Integer = DdlPSFlete.SelectedValue.ToEntero()
-                If DrPS IsNot Nothing Then
+        If CvePSServicio > 0 Then
-                    CveUM = drPSFlete("CveUnidadMedida").ToString().ToEntero()
+            Dim Cantidad As Decimal = TxtCantidadMercancia.Text.ToDecimal
-                    CveClasificacion = drPSFlete("CveClasificacion").ToString().ToEntero()
+            Dim PU As Decimal = TxtPrecioMercancia.Text.Trim.ToDecimal
-                End If
+            Dim Descuento As Decimal = 0
+            Dim CveUM As Integer = -1
+            Dim UnidadMedida As String = ""
+            Dim CveClasificacion As Integer = -1
+            Dim Clasificacion As String = ""
 
-                Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
+            Dim drPSFlete As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSServicio).FiltroPrimero("")
-                Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
+            If DrPS IsNot Nothing Then
+                CveUM = drPSFlete("CveUnidadMedida").ToString().ToEntero()
+                CveClasificacion = drPSFlete("CveClasificacion").ToString().ToEntero()
+            End If
 
-                    Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
+            Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
+            Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
 
-                AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion,
+            Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
+
+            AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion,
                                 CvePSServicio, "", TxtObservacionesMercancia.Text.Trim, PU, Descuento,
                                 CveProyecto, Proyecto, CveSubProyecto, DdlSubProyectoDatos.SelectedItem.Text,
                                 Serie:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
                                 ImporteProntoPago:=0)
 
-                CalculaUsados()
+            CalculaTotalesVenta()
-
+            Alert("Se agregó la mercancía correctamente")
-                    CalculaTotalesVenta()
+        Else
-                Else
+            Alert("No se agregó el servicio", TipoMensaje.MsgAdvertencia)
-                    Alert("No se agrego el servicio del flete", TipoMensaje.MsgAdvertencia)
-            End If
-
         End If
 
         TxtCantidadMercancia.Text = ""
         TxtObservacionesMercancia.Text = ""
+        TxtPrecioMercancia.Text = ""
 
+        RegistraScript("$('#DivAddMercancia').modal('hide');", "A2")
         UpAgregarMercancia.Update()
         UpEmitirTransitorio.Update()
     End Sub
@@ -34555,19 +34640,31 @@ Partial Class Ventas
         DdlDireccionDestino.DataSource = TmpDTDireccionCP
         DdlDireccionDestino.DataBind()
     End Sub
-    Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs)
+    'Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs)
 
-        DivServicioFlete.Visible = ChkAgregarFlete.Checked
+    '    DivServicioFlete.Visible = ChkAgregarFlete.Checked
 
-        UpAgregarMercancia.Update()
+    '    UpAgregarMercancia.Update()
-    End Sub
+    'End Sub
-    Protected Sub DdlPSMercancia_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPSMercancia.selectedindexchange
+    Protected Sub DdlPSFlete_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPSFlete.selectedindexchange
-        Dim CvePSParametro As Integer = DdlPSMercancia.SelectedValue.ToEntero()
+        Dim CvePSParametro As Integer = DdlPSFlete.SelectedValue.ToEntero()
         If CvePSParametro > 0 Then
 
-            Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSMercancia.SelectedValue.ToEntero()).FiltroPrimero("")
+            Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
             If drPS IsNot Nothing Then
+                Dim CvePSMercancia As Integer = drPS("CvePSAdicionalVigencia").ToString().ToEntero()
                 Dim CveClasificacion As Integer = drPS("CveClasificacion").ToString().ToEntero()
+
+                If CvePSMercancia > 0 Then
+                    If UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
+                        DdlPSMercancia.SelectedValue = CvePSMercancia.ToString()
+                        'DdlPSMercancia.SelectedText = TxtPS.Text.Trim
+                    Else
+                        'DdlPSMercancia.ddl.Items.Insert(2, New ListItem(TxtPS.Text.Trim, ObjProductosServicios.CvePS.ToString()))
+                        DdlPSMercancia.ddl.SelectedValueExist(CvePSMercancia.ToString())
+                    End If
+                End If
+
                 'SUGIERE PRECIO
                 Dim PrecioSugerido As Decimal = 0
                 Dim tPrecioSugerido As Decimal = 0
@@ -34641,6 +34738,8 @@ Partial Class Ventas
             End If
         End If
 
+        UpAgregarMercancia.Update()
+
     End Sub
 End Class