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

App_Code/ClsClientes.vb

@@ -172,6 +172,7 @@ Public Class ClsClientes
 
     Public Property CodigoRegimenFiscal As String
     Public Property RegimenFiscal As String
+    Public Property RepresentanteLegal As String
 
 #End Region
 
@@ -429,6 +430,7 @@ Public Class ClsClientes
 
                 _RegimenFiscal = Data(0)("RegimenFiscal").ToString
                 _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString
+                _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString
 
             End If
             Retorno = True
@@ -586,7 +588,8 @@ Public Class ClsClientes
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
+                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
+                               Optional RepresentanteLegal As String = "") As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -731,6 +734,9 @@ Public Class ClsClientes
 
             .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
             .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
+            .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
+
+
 
 
 
@@ -782,7 +788,8 @@ Public Class ClsClientes
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
-                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
+                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
+                                  Optional RepresentanteLegal As String = "") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -943,6 +950,7 @@ Public Class ClsClientes
 
             .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
             .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
+            .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
 
 
 

App_Code/ClsNominas.vb

@@ -30,6 +30,10 @@ Public Class ClsNominas
     Public Property FolioFiscal As String
     Public Property Serie As String
     Public Property Folio As Integer
+
+    Public Property FolioSolicitud As Integer
+
+
     Public Property RegistroPatronal As String
     Public Property SerieFolio As String
     Public Property NominaFolio As String
@@ -3269,7 +3273,21 @@ Public Class ClsNominas
 
     Public Function SolicitudesAdd2(CveSolicitudCFDI As Integer, CveSolicitudMetadata As Integer, estatus As Integer, observaciones As String, fechaInicio As DateTime, fechaFin As DateTime, cveUsuarioIng As Int32, cveEmpresa As Int32, Optional CveTipoSolicitud As Integer = 1) As Integer
 
+        'CveTipoSolicitud
+        '1      Nominas CFDI y Metadata 
+        '101    Nominas CFDI
+        '201    Nominas Metadata
+
+        '2      eFacturas CFDI y Metadata 
+        '102    eFacturas CFDI
+        '202    eFacturas Metadata
+
+        '3      Ingresos CFDI y Metadata 
+        '103    Ingresos CFDI
+        '203    Ingresos Metadata
+
         Dim CveSolictudAgregada As Integer = -1
+        FolioSolicitud = -1
 
         Try
             DataAdapter("PA_Gral_SAT_SolicitudesAdd2", CommandType.StoredProcedure)
@@ -3285,11 +3303,13 @@ Public Class ClsNominas
 
             With SqlAdapter.SelectCommand.Parameters
                 .Add("@CveSolicitud", SqlDbType.Int).Direction = ParameterDirection.Output
+                .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output
             End With
 
 
             SqlAdapter.Fill(Data)
             CveSolictudAgregada = SqlAdapter.SelectCommand.Parameters("@CveSolicitud").Value.ToString.ToEntero
+            FolioSolicitud = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero
 
         Catch ex As Exception
             CveSolictudAgregada = -1

App_Code/ClsPaginas.vb

@@ -9368,6 +9368,9 @@ Public Class ClsPaginas
         Dim ErrorMovtos As Boolean = False
         Dim PorcentajePago As Decimal = Pago.ImportePago / CompraActual.Total
         Dim ImporteMovimiento As Decimal = 0
+        Dim ImporteMN As Decimal = 0
+        Dim ImporteME As Decimal = 0
+        Dim TCValuacion As Decimal = CompraActual.TC
         Dim tImportePago, tImporteCompra As Decimal
         Dim CveConceptoContableComplementaria As Integer = 206
 
@@ -9390,49 +9393,53 @@ Public Class ClsPaginas
         If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
             If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                 'FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
-                CompraActual.TC = UltimaFluctuacion.TCFluctuacion
+                TCValuacion = UltimaFluctuacion.TCFluctuacion
             End If
         End If
 
         If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
