Entradas salidas

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