-- unificación de globalDTs

2023-02-18 13:40:31 -07:00
parent a8eb7895e0
commit e59d485489
6 changed files with 107 additions and 1076 deletions
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/Ashx/SIGFacturacionCiclica.ashx
@@ -139,7 +139,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
                End If

                If Row("Observaciones").ToString().Contains("{TC}") Then
-                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero)
+                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", ClsPaginas.GlobalTipoCambio(Now).FormatoNumero)
                End If

                Dim Resp = EmitirImprimir(UsuarioActual, Row)
@@ -290,9 +290,9 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
            ObjFactura.ConvertirPesos = False
            ObjFactura.CveMoneda = DR("CveMoneda").ToString.ToEntero
-            ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
-            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}")
-            ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, GlobalTipoCambio(Now))
+            ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
+            ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}")
+            ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(Now))
            ObjFactura.TipoDocto = "Ing"
            ObjFactura.RefDocto = ""
            ObjFactura.Folio = -1
@@ -335,8 +335,8 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero
            ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero

-            ObjFactura.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto)))
-            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
+            ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto)))
+            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))


            SubProyecto = DR("SubProyectoContrato").ToString
@@ -359,7 +359,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            ObjFactura.Total = ObjFactura.SubTotal + ObjFactura.IVA + ObjFactura.IEPS - (ObjFactura.RetIVA + ObjFactura.RetISR)

            For Each row As DataRow In DtDetalle.Rows
-                Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row("CvePS").ToString().ToEntero()).FiltroPrimero("")
+                Dim drPS As DataRow = ClsPaginas.GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row("CvePS").ToString().ToEntero()).FiltroPrimero("")

                DtR = TmpDT.NewRow
                DtR("CveVenta") = -1
@@ -414,16 +414,16 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
            If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
                If ObjCliente.DtResultados.Rows.Count > 0 Then
                    ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33
-                    ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))
-                    ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))
+                    ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))
+                    ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))

                    ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
-                    ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
-                    ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
+                    ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
+                    ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))

                    ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI
-                    ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
-                    ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
+                    ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
+                    ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))

                    'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago

@@ -584,126 +584,4 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
    End Function
 #End Region

-
-#Region "G L O B A L - D T"
-    Public Property GlobalTipoCambio(Optional Fecha As Date = MinFecha) As Double
-        Get
-            If GlobalTipoCambio <= 0 Then
-                'sino tiene dato lo recargo por si ya esta insertado
-                If Fecha = MinFecha Then Fecha = Now
-
-                Dim ObjGral As New ClsGenerales
-                If ObjGral.GetTipoCambio(-1, Fecha) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
-
-                    HttpContext.Current.Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
-                Else
-                    HttpContext.Current.Application("GlobalTipoCambio") = 0
-                End If
-                ObjGral.Dispose()
-
-            End If
-
-            Return HttpContext.Current.Application("GlobalTipoCambio").ToString.ToDouble
-        End Get
-        Set(value As Double)
-            HttpContext.Current.Application("GlobalTipoCambio") = value
-        End Set
-
-    End Property
-    Property GlobalDTMonedas() As DataTable
-        Get
-            GlobalDTMonedas = DirectCast(HttpContext.Current.Application("GlobalDTMonedas"), DataTable)
-        End Get
-        Set(value As DataTable)
-            HttpContext.Current.Application("GlobalDTMonedas") = value
-        End Set
-    End Property
-    ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1, Optional Estatus As Integer = -1, Optional Codigo As String = "-1") As DataTable
-        Get
-            Dim ObjPS As New ClsProductosServicios
-
-            If ObjPS.GetPS(CvePS, -1, CveEmpresa, Codigo:=Codigo, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta, pEstado:=Estatus) Then
-                GlobalDTPS = ObjPS.DtResultados
-            Else
-                GlobalDTPS = Nothing
-            End If
-
-            ObjPS.Dispose()
-        End Get
-    End Property
-    Public Property GlobalDTVtaFormaPago() As DataTable
-        Get
-            GlobalDTVtaFormaPago = DirectCast(HttpContext.Current.Application("GlobalDTVtaFormaPago"), DataTable)
-        End Get
-        Set(value As DataTable)
-            HttpContext.Current.Application("GlobalDTVtaFormaPago") = value
-        End Set
-    End Property
-    Property GlobalDTVtaMetodoPago() As DataTable
-        Get
-            GlobalDTVtaMetodoPago = DirectCast(HttpContext.Current.Application("GlobalDTVtaMetodoPago"), DataTable)
-        End Get
-        Set(value As DataTable)
-            HttpContext.Current.Application("GlobalDTVtaMetodoPago") = value
-        End Set
-    End Property
-    Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
-        Get
-            If EsPersonaFisica <> -1 Then
-                Dim Tipo As String = ""
-                If EsPersonaFisica = 1 Then Tipo = "AplicaPersonaFisica = 1" Else Tipo = "AplicaPersonaMoral = 1"
-
-                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTSATUsosCFDI"), DataTable), Tipo, " UsoCFDIDescripcion", DataViewRowState.CurrentRows)
-                GlobalDTSATUsosCFDI = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTSATUsosCFDI = DirectCast(HttpContext.Current.Application("GlobalDTSATUsosCFDI"), DataTable)
-            End If
-
-        End Get
-        Set(ByVal value As DataTable)
-            HttpContext.Current.Application("GlobalDTSATUsosCFDI") = value
-        End Set
-    End Property
-
-    Property GlobalDTMetodosPago() As DataTable
-        Get
-            GlobalDTMetodosPago = DirectCast(HttpContext.Current.Application("GlobalDTMetodosPago"), DataTable)
-        End Get
-        Set(value As DataTable)
-            HttpContext.Current.Application("GlobalDTMetodosPago") = value
-        End Set
-    End Property
-    Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
-        Get
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
-            'sino existe, recarga los datos
-            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then
-                Dim P As New ClsSubProyectos
-                If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = P.DtResultados
-                P.Dispose()
-            End If
-
-            If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
-                Dim StrSQL As New StringBuilder
-                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
-                If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
-                If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
-                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
-
-                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
-                GlobalDTSubProyectos = Dv.ToTable
-                Dv.Dispose()
-
-            Else
-                GlobalDTSubProyectos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
-            End If
-
-        End Get
-        Set(ByVal value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
-            HttpContext.Current.Application(AppNombre) = value
-        End Set
-    End Property
-#End Region
 End Class