-            tImportePago = ((Pago.ImportePago * CompraActual.TC / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
+            tImportePago = ((Pago.ImportePago * TCValuacion / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
         ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then  'factura dolares, pago en dolares
-            tImporteCompra = (Pago.ImportePago * CompraActual.TC).RoundSQL
+            tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
             tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
         ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then  'factura dolares, pago en pesos
-            tImporteCompra = (Pago.ImportePago * CompraActual.TC).RoundSQL
+            tImporteCompra = (Pago.ImportePago * TCValuacion).RoundSQL
             tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
         End If
+        If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePago
 
         'movimiento de pago proveedor
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=CompraActual.TC) Then
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
-            ErrorMovtos = True
+
-        End If
 
         'movimiento de pago proveedor Complementaria
         If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 Then
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (Pago.ImportePago * CompraActual.TC - Pago.ImportePago).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=CompraActual.TC, ImporteME:=Pago.ImportePago) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
-                ErrorMovtos = True
+
-            End If
         End If
 
         'si tiene iva y su proporcion
         If Not ErrorMovtos AndAlso CompraActual.IVA <> 0 Then
             ImporteMovimiento = (PorcentajePago * CompraActual.IVA).RoundSQL
+            ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+            If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+
             Dim Ret As CompraRetenciones = CompraActual.ConceptoPrePolizaIVA
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
             'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-            If FuncionalidadFluctuacionImpuestos Then ImporteMovimiento = ((PorcentajePago * CompraActual.IVA).RoundSQL * Pago.TCPago).RoundSQL
+            If FuncionalidadFluctuacionImpuestos Then ImporteMovimiento = (ImporteMovimiento.RoundSQL * Pago.TCPago).RoundSQL
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
             If CompraActual.IVANoDeducible > 0 Then
 
-                Dim ImporteNOIVA As Decimal = CompraActual.IVANoDeducible * PorcentajePago
+                ImporteMovimiento = (CompraActual.IVANoDeducible * PorcentajePago).RoundSQL
+                ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+                If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteNOIVA, ImporteNOIVA, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
             End If
 
@@ -9441,32 +9448,41 @@ Public Class ClsPaginas
         'si tiene RET IVA y su proporcion
         If Not ErrorMovtos AndAlso CompraActual.RetIVA > 0 Then
             ImporteMovimiento = (PorcentajePago * CompraActual.RetIVA).RoundSQL
+            ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+            If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+
             Dim Ret As CompraRetenciones = CompraActual.ConceptoPrePolizaRetIVA
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
             'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-            If FuncionalidadFluctuacionImpuestos Then ImporteMovimiento = ((PorcentajePago * CompraActual.RetIVA).RoundSQL * Pago.TCPago).RoundSQL
+            If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
 
         'si tiene Ret ISR y su proporcion
         If Not ErrorMovtos AndAlso CompraActual.RetISR > 0 Then
             ImporteMovimiento = (PorcentajePago * CompraActual.RetISR).RoundSQL
+            ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+            If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+
             Dim Ret As CompraRetenciones = CompraActual.ConceptoPrePolizaRetISR
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
             'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-            If FuncionalidadFluctuacionImpuestos Then ImporteMovimiento = ((PorcentajePago * CompraActual.RetISR).RoundSQL * Pago.TCPago).RoundSQL
+            If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
 
         'si tiene IEPS y su proporcion
         If Not ErrorMovtos AndAlso CompraActual.IEPS > 0 Then
             ImporteMovimiento = (PorcentajePago * CompraActual.IEPS).RoundSQL
+            ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+            If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+
             Dim Ret As New CompraRetenciones
             If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 If ObjConta.GetRetCuenta(26, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
@@ -9475,12 +9491,12 @@ Public Class ClsPaginas
 
             End If
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, 25, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 25, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
             'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-            If FuncionalidadFluctuacionImpuestos Then ImporteMovimiento = ((PorcentajePago * CompraActual.IEPS).RoundSQL * Pago.TCPago).RoundSQL
+            If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMovimiento, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
 
@@ -9493,8 +9509,7 @@ Public Class ClsPaginas
                 tOtTipoMovto = True : tOtCveCon = 78
                 ImporteMovimiento = Math.Abs(ImporteMovimiento)
             End If
-
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, CompraActual.SerieFolio, Concepto, 0, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=CompraActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, CompraActual.SerieFolio, Concepto, 0, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
         End If
 

Bancos/PrestamoPersonal.aspx.cs

@@ -611,8 +611,6 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
                         MsgError = "No se pudo insertar concepto de acreedor complementaria";
                     }
                 }
-
-
             }
             else
             {
@@ -663,11 +661,13 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
 
         if (MsgError.Equals(""))
         {
+            ObjIE.Commit();
             if (Msg.ToString().Equals(""))
             {
                 Msg.Append("El Documento se guardo correctamente");
             }
-            System.IO.FileInfo archivo = null;
+            System.IO.FileInfo archivo = null;
+            
 
             if (DdlTipoTransanccionPrestamo.SelectedValue.ToEntero().Contiene(2, 8, 9))
             {
@@ -691,7 +691,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
             {
                 Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
             }
-            ObjIE.Commit();
+           
         }
         else
         {

Bancos/ProveedoresAbonar.aspx

@@ -369,7 +369,7 @@
     <asp:UpdatePanel ID="UPCompras" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxP" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" 
-                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio,TipoCambioOriginal, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA,CveTipoConcepto,CveSubProyecto,TotalOriginal,EsImportacion" 
+                DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Total,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio,TipoCambioOriginal, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA,CveTipoConcepto,CveSubProyecto,TotalOriginal,EsImportacion" 
                 Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>

Compras/PopUpVerFactura.aspx.vb

@@ -223,7 +223,28 @@ Partial Class PopUpVerFactura
                 End If
             End If
 
+        End If
+    End Sub
+
+
+    Private Sub DescargaArchivoDirecto(RutaArchivo As String)
+        If RutaArchivo <> "" Then
+
+            'Dim Path As String = String.Format("{0}\{1}", UsuarioActual.Empresa.Ruta, RutaArchivo)
+            Dim Archivo As New System.IO.FileInfo(RutaArchivo)
+
+            If Archivo.Exists Then
+                HttpContext.Current.Response.Clear()
+                HttpContext.Current.Response.ClearContent()
+                HttpContext.Current.Response.ContentType = "application/octet-stream"
+                HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
+                HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+                HttpContext.Current.Response.TransmitFile(RutaArchivo)
+                'HttpContext.Current.Response.Flush()
+                HttpContext.Current.Response.End()
             End If
+            Archivo = Nothing
+        End If
     End Sub
 
     Private Sub ReciboAgropecuaria()
@@ -972,6 +993,12 @@ Partial Class PopUpVerFactura
             DescargaFactura(UrlParametros)
         End If
 
+        If UrlParametros("OP").ToString = "File" Then
+
+            DescargaArchivoDirecto(UrlParametros("FILE").ToString)
+
+        End If
+
         'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA VENTA
         If UrlParametros("OP").ToString = "FactVta" Then
             DescargaFacturaVenta(UrlParametros)
@@ -1258,6 +1285,13 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        'IMPRIME ENTREGAS POR REALIZAR
+        If UrlParametros("OP").ToString = "FILE" Then
+            If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
+                ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
+            End If
+        End If
+
     End Sub
 
     Private Function Parametros(Cadena As String) As Hashtable
@@ -3048,6 +3082,16 @@ Partial Class PopUpVerFactura
                         CartaPorte = New Modelos.MSubReportData()
                         CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                     End If
+                Else
+                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                        CartaPorte = New Modelos.MSubReportData()
+                        CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
+                    End If
+                End If
+            Else
+                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                    CartaPorte = New Modelos.MSubReportData()
+                    CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                 End If
             End If
 

Compras/eFacturas.aspx.vb

@@ -1537,23 +1537,27 @@ Partial Class Compras_eFacturas
         Dim sOnlyFilename As String
 
         For Each filePath In fileEntries
+
             ArchivoExtension = IO.Path.GetExtension(String.Format("{0}", filePath)).Replace(".", "")
             sOnlyFilename = System.IO.Path.GetFileName(filePath)
-            If ArchivoExtension.ToUpper = "RAR" Or ArchivoExtension.ToUpper = "ZIP" Then
-                ListaComprimidos.Add(filePath)
-                'CREO DIRECTORIO ALEATORIO
-                Dim Aleatorio As New Random
-                Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", Date.Now.Ticks, Aleatorio.Next(100, 999))
-                Directory.CreateDirectory(TempDirectorio)
-                ListaDirectoriosTemporales.Add(TempDirectorio)
-                'AGREGA DIRECTORIO A LA LISTA
-                ListDirectorios.Add(TempDirectorio)
-                'DESCOMPRIME RAR
-                DescomprimeFacturas(filePath, TempDirectorio)
-                'AGREGA XML A LA LISTA
-                ListXML.AddRange(Directory.GetFiles(TempDirectorio))
-            End If
 
+            If ArchivoExtension.ToUpper = "RAR" Or ArchivoExtension.ToUpper = "ZIP" Then
+                'ListaComprimidos.Add(filePath)
+                ''CREO DIRECTORIO ALEATORIO
+                'Dim Aleatorio As New Random
+                'Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", Date.Now.Ticks, Aleatorio.Next(100, 999))
+                'Directory.CreateDirectory(TempDirectorio)
+                'ListaDirectoriosTemporales.Add(TempDirectorio)
+                ''AGREGA DIRECTORIO A LA LISTA
+                'ListDirectorios.Add(TempDirectorio)
+                ''DESCOMPRIME RAR
+                'DescomprimeFacturas(filePath, TempDirectorio)
+                ''AGREGA XML A LA LISTA
+                'ListXML.AddRange(Directory.GetFiles(TempDirectorio))
+
+                ListXML.Add(filePath)
+
+            End If
 
         Next
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -548,10 +548,10 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
-            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 291, 292) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
+            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
             If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
-            If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
+            If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
             'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
             If e.Row.DBCampo("Modificado") Then

Empresas/2/Formatos/Factura.rdlc

@@ -23,7 +23,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.92083in</Top>
-        <Left>5.662in</Left>
+        <Left>5.79542in</Left>
         <Height>0.5cm</Height>
         <Width>2.24597in</Width>
         <Style>
@@ -74,7 +74,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.47805in</Top>
-        <Left>5.662in</Left>
+        <Left>5.79542in</Left>
         <Height>0.5cm</Height>
         <Width>2.24597in</Width>
         <ZIndex>1</ZIndex>
@@ -110,7 +110,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.23846in</Top>
-        <Left>5.662in</Left>
+        <Left>5.79542in</Left>
         <Height>0.60856cm</Height>
         <Width>2.24597in</Width>
         <ZIndex>2</ZIndex>
@@ -146,7 +146,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.07652cm</Top>
-        <Left>5.662in</Left>
+        <Left>5.79542in</Left>
         <Height>0.5cm</Height>
         <Width>2.24597in</Width>
         <ZIndex>3</ZIndex>
@@ -250,7 +250,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox4</rd:DefaultName>
         <Top>0.03532cm</Top>
-        <Left>1.58787in</Left>
+        <Left>1.72129in</Left>
         <Height>1.10377in</Height>
         <Width>4.01898in</Width>
         <ZIndex>4</ZIndex>
@@ -269,7 +269,7 @@
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
         <Top>6.00738in</Top>
-        <Left>0.04026in</Left>
+        <Left>0.17368in</Left>
         <Height>0.95455in</Height>
         <Width>1.49755in</Width>
         <ZIndex>5</ZIndex>
@@ -302,7 +302,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.6749in</Top>
-        <Left>5.662in</Left>
+        <Left>5.79542in</Left>
         <Height>0.25114in</Height>
         <Width>2.24597in</Width>
         <ZIndex>6</ZIndex>
@@ -340,7 +340,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.11755in</Top>
-        <Left>5.662in</Left>
+        <Left>5.79542in</Left>
         <Height>0.25635in</Height>
         <Width>2.24597in</Width>
         <ZIndex>7</ZIndex>
@@ -375,7 +375,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox19</rd:DefaultName>
         <Top>1.15168in</Top>
-        <Left>0.14361cm</Left>
+        <Left>0.48249cm</Left>
         <Height>0.22222in</Height>
         <Width>0.81128in</Width>
         <ZIndex>8</ZIndex>
@@ -418,7 +418,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox19</rd:DefaultName>
         <Top>1.15168in</Top>
-        <Left>0.86782in</Left>
+        <Left>1.00124in</Left>
         <Height>0.22222in</Height>
         <Width>4.79418in</Width>
         <ZIndex>9</ZIndex>
@@ -463,7 +463,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox19</rd:DefaultName>
         <Top>1.36869in</Top>
-        <Left>0.05654in</Left>
+        <Left>0.18996in</Left>
         <Height>0.23611in</Height>
         <Width>0.81128in</Width>
         <ZIndex>10</ZIndex>
@@ -507,7 +507,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox19</rd:DefaultName>
         <Top>1.3739in</Top>
-        <Left>0.86782in</Left>
+        <Left>1.00124in</Left>
         <Height>0.2309in</Height>
         <Width>7.0427in</Width>
         <ZIndex>11</ZIndex>
@@ -552,7 +552,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox19</rd:DefaultName>
         <Top>1.6048in</Top>
-        <Left>0.05654in</Left>
+        <Left>0.18996in</Left>
         <Height>0.23611in</Height>
         <Width>0.81128in</Width>
         <ZIndex>12</ZIndex>
@@ -596,7 +596,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox19</rd:DefaultName>
         <Top>1.6048in</Top>
-        <Left>0.86782in</Left>
+        <Left>1.00124in</Left>
         <Height>0.23611in</Height>
         <Width>4.79418in</Width>
         <ZIndex>13</ZIndex>
@@ -642,7 +642,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox54</rd:DefaultName>
         <Top>5.98523in</Top>
-        <Left>1.64412in</Left>
+        <Left>1.77754in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
         <ZIndex>14</ZIndex>
@@ -692,7 +692,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox54</rd:DefaultName>
         <Top>6.17968in</Top>
-        <Left>1.64412in</Left>
+        <Left>1.77754in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
         <ZIndex>15</ZIndex>
@@ -730,7 +730,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox54</rd:DefaultName>
         <Top>6.37823in</Top>
-        <Left>1.64412in</Left>
+        <Left>1.77754in</Left>
         <Height>0.19444in</Height>
         <Width>4.03672in</Width>
         <ZIndex>16</ZIndex>
@@ -768,7 +768,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox54</rd:DefaultName>
         <Top>6.58384in</Top>
-        <Left>1.64412in</Left>
+        <Left>1.77754in</Left>
         <Height>0.19445in</Height>
         <Width>4.03672in</Width>
         <ZIndex>17</ZIndex>
@@ -805,7 +805,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox58</rd:DefaultName>
         <Top>5.97273in</Top>
-        <Left>5.70142in</Left>
+        <Left>5.83484in</Left>
         <Height>0.18056in</Height>
         <Width>2.22448in</Width>
         <ZIndex>18</ZIndex>
@@ -840,7 +840,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox59</rd:DefaultName>
         <Top>6.16989in</Top>
-        <Left>5.69622in</Left>
+        <Left>5.82964in</Left>
         <Height>0.16667in</Height>
         <Width>2.22969in</Width>
         <ZIndex>19</ZIndex>
@@ -874,7 +874,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox60</rd:DefaultName>
         <Top>6.3769in</Top>
-        <Left>5.69622in</Left>
+        <Left>5.82964in</Left>
         <Height>0.16939in</Height>
         <Width>2.22714in</Width>
         <ZIndex>20</ZIndex>
@@ -908,7 +908,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox61</rd:DefaultName>
         <Top>6.58655in</Top>
-        <Left>5.70142in</Left>
+        <Left>5.83484in</Left>
         <Height>0.17784in</Height>
         <Width>2.22193in</Width>
         <ZIndex>21</ZIndex>
@@ -990,7 +990,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox62</rd:DefaultName>
         <Top>6.78501in</Top>
-        <Left>1.53781in</Left>
+        <Left>1.67123in</Left>
         <Height>0.29498in</Height>
         <Width>6.38809in</Width>
         <ZIndex>22</ZIndex>
@@ -1022,10 +1022,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox63</rd:DefaultName>
-        <Top>7.14943in</Top>
+        <Top>8.14943in</Top>
-        <Left>2.5423in</Left>
+        <Left>2.67572in</Left>
         <Height>0.25in</Height>
-        <Width>3.69856in</Width>
+        <Width>3.61523in</Width>
         <ZIndex>23</ZIndex>
         <Style>
           <Border>
@@ -1804,8 +1804,8 @@
           </Line>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>18.94447cm</Top>
+        <Top>21.48447cm</Top>
-        <Left>0.04721cm</Left>
+        <Left>0.38609cm</Left>
         <Height>4.04843cm</Height>
         <Width>20.06179cm</Width>
         <ZIndex>24</ZIndex>
@@ -2195,7 +2195,6 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -2442,7 +2441,7 @@
         </TablixRowHierarchy>
         <DataSetName>DsOC</DataSetName>
         <Top>4.59222cm</Top>
-        <Left>0.11468cm</Left>
+        <Left>0.45356cm</Left>
         <Height>1.01949cm</Height>
         <Width>20.01064cm</Width>
         <ZIndex>25</ZIndex>
@@ -2481,7 +2480,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox19</rd:DefaultName>
         <Top>1.6173in</Top>
-        <Left>5.662in</Left>
+        <Left>5.79542in</Left>
         <Height>0.20317in</Height>
         <Width>2.26391in</Width>
         <ZIndex>26</ZIndex>
@@ -2770,7 +2769,7 @@
         </TablixRowHierarchy>
         <DataSetName>DataSet3</DataSetName>
         <Top>2.54983in</Top>
-        <Left>5.73412in</Left>
+        <Left>5.86754in</Left>
         <Height>0.34081in</Height>
         <Width>2.19818in</Width>
         <ZIndex>27</ZIndex>
@@ -2889,7 +2888,7 @@
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Top>5.75282cm</Top>
-        <Left>14.56464cm</Left>
+        <Left>14.90352cm</Left>
         <Height>0.6cm</Height>
         <Width>5.58343cm</Width>
         <ZIndex>28</ZIndex>
@@ -3438,7 +3437,7 @@
         </TablixRowHierarchy>
         <DataSetName>DsOC</DataSetName>
         <Top>5.75282cm</Top>
-        <Left>0.11468cm</Left>
+        <Left>0.45356cm</Left>
         <Height>5.16188cm</Height>
         <Width>14.34413cm</Width>
         <ZIndex>29</ZIndex>
@@ -3483,7 +3482,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox18</rd:DefaultName>
         <Top>4.59585in</Top>
-        <Left>0.04404in</Left>
+        <Left>0.17746in</Left>
         <Height>0.36457in</Height>
         <Width>7.87931in</Width>
         <ZIndex>30</ZIndex>
@@ -3519,7 +3518,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
         <Top>10.95026cm</Top>
-        <Left>0.13016cm</Left>
+        <Left>0.46904cm</Left>
         <Height>0.6cm</Height>
         <Width>19.96256cm</Width>
         <ZIndex>31</ZIndex>
@@ -3611,7 +3610,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
         <Top>12.7053cm</Top>
-        <Left>10.16136cm</Left>
+        <Left>10.50025cm</Left>
         <Height>2.37271cm</Height>
         <Width>9.55228cm</Width>
         <ZIndex>32</ZIndex>
@@ -3702,7 +3701,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
         <Top>12.7053cm</Top>
-        <Left>0.50677cm</Left>
+        <Left>0.84566cm</Left>
         <Height>2.37271cm</Height>
         <Width>9.55228cm</Width>
         <ZIndex>33</ZIndex>
@@ -3716,11 +3715,523 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox8">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>VERSION </Value>
+                <Style>
+                  <FontFamily>MYRiad Pro</FontFamily>
+                  <FontSize>9.16pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!CFDIVersion.Value</Value>
+                <Style>
+                  <FontFamily>MYRiad Pro</FontFamily>
+                  <FontSize>9.16pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox5</rd:DefaultName>
+        <Top>20.52317cm</Top>
+        <Left>16.8018cm</Left>
+        <Height>0.65292cm</Height>
+        <Width>3.68516cm</Width>
+        <ZIndex>34</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Rectangle Name="Rectangle5">
+        <ReportItems>
+          <Textbox Name="Textbox41">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>CFDI Relacionados</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>10.16pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                      <Color>White</Color>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Center</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox5</rd:DefaultName>
+            <Top>0.14926cm</Top>
+            <Left>0.07193cm</Left>
+            <Height>0.54004cm</Height>
+            <Width>20.01791cm</Width>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <BackgroundColor>#bdd7ee</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox42">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Tipo Relación:</Value>
+                    <Style>
+                      <FontFamily>Myriad Pro</FontFamily>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                      <Color>DimGray</Color>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Right</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox29</rd:DefaultName>
+            <Top>0.83025cm</Top>
+            <Left>4.78817cm</Left>
+            <Height>0.41981cm</Height>
+            <Width>5.31841cm</Width>
+            <ZIndex>1</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox43">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!TipoRelacionTexto.Value</Value>
+                    <Style>
+                      <FontFamily>Myriad Pro</FontFamily>
+                      <FontSize>8pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox29</rd:DefaultName>
+            <Top>0.83025cm</Top>
+            <Left>10.10658cm</Left>
+            <Height>0.41981cm</Height>
+            <Width>7.14985cm</Width>
+            <ZIndex>2</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Tablix Name="Tablix3">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>2.42456cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.05585cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>3.03631cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>7.7847cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.44125cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox10">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Folio</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                    <Color>White</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox10</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>#bdd7ee</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox14">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Fecha</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                    <Color>White</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox12</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>#bdd7ee</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox21">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Importe</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                    <Color>White</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox21</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>#bdd7ee</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox11">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Folio Fiscal</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                    <Color>White</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox11</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>#bdd7ee</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.41479cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="SerieFolio">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!SerieFolio.Value</Value>
+                                  <Style>
+                                    <FontFamily>myriad pro</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>SerieFolio</rd:DefaultName>
+                          <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="Fecha">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Fecha.Value</Value>
+                                  <Style>
+                                    <FontFamily>myriad pro</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <Format>dd/MM/yyyy</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Fecha</rd:DefaultName>
+                          <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="Importe1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Importe.Value</Value>
+                                  <Style>
+                                    <FontFamily>myriad pro</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <Format>#,0.00;-#,0.00;'-'</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Importe1</rd:DefaultName>
+                          <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="FolioFiscal">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!FolioFiscal.Value</Value>
+                                  <Style>
+                                    <FontFamily>myriad pro</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>FolioFiscal</rd:DefaultName>
+                          <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>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <Group Name="Details2" />
+                </TablixMember>
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DataSet4</DataSetName>
+            <Top>1.39643cm</Top>
+            <Left>3.28643cm</Left>
+            <Height>0.85604cm</Height>
+            <Width>15.30142cm</Width>
+            <ZIndex>3</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+        </ReportItems>
+        <KeepTogether>true</KeepTogether>
+        <Top>18.09605cm</Top>
+        <Left>0.39712cm</Left>
+        <Height>2.25247cm</Height>
+        <Width>20.08984cm</Width>
+        <ZIndex>35</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Rectangle>
     </ReportItems>
-    <Height>22.9929cm</Height>
+    <Height>25.5329cm</Height>
     <Style />
   </Body>
-  <Width>20.22041cm</Width>
+  <Width>20.48696cm</Width>
   <Page>
     <PageHeight>27.94cm</PageHeight>
     <PageWidth>21.59cm</PageWidth>
@@ -3975,6 +4486,74 @@
         <rd:TableAdapterName />
       </rd:DataSetInfo>
     </DataSet>
+    <DataSet Name="DataSet4">
+      <Query>
+        <DataSourceName>DsDesgloseImpuestos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="FolioFiscal">
+          <DataField>FolioFiscal</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsDocumentosRelacionados</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet5">
+      <Query>
+        <DataSourceName>DsDesgloseImpuestos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SubTotal">
+          <DataField>SubTotal</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Moneda">
+          <DataField>Moneda</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsNCVinculadas</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
   </DataSets>
   <ReportParameters>
     <ReportParameter Name="ClienteCodigo">
@@ -4501,6 +5080,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>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo1">

Empresas/70/Formatos/Factura.rdlc

@@ -4003,48 +4003,11 @@
               </Border>
             </Style>
           </Tablix>
-          <Textbox Name="Textbox72">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>VERSION 3.3</Value>
-                    <Style>
-                      <FontFamily>MYRiad Pro</FontFamily>
-                      <FontSize>9.16pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>DimGray</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>2.28775cm</Top>
-            <Left>17.08931cm</Left>
-            <Height>0.6cm</Height>
-            <Width>3.06609cm</Width>
-            <ZIndex>4</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
         <Top>19.72306cm</Top>
         <Left>0.04112cm</Left>
-        <Height>2.97096cm</Height>
+        <Height>2.25247cm</Height>
         <Width>20.1554cm</Width>
         <ZIndex>31</ZIndex>
         <Visibility>
@@ -4289,11 +4252,57 @@
           </Border>
         </Style>
       </Image>
+      <Textbox Name="Textbox8">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>VERSION </Value>
+                <Style>
+                  <FontFamily>MYRiad Pro</FontFamily>
+                  <FontSize>9.16pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!CFDIVersion.Value</Value>
+                <Style>
+                  <FontFamily>MYRiad Pro</FontFamily>
+                  <FontSize>9.16pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                  <Color>DimGray</Color>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox5</rd:DefaultName>
+        <Top>22.07758cm</Top>
+        <Left>16.48898cm</Left>
+        <Height>0.56043cm</Height>
+        <Width>3.68516cm</Width>
+        <ZIndex>36</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>27.07124cm</Height>
     <Style />
   </Body>
-  <Width>20.23764cm</Width>
+  <Width>20.19652cm</Width>
   <Page>
     <PageFooter>
       <Height>0.74083cm</Height>
@@ -5212,6 +5221,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>
   <EmbeddedImages>
     <EmbeddedImage Name="logo">

General/CatDocumentacionTipo.aspx

@@ -102,6 +102,7 @@ Catalogo Documentacion Tipo
                                     <asp:ListItem Value="1">Recursos Humanos</asp:ListItem>
                                     <asp:ListItem Value="2">Clientes</asp:ListItem>
                                     <asp:ListItem Value="4">Proveedor</asp:ListItem> <%-- Nota: EL tipo Tres es tipo Auditoria de documentos de proveedor usadon el portal prveedor y --%>
+                                    <asp:ListItem Value="8">Inicio</asp:ListItem>
                                 </asp:DropDownList>
                                 <asp:RequiredFieldValidator ID="RfvEdocmodulo" InitialValue="-1" runat="server" ControlToValidate="DdlEdocmodulo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Modulo''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEdoc"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VcoEdocmodulo" runat="server" HighlightCssClass="vco" TargetControlID="RfvEdocmodulo"></ajax:ValidatorCalloutExtender>

Inicio.aspx

@@ -510,136 +510,27 @@
                                  
                                         <asp:UpdatePanel runat="server" ID="UpDocumentos" UpdateMode="Conditional">
                                             <ContentTemplate>
-
+                                                <asp:GridView ID="GvDoc" runat="server" GridLines="None" OnRowDataBound="GvDoc_RowDataBound" CssClass="table " AutoGenerateColumns="False" ShowHeader="False" Width="100%">
-                                                <div class="row">
+                                                    <Columns>
-                                                    <div class="col-md-6">
+                                                        <asp:TemplateField>                                                          
-                                                        <div class="well well-sm">                                                            
+                                                            <ItemTemplate>
-                                                            <asp:HyperLink ID="LnkDoc1" NavigateUrl="Empresas\140\DocElectronica\Precios\AMERICA.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> AMERICA</asp:HyperLink>
+                                                                <div>
-                                                        </div>
+                                                                    <div class="col-md-6">
-                                                    </div>
+                                                                        <div class="well well-sm">                                                            
-                                                    <div class="col-md-6">
+                                                                            <asp:HyperLink ID="LnkDoc1" runat="server" NavigateUrl='<%# Eval("Liga") %>'  Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> <%# Eval("Nombre") %> </asp:HyperLink>
-                                                        <div class="well well-sm">                                                            
+                                                                        </div>
-                                                            <asp:HyperLink ID="LnkDoc2" NavigateUrl="Empresas\140\DocElectronica\Precios\CRONOS.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> CRONOS</asp:HyperLink>
+                                                                    </div>
-                                                        </div>
+                                                                    <div class="col-md-6">
-                                                    </div>
+                                                                        <div class="well well-sm" id="divdoc20" runat="server" visible="false">                                                            
-                                                </div>
+                                                                            <asp:HyperLink ID="LnkDoc2" runat="server" NavigateUrl='<%# Eval("Liga2") %>'  Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> <%# Eval("Nombre2") %> </asp:HyperLink>
-
+                                                                        </div>
-                                                <div class="row">
+                                                                    </div>
-                                                    <div class="col-md-6">
+                                                                </div> 
-                                                        <div class="well well-sm">                                                            
+                                                            </ItemTemplate>
-                                                            <asp:HyperLink ID="LnkDoc3" NavigateUrl="Empresas\140\DocElectronica\Precios\DIENER.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> DIENER</asp:HyperLink>
+                                                        </asp:TemplateField>
-                                                        </div>
+                                                    </Columns>
-                                                    </div>
+                                                </asp:GridView> 
-                                                    <div class="col-md-6">
+                                                 
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc4" NavigateUrl="Empresas\140\DocElectronica\Precios\FULLPOWER.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> FULL POWER</asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                </div>
-
-
-                                                 <div class="row">
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc5" NavigateUrl="Empresas\140\DocElectronica\Precios\LTHAGM.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH AGM</asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">                                                           
-                                                            <asp:HyperLink ID="LnkDoc6" NavigateUrl="Empresas\140\DocElectronica\Precios\LTHESPECIALES.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH ESPECIALES</asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                </div>
-
-                                                   <div class="row">
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">
-                                                            <asp:HyperLink ID="LnkDoc7" NavigateUrl="Empresas\140\DocElectronica\Precios\LTHHEAVYDUTY.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH HEAVY DUTY</asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">
-                                                            <asp:HyperLink ID="LnkDoc8" NavigateUrl="Empresas\140\DocElectronica\Precios\LTHHI-TEC.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH HI-TEC</asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                </div>
-
-
-                                                   <div class="row">
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc9" NavigateUrl="Empresas\140\DocElectronica\Precios\LTHSUV-VAN-MINIVAN.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH SUV-VAN-MINIVAN</asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc10" NavigateUrl="Empresas\140\DocElectronica\Precios\LTHTAXI.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH TAXI</asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                </div>
-
-                                                   <div class="row">
-                                                        <div class="col-md-6">
-                                                            <div class="well well-sm">                                                            
-                                                                <asp:HyperLink ID="LnkDoc11" NavigateUrl="Empresas\140\DocElectronica\Precios\LTH.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH</asp:HyperLink>
-                                                            </div>
-                                                        </div>
-                                                        <div class="col-md-6">
-                                                            <div class="well well-sm">                                                            
-                                                                <asp:HyperLink ID="LnkDoc12" NavigateUrl="Empresas\140\DocElectronica\Precios\OPTIMA.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> OPTIMA</asp:HyperLink>
-                                                            </div>
-                                                        </div>
-                                                    </div>
-
-                                                <div class="row">
-                                                        <div class="col-md-6">
-                                                            <div class="well well-sm">                                                            
-                                                                <asp:HyperLink ID="LnkDoc14" NavigateUrl="Empresas\140\DocElectronica\Precios\FiltrosPisos.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> FILTROS PISOS
-                                                                </asp:HyperLink>
-                                                            </div>
-                                                        </div>
-                                                        <div class="col-md-6">
-                                                            <div class="well well-sm">                                                            
-                                                                <asp:HyperLink ID="LnkDoc15" NavigateUrl="Empresas\140\DocElectronica\Precios\FiltrosMayoreo.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> FILTROS MAYOREO
-                                                                </asp:HyperLink>
-                                                            </div>
-                                                        </div>
-                                                    </div>
-                                                <div class="row">
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc16" NavigateUrl="Empresas\140\DocElectronica\Precios\MOTOBATERIASLTH.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> MOTOBATERIAS LTH
-                                                            </asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc17" NavigateUrl="Empresas\140\DocElectronica\Precios\MOTOBATERIASAMERICA.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> MOTOBATERIAS AMERICA
-                                                            </asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                </div> 
-                                                <div class="row">
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc18" NavigateUrl="Empresas\140\DocElectronica\Precios\ALCALINASPISOS.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> ALCALINAS PISOS
-                                                            </asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                    <div class="col-md-6">
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc19" NavigateUrl="Empresas\140\DocElectronica\Precios\ALCALINASMAYOREO.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> ALCALINAS MAYOREO
-                                                            </asp:HyperLink>
-                                                        </div>
-                                                    </div>
-                                                </div> 
-                                                  <div class="row">
-                                                         <div class="col-md-6">
-                                                        <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc13" NavigateUrl="Empresas\140\DocElectronica\Precios\CatAPSAGM-HT-LTH-CR 2021.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> Cat APS AGM-HT-LTH-CR 2021</asp:HyperLink>
-                                                        </div>
-                                                    </div>  
-                                                    </div> 
                                             </ContentTemplate>    
                                         </asp:UpdatePanel> 
                             </div>
@@ -1481,14 +1372,6 @@
         </div>
     </div>
 
-
-
-
-
-
-
-
-
        <div id="DVModalPSPorCaducar" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
@@ -1528,9 +1411,6 @@
                            </div>
                     </div>
 
-
-                   
-
                     <div class="modal-footer">
                         <asp:UpdatePanel runat="server">
                             <ContentTemplate>
@@ -1541,7 +1421,6 @@
                 </div>
             </div>
         </div>
-
     </div>
 
 
@@ -1599,22 +1478,6 @@
 
     </div>
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
 

Inicio.aspx.vb

@@ -236,9 +236,7 @@ Partial Class Inicio
             'Evaluacion del proveedor
             CargaEvaluacionProveedor()
 
-            If UsuarioActual.CveEmpresa = 140 Then
+            CargaDocumentacion()
-                DVDescargasBDH.Visible = True
-            End If
 
         End If
 
@@ -1298,37 +1296,61 @@ Partial Class Inicio
         RegistraScript("$('#DvUnoaUno').modal('hide')")
     End Sub
 
-    'Protected Sub LnkDecargaDoc_Click(sender As Object, e As EventArgs)
 
-    '    Dim NombreArchivo As String = DirectCast(sender, LinkButton).Attributes("NombreArchivo")
+#Region "DOCUMENTACION"
-    '    Dim filePath As String = $"{Server.MapPath("~")}\Documentacion\140\{DirectCast(sender, LinkButton).Attributes("NombreArchivo")}"
 
+    Private Sub CargaDocumentacion()
+        If UsuarioActual.CveEmpresa = 140 Then
+            DVDescargasBDH.Visible = True
 
-    '    Dim Archivo As New System.IO.FileInfo(filePath)
+            Dim TmpDT = New DataTable()
 
+            Dim ObjDoc As New ClsEdocumentacion
+            If ObjDoc.DocumentacionGet(-1, -1, 1, UsuarioActual.Empresa.CveEmpresa, Modulo:=8) Then
+                Dim dtt As New DataTable
+                dtt = ObjDoc.DtResultados
+                If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
 
-    '    Dim mimeType As String = Nothing
+                    TmpDT.Columns.Add(New DataColumn("Nombre", GetType(String)))
+                    TmpDT.Columns.Add(New DataColumn("Liga", GetType(String)))
+                    TmpDT.Columns.Add(New DataColumn("Nombre2", GetType(String)))
+                    TmpDT.Columns.Add(New DataColumn("Liga2", GetType(String)))
+                    'Dim i As Integer = 0
+                    'Dim Nombre As String = ""
+                    'Dim Liga As String = ""
+                    Dim drr As DataRow
+                    For Each dr As DataRow In dtt.Rows
 
-    '    If Archivo.Exists Then
+                        If (dr("Consec").ToString.ToEntero Mod 2) = 1 Then 'primer renglón
+                            drr = TmpDT.NewRow
+                            drr("Nombre") = dr("Documentacion").ToString
+                            drr("Liga") = String.Format("/Compras/PopUpVerFactura.aspx?p={0}", Encripta(String.Format("op=File&File={0}\Formatos\{1}_{2}", UsuarioActual.Empresa.Ruta, dr("CveDocumentacion"), dr("DocumentacionFormato")).Replace("\", "/").Replace("//", "/")))
+                            TmpDT.Rows.Add(drr)
+                        Else
+                            TmpDT.Rows((dr("Consec").ToString.ToEntero / 2) - 1)("Nombre2") = dr("Documentacion").ToString
+                            TmpDT.Rows((dr("Consec").ToString.ToEntero / 2) - 1)("Liga2") = String.Format("/Compras/PopUpVerFactura.aspx?p={0}", Encripta(String.Format("op=File&File={0}\Formatos\{1}_{2}", UsuarioActual.Empresa.Ruta, dr("CveDocumentacion"), dr("DocumentacionFormato")).Replace("\", "/").Replace("//", "/")))
+                        End If
+                    Next
 
-    '        HttpContext.Current.Response.Buffer = True
+                End If
-    '        HttpContext.Current.Response.Clear()
+            End If
-    '        HttpContext.Current.Response.ClearContent()
+            ObjDoc.Dispose()
-    '        HttpContext.Current.Response.ContentType = mimeType
-    '        HttpContext.Current.Response.AppendHeader("Content-disposition", "inline; filename=" & NombreArchivo)
-    '        HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
-    '        HttpContext.Current.Response.TransmitFile(filePath)
-    '        HttpContext.Current.Response.Flush()
-    '        HttpContext.Current.Response.SuppressContent = True
-    '        HttpContext.Current.ApplicationInstance.CompleteRequest()
-    '        HttpContext.Current.Response.End()
 
-    '        Archivo = Nothing
+            GvDoc.DataSource = TmpDT
-    '    End If
+            GvDoc.DataBind()
 
+        End If
+    End Sub
+    Protected Sub GvDoc_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("Nombre2") <> "" Then
+                e.Row.FindControl("divdoc20").Visible = True
+            End If
 
+        End If
+    End Sub
 
+#End Region
 
-    'End Sub
 
 End Class

Inventarios/EntradasSalidas.aspx

@@ -141,8 +141,8 @@
                                             <asp:DropDownList ID="DdlCConcepto" DataTextField="Concepto" CssClass="form-control input-sm" DataValueField="CveConcepto" runat="server" Style="max-width: 200px"></asp:DropDownList>
                                         </div>
                                         <label class="col-md-1 truncate">Folio:</label>
-                                        <div class="col-md-2">
+                                        <div class="col-md-2 ">
-                                            <asp:TextBox ID="TxtCFolio" runat="server" Style="max-width: 120px"></asp:TextBox>
+                                            <asp:TextBox ID="TxtCFolio" runat="server" Style="max-width: 120px" ></asp:TextBox>
                                         </div>
                                     </div>
                                 </div>
@@ -219,7 +219,7 @@
                                             </div>
                                             <label class="col-md-1 truncate" style="width: 110px" id="DivFolio1" runat="server">Folio:</label>
                                             <div class="col-md-2" id="DivFolio2" runat="server">
-                                                <asp:TextBox ID="TxtFolio" runat="server" Style="" Width="100%"></asp:TextBox>
+                                                <asp:TextBox ID="TxtFolio" runat="server" style="text-align:left;"  CssClass="TextBoxAsLabel"  Font-Bold="true" Width="100%"></asp:TextBox>
                                                 <ajax:FilteredTextBoxExtender ID="SoloNumerosFolio" runat="server" TargetControlID="TxtFolio" FilterType="Numbers" />
                                             </div>
                                         </div>

Inventarios/KardexAlmacenHorizontal.aspx

@@ -94,14 +94,15 @@
     </li>
     <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
-    <li>
+    <li>        
-        
+                <asp:LinkButton runat="server" ID="LnkProyectado" OnClick="LnkProyectado_Click" Text="Cargar Proyecciones" />            
-                <asp:LinkButton runat="server" ID="LnkProyectado" OnClick="LnkProyectado_Click" Text="Cargar Proyecciones" />
-            
     </li>
+    
                 </ContentTemplate>
         </asp:UpdatePanel>
-        
+        <li>        
+                <asp:LinkButton runat="server" ID="LnkPOG" OnClick="LnkProyectado_Click" Visible="false"><i class="fa fa-ad-excel"></i> POG</asp:LinkButton>            
+    </li>
 </asp:Content>
 
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -298,6 +299,59 @@
             </asp:UpdatePanel>
         </div>
     </div>
+
+    <div id="DivPOG" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpdatePanel2" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal1" runat="server">POG:</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row" style="width: 100%; text-align: center">
+                            <asp:Label runat="server" ID="Label2" />
+                            <asp:RadioButtonList ID="RBLPOG" runat="server" RepeatDirection="Horizontal" Width="50%" Style="margin: 0 15% 0 15%">                              
+                                <asp:ListItem Text="Ventas" Value="0" />
+                                <asp:ListItem Text="Existencias" Value="1"  Selected="True"/>
+                            </asp:RadioButtonList>
+                            
+                        </div>
+                        <div class="row">
+                            <div class="col-md-2 truncate">
+                                Fecha:                           
+                            </div>
+                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                            <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                            <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                           
+                        </div>
+                        
+                       
+                        <br />
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnDescargarPOG" OnClick="BtnDescargarPOG_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                        <button id="Button4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+                <Triggers>
+                    <asp:PostBackTrigger ControlID="BtnDescargarPOG" />
+                </Triggers>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -24,6 +24,12 @@ Partial Class Inventarios_KardexAlmacen
                 DdlMarca.Visible = True
                 DdlOrden.SelectedValue = 2
             End If
+
+            If UsuarioActual.CveEmpresa = 119 Then
+                LnkPOG.Visible = True
+                txtFechaI.Text = Now.ToShortDateString
+            End If
+
             If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
         End If
@@ -436,57 +442,78 @@ Partial Class Inventarios_KardexAlmacen
 
     End Sub
 
-    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
+    'Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+    '    SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+    '    Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
 
-        Dim unnamed As Integer = 0
+    '    Dim unnamed As Integer = 0
-        Dim cols As Integer
+    '    Dim cols As Integer
-        Dim columns As String()
+    '    Dim columns As String()
-        Dim curRow As Integer = 0
+    '    Dim curRow As Integer = 0
-        Dim curCol As Integer = 0
+    '    Dim curCol As Integer = 0
-        Dim dataTable As DataTable = New DataTable()
+    '    Dim dataTable As DataTable = New DataTable()
-        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
+    '    Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
 
-        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+    '    For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
 
-            If firstRowHasHeaders Then
+    '        If firstRowHasHeaders Then
 
-                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
+    '            If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString().Trim)
+    '                dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString().Trim)
-                Else
+    '            Else
-                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
+    '                dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
-                End If
+    '            End If
 
-                curRow = 1
+    '            curRow = 1
-            Else
+    '        Else
-                dataTable.Columns.Add("Column " & (cols + 1))
+    '            dataTable.Columns.Add("Column " & (cols + 1))
-            End If
+    '        End If
 
-        Next
+    '    Next
 
-        While curRow < worksheet.Rows.Count
+    '    While curRow < worksheet.Rows.Count
 
-            columns = New String(cols - 1) {}
+    '        columns = New String(cols - 1) {}
 
-            For curCol = 0 To cols - 1
+    '        For curCol = 0 To cols - 1
 
-                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
+    '            If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
-                    columns(curCol) = ""
+    '                columns(curCol) = ""
-                Else
+    '            Else
-                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
+    '                columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
-                End If
+    '            End If
 
-            Next
+    '        Next
 
-            dataTable.Rows.Add(columns)
+    '        dataTable.Rows.Add(columns)
-            curRow += 1
+    '        curRow += 1
 
-        End While
+    '    End While
 
-        Return dataTable
+    '    Return dataTable
 
-    End Function
+    'End Function
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
-    End Sub
+    End Sub
+
+    Private Sub LnkPOG_Click(sender As Object, e As EventArgs) Handles LnkPOG.Click
+
+        RegistraScript(String.Format("$('#{0}').modal();", "DivPOG"))
+
+    End Sub
+
+    Protected Sub BtnDescargarPOG_Click(sender As Object, e As EventArgs)
+
+        Dim Fecha As Date = txtFechaI.Text.ToDate
+        Dim Nombre As String = IIf(RBLPOG.SelectedValue = "0", "Ventas-", "Existencias-")
+
+        Using ObjInventario As New ClsInventarios
+
+            If ObjInventario.GetJAM_BASF_POG(Fecha) AndAlso ObjInventario.DataSetResultados IsNot Nothing Then
+                ObjInventario.DataSetResultados.Tables(RBLPOG.SelectedValue.ToEntero).ExportToExcel(Nombre & Fecha.ToShortDateString)
+
+            End If
+        End Using
+
+    End Sub
 End Class

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2691,7 +2691,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                             PU = ((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundSQL - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
                                         End If
                                     End If
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
                                         ErrorMovInv = True
                                         Exit For
                                     End If
@@ -2794,7 +2794,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                         PU = ((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundSQL - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
                                     End If
                                 End If
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
                                     ErrorMovInv = True
                                     Exit For
                                 End If

Inventarios/RecepcionUsados.aspx.vb

@@ -2037,7 +2037,7 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub CambiaCliente(Optional CargaSucursales As Boolean = True, Optional CargaFacturas As Boolean = True)
         If DdlClientes.SelectedValue.ToEntero > 0 Then
-            Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("EsDistribuidor", ""))
+            Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", ""))
             If CargaSucursales Then
                 DivClienteSucursal.Visible = False
                 DdlClientesSucursales.Items.Clear()

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2182,8 +2182,8 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim FolioVirtualEntrada, FolioVirtualSalida As Integer
             If RealizarMovimientoVirtual AndAlso Not ErrorMovInv Then
 
-                Dim CveAlmacenVirtualSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenEntrada).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
+                Dim CveAlmacenVirtualSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenSalida).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
-                Dim CveAlmacenVirtualEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenSalida).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
+                Dim CveAlmacenVirtualEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenEntrada).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
 
                 If CveAlmacenVirtualSalida > 0 Then
 

RH/CatDocumentos.aspx

@@ -178,19 +178,25 @@
                         <label for="<%= Txtdocumentacion.ClientID.ToString()%>">Documento:</label>
                     </div>
 
-                    <div class="form-group form-md-line-input input-iconright">
+                    <div class="row">
-                        <asp:DropDownList ID="DdlDocumentacionTipo" runat="server" Width="150" CssClass=" select2me form-control " DataValueField="CveDocumentacionTipo" DataTextField="DocumentacionTipo">
+                        <div class="col-md-6">
-                        </asp:DropDownList>
+                            <div class="form-group form-md-line-input input-iconright">
-                        <asp:RequiredFieldValidator InitialValue="-1" ID="rfvDdlDocumentacionTipo" ControlToValidate="DdlDocumentacionTipo" CssClass="help-block errorimput" ValidationGroup="GrpEscolaridad" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
+                            <asp:DropDownList ID="DdlDocumentacionTipo" runat="server" Width="100%" CssClass=" select2me form-control " DataValueField="CveDocumentacionTipo" DataTextField="DocumentacionTipo">
-                        <label for="<%= DdlDocumentacionTipo.ClientID.ToString()%>">Tipo de documento:</label>
+                            </asp:DropDownList>
-                    </div>
+                            <asp:RequiredFieldValidator InitialValue="-1" ID="rfvDdlDocumentacionTipo" ControlToValidate="DdlDocumentacionTipo" CssClass="help-block errorimput" ValidationGroup="GrpEscolaridad" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
-
+                            <label for="<%= DdlDocumentacionTipo.ClientID.ToString()%>">Tipo de documento:</label>
+                        </div>
+                            </div>
+                         <div class="col-md-6">
                     <div class="form-group form-md-line-input input-iconright">
                         <asp:TextBox ID="TxtOrden" CssClass="form-control" onkeypress="validate(event)" MaxLength="3" runat="server"></asp:TextBox>
                         <asp:RequiredFieldValidator ID="rfvTxtOrden" runat="server" ControlToValidate="TxtOrden" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Institución''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
                         <ajax:FilteredTextBoxExtender ID="filTxtOrden" runat="server" TargetControlID="TxtOrden" FilterType="Numbers" ValidChars="" />
                         <label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
                     </div>
+                    </div>
+ </div>
+                    
 
                     <div class="form-group form-md-line-input input-iconright">
                         <asp:TextBox ID="TxtDiasLimite" CssClass="form-control" onkeypress="validate(event)" MaxLength="2" runat="server"></asp:TextBox>
@@ -198,22 +204,23 @@
                         <ajax:FilteredTextBoxExtender ID="FilTxtDiasLimite" runat="server" TargetControlID="TxtDiasLimite" FilterType="Numbers" ValidChars="" />
                         <label for="<%= TxtOrden.ClientID.ToString()%>">Días Limite:</label>
                     </div>
-
+                    <div class="row">
-                    <div class="form-group form-md-line-input input-iconright">
+                         <div class="form-group form-md-line-input input-iconright col-md-6">
-                        <asp:CheckBox ID="ChkAplicaDiasLimite" runat="server" Text="Aplica Días Límite" />
+                            <asp:CheckBox ID="ChkAplicaDiasLimite" runat="server" Text="Aplica Días Límite" />
-                    </div>
+                        </div>
-                    <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright  col-md-6">
-                        <asp:CheckBox ID="ChkAplicaFechaVencimiento" runat="server" Text="Aplica Fecha de Vencimiento" />
+                            <asp:CheckBox ID="ChkAplicaFechaVencimiento" runat="server" Text="Aplica Fecha de Vencimiento" />
-                    </div>
+                        </div>
-
-                    <div class="form-group form-md-line-input input-iconright">
-                        <asp:CheckBox ID="chkRequerido" runat="server" Text="Requerido" />
-                    </div>
-
-                    <div class="form-group form-md-line-input input-iconright">
-                        <asp:CheckBox ID="chkEstatus" runat="server" Text="Activo" />
                     </div>
+                    <div class="row">
+                        <div class="form-group form-md-line-input input-iconright col-md-6">
+                            <asp:CheckBox ID="chkEstatus" runat="server" Text="Activo" />
+                        </div>
 
+                        <div class="form-group form-md-line-input input-iconright col-md-6">
+                            <asp:CheckBox ID="chkRequerido" runat="server" Text="Requerido" />
+                        </div>
+                     </div>
                     <div class="form-group form-md-line-input input-iconright ">
                         <div class="row ">
                             <div class="col-md-12">
@@ -246,7 +253,7 @@
                         <ContentTemplate>
 
                             <asp:GridView ID="GvParametros" runat="server" AutoGenerateColumns="False"
-                                DataKeyNames="CveDocumentacionParametro,CveDocumentacion,Parametro,Descripcion " CssClass="table  table-hover table-advance  Widthall" GridLines="None">
+                                DataKeyNames="CveDocumentacionParametro,CveDocumentacion,Parametro,Descripcion " CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                 <Columns>
 
                                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="60px" HeaderText="Parámetro">

RH/CatDocumentos.aspx.vb

@@ -430,7 +430,7 @@ Partial Class RH_CatDocumentos
 
             If DocumetacionFormato.Trim.Length > 0 Then
 
-                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & _CveDocumentacion & "_" & DocumetacionFormato
+                Dim linkDescarga = UsuarioActual.Empresa.Ruta & "/Formatos/" & _CveDocumentacion & "_" & DocumetacionFormato
                 Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "\Formatos\" & _CveDocumentacion & "_" & DocumetacionFormato
                 If File.Exists(linkDescargaArchivo) Then
                     ImgDownLoad.Visible = True

SAT/SolicitudesIngresoSat.aspx

@@ -227,10 +227,10 @@
         <ContentTemplate>
 
              <li>
-                 <asp:LinkButton ID="LnkDownloadExcel" OnClick="LnkDownloadExcel_Click" runat="server"><i class="fa fa-download"></i>Descargar</asp:LinkButton>
+                 <asp:LinkButton ID="LnkDownloadExcel" OnClick="LnkDownloadExcel_Click" runat="server"><i class="fa fa-file-excel-o"></i>Excel</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server"> Solicitudes</asp:LinkButton>
+                <asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server"> <i class="fa fa-external-link"></i> Solicitudes</asp:LinkButton>
             </li>
 
         </ContentTemplate>
@@ -371,11 +371,14 @@
                             </asp:TemplateField>
 
 
-                            <asp:TemplateField HeaderText="SIG">
+                            <asp:HyperLinkField HeaderText="Sistema" DataNavigateUrlFields="CveVenta"  DataNavigateUrlFormatString = "/Ventas/Ventas.aspx?CveVenta={0}"  DataTextField="Sistema" ControlStyle-CssClass='Texto' target='_blank' ></asp:HyperLinkField>
+
+
+                       <%--     <asp:TemplateField HeaderText="SIG">
                                 <ItemTemplate>
                                     <asp:Label runat="server" ID="LblEnSistema" Text='<%# Eval("Sistema")%>'></asp:Label>
                                 </ItemTemplate>
-                            </asp:TemplateField>
+                            </asp:TemplateField>--%>
 
 
                             <asp:TemplateField HeaderText="SAT" ItemStyle-HorizontalAlign="Right">
@@ -384,12 +387,13 @@
                                 </ItemTemplate>
                             </asp:TemplateField>
 
+                            <asp:HyperLinkField HeaderText="LnkSerieFolio"    DataNavigateUrlFields="CveVenta"  DataNavigateUrlFormatString = "/Ventas/Ventas.aspx?CveVenta={0}"  DataTextField="VSerieFolio"  ControlStyle-CssClass='Texto' target='_blank'></asp:HyperLinkField>
 
-                            <asp:TemplateField HeaderText="Serie Folio" ItemStyle-HorizontalAlign="Right">
+                     <%--       <asp:TemplateField HeaderText="Serie Folio" ItemStyle-HorizontalAlign="Right">
                                 <ItemTemplate>
                                     <asp:Label runat="server" ID="LblVSerieFolio" Text='<%# Eval("VSerieFolio")%>'></asp:Label>
                                 </ItemTemplate>
-                            </asp:TemplateField>
+                            </asp:TemplateField>--%>
 
                             <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
                                 <ItemTemplate>
@@ -537,11 +541,11 @@
                                         <div class="col-md-12">
                                             <asp:GridView ID="GVSolicitudesPendientes" runat="server" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False"
                                                 ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
-                                                DataKeyNames="CveSolicitud,CveSolicitudCFDI,CveSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML,idSolicitud,CveSolicitudDetalle">
+                                                DataKeyNames="CveSolicitud,CveSolicitudCFDI,CveSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML,idSolicitud,CveSolicitudDetalle,Folio,CveTipoSolicitud">
                                                 <Columns>
                                                     <asp:TemplateField HeaderText="Folio">
                                                         <ItemTemplate>
-                                                            <asp:Label runat="server" Text='<%# Eval("CveSolicitud")%>'></asp:Label>
+                                                            <asp:Label runat="server" Text='<%# Eval("Folio")%>'></asp:Label>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Fecha Inicio">
@@ -564,14 +568,21 @@
                                                             <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Label>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
+
+
+                                                    <asp:TemplateField HeaderText="Tipo" ItemStyle-HorizontalAlign="Center">
+                                                        <ItemTemplate>
+                                                            <asp:Label runat="server" ID="lBLTipoDescarga" Text='<%# Eval("TipoDescarga")%>'></asp:Label>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+
+
+                                                    
                                                     <asp:TemplateField HeaderText="Fecha solicitud">
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Text='<%# Eval("FechaIng","{0:dd/MM/yyyy}")%>'></asp:Label>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
-
-
-
                                                     <asp:TemplateField HeaderText="Solicitó">
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'></asp:Label>
@@ -606,11 +617,11 @@
                                         <div class="col-md-12">
                                             <asp:GridView ID="GVSolicitudesNominas" runat="server" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False" OnRowDataBound="GVSolicitudesNominas_RowDataBound"
                                                 ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
-                                                DataKeyNames="CveSolicitudDetalle,CveSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML">
+                                                DataKeyNames="CveSolicitudDetalle,CveSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML,Folio,CveTipoSolicitud">
                                                 <Columns>
                                                     <asp:TemplateField HeaderText="Folio">
                                                         <ItemTemplate>
-                                                            <asp:Label runat="server" Text='<%# Eval("CveSolicitud")%>'></asp:Label>
+                                                            <asp:Label runat="server" Text='<%# Eval("Folio")%>'></asp:Label>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Fecha Inicio">
@@ -633,16 +644,23 @@
                                                             <asp:Label ID="lblobservaciones" runat="server" Text='<%# Eval("Observaciones")%>'  ItemStyle-Width="150px" ControlStyle-Width="150px"  CssClass="truncate" ></asp:Label>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
+                                                    <asp:TemplateField HeaderText="Tipo" ItemStyle-HorizontalAlign="Center">
+                                                        <ItemTemplate>
+                                                            <asp:Label runat="server" ID="lBLTipoDescarga" Text='<%# Eval("TipoDescarga")%>'></asp:Label>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
                                                     <asp:TemplateField HeaderText="Fecha solicitud">
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Text='<%# Eval("FechaIng","{0:dd/MM/yyyy}")%>'></asp:Label>
                                                         </ItemTemplate>
-                                                    </asp:TemplateField>
+                                                    </asp:TemplateField>                                            
+
                                                     <asp:TemplateField HeaderText="Solicitó" ItemStyle-Width="100px" ControlStyle-Width="100px">
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>' CssClass="truncate"></asp:Label>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
+
                                                     <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" HeaderText="XML">
                                                         <ItemTemplate>
                                                             <asp:LinkButton ID="LnkDescargaXML" CssClass="btn btn-circle btn-sm blue" OnClick="LnkDescargaXML_Click" runat="server" ToolTip="Descargar archivo"
@@ -703,7 +721,7 @@
                     <div class="modal-body">
 
                         <div class="row">
-                            <div class="col-md-6">
+                            <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright" style="width: 125px!important;height:28px!important">
                                     <asp:TextBox ID="txtFechaIAdd" CssClass="form-control" MaxLength="20" runat="server" Width="100px" Height="28px"></asp:TextBox>
                                     <span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
@@ -719,7 +737,7 @@
                                 </div>
                             </div>
 
-                            <div class="col-md-6">
+                            <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright" style="width: 125px!important">
                                     <asp:TextBox ID="txtFechaFAdd" CssClass="form-control" MaxLength="20" runat="server" Width="100px"  Height="28px"></asp:TextBox>
                                     <span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
@@ -734,6 +752,11 @@
                                     <label for="<%= txtFechaFAdd.ClientID.ToString() %>" style="margin-top: -6px">Fecha Fin:</label>
                                 </div>
                             </div>
+
+                            <div class="col-md-4">
+                                <asp:CheckBox runat="server" ID="ChkMetaDatos" Text="Validación de Estatus" />
+                            </div>
+
                         </div>
 
 

SAT/SolicitudesIngresoSat.aspx.cs

@@ -64,7 +64,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
             TxtRpdFechaFin.Text = string.Format("{0:dd/MM/yyyy}", DateTime.Now.AddMonths(-1).LastDayOfMonth());
             LnkConsultar_Click(null, null);
 
-            //if(UsuarioActual.CveRol == 1)
+            //if (UsuarioActual.CveRol == 1)
             //{
             //    GVSolicitudesNominas.Columns[8].Visible = true;
             //}
@@ -86,14 +86,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
     }
     protected void LnkConsultar_Click(object sender, EventArgs e)
     {
-
-
-        //GvResumen.DataSource = null;
-        //GvDatos.DataSource = null;
-
         DvDatos1.Visible = false;
         DvDatos2.Visible = false;
-
         DVResumen1.Visible = false;
         DVResumen2.Visible = false;
 
@@ -103,26 +97,18 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
 
         if (DdlReporte.SelectedValue.ToEntero() == 1)
         {
-
             DVResumen1.Visible = true;
             DVResumen2.Visible = true;
-
             DvDatos1.Visible = false;
-            DvDatos2.Visible = false;
+            DvDatos2.Visible = false;           
-
-           
         }
         else
         {
-
             DVResumen1.Visible = false;
             DVResumen2.Visible = false;
-
             DvDatos1.Visible = true;
             DvDatos2.Visible = true;
-        }
+        } 
-
-
 
         using (ClsNominas ObjNom = new ClsNominas())
         {
@@ -143,20 +129,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
             }                  
         }
 
-
-
-
         GvResumen.DataBind();
         GvDatos.DataBind();
-
         UpDatos.Update();
         UpAcciones.Update();
-
-
     }
 
-
-
     private void cargasolicitudes()
     {
         LnkverificarSolicitudes.Visible = false;
@@ -170,20 +148,14 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
                 {
                     LnkverificarSolicitudes.Visible = true;
                 }
-                GVSolicitudesPendientes.DataBind(); 
+                GVSolicitudesPendientes.DataBind();               
-
-              
             }
 
-
             if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus:1,Top:50))
             {
-
                 GVSolicitudesNominas.DataSource = nom.DtResultados;
                 GVSolicitudesNominas.DataBind();
             }
-
-
         }
         UPModalViewSolicitudes.Update();
     }
