-- 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/Contabilidad2/CatContaEjercicios.aspx.vb
+++ b/Contabilidad2/CatContaEjercicios.aspx.vb
@@ -61,8 +61,8 @@ Partial Class Contabilidad2_CatContaEjercicios

    Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
        TxtEjercicio.Text = ""
-        ChkEstatus.Checked = 0
-        DdlPeriodoActual.SelectedValue = 0
+        ChkEstatus.Checked = False
+        DdlPeriodoActual.SelectedValue = "0"
        LbAgregar.Text = "Agregar"
        UpModalModulos.Update()
        RegistraScript("$('#ModalCat').modal();")
@@ -72,12 +72,12 @@ Partial Class Contabilidad2_CatContaEjercicios
        Dim ObjConta As New ClsContabilidad
        Dim errorString As String = ""
        If LbAgregar.Text = "Agregar" Then
-            If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
-                                              PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
+            If Not ObjConta.AddContaEjercicio(TxtEjercicio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                              PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero) Then
                errorString = "Error al agregar"
            End If
        ElseIf LbAgregar.Text = "Actualizar" Then
-            If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero,
+            If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text.ToEntero, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero,
                                                 Estatus:=ChkEstatus.Checked) Then
                errorString = "Error al actualizar"
            End If
@@ -101,7 +101,7 @@ Partial Class Contabilidad2_CatContaEjercicios
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CveEjercicio = GvRow.DataKey("CveEjercicio").ToEntero
        TxtEjercicio.Text = GvRow.DataKey("Ejercicio")
-        ChkEstatus.Checked = GvRow.DataKey("Estatus")
+        ChkEstatus.Checked = GvRow.DataKey("Estatus") = "True"
        DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero")
        LbAgregar.Text = "Actualizar"
        UpModalModulos.Update()
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -44,7 +44,7 @@ Partial Class Contabilidad2_CatCuentas

    Private Property Afectable As Boolean
        Get
-            Return ViewState("Afectable").ToString
+            Return CBool(ViewState("Afectable").ToString)
        End Get
        Set(value As Boolean)
            ViewState("Afectable") = value
@@ -204,7 +204,7 @@ Partial Class Contabilidad2_CatCuentas
            DTcuenta.SelectedValue = dr("Tipo").ToString()
            DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
            LblSubCuenta.Text = dr("Nombre").ToString
-            Afectable = dr("Afectable").ToString
+            Afectable = CBool(dr("Afectable").ToString)
            CvePadre = dr("CvePadre").ToString.ToEntero
        End If

@@ -230,10 +230,10 @@ Partial Class Contabilidad2_CatCuentas
        onconceptochange()
        CveProveedor = -1
        DdlProveedores.SelectedText = ""
-        DdlProveedores.SelectedValue = CveProveedor
+        DdlProveedores.SelectedValue = CveProveedor.ToString
        CveCliente = -1
        DdlClientesWS.SelectedText = ""
-        DdlClientesWS.SelectedValue = CveCliente
+        DdlClientesWS.SelectedValue = CveCliente.ToString
        Dim PorcentajeImpuesto As Decimal = -1
        DdlClasificacion.SelectedValueExist(PorcentajeImpuesto)
        CveClasificacion = -1
@@ -266,24 +266,24 @@ Partial Class Contabilidad2_CatCuentas
                objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa)
                If objconta.DtResultados.Rows.Count > 0 Then
                    Dim rowcc As DataRow = objconta.DtResultados.Rows(0)
-                    DdlConcepto.SelectedValue = -1
+                    DdlConcepto.SelectedValue = "-1"
                    DdlConcepto.SelectedValueExist(rowcc("CveConceptoAdmin").ToString().ToEntero())
                    onconceptochange()
                    CveProveedor = rowcc("CveProveedor").ToString().ToEntero()
-                    DdlProveedores.SelectedText = rowcc("Proveedor").ToString().ToEntero()
-                    DdlProveedores.SelectedValue = CveProveedor
+                    DdlProveedores.SelectedText = rowcc("Proveedor").ToString()
+                    DdlProveedores.SelectedValue = CveProveedor.ToString
                    CveCliente = rowcc("CveCliente").ToString().ToEntero()
