Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Inventarios/EntradasSalidas.aspx.vb

@@ -416,6 +416,10 @@ Partial Class Inventarios_EntradasSalidas
 
                 CargaDatos(Request("CveMovimiento").ToString.ToEntero)
                 'CargaGvPaqueteria()
+
+                LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveVenta:{0}}});""> <i class=""fa fa-plus""></i> Tarea</a>", CveMovimiento)
+                HlEvento.Visible = True
+                HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveMovimiento=" & CveMovimiento & "&TB_iframe=true&height=370&width=600;"
             Else
                 AsignacionOpcion()
                 SiguienteFolio()
@@ -1868,14 +1872,13 @@ Partial Class Inventarios_EntradasSalidas
                         If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                             Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL()
                             Dim tValorOtro As Decimal = tValorInventario
-                            Dim idCtaContable As Integer = 0
+
                             Dim TipoMovtoAlmacen As Boolean = False
                             Dim TipoMovtoOtro As Boolean = True
                             Dim tCveSubProyecto As Integer = -1
 
                             Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacen.SelectedValue))
                             If drA2 IsNot Nothing Then
-                                idCtaContable = drA2("IdCtaContable").ToString.ToEntero
                                 tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
                             End If
 
@@ -1924,7 +1927,7 @@ Partial Class Inventarios_EntradasSalidas
 
                             '2-78 
 
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, 68, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, tValorInventario, 68, TxtObservaciones.Text.Trim, TxtObservaciones.Text.Trim, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
                                 ErrorMovInv = True
                             Else
 
@@ -2965,11 +2968,11 @@ Partial Class Inventarios_EntradasSalidas
         Dim ErrorMovInv As Boolean = False
 
         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas(Modulo, 53, 0, 0, 1, Fecha, Concepto, CveUsuario, CveEmpresa)
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
             ErrorMovInv = True
         End If
 
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, Importe, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable) Then
             ErrorMovInv = True
         End If
 
@@ -4443,8 +4446,6 @@ Partial Class Inventarios_EntradasSalidas
         Dim tCveSubProyectoEntrada As Integer = -1
         Dim tCveSubProyectoSalida As Integer = -1
         Dim TipoMovto As Boolean = False
-        Dim idCtaContableEntrada As Integer = 0
-        Dim idCtaContableSalida As Integer = 0
 
         Dim Prorratear As Boolean = If(UsuarioActual.CveEmpresa = 172 AndAlso DtMovimientosSalidaInvFisico.Rows.Count > 0 AndAlso DtMovimientosEntradaInvFisico.Rows.Count > 0, True, False)
         Dim ProPU As Decimal = 0
@@ -4542,7 +4543,6 @@ Partial Class Inventarios_EntradasSalidas
 
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
                 If drA2 IsNot Nothing Then
-                    idCtaContableEntrada = drA2("IdCtaContable").ToString.ToEntero
                     tCveSubProyectoEntrada = drA2("CveSubProyecto").ToString.ToEntero
                 End If
             Else
@@ -4558,7 +4558,6 @@ Partial Class Inventarios_EntradasSalidas
                 ValorSalida = tValorInventario
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
                 If drA2 IsNot Nothing Then
-                    idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero
                     tCveSubProyectoSalida = drA2("CveSubProyecto").ToString.ToEntero
                 End If
             Else
@@ -4578,7 +4577,7 @@ Partial Class Inventarios_EntradasSalidas
                 If ValorEntrada <= ValorSalida Then
                     TipoMovto = True : ValorEntrada = -ValorEntrada ' invierto su naturaleza
                 End If
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorEntrada, "", 68, tConcepto, Fecha, idCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorEntrada, CveSubProyecto:=tCveSubProyectoEntrada, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorEntrada, ValorEntrada, 68, "", tConcepto, CveMovimientoAlmacen:=CveMovimientoEntrada, CveSubProyecto:=tCveSubProyectoEntrada, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de entrada"
                 End If
@@ -4590,7 +4589,7 @@ Partial Class Inventarios_EntradasSalidas
                 If ValorSalida < ValorEntrada Then
                     TipoMovto = False : ValorSalida = -ValorSalida ' invierto su naturaleza
                 End If
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorSalida, "", 68, tConcepto, Fecha, idCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorSalida, CveSubProyecto:=tCveSubProyectoSalida, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorSalida, ValorSalida, 68, "", tConcepto, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoSalida, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de salida"
                 End If
@@ -4599,7 +4598,7 @@ Partial Class Inventarios_EntradasSalidas
             If ValorEntrada >= ValorSalida Then
                 'si el valor entrada es igual al valorsalida, y este sea cero.
                 If tCveSubProyectoEntrada = -1 Then tCveSubProyectoEntrada = tCveSubProyectoSalida
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, 0, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, ValorEntrada + ValorSalida, 260, "", tConcepto, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"
                 End If
@@ -4607,20 +4606,12 @@ Partial Class Inventarios_EntradasSalidas
                 'inserta el gasto
                 Dim dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
                 Dim tCveClasificacion As Integer = -1
-                Dim tIdCtaGasto As Integer = -1
                 If dr IsNot Nothing Then
                     tCveClasificacion = dr("CveClasificacion").ToString.ToEntero
-                    tIdCtaGasto = dr("IdCuentaGasto").ToString.ToEntero
                 End If
 
-                '[IPP] PARCHE - CUENTA CONTABLE DIRECTA
-                Select Case UsuarioActual.CveEmpresa
-                    Case 119
-                        tIdCtaGasto = 1321
-                End Select
-
                 If Math.Abs((ValorSalida + ValorEntrada)) <> 0 Then
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, ValorSalida + ValorEntrada, 290, "", tConcepto, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, Contabilizable:=EsContabilizable) Then
                         ErrorMovInv = True
                         Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
                     End If