@@ -208,22 +180,26 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
         int cveUsuarioIng = UsuarioActual.CveUsuario;
         int cveEmpresa = UsuarioActual.CveEmpresa;
         int CveSolicitudAgregada = -1;
-        
+        int Folio = -1;
+
         using (ClsNominas nom = new ClsNominas())
         {
-            CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud: 3);
+            int CveTipoSolicitud = ChkMetaDatos.Checked ? 203 :3;
+            CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud: CveTipoSolicitud);
+            
+            if(CveSolicitudAgregada > 0)
+            {
+                Folio = nom.FolioSolicitud;
+            }
         }
 
-
         if (CveSolicitudAgregada > 0)
         {
-
             var api = new GeneralesAPII();
             JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3, CveSolicitudAgregada);
             List<string> resultSolicitud = new List<string>();
             List<string> resultVerificacion = new List<string>();
-            //var ResultadoVerificaionOK = false;
+            
-            //var SeVerifico = false;
             var TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion;
             var ResultadoSolicitudOK = false;
 
@@ -240,11 +216,20 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
 
             if (ResultadoSolicitudOK)
             {
-                sbResultado.Append($"Solicitud registrada correctamente y solicitada a SAT.<br> Folio: { CveSolicitudAgregada}");
+                sbResultado.Append($"Solicitud registrada. {resultSolicitud[1]}<br> Folio: {Folio}");
             }
