@@ -6613,9 +6628,19 @@
$('#LblTotalContrato').text(SubTotal);
}
+ function ChkImportacion(chk) {
+ if (chk.checked == true) {
+ $('#divIVA').css("display", "none");
+ $('#divImporteImportacion').css("display", "block");
+ debugger;
+ } else {
+ $('#divIVA').css("display", "none");
+ $("#divImporteImportacion").css("display", "block");
+ debugger;
-
+ }
+ }
function ValidateCantCon(variable) {
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index bf272f6be..8b93b9086 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1623,6 +1623,13 @@ Partial Class Compras_Compras
'End If
'RegistraScript("ScrollVentanaAddProducto();")
+
+ If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+ divImportacion.Visible = True
+ chkImportacion.Attributes.Add("onclick", "ChkImportacion(this);")
+
+ End If
+
End Sub
#Region "C A R G A S"
@@ -3009,10 +3016,18 @@ Partial Class Compras_Compras
End If
End If
+ 'Tiene Importacion
+ If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+ If dr("EsImportacion").ToString.ToEntero > 0 Then
+ chkImportacion.Checked = True
+ Else
+ chkImportacion.Checked = False
+ End If
+ End If
CargaComplementosPago()
- Else
- Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+ Else
+ Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If
Else
Alert("Ocurrió un error al cargar la compra. Por favor vuelta a intentar o comuniquese con Sistemas.", TipoMensaje.MsgError)
@@ -4507,6 +4522,7 @@ Partial Class Compras_Compras
Dim EntregaDirecta = False
Dim ConceptoPoliza As String = String.Format("{0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim)
+ Dim EsImportacion As Boolean = chkImportacion.Checked 'funcion para empresas llanteras
'TIPO CAMBIO MANUAL CON COMPRA NUEVA
Dim TipoCambioGuardar As Decimal = 1
@@ -4671,12 +4687,13 @@ Partial Class Compras_Compras
'Compra
+
If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
- CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto) Then
+ CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto, EsImportacion:=EsImportacion) Then
ViewState("CveCompra") = ObjCompras.CveCompra
If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
@@ -5844,8 +5861,11 @@ Partial Class Compras_Compras
For Each Row As DataRow In DTPlatilla.Rows
Dim CveSubProyectoInsertar As Integer = -1
-
Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
+ If chkImportacion.Checked And ConceptoContable = 14 Then
+ ConceptoContable = 287
+
+ End If
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
Dim importeMovimiento As Decimal = 0
Dim IdCtaContable As Integer = 0
@@ -6077,6 +6097,21 @@ Partial Class Compras_Compras
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
End If
End If
+
+ Case 287 'IVA X Acreditar
+ importeMovimiento = importeIVAxAcreditar
+ importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+ If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+ PorcentajeImpuesto = PorcentajeIVA
+ IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+ If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If ObjConta.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+ CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
+ End If
+ End If
+
+
Case 25 'IEPS X Acreditar
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
importeMovimiento = ImporteIEPSxAcreditar
@@ -9167,6 +9202,32 @@ Partial Class Compras_Compras
End If
End If
End If
+ Case 287 'Iva X Acreditar importacion
+ If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
+ If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
+ If sumaAmortizacion = CompraSaldo Then
+ ImporteMovimiento = TxtIVA.Text.ToDecimal
+
+ If ImporteMovimiento > 0 Then
+ IVACompleto = True
+ End If
+
+ Else
+ ImporteMovimiento = 0
+ End If
+ Else
+ ImporteMovimiento = Math.Round(PorcentajePago * TxtIVA.Text.ToDecimal, 2)
+ End If
+ importeMN = ImporteMovimiento * tipoCambio
+ PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal
+ IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+ If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If ObjConta.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+ CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
+ End If
+ End If
+ End If
Case 19 'Iva Acreditado
If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
@@ -17757,6 +17818,15 @@ Partial Class Compras_Compras
UpPSS.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddProducto"))
+ If chkImportacion.Checked Then
+ divImporteImportacion.Visible = True
+ divIVA.Visible = False
+
+ Else
+ divIVA.Visible = True
+ divImporteImportacion.Visible = False
+
+ End If
End Sub
Private Sub LimpiaAgregar()
@@ -18198,9 +18268,14 @@ Partial Class Compras_Compras
If PSRow IsNot Nothing Then
SATClavePS = PSRow("SATClavePS").ToString.ToEntero
End If
-
+ Dim IVA As Double
+ If chkImportacion.Checked Then
+ IVA = (txtImportacion.Text.Trim.ToDouble / (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.Trim.ToDouble))
+ Else
+ IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
+ End If
AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
- DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2),
+ DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)