-                    DdlClientesWS.SelectedText = rowcc("Cliente").ToString().ToEntero()
-                    DdlClientesWS.SelectedValue = CveCliente
+                    DdlClientesWS.SelectedText = rowcc("Cliente").ToString
+                    DdlClientesWS.SelectedValue = CveCliente.ToString
                    Dim PorcentajeImpuesto As Decimal = rowcc("PorcentajeImpuesto").ToString().ToDecimal() * 100
-                    TxtPorcentaje.Text = (PorcentajeImpuesto)
+                    TxtPorcentaje.Text = PorcentajeImpuesto.ToString
                    CveClasificacion = rowcc("CveClasificacion").ToString().ToEntero()
                    DdlClasificacion.SelectedValueExist(CveClasificacion)
                    CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
-                    ddlBancos.SelectedValue = -1
+                    ddlBancos.SelectedValue = "-1"
                    ddlBancos.SelectedValueExist(CveBancoCuenta)
                    CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero()
-                    DdlAlmacen.SelectedValue = -1
+                    DdlAlmacen.SelectedValue = "-1"
                    DdlAlmacen.SelectedValueExist(CveAlmacen)
                    DdlPersonal.SelectedValueExist(rowcc("CvePersonal").ToString().ToEntero())
                End If
@@ -291,7 +291,7 @@ Partial Class Contabilidad2_CatCuentas
            End Using

            If dr("CveAgrupadorSAT").ToString.ToEntero = 0 Then
-                DdlAgrupadorSAT.SelectedValue = -1
+                DdlAgrupadorSAT.SelectedValue = "-1"
            Else
                DdlAgrupadorSAT.SelectedValueExist(dr("CveAgrupadorSAT").ToString)
            End If
@@ -464,28 +464,28 @@ Partial Class Contabilidad2_CatCuentas
            End If
            If Not IsNothing(row) Then
                If CveTipoSaldo = 3 Then
-                    PorcentajeIVA = TxtPorcentaje.ToEntero / 100
+                    PorcentajeIVA = TxtPorcentaje.Text.ToDecimal / 100D
                End If
            End If
            ObjConta.IniciaTransacSQL()
            If Afectable Then
                If ObjConta.GetCuentas(IDSelected, "-1", -1, UsuarioActual.CveEmpresa) Then
                    drt = ObjConta.DtResultados.FiltroPrimero(String.Format("CveCuenta={0}", IDSelected))
-                    CveConceptoAdmin = IIf(drt("CveConceptoAdmin").ToString.ToEntero = 0, -1, drt("CveConceptoAdmin").ToString.ToEntero)
-                    CveProveedor = IIf(drt("CveProveedor").ToString.ToEntero = 0, -1, drt("CveProveedor").ToString.ToEntero)
-                    CveCliente = IIf(drt("CveCliente").ToString.ToEntero = 0, -1, drt("CveCliente").ToString.ToEntero)
-                    CveClasificacion = IIf(drt("CveClasificacion").ToString.ToEntero = 0, -1, drt("CveClasificacion").ToString.ToEntero)
-                    PorcentajeImpuesto = IIf(drt("PorcentajeImpuesto").ToString.ToEntero = 0, -1, drt("PorcentajeImpuesto").ToString.ToEntero)
-                    CveBancoCuenta = IIf(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero)
+                    CveConceptoAdmin = If(drt("CveConceptoAdmin").ToString.ToEntero = 0, -1, drt("CveConceptoAdmin").ToString.ToEntero)
+                    CveProveedor = If(drt("CveProveedor").ToString.ToEntero = 0, -1, drt("CveProveedor").ToString.ToEntero)
+                    CveCliente = If(drt("CveCliente").ToString.ToEntero = 0, -1, drt("CveCliente").ToString.ToEntero)
+                    CveClasificacion = If(drt("CveClasificacion").ToString.ToEntero = 0, -1, drt("CveClasificacion").ToString.ToEntero)
+                    PorcentajeImpuesto = If(drt("PorcentajeImpuesto").ToString.ToEntero = 0, -1, drt("PorcentajeImpuesto").ToString.ToEntero)
+                    CveBancoCuenta = If(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero)
                    'CveAlmacen = IIf(drt("CveAlmacen").ToString.ToEntero = 0, -1, drt("CveAlmacen").ToString.ToEntero)
                    'CvePersonal = IIf(drt("CvePersonal").ToString.ToEntero = 0, -1, drt("CvePersonal").ToString.ToEntero)