-            else {
+            else{
+
+
+                if(ObjApiSolicitud != null && resultSolicitud.Count == 4)
+                {
+                    sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT <br> Folio: {Folio} <br>({resultSolicitud[1]})<br>");
+                }
+                else
+                {
+                    sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT <br> Folio: {Folio}");
+                }
 
-                sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT <br> Folio: {CveSolicitudAgregada} <br>({resultSolicitud[1] })<br>");
                 TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia;
             }
 
@@ -262,18 +247,16 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
         {
             txtFechaIAdd.Text = "";
             txtFechaFAdd.Text = "";
+            ChkMetaDatos.Checked = false;
             this.RegistraScript("$('#ModalAgregarSolicitud').modal('hide');");
             cargasolicitudes();
             
         }
     }
 
-
     protected void LnkverificarSolicitudes_Click(object sender, EventArgs e)
     {
-        //var api = new GeneralesAPI();
+        
-        //api.GeneraSolicitud();
-        //api.VerificaSolicitudesNominas();
 
         try
         {
@@ -288,27 +271,29 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
 
                 int CveSolicitudActual = GvRow.DataKey("CveSolicitud").ToEntero();
                 string idSolicitud = GvRow.DataKey("idSolicitud").Trim();
+                int CveTipoSolicitud = GvRow.DataKey("CveTipoSolicitud").ToEntero();
+                int Folio = GvRow.DataKey("Folio").ToEntero();
+
 
-                
                 List<string> resultSolicitud = new List<string>();
                 List<string> resultVerificacion = new List<string>();
                 var ResultadoVerificaionOK = false;
                 var SeVerifico = false;
                 var TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion;
                 var ResultadoSolicitudOK = false;
-
+                
 
                 var api = new GeneralesAPII();
                 
 
                 if (idSolicitud.Length == 0)
                 {
-                    JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3, CveSolicitudActual);
+                    JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual);
                     if (!(ObjApiSolicitud == null))
                     {
                         resultSolicitud = ObjApiSolicitud.Select(token => token.Values().Aggregate((i, j) => $"{i}|{j}").Value<string>()).ToList();
                         ResultadoSolicitudOK = bool.Parse(resultSolicitud[0]);
-                        sbResultado.Append($"Solicitud {CveSolicitudActual}  solicitada a SAT.<br>");
+                        sbResultado.Append($"Solicitud {Folio}  solicitada a SAT.<br>");
                     }
                     else
                     {
@@ -331,7 +316,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
                 if (ResultadoSolicitudOK)
                 {
                     
-                    JToken ObjApiVerificacion = (JToken)api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, 3, CveSolicitudActual);
+                    JToken ObjApiVerificacion = (JToken)api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual);
 
 
                     if (!(ObjApiVerificacion == null))
@@ -348,7 +333,16 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
                 }
                 else
                 {
-                    sbResultado.Append($"Solicitud pendiente de verificar en SAT <br> Folio:{CveSolicitudActual} ({resultSolicitud[1]})<br>");
+                    
+                    if(resultSolicitud.Count == 4)
+                    {
+                        sbResultado.Append($"({resultSolicitud[1]})<br>  Folio:{Folio} <br> ");
+                    }
+                    else
+                    {
+                        sbResultado.Append($"Solicitud pendiente de verificar en SAT <br> Folio:{Folio} <br>");
+                    }
+                    
                     TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia;               
                 }
             
