-option explicit

Compras/Compras.aspx.vb

@@ -6590,6 +6590,7 @@ Partial Class Compras_Compras
                                                                 'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
 
                                                                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMovimiento, ConPreP.CveConcepto, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
+
                                                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, importeMN - importeMovimiento, ConPreP.CveConceptoComplementario, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                         ErrorPrepoliza = True
                                                                         Exit Select
@@ -10187,7 +10188,7 @@ Partial Class Compras_Compras
                 e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PU"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"))
                 e.Row.FCTextBox("TbCantidad").Enabled = False
                 e.Row.FCCheckBox("cbInv").Enabled = False
-                Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", e.Row.DataKey("CvePS"))).Rows.Count
+                Dim Contador As Integer = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", e.Row.DataKey("CvePS"))).Rows.Count
                 e.Row.FCTextBox("TbCantidad").Text = Contador.ToString
                 'e.Row.FCTextBox("TbCantidadF").Text = "0"
             Else
@@ -10340,7 +10341,7 @@ Partial Class Compras_Compras
 
         If UsuarioActual.CveEmpresa = 13 Then
             If GvInv.Rows.Count > 0 AndAlso GvInv.HeaderRow().FCDropDownList("ddlAlmacen").SelectedValue.ToEntero > 0 Then
-                Dim DrAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", GvInv.HeaderRow().FCDropDownList("ddlAlmacen").SelectedValue.ToEntero))
+                Dim DrAlmacen As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", GvInv.HeaderRow().FCDropDownList("ddlAlmacen").SelectedValue.ToEntero))
                 If DrAlmacen("CveTipoAlmacen").ToString = "7" Then
                     TableAlmacenEvidencia.Visible = True
                 End If
@@ -10430,7 +10431,7 @@ Partial Class Compras_Compras
 
     Protected Sub DdlProyectoPersonal_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, DropDownList)).NamingContainer, GridViewRow)
-        Dim CveProyecto = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1)
+        Dim CveProyecto As Integer = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1)
         gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Clear()
         If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then
             gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
@@ -10441,8 +10442,8 @@ Partial Class Compras_Compras
 
     Protected Sub DdlSubProyectoPersonal_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, DropDownList)).NamingContainer, GridViewRow)
-        Dim CveProyecto = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1)
-        Dim CveSubProyecto = If(gvRow.FCDropDownList("DdlSubProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlSubProyectoPersonal").SelectedValue.ToEntero, -1)
+        Dim CveProyecto As Integer = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1)
+        Dim CveSubProyecto As Integer = If(gvRow.FCDropDownList("DdlSubProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlSubProyectoPersonal").SelectedValue.ToEntero, -1)
         Dim dr1 As DataRow = TmpDT.Rows(gvRow.RowIndex)
         dr1("CveProyecto") = CveProyecto
         dr1("CveSubProyecto") = CveSubProyecto
@@ -10638,7 +10639,7 @@ Partial Class Compras_Compras
     End Sub
     Protected Sub GvAFCompras_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAFCompras.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            Dim SinValor = True
+            Dim SinValor As Boolean = True
 
             If e.Row.DBCampo("TipoAF").ToEntero = 2 Then
                 If e.Row.DBCampo("CveActivoFijo").ToEntero > 0 Then
@@ -10669,7 +10670,7 @@ Partial Class Compras_Compras
     End Sub
     Protected Sub GvAFInsumos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAFInsumos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            Dim SinValor = True
+            Dim SinValor As Boolean = True
 
             If e.Row.DBCampo("TipoAF").ToEntero = 1 Then
                 If e.Row.DBCampo("CveActivoFijo").ToEntero > 0 Then
@@ -10888,10 +10889,10 @@ Partial Class Compras_Compras
 #Region "TAB ALMACEN - INVENTARIOS     ISRAEL PIÑA - 5 FEBRERO 2015"
 
     Protected Sub CalculaTotalPorDevengar()
-        Dim total = TxtTotal.Text.ToDouble
+        Dim total As Decimal = TxtTotal.Text.ToDecimal
         For Each Gvr As GridViewRow In GvInv.Rows
             If Gvr.FCCheckBox("cbInv").Checked = True And Gvr.FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
-                total -= Math.Round(Gvr.FCTextBox("TbCantidad").Text.ToDouble * Gvr.DataKey("PU").ToDouble, 4)
+                total -= Math.Round(Gvr.FCTextBox("TbCantidad").Text.ToDecimal * Gvr.DataKey("PU").ToDecimal, 4)
             End If
         Next
         'LbTotalPorDevengar.Text = total.ToString.FormatoNumero
@@ -11544,7 +11545,7 @@ Partial Class Compras_Compras
 
     Private Sub ConservaAC()
         'Guarda valores AC en TmpDT
-        Dim Index = 0
+        Dim Index As Integer = 0
         For Each gvr As GridViewRow In GvPS.Rows
             TmpDT.Rows(Index)("CveProgramaOperativo") = gvr.FCDropDownList("DdlAC1").SelectedValue.ToEntero
             TmpDT.Rows(Index)("CveUnidadAdministrativa") = gvr.FCDropDownList("DdlAC2").SelectedValue.ToEntero
@@ -11591,9 +11592,9 @@ Partial Class Compras_Compras
 
     Private Sub CalculaSaldoACGeneral()
         Dim ContPaq As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CveProgramaOperativo = {0} and CveUnidadAdministrativa = {1} and CveFuenteFinanciamiento = {2} and CveTipoGasto= {3} and CveClasificacion = {4}", DdlACGeneral1.SelectedValue.ToString, DdlACGeneral2.SelectedValue.ToString, DdlACGeneral3.SelectedValue.ToString, DdlACGeneral4.SelectedValue.ToString, DdlACGeneral5.SelectedValue.ToString))
+        Dim DtPresupuestosTemp As DataTable = DtPresupuestos.FiltraParametros(String.Format("CveProgramaOperativo = {0} and CveUnidadAdministrativa = {1} and CveFuenteFinanciamiento = {2} and CveTipoGasto= {3} and CveClasificacion = {4}", DdlACGeneral1.SelectedValue.ToString, DdlACGeneral2.SelectedValue.ToString, DdlACGeneral3.SelectedValue.ToString, DdlACGeneral4.SelectedValue.ToString, DdlACGeneral5.SelectedValue.ToString))
         If DtPresupuestosTemp.Rows.Count > 0 Then
-            Dim IdCuenta = If(HdnVCveOC.Value <> "-1", DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero, DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero)
+            Dim IdCuenta As Integer = If(HdnVCveOC.Value <> "-1", DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero, DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero)
 
             LbACGeneralSaldo.Text = ContPaq.GetSaldoCuenta(IdCuenta, 0, TxtFecha.Text.ToDate.Year).ToString.FormatoNumero(2)
         Else
@@ -11627,7 +11628,7 @@ Partial Class Compras_Compras
     Private Sub CompruebaAgregar()
         Dim ContPaq As New ClsContPAQi(UsuarioActual.Empresa)
         Dim disponible As Double
-        Dim ErrorPresupuesto = False
+        Dim ErrorPresupuesto As Boolean = False
         Dim Conceptos As New StringBuilder
 
         Dim Ddl1 As DropDownList
@@ -11715,7 +11716,7 @@ Partial Class Compras_Compras
     End Sub
 
     Private Sub CambiaEjercicioAC(Optional CargaTodo As Boolean = True)
-        Dim Ejercicio = If(IsDate(TxtFecha.Text), Year(TxtFecha.Text.ToDate), UsuarioActual.Empresa.EjercicioActual)
+        Dim Ejercicio As Integer = If(IsDate(TxtFecha.Text), Year(TxtFecha.Text.ToDate), UsuarioActual.Empresa.EjercicioActual)
 
         If Ejercicio <> EjercicioAC Then
             Dim AC As New ClsAC
@@ -11857,7 +11858,7 @@ Partial Class Compras_Compras
         'Exit Sub
 
         Dim ObjConta As New ClsContabilidad
-        Dim Movimientos = ObjConta.GetMovimientosPoliza(IdPoliza, UsuarioActual.CveEmpresa)
+        Dim Movimientos As Integer = ObjConta.GetMovimientosPoliza(IdPoliza, UsuarioActual.CveEmpresa)
 
         'Verifica que solo exista 1 compra asociada
         If Movimientos = 1 Then
@@ -11886,7 +11887,7 @@ Partial Class Compras_Compras
             If IdPoliza > 0 Then
                 ObjContaAC.RemoveAllMovimientos(IdPoliza)
             Else
-                Dim TotalPorDevengar = Math.Round(TxtTotal.Text.ToDouble, 2)
+                Dim TotalPorDevengar As Decimal = Math.Round(TxtTotal.Text.ToDecimal, 2)
                 IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
             End If
 
@@ -12460,7 +12461,7 @@ Partial Class Compras_Compras
 
     End Sub
     Protected Sub ddlAlmacenConsignacionGeneral_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim DdlAlmacenConsignacionGeneral = CType(sender, DropDownList)
+        Dim DdlAlmacenConsignacionGeneral As DropDownList = CType(sender, DropDownList)
 
         For Each gvr As GridViewRow In GvInv.Rows
             gvr.FCDropDownList("ddlAlmacenConsignacion").SelectedValue = DdlAlmacenConsignacionGeneral.SelectedValue
@@ -12473,8 +12474,8 @@ Partial Class Compras_Compras
         UpINV.Update()
     End Sub
     Protected Sub ddlAlmacenConsignacion_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim DdlAlmacenConsignacion = CType(sender, DropDownList)
-        Dim DdlVinculaConsignacion = CType(CType(sender, DropDownList).NamingContainer, GridViewRow).FCDropDownList("DdlVinculaConsignacion")
+        Dim DdlAlmacenConsignacion As DropDownList = CType(sender, DropDownList)
+        Dim DdlVinculaConsignacion As DropDownList = CType(CType(sender, DropDownList).NamingContainer, GridViewRow).FCDropDownList("DdlVinculaConsignacion")
 
         ''CARGA CONSIGNACIONES
         DdlVinculaConsignacion.DataSource = DtConsignaciones.FiltraParametros(String.Format("CveAlmacenSalida = {0} OR {0} = '-1'", DdlAlmacenConsignacion.SelectedValue))