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

Compras/Compras.aspx.vb

@@ -2164,7 +2164,7 @@ Partial Class Compras_Compras
         If Msg <> "" Then
             Alert($"<b>El comprobante XML presenta las siguientes inconsistencias:</b> <br><br> {Msg}", TipoMensaje.MsgAdvertencia)
 
-            Tab.ActiveTabIndex = 0
+            TAB.ActiveTabIndex = 0
 
             ''''BLOQUEA ACCIONES''''
             BtnGuardar.Enabled = False
@@ -2839,7 +2839,7 @@ Partial Class Compras_Compras
                 'BLOQUEA OC
                 TxtOC.Enabled = False
                 ImgBtnBuscarOC.Visible = False
-                Tab.ActiveTabIndex = 0
+                TAB.ActiveTabIndex = 0
 
                 GvAnticiposSel.DataSource = dtnc
                 GvAnticiposSel.DataBind()
@@ -6634,24 +6634,24 @@ Partial Class Compras_Compras
                                                                 If CveTipoConcepto = 2 Then CveConceptoComplementario = 310
 
                                                                 If tipoCambioActual = 1 Then
-                                                                        IdCtaContable = CtaProveedor
-                                                                        CveCuenta = CveCuentaProveedor
-                                                                    Else
-                                                                        IdCtaContable = CtaProveedorComplementaria
-                                                                        CveCuenta = CveCuentaProveedorComplementaria
-                                                                        If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
-                                                                            importeMN = importeMovimiento
+                                                                    IdCtaContable = CtaProveedor
+                                                                    CveCuenta = CveCuentaProveedor
+                                                                Else
+                                                                    IdCtaContable = CtaProveedorComplementaria
+                                                                    CveCuenta = CveCuentaProveedorComplementaria
+                                                                    If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
+                                                                        importeMN = importeMovimiento
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
                                                                         End If
                                                                     End If
-                                                                        IdCtaContable = CtaProveedorExtranjera
-                                                                        CveCuenta = CveCuentaProveedorExtranjera
-                                                                    End If
+                                                                    IdCtaContable = CtaProveedorExtranjera
+                                                                    CveCuenta = CveCuentaProveedorExtranjera
                                                                 End If
+                                                            End If
 
 
-                                                                Case 59 'Documentos
+                                                        Case 59 'Documentos
                                                             importeMovimiento = importeCreditos
                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                             If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then
@@ -8838,14 +8838,20 @@ Partial Class Compras_Compras
                         'Si el importe total de la amortizacion es igual al saldo de la compra se registra IVA
                         If IVACompleto = False AndAlso UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                             If sumaAmortizacionCompleto = CompraSaldo Then
-                                Dim PorcentajeImpuesto As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
-                                    ErrorMovtosCxP = 1
-                                End If
-
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
-                                    ErrorMovtosCxP = 1
-                                End If
+                                Dim PorcentajeImpuesto As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+
+
+                                If TxtIVA.Text.ToDecimal > 0 Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        ErrorMovtosCxP = 1
+                                    End If
+
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        ErrorMovtosCxP = 1
+                                    End If
+                                End If
+
+
                             End If
                         End If
 
@@ -11634,7 +11640,7 @@ Partial Class Compras_Compras
 
 #Region "TAB - ACTIVOS FIJOS -AF"
     Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
-        Tab.ActiveTabIndex = 3
+        TAB.ActiveTabIndex = 3
 
         If GvAFInsumos.Rows.Count > 0 Then
             llenaDtsAF()
@@ -13706,7 +13712,7 @@ Partial Class Compras_Compras
         UpFacturar.Update()
 
         TabGenerales.Enabled = True
-        Tab.ActiveTabIndex = 0
+        TAB.ActiveTabIndex = 0
         UpTabs.Update()
 
         ImgClasificacion.Visible = False
@@ -14435,7 +14441,7 @@ Partial Class Compras_Compras
             'SI NO ES UNA COMPRA REGISTRADA = ENABLE FALSE TAB GENERALES, ACTIVE TAB OC
             If Not CveCompra > 0 Then
                 TabGenerales.Enabled = False
-                Tab.ActiveTabIndex = 2
+                TAB.ActiveTabIndex = 2
                 UpTabs.Update()
             End If
 
@@ -14995,7 +15001,7 @@ Partial Class Compras_Compras
         UpFacturar.Update()
 
         TabGenerales.Enabled = True
-        Tab.ActiveTabIndex = 0
+        TAB.ActiveTabIndex = 0
         UpTabs.Update()
 
 
@@ -15098,7 +15104,7 @@ Partial Class Compras_Compras
         UpFacturar.Update()
 
         TabGenerales.Enabled = True
-        Tab.ActiveTabIndex = 0
+        TAB.ActiveTabIndex = 0
         UpTabs.Update()
 
         ImgClasificacion.Visible = False

Contratos/CatContratosTipos.aspx.vb

@@ -66,8 +66,9 @@ Partial Class Contratos_CatContratosTipos
         Dim TipoContrato = GvContratos.Rows(e.RowIndex).FCTextBox("TxtTipoContrato").Text.Trim
         Dim Descripcion = GvContratos.Rows(e.RowIndex).FCTextBox("TxtDescripcion").Text.Trim
         Dim Clave = GvContratos.Rows(e.RowIndex).DataKey("CveContratoTipo").ToEntero
-        If Update.UpdateContratosTipos(Clave, TipoContrato, Descripcion, True, UsuarioActual.CveEmpresa) Then
+        If Update.UpdateContratosTipos(Clave, TipoContrato, Descripcion, True, UsuarioActual.CveUsuario) Then
             Alert("El Tipo de Contrato se actualizó correctamente.", TipoMensaje.MsgInformacion)
+            GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
         End If
         GvContratos.EditIndex = -1
         CargaDatos()

Inventarios/TraspasoAlmacen.aspx.vb

@@ -821,7 +821,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()
 
-            Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
+            Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
             CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
             FolioVirtualSalida = ObjInventario.Folio