Compras correciones, no actualiza iva al editar despues de asignar, AF insumos check de AF encontrado mantener activo
This commit is contained in:
rakcsle
@@ -8056,10 +8056,13 @@ Partial Class Compras_Compras
|
||||
|
||||
If (TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas) < 0 Then
|
||||
|
||||
Dim AjusteteDividido As Decimal = DiferenciaIVas / CantidadRegistroConIVA
|
||||
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
dRow("IVA") = dRow("IVA").ToString.ToDecimal + AjusteteDividido
|
||||
|
||||
If dRow("IVA").ToString.ToDecimal > 0 Then
|
||||
Dim AjusteCorrespondiente As Decimal = (DiferenciaIVas * dRow("IVA").ToString.ToDecimal) / 100
|
||||
dRow("IVA") = dRow("IVA").ToString.ToDecimal - AjusteCorrespondiente
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
Else
|
||||
@@ -11472,7 +11475,8 @@ Partial Class Compras_Compras
|
||||
If e.Row.DBCampo("TipoAF").ToEntero = 1 Then
|
||||
If e.Row.DBCampo("CveActivoFijo").ToEntero > 0 Then
|
||||
e.Row.FCTextBox("LblCodigo").Text = e.Row.DBCampo("CodAF").ToString
|
||||
e.Row.FCLabel("LblValido").Attributes("display") = ""
|
||||
'e.Row.FCLabel("LblValido").Attributes("display") = ""
|
||||
e.Row.FCLabel("LblValido").Visible = False
|
||||
e.Row.FCHiddenField("HdnCveAF").Value = e.Row.DBCampo("CveActivoFijo").ToString
|
||||
e.Row.FCHiddenField("HdnCodAF").Value = e.Row.DBCampo("CodAF").ToString
|
||||
SinValor = False
|
||||
@@ -11483,7 +11487,10 @@ Partial Class Compras_Compras
|
||||
e.Row.FCTextBox("LblCodigo").Text = ""
|
||||
e.Row.FCHiddenField("HdnCveAF").Value = "0"
|
||||
e.Row.FCHiddenField("HdnCodAF").Value = "0"
|
||||
e.Row.FCLabel("LblValido").Attributes("display") = "none"
|
||||
'e.Row.FCLabel("LblValido").Attributes("display") = "none"
|
||||
e.Row.FCLabel("LblValido").Visible = False
|
||||
Else
|
||||
e.Row.FCLabel("LblValido").Visible = True
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("AFTipoMantenimiento").ToEntero > 0 Then
|
||||
@@ -11605,15 +11612,23 @@ Partial Class Compras_Compras
|
||||
Dim ObjAF As New ClsAF
|
||||
Dim Index As Integer = HdnIndexTmpDT.Value.ToEntero()
|
||||
If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, HdnCodAFEdit.Value, "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjAF.DtResultados.Rows.Count = 1 Then
|
||||
|
||||
Dim DTResultadosAF As New DataTable
|
||||
If ObjAF.DtResultados IsNot Nothing Then
|
||||
DTResultadosAF = ObjAF.DtResultados.FiltraParametros($" Codigo = '{HdnCodAFEdit.Value.Trim}' ")
|
||||
End If
|
||||
|
||||
If DTResultadosAF.Rows.Count = 1 Then
|
||||
'VERIFICAR QUE EL ACTIVO FIJO ESTE ACTIVO. que no este en baja, inactivo.
|
||||
If HdnTipoAF.Value.ToEntero = 1 Then
|
||||
GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
|
||||
GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
|
||||
RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
|
||||
GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = DTResultadosAF.Rows(0)("CveActivoFijo").ToString
|
||||
GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = DTResultadosAF.Rows(0)("Codigo").ToString
|
||||
GvAFInsumos.Rows(Index).FCLabel("LblValido").Visible = True
|
||||
|
||||
'RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
|
||||
|
||||
Try
|
||||
TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
|
||||
TmpDT.Rows(Index)("CveActivoFijo") = DTResultadosAF.Rows(0)("CveActivoFijo").ToString
|
||||
TmpDT.AcceptChanges()
|
||||
Catch ex As Exception
|
||||
|
||||
@@ -11621,12 +11636,13 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
ElseIf HdnTipoAF.Value.ToEntero = 2 Then
|
||||
GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
|
||||
GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
|
||||
RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
|
||||
GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = DTResultadosAF.Rows(0)("CveActivoFijo").ToString
|
||||
GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = DTResultadosAF.Rows(0)("Codigo").ToString
|
||||
GvAFCompras.Rows(Index).FCLabel("LblValido").Visible = True
|
||||
'RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
|
||||
|
||||
Try
|
||||
TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
|
||||
TmpDT.Rows(Index)("CveActivoFijo") = DTResultadosAF.Rows(0)("CveActivoFijo").ToString
|
||||
TmpDT.AcceptChanges()
|
||||
Catch ex As Exception
|
||||
|
||||
@@ -11641,7 +11657,8 @@ Partial Class Compras_Compras
|
||||
If HdnTipoAF.Value.ToEntero = 1 Then
|
||||
GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
|
||||
GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
|
||||
RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
|
||||
GvAFInsumos.Rows(Index).FCLabel("LblValido").Visible = False
|
||||
'RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
|
||||
|
||||
|
||||
Try
|
||||
@@ -11655,7 +11672,8 @@ Partial Class Compras_Compras
|
||||
ElseIf HdnTipoAF.Value.ToEntero = 2 Then
|
||||
GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
|
||||
GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
|
||||
RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
|
||||
GvAFCompras.Rows(Index).FCLabel("LblValido").Visible = True
|
||||
'RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
|
||||
|
||||
Try
|
||||
TmpDT.Rows(Index)("CveActivoFijo") = Nothing
|
||||
@@ -11670,6 +11688,8 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
UPDatosAFInsumos.Update()
|
||||
UPDatosAFCompras.Update()
|
||||
ObjAF.Dispose()
|
||||
End Sub
|
||||
Protected Sub DdlTipoMantemiento_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
@@ -17887,10 +17907,13 @@ Partial Class Compras_Compras
|
||||
Dim PU As Double = DrPS("PU").ToString.ToDouble
|
||||
Dim Descuento As Double = DrPS("Descuento").ToString.ToDouble
|
||||
Dim Total As Double = (Cantidad * PU) - Descuento
|
||||
Dim PorcentajeIVAActual As Decimal = DrPS("IVAPorcentaje").ToString.ToDecimal
|
||||
Dim PorcentajeIVADDl As Decimal = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2)
|
||||
|
||||
DrPS("NoDeducible") = ChkEsNoDeduciblePS.Checked
|
||||
|
||||
Dim ActualizarIva As Boolean = False
|
||||
If Cantidad.RoundSQL(2) <> TxtCantidad.Text.Trim.ToDouble.RoundSQL(2) Or PU.RoundSQL(2) <> TxtPrecio.Text.Trim.ToDouble.RoundSQL(2) Then
|
||||
If Cantidad.RoundSQL(2) <> TxtCantidad.Text.Trim.ToDouble.RoundSQL(2) Or PU.RoundSQL(2) <> TxtPrecio.Text.Trim.ToDouble.RoundSQL(2) Or PorcentajeIVAActual <> PorcentajeIVADDl Then
|
||||
ActualizarIva = True
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user