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

App_Code/ClsContabilidad.vb

@@ -193,7 +193,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1,
-                                   Optional AgregarFolio As Boolean = False, Optional TipoContable As Integer = -1) As Integer
+                                   Optional AgregarFolio As Boolean = False, Optional TipoContable As Integer = 1) As Integer
         FolioPoliza = -1
         Dim Retorno As Integer = -1
 

App_Code/ClsVentas.vb

@@ -5528,20 +5528,14 @@ Public Class ClsVentas
     End Function
 
 
-    Public Function GetLineasAdicionales(CveLineaAdicional As Integer, CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer,
-                                         FechaI As Date, FechaF As Date, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetLineasAdicionales(CveCliente As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_LineasAdicionalesGet")
         With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With

Bancos/DepositosCaja.aspx.vb

@@ -43,8 +43,8 @@ Partial Class Bancos_DepositosCaja
 
         DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
-        'código temporal, para claudia y toñita, monge, anadelia, alba
-        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
+        'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
+        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
             DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
             divFolio.Visible = True
         End If
@@ -255,8 +255,8 @@ Partial Class Bancos_DepositosCaja
             CveTransaccionBanco = 6
         End If
 
-        'código temporal, para claudia y toñita, monge, anadelia, alba
-        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
+        'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
+        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
             FolioIE = TxtFolio.Text.ToEntero
         End If
 

Bancos/FluctuacionCambiaria.aspx.vb

@@ -139,10 +139,8 @@ Partial Class Bancos_FluctuacionCambiaria
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
             LblComprasPerdidaGanancia.Text = If(Final < 0, "Ganancia", "Pérdida")
 
-            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-        Else
-            GvProveedores.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+
         End If
         ObjBancos.Dispose()
         GvProveedores.DataBind()
@@ -179,10 +177,8 @@ Partial Class Bancos_FluctuacionCambiaria
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
             LblComprasPerdidaGanancia.Text = If(Final > 0, "Ganancia", "Pérdida")
 
-            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-        Else
-            GvProveedoresAnt.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+
         End If
         ObjBancos.Dispose()
         GvProveedoresAnt.DataBind()
@@ -220,10 +216,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
 
-            UpIndicadoresVentas.Visible = True
-        Else
-            GvVentas.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+            UpIndicadoresVentas.Visible = True
+
         End If
         ObjBancos.Dispose()
         GvVentas.DataBind()
@@ -257,10 +251,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotalVentasAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
 
-            UpIndicadoresVentas.Visible = True
-        Else
-            GvClientesAnt.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+            UpIndicadoresVentas.Visible = True
+
         End If
         ObjBancos.Dispose()
         GvClientesAnt.DataBind()
@@ -359,7 +351,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosDeudores()
         Dim ObjBancos As New ClsBancos
         LblTotalDeudores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 5, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 9, UsuarioActual.CveEmpresa) Then
             GvDeudores.DataSource = ObjBancos.DtResultados
             LblTotalDeudores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
@@ -374,7 +366,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosFiliales()
         Dim ObjBancos As New ClsBancos
         LblTotalAcreedores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 7, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 8, UsuarioActual.CveEmpresa) Then
             GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
             LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1811,7 +1811,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
+                dr("FolioFactura") = If(DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedItem IsNot Nothing, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedItem IsNot Nothing, DdlVentasE.SelectedItem.ToString, ""))
                 dr("Modificado") = True
 
                 dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero