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

App_Code/ClsBancos.vb

@@ -1466,7 +1466,7 @@ Public Class ClsBancos
     Public Function AddBancos_IE(CveCuenta As Integer, CveTipoTransaccion As Integer, FechaDocumento As Date, Folio As String, PagueseA As String, Importe As Double, CveMoneda As Integer, TipoCambio As Double, Observaciones As String,
                                  NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
                                  Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
-                                 Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
+                                 Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
                                     Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1) As Integer
         Dim Retorno As Integer = -1
 
@@ -1497,7 +1497,6 @@ Public Class ClsBancos
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCuentaTarjeta", SqlDbType.Int).Value = CveCuentaTarjeta
             .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
-            .Add("@CveIESustitucion", SqlDbType.Int).Value = CveIESustitucion
             .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
             .Add("@CveProveedorIntermediario", SqlDbType.Int).Value = CveProveedorIntermediario
             .Add("@FueConciliado", SqlDbType.Bit).Value = FueConciliado

App_Code/ClsPaginas.vb

@@ -363,45 +363,51 @@ Public Class ClsPaginas
     End Property
 
 #Region "GLOBALES DE SAT COMERCIO EXTERIOR"
-
+    Public Shared Property GlobalDTClavePedimento() As DataTable
-    Property GlobalDTClavePedimento() As DataTable
         Get
-            GlobalDTClavePedimento = DirectCast(Application("GlobalDTClavePedimento"), DataTable)
+            Dim AppNombre As String = "GlobalDTClavePedimento"
+            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
+                Dim ObjGrales As New ClsGenerales
+                If ObjGrales.GetSATClavePedimento() Then HttpContext.Current.Application(AppNombre) = ObjGrales.DtResultados
+                ObjGrales.Dispose()
+            End If
+            GlobalDTClavePedimento = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTClavePedimento") = value
+            Dim AppNombre As String = "GlobalDTClavePedimento"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
 
-    Property GlobalDTFraccionArancelaria() As DataTable
+    Public Shared Property GlobalDTFraccionArancelaria() As EnumerableRowCollection(Of DataRow)
         Get
             Dim AppNombre As String = "GlobalDTFraccionArancelaria"
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjGrales As New ClsGenerales
-                If ObjGrales.GetSATFraccionArancelaria() Then Application(AppNombre) = ObjGrales.DtResultados.AsEnumerable()
+                If ObjGrales.GetSATFraccionArancelaria() Then HttpContext.Current.Application(AppNombre) = ObjGrales.DtResultados.AsEnumerable()
                 ObjGrales.Dispose()
             End If
-            GlobalDTFraccionArancelaria = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow)).CopyToDataTable
+            GlobalDTFraccionArancelaria = DirectCast(HttpContext.Current.Application(AppNombre), EnumerableRowCollection(Of DataRow))
         End Get
-        Set(value As DataTable)
+        Set(value As EnumerableRowCollection(Of DataRow))
             Dim AppNombre As String = "GlobalDTFraccionArancelaria"
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
 
-    Property GlobalDTIncoterm() As DataTable
+    Public Shared Property GlobalDTIncoterm() As DataTable
         Get
             Dim AppNombre As String = "GlobalDTIncoterm"
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjGrales As New ClsGenerales
-                If ObjGrales.GetSATIncoterm() Then Application(AppNombre) = ObjGrales.DtResultados
+                If ObjGrales.GetSATIncoterm() Then HttpContext.Current.Application(AppNombre) = ObjGrales.DtResultados
                 ObjGrales.Dispose()
             End If
-            GlobalDTIncoterm = DirectCast(Application(AppNombre), DataTable)
+            GlobalDTIncoterm = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = "GlobalDTIncoterm"
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
 
@@ -816,57 +822,55 @@ Public Class ClsPaginas
     End Property
 
 #Region "C A R T A   P O R T E "
-    Property GlobalDTMaterialPeligroso(Optional CveMaterialPeligroso As Integer = -1) As DataTable
+    Public Shared Property GlobalDTMaterialPeligroso(Optional CveMaterialPeligroso As Integer = -1) As DataTable
         Get
 
             Dim AppNombre As String = "GlobalDTMaterialPeligroso"
-            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
-            If Application(AppNombre) Is Nothing Then
                 Dim Obj As New ClsGenerales
-                If Obj.GetMaterialPeligroso() Then Application(AppNombre) = Obj.DtResultados
+                If Obj.GetMaterialPeligroso() Then HttpContext.Current.Application(AppNombre) = Obj.DtResultados
                 Obj.Dispose()
             End If
             If CveMaterialPeligroso > 0 Then
                 Dim Str As New StringBuilder
                 Str.AppendFormat("CveMaterialPeligroso = {0}", CveMaterialPeligroso)
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
                 GlobalDTMaterialPeligroso = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTMaterialPeligroso = DirectCast(Application(AppNombre), DataTable)
+                GlobalDTMaterialPeligroso = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
             End If
 
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = "GlobalDTMaterialPeligroso"
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
 
-    Property GlobalDTEmbalajes(Optional CveEmbalaje As Integer = -1) As DataTable
+    Public Shared Property GlobalDTEmbalajes(Optional CveEmbalaje As Integer = -1) As DataTable
         Get
 
             Dim AppNombre As String = "GlobalDTEmbalajes"
-            'sino existe, recarga los datos
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
-            If Application(AppNombre) Is Nothing Then
                 Dim Obj As New ClsGenerales
-                If Obj.GetEmbalajes() Then Application(AppNombre) = Obj.DtResultados
+                If Obj.GetEmbalajes() Then HttpContext.Current.Application(AppNombre) = Obj.DtResultados
                 Obj.Dispose()
             End If
             If CveEmbalaje > 0 Then
                 Dim Str As New StringBuilder
                 Str.AppendFormat("CveEmbalaje = {0}", CveEmbalaje)
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
                 GlobalDTEmbalajes = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTEmbalajes = DirectCast(Application(AppNombre), DataTable)