@@ -357,17 +351,17 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
                 {
                     if (ResultadoVerificaionOK)
                     {
-                        sbResultado.Append($"Solicitud procesada.<br> Folio: {CveSolicitudActual}");
+                        sbResultado.Append($"Solicitud procesada.<br> Folio: {Folio} <br> {resultVerificacion[1]}");
                     }
                     else
                     {
-                        sbResultado.Append($"Solicitud  no verificada <br>  Folio: {CveSolicitudActual}{resultVerificacion[1]}.<br>");
+                        sbResultado.Append($"Solicitud  no verificada <br>  Folio: {Folio}{resultVerificacion[1]}.<br>");
                         TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia;
                     }
                 }
                 else
                 {                    
-                    sbResultado.Append($"Se presento un error al verificar la solicitud <br> Folio: {CveSolicitudActual}.");
+                    sbResultado.Append($"Se presento un error al verificar la solicitud <br> Folio: {Folio}.");
                     TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia;
                 }
 
@@ -395,12 +389,11 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
 
         txtFechaIAdd.Text = "";
         txtFechaFAdd.Text = "";
+        ChkMetaDatos.Checked = false;
         UPModalViewSolicitudesAgregar.Update();
         this.RegistraScript("$('#ModalAgregarSolicitud').modal('show');");
     }
 
