-- option strict on

2023-08-23 00:03:55 -07:00
parent 7ee978059d
commit 3bc4f72658
23 changed files with 212 additions and 257 deletions
--- a/Compras/CatEstatusFactura.aspx.vb
+++ b/Compras/CatEstatusFactura.aspx.vb
@@ -36,7 +36,7 @@ Partial Class Compras_CatEstatusFactura
                Alert("El Nuevo Estatus de Factura se guardó correctamente.", TipoMensaje.MsgInformacion)
            End If
        ElseIf HdnModalidad.Value = "U" Then
-            If ObjEstatusFactura.UpdateEstatusFactura(TxtEstatus.Text, ChkEstatus.Checked, HdnID.Value) Then
+            If ObjEstatusFactura.UpdateEstatusFactura(TxtEstatus.Text, ChkEstatus.Checked, HdnID.Value.ToEntero) Then
                GlobalDTCompEstatusFactura = ObjEstatusFactura.DtResultados
                Alert("El Nuevo Estatus de Factura se Actualizó correctamente.", TipoMensaje.MsgInformacion)
                TxtClave.Text = ""
--- a/Compras/CatPaqueteriasGuiasTipo.aspx.vb
+++ b/Compras/CatPaqueteriasGuiasTipo.aspx.vb
@@ -63,7 +63,7 @@ Partial Class Comp_CatPaqueteriasGuiasTipo

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
        TxtPaqueteria.Text = GvRow.DataKey("PaqueteriaGuiaTipo")
-        CvePaqueteriaGuiaTipo = GvRow.DataKey("CvePaqueteriaGuiaTipo")
+        CvePaqueteriaGuiaTipo = GvRow.DataKey("CvePaqueteriaGuiaTipo").toentero

        UpModalTiposD.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14959,10 +14959,8 @@ Partial Class Compras_Compras
            GVServicios.Visible = False
        End If

-        If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.CvePlataforma <> 2 Then
-            'liServicios.Visible = True
-            liFletesImportaciones.Visible = True
-        End If
+        If UsuarioActual.Empresa.Funcionalidad(155) <> "" Then LnkFletesImportaciones.Visible = True ' FNC Importaciones
+        If UsuarioActual.Empresa.Funcionalidad(158) <> "" Then LnkFletesImportaciones.Visible = True ' FNC Indirectos

    End Sub

@@ -15877,22 +15875,22 @@ Partial Class Compras_Compras

    Private Sub CargaFletes()

-        If UsuarioActual.CveEmpresa <> 125 Or CveCompra > 0 Then
-            Exit Sub
-        End If
+        'If UsuarioActual.CveEmpresa <> 125 Or CveCompra > 0 Then
+        '    Exit Sub
+        'End If

-        HLModalFletes.Visible = True
+        'HLModalFletes.Visible = True

-        Dim ObjVentas As New ClsVentas
+        'Dim ObjVentas As New ClsVentas

-        If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then
-            GVFletes.DataSource = ObjVentas.DtResultados
-            GVFletes.DataBind()
-        End If
+        'If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then
+        '    GVFletes.DataSource = ObjVentas.DtResultados
+        '    GVFletes.DataBind()
+        'End If

-        UpFletes.Update()
+        'UpFletes.Update()

-        ObjVentas.Dispose()
+        'ObjVentas.Dispose()
    End Sub


--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -83,7 +83,7 @@ Partial Class Compras_RepCxP
        End Set
    End Property

-    Private Property TCEspecifico As Double
+    Private Property TCEspecifico As Decimal

 #End Region

@@ -197,8 +197,8 @@ Partial Class Compras_RepCxP
    End Sub

    Private Sub CargaDatos()
-        If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then
-            TCEspecifico = TxtEspecifico.Text
+        If RblTipoCambio.SelectedValue = "3" And TxtEspecifico.Text <> "" Then
+            TCEspecifico = TxtEspecifico.Text.ToDecimal
        Else
            TCEspecifico = -1
        End If
@@ -214,7 +214,7 @@ Partial Class Compras_RepCxP
        If txtFechaF.Text = "" Then FechaF = "-1"
        If txtFechaVI.Text = "" Then FechaVI = "-1"
        If txtFechaVF.Text = "" Then FechaVF = "-1"
-        Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1)
+        Dim TipoAgrupacion As Integer = If(chkAgruparMes.Checked, 1, -1)

        Dim CveProyecto As Integer = -1
        If DdlProyecto.Visible Then
@@ -223,7 +223,7 @@ Partial Class Compras_RepCxP

        Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
        If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero(), DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
-                      DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
+                      DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=If(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion, CveProyecto:=CveProyecto) Then
            GvCxP.DataSource = Mov.DtResultados
            DtDatos = Mov.DtResultados