+                GlobalDTEmbalajes = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
             End If
 
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = "GlobalDTEmbalajes"
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
 #End Region
@@ -4797,6 +4801,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Bancos/PopUpBuscaPersonal.aspx".ToUpper(), 281)
             PaginaDict.Add("/Bancos/PopUpBuscarColectiva.aspx".ToUpper(), 281)
             PaginaDict.Add("/Bancos/PopUpBuscarProveedor.aspx".ToUpper(), 281)
+            'PaginaDict.Add("/Bancos/PopUpBuscarCuentasProveedor.aspx".ToUpper(), 281)
             PaginaDict.Add("/Bancos/PopUpBuscarFolioC.aspx".ToUpper(), 281)
             PaginaDict.Add("/Bancos/PopUpBuscarClientes.aspx".ToUpper(), 281)
             'PaginaDict.Add("/Bancos/CatTiposCuenta.aspx".ToUpper(), -1)
@@ -4848,6 +4853,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Bancos/ProveedoresCreditos.aspx".ToUpper(), 528)
             PaginaDict.Add("/Bancos/RepSaldosPeriodo.aspx".ToUpper(), 884)
             PaginaDict.Add("/Bancos/PrestamoPersonal.aspx".ToUpper(), 890)
+            PaginaDict.Add("/Bancos/PopUpBuscarCuentasProveedor.aspx".ToUpper(), 679)
 #End Region
 
 #Region "CGame"
@@ -4984,9 +4990,6 @@ Public Class ClsPaginas
             PaginaDict.Add("/Compras/CatTipoGasto.aspx".ToUpper(), 759)
 
 
-
-
-
 #End Region
 
             'CONTABILIDAD 
@@ -10381,7 +10384,8 @@ Public Class ClsPaginas
         End If
 
         If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