-
-
     protected void GvResumen_RowDataBound(object sender, GridViewRowEventArgs e)
     {
         if(e.Row.RowType == DataControlRowType.DataRow)
@@ -483,11 +476,11 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
                     LnkCFDIData.PostBackUrl = "#";
                 }
 
-                if(e.Row.DataKey("CveVenta").ToEntero() > 0)
+                //if(e.Row.DataKey("CveVenta").ToEntero() > 0)
-                {
+                //{
-                    e.Row.Cells[1].Text = $"<a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta").ToEntero()}'class='Texto' target='_blank' >Si</a>";
+                //    e.Row.Cells[1].Text = $"<a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta").ToEntero()}'class='Texto' target='_blank' >Si</a>";
-                    e.Row.Cells[3].Text = $"<a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta").ToEntero()}'class='Texto' target='_blank' >{e.Row.DataKey("VSerieFolio")}</a>";
+                //    e.Row.Cells[3].Text = $"<a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta").ToEntero()}'class='Texto' target='_blank' >{e.Row.DataKey("VSerieFolio")}</a>";
-                }
+                //}
             }
         }
 
@@ -696,8 +689,6 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
             return o.Value;
     }
 
-
-
     protected void LnkRenombrarArchivos_Click(object sender, EventArgs e)
     {
         GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
@@ -707,8 +698,6 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
       
     }
 