-                    NombreCuenta = IIf(drt("Nombre").ToString = "", "", drt("Nombre").ToString.ToEntero)
-                    TipoCuenta = IIf(drt("Tipo").ToString = "", "", drt("Tipo").ToString.ToEntero)
-                    CuentaMayor = IIf(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero)
-                    CveMoneda = IIf(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero)
-                    DigAgrup = IIf(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero)
-                    CveAgrupadorSat = IIf(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero)
-                    NomIdioma = IIf(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString.ToEntero)
+                    NombreCuenta = If(drt("Nombre").ToString = "", "", drt("Nombre").ToString)
+                    TipoCuenta = If(drt("Tipo").ToString = "", "", drt("Tipo").ToString)
+                    CuentaMayor = If(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero)
+                    CveMoneda = If(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero)
+                    DigAgrup = If(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero)
+                    CveAgrupadorSat = If(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero)
+                    NomIdioma = If(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString)
                    idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
                                        DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente,
                                        CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta)
@@ -573,7 +573,7 @@ Partial Class Contabilidad2_CatCuentas
                        ArbolCuentas.DataSource = DtDatos
                        '.Attributes.Add("data-hijos","0");
                        Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
-                        item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
+                        item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString
                        Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
                        If (IsNothing(objul)) Then
                            objul = New ADServerControl.DragableUL
@@ -636,7 +636,6 @@ Partial Class Contabilidad2_CatCuentas
        'ObjConta.IniciaTransacSQL()

        If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then
-            '   ObjConta.Commit()

            Dim customerRow As Data.DataRow
            customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
@@ -646,7 +645,7 @@ Partial Class Contabilidad2_CatCuentas
            ArbolCuentas.DataSource = DtDatos
            Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
            Dim padre As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem)
-            padre.Attributes.Item("data-hijos") = padre.Attributes.Item("data-hijos").ToEntero - 1
+            padre.Attributes.Item("data-hijos") = (padre.Attributes.Item("data-hijos").ToEntero - 1).ToString
            ArbolCuentas.Controls.Remove(item)
            RegistraScript(String.Format("$('#{0}').click();", editar.ClientID))

--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -165,15 +165,15 @@ Partial Class Contabilidad2_CatCuentasAsignaciones

            If CveCliente > 0 Then
                Dim drp As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre")
-                DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente))
-                DdlClientes.SelectedValue = CveCliente
+                DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente.ToString))
+                DdlClientes.SelectedValue = CveCliente.ToString
                DdlClientes.SelectedText = drp
            End If

            If CvePersonal > 0 Then
                Dim drp As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("NombreCompleto")
-                DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal))
-                DdlPersonal.SelectedValue = CvePersonal
+                DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal.ToString))
+                DdlPersonal.SelectedValue = CvePersonal.ToString
                DdlPersonal.SelectedText = drp
            End If

@@ -301,12 +301,12 @@ Partial Class Contabilidad2_CatCuentasAsignaciones

    Private Sub LimpiarDatos()
        CveConceptoAsignacion = -1
-        DdlCconceptosContables.SelectedValue = -1
-        DdlCuenta.SelectedValue = -1
-        DdlProveedor.SelectedValue = -1
-        DdlClasificacion.SelectedValue = -1
-        DdlAlmacen.SelectedValue = -1
-        DdlConceptoNomina.SelectedValue = -1
+        DdlCconceptosContables.SelectedValue = "-1"
+        DdlCuenta.SelectedValue = "-1"
+        DdlProveedor.SelectedValue = "-1"
+        DdlClasificacion.SelectedValue = "-1"
+        DdlAlmacen.SelectedValue = "-1"
+        DdlConceptoNomina.SelectedValue = "-1"
        DdlCuentaBancaria.SelectedValueExist("-1")
        TxtPorcentajeIVA.Text = ""
        DdlClientes.ddl.DataSource = ""
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -339,7 +339,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
                TotalPadre = False
                e.Row.ControlStyle.Font.Bold = False
                CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
-                e.Row.FCHyperLink("HLPoliza").NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}", e.Row.DBCampo("CvePoliza"))
+                e.Row.FCHyperLink("HLPoliza").NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", e.Row.DBCampo("CvePoliza"))

                If e.Row.DBCampo("CargosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("CargosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
                If e.Row.DBCampo("AbonosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("AbonosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))