@@ -1082,10 +1082,10 @@ Partial Class Compras_RepCxP
        If txtFechaF.Text = "" Then FechaF = "-1"
        If txtFechaVI.Text = "" Then FechaVI = "-1"
        If txtFechaVF.Text = "" Then FechaVF = "-1"
-        Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1)
+        Dim TipoAgrupacion As Integer = If(chkAgruparMes.Checked, 1, -1)
        Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
        If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, -1, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
-                      DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
+                      DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=If(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion) Then

        End If
@@ -1109,16 +1109,15 @@ Partial Class Compras_RepCxP
        Mes(10) = monthNames(Dr("NomMes11").ToString.ToDate.Month)
        Mes(11) = monthNames(Dr("NomMes12").ToString.ToDate.Month)
        Mes(12) = "12+"
-        If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then
-            TCEspecifico = TxtEspecifico.Text
+        If RblTipoCambio.SelectedValue = "3" And TxtEspecifico.Text <> "" Then
+            TCEspecifico = TxtEspecifico.Text.ToDecimal
        Else
            TCEspecifico = -1
        End If

-
        Dim DtExcel As DataTable
        If chkAgruparMes.Checked Then
-            DtExcel = (From row As DataRow In Mov.DtResultados.Rows
+            DtExcel = (From row As DataRow In Mov.DtResultados.AsEnumerable
                       Select New With
                            {
                            .GPO = row.Item("GPO"),
@@ -1440,8 +1439,8 @@ Partial Class Compras_RepCxP
        If txtFechaVI.Text = "" Then FechaVencimientoI = "-1"
        If txtFechaVF.Text = "" Then FechaVencimientoF = "-1"

-        If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then
-            TCEspecifico = TxtEspecifico.Text
+        If RblTipoCambio.SelectedValue = "3" And TxtEspecifico.Text <> "" Then
+            TCEspecifico = TxtEspecifico.Text.ToDecimal
        Else
            TCEspecifico = -1
        End If
@@ -1503,7 +1502,7 @@ Partial Class Compras_RepCxP
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text))
            params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
-            params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
+            params.Add(New ReportParameter("CantColumnas", CantidadColumnas.ToString))

            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepCxP.rdlc", DtDatos, params, "ReporteCxP", Formato)
@@ -1517,11 +1516,11 @@ Partial Class Compras_RepCxP

 #Region "TIPO DE CAMBIO"
    Private Sub DdlTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
-        If RblTipoCambio.SelectedValue = 3 Then
+        If RblTipoCambio.SelectedValue = "3" Then
            Dim TipoCambio As Double
            LiEspecifico.Visible = True
            TipoCambio = GlobalTipoCambio(Now)
-            TxtEspecifico.Text = TipoCambio
+            TxtEspecifico.Text = TipoCambio.ToString
        Else
            LiEspecifico.Visible = False
        End If
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -226,7 +226,7 @@ Partial Class RepCxPDetalle
        CargaProveedores()
        Dim CveProveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero

-        DdlProveedores.SelectedValue = CveProveedor
+        DdlProveedores.SelectedValue = CveProveedor.ToString
        Me.CveProveedor = CveProveedor

        If DdlProveedores.SelectedValue.ToEntero > 0 Then
@@ -367,8 +367,8 @@ Partial Class RepCxPDetalle
            If ObjMovtos.GetCxPDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, CveProveedorSucursal, CveUsuario,
                                       DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero(), DdlEstatusCompra.SelectedValue.ToEntero,
                                       Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero,
-                                       TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3,
-                                       -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero()) Then
+                                       TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=If(CveTipoProveedor = 3, -1, CveTipoProveedor),
+                                       Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero()) Then


                Dim TMP_DTDatos As New DataTable
--- a/Compras/RepEvaluacionProveedor.aspx.vb
+++ b/Compras/RepEvaluacionProveedor.aspx.vb
@@ -40,7 +40,7 @@ Partial Class RepEvaluacionProveedor
        Dim fFin As Date = Date.Parse(TxtFechaF.Text)

        Dim objCompras As New ClsCompras
-        objCompras.GetRepEvaluacionProveedores(UsuarioActual.Empresa.CveEmpresa, DdlProveedor.SelectedValue, DdlCveClasificacionProveedor.SelectedValue.ToEntero, fInicio, fFin)
+        objCompras.GetRepEvaluacionProveedores(UsuarioActual.Empresa.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, DdlCveClasificacionProveedor.SelectedValue.ToEntero, fInicio, fFin)
        GV.DataSource = objCompras.DtResultados
        LtlTotalRegistros.Text = objCompras.DtResultados.Rows.Count.ToString

@@ -59,7 +59,6 @@ Partial Class RepEvaluacionProveedor
            If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then

                Dim Liga As String = String.Empty
-
                If (e.Row.DBCampo("ReqCve").ToString <> "") Then
                    Liga = String.Format("<a class='Texto'  href='javascript:IrO(""{0}"");'>", e.Row.DBCampo("ReqCve"))
                    e.Row.FCLabel("lblReqFolio").Text = String.Format("<div  >{0}{1}</a></div>", Liga, e.Row.DBCampo("ReqFolio"))