-
-
     protected void LnkCFDIData_Click(object sender, EventArgs e)
     {
         GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
@@ -729,6 +718,13 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
             Response.TransmitFile(ArchivoXML.FullName);
             Response.End();
         }
+        else
+        {
+            //if(UsuarioActual.CveRol == 1)
+            //{
+            //    Alert(UrlDescargaXML);
+            //}
+        }
 
     }
 

Ventas/Clientes.aspx

@@ -689,6 +689,13 @@
                                             <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
                                         
+                                         <div class="form-group form-md-line-input input-iconright" id="DivRepresentanteLegal" runat="server" visible="false">
+                                            <asp:TextBox runat="server" ID="TxtRepresentanteLegal" CssClass="form-control" MaxLength="100" />
+                                            <label for="<%= TxtRepresentanteLegal.ClientID.ToString()%>">Representante Legal:</label>
+                                        </div>
+
+                                        
+
                                           
                                         <div class="row">
                                             <div runat="server" id="DivEsDistribuidor" visible="false" class="col-md-4 form-group form-md-line-input input-iconright">

Ventas/Clientes.aspx.vb

@@ -751,6 +751,10 @@ Partial Class Clientes
 
             If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
                 divRegimen.Visible = True
+            End If
+
+            If UsuarioActual.CveEmpresa.Contiene(1) Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                DivRepresentanteLegal.Visible = True
             End If
 
             If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 Then
@@ -1873,6 +1877,8 @@ Partial Class Clientes
             RdTipoPersona.SelectedValue = If(ObjClientes.TipoPersona, "1", "0")
             RdTipoPersona_SelectedIndexChanged(Nothing, Nothing)
 
+            TxtRepresentanteLegal.Text = ObjClientes.RepresentanteLegal
+
         End If
         UpActivacionPortal.Update()
         UpModalPersonaFisica.Update()
@@ -2686,7 +2692,7 @@ Partial Class Clientes
                                     CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                     TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona) Then
+                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2783,7 +2789,7 @@ Partial Class Clientes
                                         ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
                                         RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
                                         CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona) Then
+                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)
@@ -4210,8 +4216,22 @@ Partial Class Clientes
                                                         <br />
                                                         Gracias por la atención brindada al presente.<br /> Reciba un cordial saludo.<br />
                                                         <br />
-                                                        <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
+                                                        <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
-                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
+
+                        If UsuarioActual.CveEmpresa = 140 Then
+                            Cuerpo = String.Format("Estimado cliente <u>{0}</u>, se anexa su estado de cuenta con adeudo actual en {1}.<br />
+                                                        <br />
+                                                        Quedamos a sus ordenes para cualquier duda o aclaración: con su asesor comercial, al teléfono celular del área de Crédito y Cobranza 6624 52 99 64 o a los correos:<br /><br />
+                                                        credito@bdhbaterias.com<br />
+                                                        cobranza@bdhbaterias.com<br />
+                                                        <br />
+                                                        Gracias por la atención brindada al presente.<br />
+                                                        Reciba un cordial saludo.<br />
+                                                        <br />
+                                                         
+                                                        <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA, FAVOR DE NO RESPONDERLO.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
+                        End If
+                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera en {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
                         Hilo.Start()
                         Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
                     Catch ex As Exception
@@ -7475,7 +7495,10 @@ Partial Class Clientes
         Tags.Add(New TagsDocumentos("{DireccionAval}", TxtDireccionAval.Text))
         Tags.Add(New TagsDocumentos("{CiudadAval}", TxtCiudadAval.Text))
         Tags.Add(New TagsDocumentos("{TelefonoAval}", TxtTelefonoAval.Text))
-
+        Tags.Add(New TagsDocumentos("{RepresentanteLegal}", TxtRepresentanteLegal.Text))
+
+
+
         If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then
             Alert("no se pudo registrar el pagare")
             Exit Sub

Ventas/ClientesAbonar.aspx

@@ -693,7 +693,7 @@
                         if (textBoxes[i].value != '') {
                             idd = textBoxes[i].id.replace('C_GvCxC_TxtAbonar_', '');
                             Ventas = Ventas + (Importe == 0 ? '' : ', ') + $get("C_GvCxC_HplF_" + idd).innerText;
-                            abono = parseFloat(textBoxes[i].value.split(',').join(''));
+                            abono = ToDouble(textBoxes[i].value);
                             moneda = $get("C_GvCxC_LtlMoneda_" + idd).innerText;
 
                             if (monedaPago == 1 && moneda == 'USD') {
@@ -708,7 +708,7 @@
                     }
                     if (textBoxes[i].id.indexOf('C_GvCxC_TxtComision') >= 0) {
                         if (textBoxes[i].value != '') {
-                            abonoComision = parseFloat(textBoxes[i].value.split(',').join(''));
+                            abonoComision = ToDouble(textBoxes[i].value);
                             moneda = $get("C_GvCxC_LtlMoneda_" + idd).innerText;
                             if (monedaPago == 1 && moneda == 'USD') {
                                 facDolares = true
@@ -954,6 +954,7 @@
 
             let Total = 0.0;
             let Anticipos = 0.0;
+            debugger;
 
             $( ClsSelLiqVenta).each(function () {
 
@@ -966,11 +967,10 @@
                
             });
            
-            Total = Total + Anticipos;
+            Total = Total + Anticipos;           
-           
 
             $(ClsSelLiqVentaTotal).each(function () {
-                $(this).val(Total);
+                $(this).val(Total.toFixed(2));
                 FormatoMoneda2($(this));
             });
             
@@ -979,6 +979,7 @@
             var Suma = SumaValores(pagoMultiple, monedaPago);
             $get('TxtImporte').value = FormatoNumero(Suma, 2);
             
+            
         }
 
         function disablekeys()

Ventas/ClientesAbonar.aspx.vb

@@ -1070,8 +1070,10 @@ Partial Class Ventas_ClientesAbonar
 
                                                 If gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero > 0 Then
                                                     Dim TCP As Decimal = 0
+                                                    Dim FolioPago As String = " "
                                                     If DtIngresos IsNot Nothing Then
                                                         TCP = DtIngresos.FiltroPrimeroValor("TipoCambio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti").SelectedValue))
+                                                        FolioPago = DtIngresos.FiltroPrimeroValor("Folio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue))
                                                         Dim tTCPFecha As Date = DtIngresos.FiltroPrimeroValor("FechaDocumento", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti").SelectedValue)).ToDate
                                                         'considera fluctuación
                                                         If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
@@ -1083,13 +1085,15 @@ Partial Class Ventas_ClientesAbonar
                                                     End If
                                                     'se calcula la fluctuación de la aplicación del anticipo, para sumarla en el concepto de fluctuación más abajo
                                                     FluctuacionAnticipo = ((TCP - tipoCambioVentaValuacion) * gvr.FCTextBox("TxtAmort").Text.ToDecimal).RoundSQL
-                                                    MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort").Text.ToDecimal, TCP, tipoCambioVentaValuacion, gvr.DataKey("SerieFolio").ToString)
+                                                    MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort").Text.ToDecimal, TCP, tipoCambioVentaValuacion, gvr.DataKey("CveVenta").ToEntero, gvr.DataKey("SerieFolio").ToString, FolioPago)
                                                 End If
 
                                                 If gvr.FCDropDownList("DdlAnti2").SelectedValue.ToEntero > 0 Then
                                                     Dim TCP As Decimal = 0
+                                                    Dim FolioPago As String = " "
                                                     If DtIngresos IsNot Nothing Then
                                                         TCP = DtIngresos.FiltroPrimeroValor("TipoCambio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue))
+                                                        FolioPago = DtIngresos.FiltroPrimeroValor("Folio", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue))
                                                         Dim tTCPFecha As Date = DtIngresos.FiltroPrimeroValor("FechaDocumento", String.Format("CveIE={0}", gvr.FCDropDownList("DdlAnti2").SelectedValue)).ToDate
                                                         'considera fluctuación
                                                         If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
@@ -1102,7 +1106,7 @@ Partial Class Ventas_ClientesAbonar
                                                     End If
                                                     'se calcula la fluctuación de la aplicación del anticipo, para sumarla en el concepto de fluctuación más abajo
                                                     FluctuacionAnticipo += ((TCP - tipoCambioVentaValuacion) * gvr.FCTextBox("TxtAmort2").Text.ToDecimal).RoundSQL
-                                                    MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti2").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort2").Text.ToDecimal, TCP, tipoCambioVentaValuacion, gvr.DataKey("SerieFolio").ToString)
+                                                    MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, gvr.FCDropDownList("DdlAnti2").SelectedValue.ToEntero, gvr.FCTextBox("TxtAmort2").Text.ToDecimal, TCP, tipoCambioVentaValuacion, gvr.DataKey("CveVenta").ToEntero, gvr.DataKey("SerieFolio").ToString, FolioPago)
                                                 End If
 
                                             End If
@@ -1500,7 +1504,7 @@ Partial Class Ventas_ClientesAbonar
 
                     If RblTipoPago.SelectedValue = "3" AndAlso MsgError = "" Then
 
-                        MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, CveIE, TxtImporte.Text.ToDecimal, tipoCambioPago, tipoCambioVenta, TxtObservaciones.Text)
+                        MsgError = RegistraAmortizacionAnticipo(ObjMov, CvePrePoliza, CveIE, TxtImporte.Text.ToDecimal, tipoCambioPago, tipoCambioVenta, -1, TxtObservaciones.Text, DdlIngreso.SelectedItem.Text)
 
                     End If
 
@@ -1696,33 +1700,21 @@ Partial Class Ventas_ClientesAbonar
 
     End Sub
 
-    Private Function RegistraAmortizacionAnticipo(ByRef ObjMov As ClsContabilidad, CvePrePoliza As Integer, CveIE As Integer, Importe As Decimal, tipoCambioPago As Decimal, tipoCambioVenta As Decimal, Referencia As String) As String
+    Private Function RegistraAmortizacionAnticipo(ByRef ObjMov As ClsContabilidad, CvePrePoliza As Integer, CveIE As Integer, Importe As Decimal, tipoCambioPago As Decimal, tipoCambioVenta As Decimal, CveVenta As Integer, ReferenciaVenta As String, ReferenciaPago As String) As String
         Dim MsgError As String = ""
         If CveMonedaPago = 2 Then
-            'rmf faltan las cuentas
 
-            'If CveMonedaPago = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
+            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe, ReferenciaVenta, 92, ReferenciaVenta, TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, CveCliente:=CveCliente, ImporteMX:=Importe, CveVenta:=CveVenta, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
-            '    tipoCambioPago = TxtTCDolares.Text.ToDecimal
-            'ElseIf CveMonedaPago = 2 AndAlso CveMonedaFiltro = 2 Then
-            '    tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
-            'End If
-
-            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe, TxtObservaciones.Text, 92, Referencia, TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=Importe, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                 MsgError = "No se pudo insertar la póliza"
             End If
 
-            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, Importe / TxtTC.Text.ToDecimal, Importe), Referencia, 227, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioPago}", "")), TxtFechaDocumento.Text, IdCtaContMonedaComplementariaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (Importe * tipoCambioPago) - Importe, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, Importe / TxtTC.Text.ToDecimal, Importe), ReferenciaVenta, 227, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioPago}", "")), TxtFechaDocumento.Text, IdCtaContMonedaComplementariaAnticipo, -1, CveIE, CveCliente:=ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (Importe * tipoCambioPago) - Importe, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), CveVenta:=CveVenta, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                 MsgError = "No se pudo insertar la póliza"
             End If
 
         Else
