merge- RecepcionAlmacen
This commit is contained in:
@@ -46,7 +46,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
|
||||
ClsCompras ObjCompras = new ClsCompras();
|
||||
if (ObjCompras.GetTipoGasto(-1, -1))
|
||||
{
|
||||
set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, ObjCompras.DtResultados);
|
||||
set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa,1, ObjCompras.DtResultados);
|
||||
}
|
||||
ObjCompras.Dispose();
|
||||
}
|
||||
|
||||
@@ -3987,21 +3987,10 @@ Partial Class Compras_Compras
|
||||
|
||||
Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
|
||||
AjustaCombustibles()
|
||||
|
||||
'------------------INICIA VALIDACIONES------------------
|
||||
|
||||
Dim TempIva As Decimal
|
||||
For Each drowv As DataRow In TmpDT.Rows
|
||||
TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal)
|
||||
Next
|
||||
|
||||
Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva)
|
||||
|
||||
If Math.Abs(DifGenelraIvas) > 0.2 Then
|
||||
Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
Dim EstatusCredito As Integer = 0
|
||||
Dim CveSubProyecto As Integer = 0
|
||||
'Credito Multiple
|
||||
@@ -6508,7 +6497,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Case 6 'Compra
|
||||
|
||||
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141,152,159,160,161,162,163) andalso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||
|
||||
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||
|
||||
@@ -6836,8 +6825,8 @@ Partial Class Compras_Compras
|
||||
|
||||
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
|
||||
|
||||
Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
|
||||
Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
|
||||
@@ -7063,7 +7052,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Case 5 'Proveedores
|
||||
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
|
||||
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
|
||||
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
|
||||
If tipoCambioActual <> 1 Then
|
||||
Select Case ConceptoContable
|
||||
Case 5
|
||||
@@ -8540,6 +8529,61 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub AjustaCombustibles()
|
||||
|
||||
|
||||
If Not TmpDT.Columns.Contains("AplicaIEPS") Then
|
||||
TmpDT.Columns.Add(New DataColumn("AplicaIEPS", GetType(Boolean)))
|
||||
End If
|
||||
|
||||
If Not TmpDT.Columns.Contains("IEPSGrabaIVA") Then
|
||||
TmpDT.Columns.Add(New DataColumn("IEPSGrabaIVA", GetType(Boolean)))
|
||||
End If
|
||||
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows.Count > 0 Then
|
||||
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows(0)
|
||||
dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString)
|
||||
dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString)
|
||||
Else
|
||||
dRow("AplicaIEPS") = False
|
||||
dRow("IEPSGrabaIVA") = False
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim DTConsulta As New DataTable
|
||||
DTConsulta = TmpDT.FiltraParametros(" AplicaIEPS = 'True' AND IEPSGrabaIVA = 'False' AND IVA > 0 ")
|
||||
|
||||
If DTConsulta.Rows.Count > 0 Then
|
||||
|
||||
Dim IndiceContador As Integer = 0
|
||||
Dim IndiceUltimo As Integer = 0
|
||||
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
|
||||
If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
|
||||
IndiceUltimo = IndiceContador
|
||||
End If
|
||||
|
||||
IndiceContador = IndiceContador + 1
|
||||
|
||||
Next
|
||||
|
||||
|
||||
Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
|
||||
Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
|
||||
|
||||
If Math.Abs(DiferenciaIVas) > 0.01D Then
|
||||
TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
|
||||
TmpDT.AcceptChanges()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
|
||||
Dim ObjProveedores As New ClsCompProveedores()
|
||||
|
||||
|
||||
@@ -852,11 +852,11 @@ Partial Class Compras_Proveedores
|
||||
DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
|
||||
TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
CargaCuentasConceptos()
|
||||
divCuentas.Visible = True
|
||||
divCuentasContp.Visible = False
|
||||
Else
|
||||
ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
divCuentas.Visible = False
|
||||
divCuentasContp.Visible = True
|
||||
End If
|
||||
|
||||
@@ -129,7 +129,7 @@ public partial class Compras_RepPagado : ClsPaginas
|
||||
DdlCuentaBancaria.Items.Clear();
|
||||
if (DdlBanco.SelectedValue.ToEntero() > 0)
|
||||
{
|
||||
DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
|
||||
DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
|
||||
}
|
||||
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
|
||||
DdlCuentaBancaria.DataBind();
|
||||
|
||||
@@ -137,7 +137,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
|
||||
DdlCuentaBancaria.Items.Clear();
|
||||
if (DdlBanco.SelectedValue.ToEntero() > 0)
|
||||
{
|
||||
DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
|
||||
DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
|
||||
}
|
||||
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
|
||||
DdlCuentaBancaria.DataBind();
|
||||
|
||||
Reference in New Issue
Block a user