@@ -68,27 +67,17 @@ Partial Class RepEvaluacionProveedor
                If e.Row.DBCampo("OcCve").ToString <> "" Then
                    Liga = String.Format("<a class='Texto'  href='javascript:IrO(""{0}"");'>", e.Row.DBCampo("OcCve"))
                    e.Row.FCLabel("lblOcFolio").Text = String.Format("<div >{0}{1}</a></div>", Liga, e.Row.DBCampo("OcFolio"))
-
                End If

-
-
-
                Liga = String.Format("<a class='Texto' href='javascript:IrP(""{0}"");'>", e.Row.DBCampo("CveProveedor"))
                e.Row.FCLabel("lblProveedor").Text = String.Format("<div >{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial"))

                'Liga = String.Format("<a class='Texto' href='javascript:IrC(""{0}"");'>", e.Row.DBCampo("CveCompra"))
                'e.Row.FCLabel("lblReqFolio").Text = String.Format("<div >{0}{1}</a></div>", Liga, e.Row.DBCampo("ReqFolio"))

-
-
                Dim atraso As Integer = e.Row.DBCampo("Atraso").Trim.ToEntero
-
-
                e.Row.FCLabel("lblAtraso").Font.Bold = True
-
-
-                e.Row.FCLabel("lblAtraso").Text = atraso
+                e.Row.FCLabel("lblAtraso").Text = atraso.ToString
                e.Row.FCLabel("lblAtraso").Width = 70

                If atraso > 0 Then
@@ -96,7 +85,6 @@ Partial Class RepEvaluacionProveedor
                Else
                    e.Row.FCLabel("lblAtraso").CssClass = "label label-success"
                End If
-
            End If

        End If
--- a/Compras/RepEvaluacionesProveedores.aspx.vb
+++ b/Compras/RepEvaluacionesProveedores.aspx.vb
@@ -35,7 +35,7 @@ Partial Class RepEvaluacionesProveedores

    Private Sub CargarDatos()
        Dim ObjCompras As New ClsCompras
-        If ObjCompras.GetRepEvaluacionesProveedores(UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, TxtFechaI.Text, TxtFechaF.Text, DdlEvaluado.SelectedValue.ToEntero) Then
+        If ObjCompras.GetRepEvaluacionesProveedores(UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, DdlEvaluado.SelectedValue.ToEntero) Then
            GV.DataSource = ObjCompras.DtResultados
            DtDatos = ObjCompras.DtResultados
        End If
@@ -58,7 +58,7 @@ Partial Class RepEvaluacionesProveedores
        params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text))
        params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("FechaImpresion", Today.ToShortDateString))
        params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.ToString))

        ImprimirPDF("Empresas/Grales/Formatos/RepEvaluacionesProveedores.rdlc", DtDatos, params, "RepEvaluacionesProveedores", "PDF", RDSName:="DataSet1")
--- a/Compras/RepGastos.aspx.vb
+++ b/Compras/RepGastos.aspx.vb
@@ -14,7 +14,7 @@ Partial Class RepGastos
 #Region "Propiedades"
    Private Property RfechaInicio() As DateTime
        Get
-            Return If(IsNothing(ViewState("RfechaInicio")), DateTime.MinValue, (ViewState("RfechaInicio")))
+            Return If(IsNothing(ViewState("RfechaInicio")), DateTime.MinValue, ViewState("RfechaInicio").ToString.ToDateTime)
        End Get
        Set
            ViewState("RfechaInicio") = Value
@@ -22,7 +22,7 @@ Partial Class RepGastos
    End Property
    Private Property RfechaFin() As DateTime
        Get
-            Return If(IsNothing(ViewState("RfechaFin")), DateTime.MinValue, (ViewState("RfechaFin")))
+            Return If(IsNothing(ViewState("RfechaFin")), DateTime.MinValue, ViewState("RfechaFin").ToString.ToDateTime)
        End Get
        Set
            ViewState("RfechaFin") = Value
--- a/Compras/ValidaCFDi.aspx.vb
+++ b/Compras/ValidaCFDi.aspx.vb
@@ -15,7 +15,7 @@ Partial Class Compras_ValidaCFDi
        LtlFechaExp.Text = ObjCFDi.FechaEmision
        LtlFechaCert.Text = ObjCFDi.FechaCertificacion
        LtlPACCert.Text = ObjCFDi.RFCPAC
-        LtlTotal.Text = ObjCFDi.Monto
+        LtlTotal.Text = ObjCFDi.Monto.ToString
        LtlEfecto.Text = ObjCFDi.Efecto
        LtlEstado.Text = ObjCFDi.Estado
        LtlRespuestaHTML.Text = ObjCFDi.ResponseHTML