-            tImportePago = ((Pago.ImportePago * TCValuacionVenta / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
+            tImportePago = ((Pago.ImportePago * TCValuacionVenta / Pago.TCPago) * Pago.TCPago).RoundSQL
+            tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL
         ElseIf VentaActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then  'factura dolares, pago en dolares
             tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL
             tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL
@@ -10426,12 +10430,12 @@ Public Class ClsPaginas
             ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
             If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 8, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.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 ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 62, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 62, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
 
@@ -10441,12 +10445,12 @@ Public Class ClsPaginas
             ImporteMN = (ImporteMovimiento * VentaActual.TC).RoundSQL
             If VentaActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 9, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.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 ImporteMN = (ImporteMovimiento * TCValuacionPago).RoundSQL
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 63, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 63, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
 
@@ -10464,12 +10468,12 @@ Public Class ClsPaginas
 
             End If
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 38, VentaActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.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 ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 39, VentaActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=VentaActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
         'concepto pago
@@ -10557,6 +10561,7 @@ Public Class ClsPaginas
             Dim ConceptoContable, IdCtaContable As Integer
             Dim TipoMovimiento As Boolean
             Dim Diferencia As Decimal = 0
+            tImportePago +=Pago.ImporteFluctuacionAdicional 'para los casos de aplicación de 
 
             If tImporteVenta <> tImportePago Then
                 If tImporteVenta < tImportePago Then
@@ -10608,6 +10613,7 @@ Public Class ClsPaginas
         Public Property CveCreditoDetalle As Integer = -1
         Public Property AplicaTraslado As Boolean = True
         Public Property Referencia As String
+        Public Property ImporteFluctuacionAdicional As Decimal = 0
 
     End Class
 

App_Code/Modelos.vb

@@ -2464,7 +2464,7 @@ Namespace Modelos
 
                                         If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsaComplementariaClientes) Then
                                             importeMX = importeMovimiento
-                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, 0, Referencia, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Math.Round(importeMovimiento * TCCliente - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=If(TCCliente = 1, 0, importeMovimiento), TipoCambio:=TCCliente, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, 0, Referencia, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=(importeMovimiento * TCCliente - importeMovimiento).RoundSQL, ImporteME:=If(TCCliente = 1, 0, importeMovimiento), TipoCambio:=TCCliente, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
                                                 ErrorPrepoliza = True
                                             End If
 
@@ -2636,7 +2636,7 @@ Namespace Modelos
 
                                         If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsaComplementariaClientes) Then
                                             importeMX = importeMovimiento
-                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, 0, Referencia, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Math.Round(importeMovimiento * tipoCambio - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, 0, Referencia, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=(importeMovimiento * tipoCambio - importeMovimiento).RoundSQL, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
                                                 ErrorPrepoliza = True
                                             End If
                                         End If
@@ -3452,16 +3452,6 @@ Namespace Modelos
                                 End If
                                 importeMovimiento = 0
 
-                            'Case 103 'Descuento
-                            '    'si se amortiza anticipo por concepto de descuento, no debe de registrar esta partida.
-                            '    If ObjFactura.CveTipoAmortizacionAnticipo <> 1 Then
-                            '        importeMovimiento = (ObjFactura.Descuento * ValorMultiplicador)
-                            '        importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
-                            '        FechaMovimiento = ObjFactura.FechaPago
-                            '        If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
-                            '        IdCtaContable = 0
-                            '    End If
-
                             Case 8 'Ret IVA por Trasladar
                                 If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoRetencion <> 4 Then 'SI NO ES RETENCION DE IVA DE SERVICIOS
                                     importeMovimiento = (ObjFactura.RetIVA * ValorMultiplicador)
@@ -3490,31 +3480,6 @@ Namespace Modelos
 
                                 End If
 
-                            Case 313 'Ret Iva Servicios
-                                If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoRetencion = 4 Then 'SI TIENE RETENCION DE IVA DE SERVICIOS
-                                    importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador
-                                    importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
-                                    FechaMovimiento = ObjFactura.FechaPago
-                                    CveSubProyectoContabilizar = CveSubProyectoVenta
-                                    If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
-
-                                    If ValorMultiplicador = -1 AndAlso ObjFactura.Alfa3 = "DEV" AndAlso ObjFactura.TipoDocto = "Dev" Then
-                                        TipoMovimiento = Not TipoMovimiento
-                                        ConceptoContable = 314
-                                        importeMovimiento = importeMovimiento * -1
-                                        importeMX = importeMX * -1
-                                    End If
-
-                                    'OBTENER CUENTAS
-                                    If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                            'Conta ContPAQ
-                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                        End If
-                                    End If
-
-                                End If
-
                             Case 9 'Ret ISR por Trasladar
                                 If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                     importeMovimiento = (ObjFactura.RetISR * ValorMultiplicador)
@@ -3545,7 +3510,7 @@ Namespace Modelos
                             Case 13 'Iva por Trasladar
                                 If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                     importeMovimiento = (ObjFactura.IVA * ValorMultiplicador)
-                                    importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
+                                    importeMX = (importeMovimiento * tipoCambio * Multiplicador).RoundSQL
                                     FechaMovimiento = ObjFactura.FechaPago
                                     PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal
 
@@ -3564,43 +3529,11 @@ Namespace Modelos
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                 End If
 
-                                'If ObjFactura.TipoDocto = "Egs" Then
-
-                                '    importeMovimiento = ObjFactura.IVA * ValorMultiplicador
-                                '    importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
-                                '    FechaMovimiento = ObjFactura.FechaPago
-                                '    PorcentajeImpuesto = TmpDTDetalle.MAX("PorcentajeIVA").ToDecimal
-
-                                '    If importeMovimiento <> 0 Then
-                                '        'IVA X TRASLADAR
-                                '        IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
-                                '        Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
-
-                                '        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento),  CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then
-                                '            ErrorPrepoliza = True
-                                '            Exit For
-                                '        End If
-
-                                '        'IVA PAGADO
-                                '        IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
-                                '        Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
-
-                                '        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then
-                                '            ErrorPrepoliza = True
-                                '            Exit For
-                                '        End If
-                                '    End If
-
-
-                                '    importeMovimiento = 0
-                                '    importeMX = 0
-                                'End If
-
 
                             Case 38 'IEPS por Trasladar
                                 If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                     importeMovimiento = (ObjFactura.IEPS * ValorMultiplicador)
-                                    importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
+                                    importeMX = (importeMovimiento * tipoCambio * Multiplicador).RoundSQL
                                     FechaMovimiento = ObjFactura.Fecha
                                     CveSubProyectoContabilizar = CveSubProyectoVenta
 
@@ -4290,7 +4223,7 @@ Namespace Modelos
 
                             If Not OcurrioError Then
                                 IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero
-                                ValorInventario = Math.Round(DtCostos.SUM("Total", "").ToDecimal, 2, MidpointRounding.AwayFromZero)
+                                ValorInventario = (DtCostos.SUM("Total", "").ToDecimal).RoundSQL
                                 If Not ObjConta.AddPrePolizasDetalle(Me.CvePrePoliza, True, ValorInventario, Me.SerieFolio, 68, Me.SerieFolio, Me.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=Me.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveSubProyecto:=Me.CveSubProyecto) Then
                                     OcurrioError = True
                                 End If

App_Code/modExtensiones.vb

@@ -2462,11 +2462,12 @@ Namespace Extensiones
             End If
 
         End Sub
+        'Usa la librería ClosedXML
         <Runtime.CompilerServices.Extension()>
-        Public Sub ExportToExcelx(GridView As GridView, NombreArchivoXLSX As String)
+        Public Sub ExportToExcelX(GridView As GridView, NombreArchivoXLSX As String)
 
             If GridView IsNot Nothing AndAlso GridView.Rows.Count > 0 Then
-                NombreArchivoXLSX = Regex.Replace(NombreArchivoXLSX.Replace("["c, "").Replace("]"c, ""), "[:\/?*]", String.Empty)
+                NombreArchivoXLSX = ValidFileName(NombreArchivoXLSX, 31)
                 Dim dt As New DataTable(NombreArchivoXLSX)
                 Dim i As Integer = 0
                 Dim ArrColumnasVisibles As New List(Of Integer) 'solo recorro las columnas visibles
@@ -2509,8 +2510,17 @@ Namespace Extensiones
                     'Next
                 Next
                 Using wb As New XLWorkbook()
-                    wb.Worksheets.Add(dt)
+                    Dim WS As IXLWorksheet = wb.Worksheets.Add(NombreArchivoXLSX)
+                    Dim RangoColTitulos As IXLCells = WS.FirstRow().CellsUsed()
 
+                    WS.FirstCell().InsertTable(dt, False)
+
+                    'Estilo
+                    RangoColTitulos.Style.Fill.SetBackgroundColor(XLColor.FromArgb(75, 119, 190))
+                    RangoColTitulos.Style.Font.SetBold(True)
+                    RangoColTitulos.Style.Font.FontColor = XLColor.White
+
+                    WS.Columns().AdjustToContents()
 
                     HttpContext.Current.Response.Clear()
                     HttpContext.Current.Response.Buffer = True
@@ -2527,7 +2537,7 @@ Namespace Extensiones
             End If
 
         End Sub
-        'usa la librería de gembox
+        'Usa la librería GemBox
         <Runtime.CompilerServices.Extension()>
         Public Sub ExportToExcelG(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
             Dim sw As New StringWriter()

Ashx/SIGWeb.ashx

@@ -1271,14 +1271,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
     Private Function GETSATMaterialPeligroso(ByVal context As HttpContext) As String
         Dim retorno As String = ""
 
-
+        Dim DTUM = DirectCast(ClsPaginas.GlobalDTMaterialPeligroso, DataTable).AsEnumerable
-        If context.Application("GlobalDTMaterialPeligroso") Is Nothing Then
-            Dim ObjGrales As New ClsGenerales
-            If ObjGrales.GetMaterialPeligroso Then context.Application("GlobalDTMaterialPeligroso") = ObjGrales.DtResultados Else context.Application("GlobalDTMaterialPeligroso") = Nothing
-            ObjGrales.Dispose()
-        End If
-
-        Dim DTUM = DirectCast(context.Application("GlobalDTMaterialPeligroso"), DataTable).AsEnumerable
         Dim DtPSRetorno As DataTable
 
         Dim Name = IfNull(context.Request("Name"), "-1").ToString
@@ -1308,14 +1301,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
     Private Function GETSATEmbalajes(ByVal context As HttpContext) As String
         Dim retorno As String = ""
 
-
+        Dim DTUM = DirectCast(ClsPaginas.GlobalDTEmbalajes, DataTable).AsEnumerable
-        If context.Application("GlobalDTEmbalajes") Is Nothing Then
-            Dim ObjGrales As New ClsGenerales
-            If ObjGrales.GetEmbalajes Then context.Application("GlobalDTEmbalajes") = ObjGrales.DtResultados Else context.Application("GlobalDTEmbalajes") = Nothing
-            ObjGrales.Dispose()
-        End If
-
-        Dim DTUM = DirectCast(context.Application("GlobalDTEmbalajes"), DataTable).AsEnumerable
         Dim DtPSRetorno As DataTable
 
         Dim Name = IfNull(context.Request("Name"), "-1").ToString
@@ -1349,7 +1335,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
     Private Function GetFraccionArancelaria(ByVal context As HttpContext) As String
         Dim retorno As String = ""
 
-        Dim DT = DirectCast(context.Application("GlobalDTFraccionArancelaria"), EnumerableRowCollection(Of DataRow))
+        Dim DT = ClsPaginas.GlobalDTFraccionArancelaria
         Dim DtRetorno As DataTable
 
         Dim Name = IfNull(context.Request("Name"), "-1").ToString

Bancos/PopUpBuscarCuentasProveedor.aspx

@@ -0,0 +1,164 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpBuscarCuentasProveedor.aspx.vb" Inherits="Bancos_PopUpBuscarCuentasProveedor" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    <asp:Label ID="LblTitulo" runat="server" Text="Cuentas Bancarias Proveedor"></asp:Label>
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+
+<%--<asp:HiddenField ID="hdnEsThickbox" runat="server" ClientIDMode="Static" />--%>
+
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <table style="width: 750px;">
+                <tr>
+                    <td class="Titulos" colspan="4">Filtros para búsqueda</td>
+                </tr>
+                <tr align="left">
+                </tr>
+                <tr align="left">
+                    <td class="text-right"><b>Proveedor:</b></td>
+                    <td>
+                        <asp:UpdatePanel runat="server">
+                            <ContentTemplate>
+                                <ADS:Dropdownlost ID="DdlProveedores" AutoPostBack="false" runat="server" IncluyeTodos="false" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClassDdl="select2me" CssStyle="width:400px;"></ADS:Dropdownlost>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </td>
+                </tr>
+                <tr>
+                    <td colspan="4" style="text-align: center;">
+                        <asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" />
+                    </td>
+                    <td></td>
+                    <td></td>
+                </tr>
+            </table>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="TblBusqueda" style="width: 100%" runat="server" border="0" visible="false">
+                <div class="row">
+                    <div id="DivBC" style="overflow-y: auto; width: 765px; height: 405px;" runat="server">
+                        <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" 
+                            DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE" AutoGenerateColumns="False" 
+                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
+
+                            <Columns>
+                                <asp:TemplateField  HeaderText="Banco" ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtNombreBanco" runat="server" data-toggle="tooltip" title='<%# Eval("BancoNombre")%>' Text='<%# Eval("BancoNombre")%>'></asp:Label>
+                                    </ItemTemplate>                                                            
+                                </asp:TemplateField>
+                                <asp:TemplateField  HeaderText="# Suc." ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtNumeroSucursal" runat="server" data-toggle="tooltip" title='<%# Eval("Sucursal")%>' Text='<%# Eval("Sucursal")%>'></asp:Label>
+                                    </ItemTemplate>                                                                
+                                </asp:TemplateField>
+                                <asp:TemplateField  HeaderText="Num. Cuenta" ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtNumeroCuenta" runat="server" data-toggle="tooltip" title='<%# Eval("Cuenta")%>' Text='<%# Eval("Cuenta")%>'></asp:Label>
+                                    </ItemTemplate>                                                                
+                                </asp:TemplateField>
+                                <asp:TemplateField  HeaderText="CLABE" ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtCLABE" runat="server" data-toggle="tooltip" title='<%# Eval("CLABE")%>' Text='<%# Eval("CLABE")%>'></asp:Label>
+                                    </ItemTemplate>                                                                
+                                </asp:TemplateField>
+                                <asp:TemplateField  HeaderText="SWIFT" ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtSWIFT" runat="server" data-toggle="tooltip" title='<%# Eval("SWIFT")%>' Text='<%# Eval("SWIFT")%>'></asp:Label>
+                                    </ItemTemplate>                                                              
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Plaza" ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtPlaza" runat="server" data-toggle="tooltip" title='<%# Eval("Plaza")%>' Text='<%# Eval("Plaza")%>'></asp:Label>
+                                    </ItemTemplate>                                                               
+                                </asp:TemplateField>
+                                <asp:TemplateField  HeaderText="CIE" ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtConvenioCIE" runat="server" data-toggle="tooltip" title='<%# Eval("CIE")%>' Text='<%# Eval("CIE")%>'></asp:Label>
+                                    </ItemTemplate>                                                               
+                                </asp:TemplateField>
+                                <asp:TemplateField  HeaderText="Referencia" ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtReferencia" runat="server" data-toggle="tooltip" title='<%# Eval("Referencia")%>' Text='<%# Eval("Referencia")%>'></asp:Label>
+                                    </ItemTemplate>                                                                
+                                </asp:TemplateField>
+                                <asp:TemplateField  HeaderText="Cred. Prov." ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LtRefCrediProveedor" runat="server" data-toggle="tooltip" title='<%# Eval("RefCrediProveedor")%>' Text='<%# Eval("RefCrediProveedor")%>'></asp:Label>
+                                    </ItemTemplate>
+                                  
+                                </asp:TemplateField>
+                                <asp:TemplateField  HeaderText="Moneda" ItemStyle-CssClass="Excede">
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtMoneda" runat="server" Text='<%# Eval("Moneda")%>'></asp:Literal>
+                                    </ItemTemplate>                                                               
+                                </asp:TemplateField>                                                        
+                                <asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="Excede" >
+                                    <ItemTemplate>                                                                    
+                                        <asp:Label ID="LlbEstatusTexto" Text='<%# Eval("EstatusTexto")%>' runat="server" />
+                                    </ItemTemplate>                                                                
+                                </asp:TemplateField>
+
+                                <asp:TemplateField HeaderText="P.E." ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
+                                    <ItemTemplate>                                                                    
+                                        <asp:Label ID="LblPagoelectronico" Text='<%# Eval("Pagoelectronico")%>' runat="server" />
+                                    </ItemTemplate>                                                                
+                                </asp:TemplateField>
+
+                                <asp:TemplateField HeaderText="P.E.G" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
+                                    <ItemTemplate>                                                                    
+                                        <asp:Label ID="LblPagoElectronicoGrupo" Text='<%# Eval("PagoElectronicoGrupos")%>' runat="server" />
+                                    </ItemTemplate>                                                                
+                                </asp:TemplateField>
+                                
+                            </Columns>
+                            <RowStyle CssClass="Texto" />
+                            <AlternatingRowStyle CssClass="TextoAlterno" />
+                        </asp:GridView>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+<%--    <div class="modal-footer">
+        <asp:UpdatePanel runat="server">
+            <ContentTemplate>
+
+                <div class="row">
+                    <div class="col-md-12">
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+
+
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>--%>
+</asp:Content>
+
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript">
+
+        //function Focus() {
+        //    $('#TxtCodigoProv').focus()
+        //}
+
+    </script>
+</asp:Content>
+

Bancos/PopUpBuscarCuentasProveedor.aspx.vb

@@ -0,0 +1,124 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Partial Class Bancos_PopUpBuscarCuentasProveedor
+    Inherits ClsPaginas
+
+#Region "Propiedades"
+    Private ReadOnly Property CveProveedor As Integer
+        Get
+            Return ViewState("CveProveedor").ToString.ToEntero
+        End Get
+    End Property
+    Private Property DTCuentasBancos As DataTable
+        Get
+            Return CType(ViewState("DTCuentasBancos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTCuentasBancos") = value
+        End Set
+    End Property
+
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CType(Me.Master, BaseMasterPage).EsPopup = True
+            CType(Me.Master, BaseMasterPage).PopupWidth = 780
+            RegistraScript("if($get('tdContenido')){$get('tdContenido').style.height='465px'}")
+
+            If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
+                ViewState("CveProveedor") = Request("CveProveedor")
+                CargaDatos(CveProveedor)
+                DdlProveedores.SelectedValue = CveProveedor.ToString
+            Else
+                ViewState("CveProveedor") = -1
+            End If
+
+            InicializaValores()
+
+            Me.Form.DefaultButton = BtnBuscar.UniqueID
+        End If
+    End Sub
+    Private Sub InicializaValores()
+        Dim Txt As String = IfNull(Request("Txt"), "").ToString
+        If Txt <> "" Then LblTitulo.Text = String.Format("Búsqueda de {0}", Txt)
+
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Seleccione"
+        DdlProveedores.SelectedValue = "-1"
+        DdlProveedores.DataBind()
+    End Sub
+    Private Sub CargaDatos(CveProveedor As Integer)
+
+        If ValidarFiltrosSeleccionados() OrElse CveProveedor > 0 Then
+            CargaCuentasBancarias()
+            UPDatos.Update()
+        Else
+            Alert("Seleccione un proveedor", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Private Sub CargaCuentasBancarias()
+        'If CveProveedor <= 0 Then Exit Sub
+        Dim ObjCuentasBancos As New ClsGenerales
+        DTCuentasBancos = New DataTable
+
+        If ObjCuentasBancos.GetCuentasDepositos(CveProveedor) Then
+            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
+        Else
+            Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
+            ObjCuentasBancos.Dispose()
+            Exit Sub
+        End If
+
+        If CveProveedor < 0 Then
+            'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
+            'TempDTCuentasBancos = DTCuentasBancos
+        End If
+
+        ObjCuentasBancos.Dispose()
+        CargaPSGridCuentasBancos()
+        RecargaGlobalCuentasBancarias()
+    End Sub
+
+    Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
+        If CveProveedor > 0 Then
+            Dim ObjCuentasBancos As New ClsGenerales
+
+            If ObjCuentasBancos.GetCuentasDepositos() Then
+                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
+            End If
+            ObjCuentasBancos.Dispose()
+        End If
+    End Sub
+
+    Private Sub CargaPSGridCuentasBancos()
+        GvBancosCuentas.DataSource = DTCuentasBancos.FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue}")
+        GvBancosCuentas.DataBind()
+        TblBusqueda.Visible = True
+        UPDatos.Update()
+    End Sub
+
+    Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
+        CargaDatos(DdlProveedores.SelectedValue.ToEntero)
+    End Sub
+
+    Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
+        'If e.Row.RowType = DataControlRowType.DataRow Then
+        '    If e.Row.DBCampo("CveAlmacen") = "" Then
+        '        e.Row.CssClass = "Totales"
+        '    End If
+        'End If
+    End Sub
+
+    Private Function ValidarFiltrosSeleccionados() As Boolean
+        If DdlProveedores.SelectedValue.ToEntero > 0 Then Return True
+        Return False
+    End Function
+
+End Class

Compras/Compras.aspx.vb

@@ -8196,7 +8196,7 @@ Partial Class Compras_Compras
                                     End If
 
                                     'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
                                         If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
                                             Dim CvePreComprobacion As Integer
                                             If ObjCompras.DtResultados.Rows.Count = 0 Then

Contratos/Presupuestos.aspx

@@ -20,6 +20,9 @@
             <li>
                 <asp:LinkButton ID="LnkAutorizar" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea autorizar el presupuesto?" data-btn-ok-label="si"><i class="fa fa-check"></i> Autorizar</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkCargaPresupuesto" OnClick="LnkCargaPresupuesto_Click" runat="server"><i class="fa fa-upload"></i>Cargar Presupuesto</asp:LinkButton>
+            </li>
             <li>
                 <asp:HyperLink ID="HlModificar" Target="_blank" Visible="false" runat="server"><i class="fa fa-edit"></i> Modificar Presupuesto</asp:HyperLink>
             </li>
@@ -282,6 +285,61 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+    <div id="ModalCargaPresupuesto" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UPCargaPresup" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Cargar Presupuesto </h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-upload font-green"></i>
+                                    <span class="caption-subject bold uppercase">Cargar archivo </span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                        <asp:LinkButton ID="LnkFormatoPresup" OnClick="LnkFormatoPresup_Click" CssClass="btn yellow-gold" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding ">
+                                <!--<div class=" row">
+                                    <div class="col-md-3">Concepto</div>
+                                    <div class="col-md-6">
+                                         <asp:DropDownList ID="ddlConceptocomisionNeto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+
+                                    </div>
+                                </div>
+                             -->
+                                <asp:TextBox ID="TxtCargarPresup" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                            </div>
+                        </div>
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:LinkButton ID="LnkCargarPresup" OnClick="LnkCargarPresup_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>
+            </ContentTemplate>
+            <Triggers>
+                <asp:PostBackTrigger ControlID="LnkFormatoPresup" />
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">

Contratos/Presupuestos.aspx.vb

@@ -494,4 +494,76 @@ Partial Class Contratos_Presupuestos
         UpGvClasificaciones.Update()
         UpIndicadores.Update()
     End Sub
+
+    Protected Sub LnkCargaPresupuesto_Click(sender As Object, e As EventArgs) Handles LnkCargaPresupuesto.Click
+        RegistraScript("$('#ModalCargaPresupuesto').modal();")
+    End Sub
+
+    Protected Sub LnkFormatoPresup_Click(sender As Object, e As EventArgs) Handles LnkFormatoPresup.Click
+        GvPresupuestos.ExportToExcelX("Plantilla Presupuesto " + DateTime.Now.ToShortDateString)
+    End Sub
+
+    Protected Sub LnkCargarPresup_Click(sender As Object, e As EventArgs) Handles LnkCargarPresup.Click
+        If TxtCargarPresup.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtCargarPresup.getfiles().Archivos(0)
+
+            Dim Directorio As String = Server.MapPath("~") & file.path
+
+            Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+            CargarArchivo(Directorio, file.filename, Tipo)
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo CSV o Excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+    End Sub
+
+    Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+
+        Dim DTExcel As New DataTable
+        Dim ErrorArchivo = False
+        Dim ErrorExcel = False
+
+        DTExcel = ReadExcelFile(Ruta + FileName, True)
+
+        If Not ErrorArchivo Then
+            If Not DTExcel.Columns(0).ColumnName = "Clasificación" Then
+                Alert("El nombre de la primera columna debe ser 'Clasificación'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not DTExcel.Columns(1).ColumnName = "Importe" Then
+                Alert("El nombre de la segunda columna debe ser 'Importe'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not DTExcel.Columns(2).ColumnName = "Observaciones" Then
+                Alert("El nombre de la tercera columna debe ser 'Observaciones'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not DTExcel.Columns(3).ColumnName = "Tipo Gasto" Then
+                Alert("El nombre de la cuarta columna debe ser 'Tipo Gasto'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+        End If
+
+        Try
+            Dim txtImporte As TextBox = Nothing
+            Dim txtObservacion As TextBox = Nothing
+            Dim i As Integer = 0
+            For Each row As GridViewRow In GvPresupuestos.Rows
+                If (i < DTExcel.Rows.Count) Then
+                    txtImporte = row.FCTextBox("TxtImporteClasi")
+                    txtObservacion = row.FCTextBox("TxtObservacion")
+                    txtImporte.Text = DTExcel.Rows(i).Field(Of String)(1).ToString
+                    txtObservacion.Text = DTExcel.Rows(i).Field(Of String)(2).ToString
+                    i += 1
+                End If
+            Next
+        Catch ex As Exception
+            GuardaLog($"Ocurrio un error al cargar archivo Excel en Contratos/Presupuestos.aspx - {ex.ToString()}")
+            Alert("Se produjo un error al ingresar los datos. Favor de contactar a soporte.", TipoMensaje.MsgError)
+            Exit Sub
+        End Try
+
+        RegistraScript("$('#ModalCargaPresupuesto').modal('hide');calculaTotal()")
+        UpGvClasificaciones.Update()
+    End Sub
+
 End Class

General/RepIndicadorResumen.aspx

@@ -418,13 +418,17 @@
                                     </div>
                                 </ContentTemplate>
                             </asp:UpdatePanel>
+                        </div>
+                    </div>
 
+                    <div class="row">
+                        <div class="col-md-6">
                             <asp:UpdatePanel ID="UPSaldoCxP" runat="server" class="portlet light xspadding bordered " align="center" style="" UpdateMode="Conditional" Visible="false">
                                 <ContentTemplate>
                                     <div class="portlet-title" style="border-bottom:none!important; margin-top: 5px">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="PLSaldoCxP" runat="server" class="caption-subject bold uppercase">Saldo conjunto de Cuentas por Pagar </span>
+                                            <span id="PLSaldoCxP" runat="server" class="caption-subject bold uppercase">Saldo acumulado de Cuentas por Pagar</span>
                                         </div>
                                         <div class="caption font-green portlet-total">
                                             <span id="PLSaldoCxPTot" class="caption-subject bold uppercase" runat="server" />
@@ -434,6 +438,8 @@
                                 </ContentTemplate>
                             </asp:UpdatePanel>
                         </div>
+
+                        <!-- <div class="col-md-6"></div> -->
                     </div>
 
                 </ContentTemplate>

Site.master

@@ -150,12 +150,6 @@
                                 </a>
 
                                 <ul class="dropdown-menu">                                   
-                                    <li id="tdBuscarMilitante" runat="server" visible="false">
-                                        <a onclick="javascript:AbrirVentana('/ZDG/PopUpBuscarMilitante.aspx',1250);">
-                                            <i class="fa fa-male"></i>
-                                            Buscar Militante
-                                        </a>
-                                    </li>
                                     <li id="tdCliente" runat="server" visible="false">
                                         <a onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx');">
                                             <i class="fa fa-users"></i>
@@ -174,14 +168,6 @@
                                             Buscar Venta
                                         </a>
                                     </li>
-                                    <li id="tdBuscarPs" runat="server" visible="false">
-                                        <a onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarPs.aspx');">
-
-                                            <i class="fa fa-dropbox"></i>
-                                            Buscar Producto Servicios
-                                        </a>
-                                    </li>
-
                                     <li id="tdPersonal" runat="server" visible="false">
                                         <a onclick="javascript:AbrirVentana('/RH/PopUpBuscarPersonal.aspx');">
                                             <i class="fa fa-money"></i>
@@ -197,9 +183,7 @@
                                     <li id="tdCheques" runat="server" visible="false">
                                         <a onclick="javascript:AbrirVentana('/Bancos/PopUpBuscarIE.aspx');">
                                             <i class="fa fa-university"></i>
-                                            Buscar Movtos. 
+                                            Buscar Movto. Bancario
-                                            <br />
-                                            &nbsp;&nbsp;&nbsp;&nbsp;Bancarios
                                         </a>
                                     </li>
                                     <li id="tdOC" runat="server" visible="false">
@@ -218,9 +202,7 @@
                                     <li id="tdOS" runat="server" visible="false">
                                         <a onclick="javascript:AbrirVentana('/OS/PopUpBuscarOS.aspx');">
                                             <i class="fa fa-list-alt"></i>
-                                            Buscar Órdenes
+                                            Buscar Órdenes Servicio
-                                            <br />
-                                            &nbsp;&nbsp;&nbsp;&nbsp;de Servicio
                                         </a>
                                     </li>
                                     <li id="tdBExi" runat="server" visible="false">
@@ -259,15 +241,31 @@
                                             Buscar Acercamientos
                                         </a>
                                     </li>
+                                    <li id="tdBuscarPs" runat="server" visible="false">
+                                        <a onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarPs.aspx');">
 
+                                            <i class="fa fa-dropbox"></i>
+                                            Buscar Producto Servicios
+                                        </a>
+                                    </li>
                                      <li id="TdBuscaActivoFijo" runat="server" visible="False">
                                         <a onclick="javascript:AbrirVentana('/AF/PopUpBuscarAF.aspx',800,600,'N');">
                                             <i class="fa fa-building"></i>
                                             Buscar Activo Fijo
                                         </a>
                                     </li>
-
+                                    <li id="tdProvBancos" runat="server" visible="false">
-
+                                        <a onclick="javascript:AbrirVentana('/Bancos/PopUpBuscarCuentasProveedor.aspx');">
+                                            <i class="fa fa-university"></i>
+                                            Buscar Cuentas Proveedor
+                                        </a>
+                                    </li>
+                                     <li id="tdBuscarMilitante" runat="server" visible="false">
+                                        <a onclick="javascript:AbrirVentana('/ZDG/PopUpBuscarMilitante.aspx',1250);">
+                                            <i class="fa fa-male"></i>
+                                            Buscar Militante
+                                        </a>
+                                    </li>
                                 </ul>
                             </li>
                             <li class="dropdown dropdown-user">

Site.master.vb

@@ -217,6 +217,8 @@ Partial Class Site
         'Proveedores
         If UsuarioActual.TienePermisoPagina(37) Then tdProv.Visible = True
 
+        If UsuarioActual.TienePermisoPagina(679) Then tdProvBancos.Visible = True
+
         'Clientes
         If UsuarioActual.TienePermisoPagina(26) Then tdCliente.Visible = True
 

Ventas/ClientesAbonar.aspx

@@ -96,7 +96,7 @@
                         <div id="DivDatosBancarios" runat="server" class="chequesie1">
                             <div class="row">
                                 <label class="col-md-2">Movimiento:</label>
-                                <div class="col-md-4">
+                                <div class="col-md-5">
                                     <asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpGuardar">
                                     </asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVTipoTransaccion" runat="server" ControlToValidate="DdlTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -115,9 +115,6 @@
 
                                 </div>
                                  
-
-
-
                                 <div class="col-md-5" runat="server" id="DivTCDolaresDolares" visible="false">
                                     T.C:
                                     <asp:TextBox ID="TxtTCDolaresDolares" runat="server" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
@@ -216,22 +213,22 @@
                                 <div class="col-md-3">
                                     <asp:TextBox ID="TxtAnticipo" runat="server"  Width ="100px" ClientIDMode="Static" />
                                 </div>
-
+                                 <div class="col-md-2"   runat="server" id="Div3" visible="false"> </div>
-
-                                 <div class="col-md-2"   runat="server" id="Div3" visible="false">Liquidación:</div>
                                 <div class="col-md-3"  runat="server" id="Div4" visible="false">
-                                    <asp:CheckBox ID="CheckBox2" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" />
-                                </div>
                                     
+                                </div>
                             </div>
                             <div class="row" id="divPrestamo" runat="server" visible="false"  >
                                 <div class="col-md-2" >Préstamo:</div>
                                 <div class="col-md-3">
-                                    <asp:TextBox ID="TxtPrestamo" runat="server"  Width ="100px" ClientIDMode="Static" />
+                                    <asp:TextBox ID="TxtPrestamoImporte" runat="server" Width="100px" ClientIDMode="Static"></asp:TextBox>
                                 </div>
                                  <div class="col-md-2">
-                                       <asp:DropDownList ID="DdlPrestamo" runat="server" Width="40px"  DataTextField="RazonSocial" DataValueField="CveIE"></asp:DropDownList>
+                                       <asp:DropDownList ID="DdlPrestamo" runat="server" Width="100%"  DataTextField="TextoDocumento" DataValueField="CveIE"></asp:DropDownList>
                                  </div>
+                                <div class="col-md-3" >Intereses:
+                                     <asp:TextBox ID="TxtPrestamoIntereses" runat="server" Width="80px" ClientIDMode="Static"></asp:TextBox>
+                                </div>
                             </div>
 
                             <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
@@ -820,6 +817,24 @@
                     Importe = Importe + ToDouble($get('TxtAnticipo').value);
                 }
             }
+            if ($get('TxtPrestamoImporte') != null) {
+
+                if ($get('TxtPrestamoImporte').value == '') {
+                    $get('TxtPrestamoImporte').value = 0.00;
+                }
+                else {
+                    Importe = Importe - ToDouble($get('TxtPrestamoImporte').value);
+                }
+            }
+            if ($get('TxtPrestamoIntereses') != null) {
+
+                if ($get('TxtPrestamoIntereses').value == '') {
+                    $get('TxtPrestamoIntereses').value = 0.00;
+                }
+                else {
+                    Importe = Importe - ToDouble($get('TxtPrestamoIntereses').value);
+                }
+            }
 
             if ($get('TxtOtrosImportes') != null) {
                 if (pagoMultiple != 0) {

Ventas/RepVentasAutorizaciones.aspx

@@ -16,7 +16,7 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <%--    <li>
+<%--    <li>
         <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
     </li>
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
@@ -25,13 +25,13 @@
                 <asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server"><i class="fa fa-signal"></i> Ver Grafica</asp:LinkButton>
             </li>
         </ContentTemplate>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>--%>
     <li>
-        <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+        <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i>Generar PDF</asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Exportar Excel</asp:LinkButton>
-    </li>--%>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>

Ventas/RepVentasAutorizaciones.aspx.cs

@@ -12,12 +12,42 @@ public partial class Ventas_RepVentasAutorizaciones : ClsPaginas
 
 public partial class Ventas_RepVentasAutorizaciones : ClsPaginas
 {
+    #region PROPIEDADES
+
+    private DataTable DtDatos
+    {
         get { return DtDatos = (DataTable)ViewState["DtDatos"]; }
-
+        set { ViewState["DtDatos"] = value; }
-    private DataTable DtDatos
+    }
+	private bool Consultado {
+        get { return Consultado = (bool)ViewState["Consultado"];  }
+        set { ViewState["Consultado"] = value; } 
+    }
+
+	#endregion
+
+	protected void LnkExcel_Click(object sender, EventArgs e)
+    {
+		if (Consultado)
+		{
+			GvDatos.ExportToExcelG("RepVentasAutorizaciones" + DateTime.Now, "Reporte de Autorizaciones de Ventas", UsuarioActual);
+		}
+		else
+		{
+			Alert("Por favor realice una consulta primero.");
+		}
+    }
+
+	protected void LnkPdf_Click(object sender, EventArgs e)
+	{
+        if (Consultado) {
+			GvDatos.GenerarReportePDF("Reporte de Autorizaciones de Ventas");
+		} else {
+            Alert("Por favor realice una consulta primero.");
         }
 	}
 	public override void VerifyRenderingInServerForm(System.Web.UI.Control control)
+	{
 	}
 
 	protected void Page_Load(object sender, EventArgs e)
@@ -45,6 +75,7 @@ public partial class Ventas_RepVentasAutorizaciones : ClsPaginas
         DdlClientes.setEsWebService(true);
 
 
+        txtFechaI.Text = DateTime.Now.ToShortDateString();
         txtFechaF.Text = DateTime.Now.ToShortDateString();
 
     }