-            'If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
-            '    tipoCambioPago = TxtTCDolares.Text.ToDecimal
-            'ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then
-            '    tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
-            'End If
 
-            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCtaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, Importe * tipoCambioPago, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe, ReferenciaVenta, 92, ReferenciaVenta, TxtFechaDocumento.Text, IdCtaAnticipo, -1, CveIE, CveCliente:=ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, Importe * tipoCambioPago, Importe), ImporteME:=If(CveMoneda = 2, Importe, 0), CveVenta:=CveVenta, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                 MsgError = "No se pudo insertar la póliza"
             End If
         End If

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -182,6 +182,9 @@ Partial Class Ventas_RepProductosServiciosDetalle
     End Sub
 
     Private Sub SetValues()
+        txtFechaI.Text = Now.ToShortDateString
+        txtFechaF.Text = Now.ToShortDateString
+
         'Cargo Proyectos
         DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
         DdlProyecto.DataBind()

Ventas/Ventas.aspx.vb

@@ -4426,7 +4426,7 @@ Partial Class Ventas
                 End If
 
                 If DbRowVenta IsNot Nothing Then
-                    If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+                    If ObjVentas.GetVentasRelacionadas(CveVenta, 1, UsuarioActual.CveEmpresa) Then
                         DtAntRelacionados = ObjVentas.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Ant','Egs','Dev')")
                     End If
 
@@ -9443,6 +9443,8 @@ Partial Class Ventas
                         'ContPAQ El movimiento 1 es el de Venta
                         Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
 
+                        AutoConta = AutocontaMatriz(AutoConta)
+
                         If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "Egs", "Dev") Then
                             AutoConta = False
                         End If
@@ -12983,7 +12985,11 @@ Partial Class Ventas
             If ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio > 0 Then
                 tipoCambio = ObjFactura.TipoCambio
             ElseIf ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio <= 1 Then
-                tipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToString().ToDecimal
+                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                    tipoCambio = GlobalTipoCambio(ObjFactura.Fecha.AddDays(-1)).ToString().ToDecimal
+                Else
+                    tipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToString().ToDecimal
+                End If
             Else
                 tipoCambio = 1
             End If
@@ -13194,7 +13200,13 @@ Partial Class Ventas
                                     If tipoCambio > 1 Then
                                         TipoCambioNC = tipoCambio
                                     Else
-                                        TipoCambioNC = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
+
+                                        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                                            TipoCambioNC = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToDecimal
+                                        Else
+                                            TipoCambioNC = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
+                                        End If
+
                                     End If
 
                                     'APLICA NC SALDOS DIRECTOS
@@ -13228,7 +13240,11 @@ Partial Class Ventas
 
                                             Dim TCFluctuacion As Decimal = Dr("TCCambioValuacion").ToString().ToDecimal
                                             If TCFluctuacion = 1 AndAlso TipoCambioNC > 1 Then
-                                                TCFluctuacion = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
+                                                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                                                    TCFluctuacion = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToDecimal
+                                                Else
+                                                    TCFluctuacion = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
+                                                End If
                                             End If
 
                                             If DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso Not Dr("TCCambioValuacion").ToString().ToDecimal > 1 Then
@@ -13299,8 +13315,13 @@ Partial Class Ventas
 
                                                                         'SI LA NC ES EN DOLARES Y PERO VIENE DE UN ANTICIPO EN PESOS
                                                                         If (Not UsuarioActual.CveEmpresa.Contiene(72, 80, 146)) AndAlso ObjFactura.CveMoneda = 2 Then
+
                                                                             Dim tipoCambioAnticipo = GlobalTipoCambio(row2.DataKey("Fecha").ToString().ToDate).ToDecimal
 
+                                                                            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                                                                                tipoCambioAnticipo = GlobalTipoCambio(row2.DataKey("Fecha").ToString().ToDate.AddDays(-1)).ToDecimal
+                                                                            End If
+
                                                                             If row2.DataKey("CveMoneda").ToString.ToEntero = 2 Then
                                                                                 IdCtaContable = IdCtaContAnticiposExtranjera
                                                                             End If
@@ -14836,7 +14857,11 @@ Partial Class Ventas
                     If ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio > 0 Then
                         tipoCambio = Factura.TipoCambio
                     ElseIf ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio <= 1 Then
-                        tipoCambio = GlobalTipoCambio(Factura.Fecha).ToString().ToDecimal
+                        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                            tipoCambio = GlobalTipoCambio(Factura.Fecha.AddDays(-1)).ToString().ToDecimal
+                        Else
+                            tipoCambio = GlobalTipoCambio(Factura.Fecha).ToString().ToDecimal
+                        End If
                     Else
                         tipoCambio = 1
                     End If
@@ -15523,6 +15548,7 @@ Partial Class Ventas
 
                             Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
 
+
                             If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
                                 If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                                     FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
@@ -20252,6 +20278,8 @@ Partial Class Ventas
             If GenerarPrePolizaNueva Then
                 Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
 
+                AutoConta = AutocontaMatriz(AutoConta)
+
                 If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "Egs", "Dev") Then
                     AutoConta = False
                 End If
@@ -21654,11 +21682,20 @@ Partial Class Ventas
                 ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324)
             Case "2"
                 TxtTipoCambioDlls.Text = "1"
-                TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
+                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                    TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
+                Else
+                    TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
+                End If
                 TrConversionTipoCambio.Visible = True
                 ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
+
             Case Else
-                TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
+                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                    TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
+                Else
+                    TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
+                End If
                 TrConversionTipoCambio.Visible = True
         End Select
 
@@ -28059,8 +28096,16 @@ Partial Class Ventas
 
                 'verifica el tipo de cambio que se actualice
                 If DdlMoneda.SelectedValue <> "1" Then
-                    TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
+
+
+                    If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                        TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString()
+                    Else
+                        TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
+                    End If
+
                 End If
+
             Else
                 If DdlTipoComprobante.SelectedValue = "Ant" Then CveAnticipo = CveVenta
 
@@ -28146,7 +28191,13 @@ Partial Class Ventas
 
                 'verifica el tipo de cambio que se actualice
                 If DdlMoneda.SelectedValue <> "1" Then
-                    TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
+
+                    If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                        TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString()
+                    Else
+                        TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
+                    End If
+
                 End If
                 LblTCValuacion.Visible = False
                 UpPS.Update()
@@ -29254,7 +29305,13 @@ Partial Class Ventas
             TipoCambioFactura = 1
         End If
 
-        TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
+
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            TxtTipoCambio.Text = GlobalTipoCambio(Now.AddDays(-1)).ToString()
+        Else
+            TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString()
+        End If
+
         DivEstatusFac.Visible = False
 
         'REINICIALIZA TABS
@@ -35139,5 +35196,27 @@ Partial Class Ventas
         Alert(sb.ToString(), TipoMensaje.MsgInformacion)
 
     End Sub
+
+
+    Private Function AutocontaMatriz(AutoConta As Boolean) As Boolean
+        Dim Respuesta As Boolean = False
+
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero)
+
+            If (DTSubproyectoActual.Rows(0)("TipoSucursal").ToString.ToEntero = 1) Then
+                Respuesta = True
+            Else
+                Respuesta = False
+            End If
+
+        Else
+            Respuesta = AutoConta
+        End If
+
+        Return Respuesta
+
+    End Function
+
 End Class