AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CatRutas Remaquetado, Rep Conrtatos detalles, RecepcionAalmacenes correcicion redondeo Importe MN Concepto 229

Browse Source
This commit is contained in:
rakcsle
2024-11-29 18:25:20 -07:00
parent 6fae25ffba
commit 6d0ee4bcb8
7 changed files with 247 additions and 245 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -3408,12 +3408,17 @@ Partial Class Inventarios_RecepcionAlmacen
For Each Dr As DataRow In DtCostos.Rows
TotalCostoDetalle = (Dr("Total").ToString.ToDecimal)
TotalCostoExtranjero = Dr("TotalExtranjero").ToString.ToDecimal
TotalCostoAcumulado += TotalCostoDetalle.RoundSQL
TotalCostoAcumulado += TotalCostoDetalle
'si es el último movimiento verifica los importes que sean igual
If cont = DtCostos.Rows.Count AndAlso (TotalCosto.RoundSQL <> TotalCostoAcumulado.RoundSQL) Then
TotalCostoDetalle = TotalCostoDetalle + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3))
TotalCostoExtranjero = TotalCostoExtranjero + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3))
If cont = DtCostos.Rows.Count Then
TotalCostoAcumulado = TotalCostoAcumulado.RoundSQL
If TotalCosto.RoundSQL <> TotalCostoAcumulado.RoundSQL Then
TotalCostoDetalle = TotalCostoDetalle + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3))
TotalCostoExtranjero = TotalCostoExtranjero + (TotalCosto.RoundSQL(3) - TotalCostoAcumulado.RoundSQL(3))
End If
End If
If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
@@ -3730,12 +3735,17 @@ Partial Class Inventarios_RecepcionAlmacen
Msg.Append(MensajeContabilidad)
Alert(Msg.ToString, TipoMensaje.MsgInformacion)
If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
CreaDTInv(ObjInventario.DtResultados)
CargaGVInv()
BtnGuardar.Visible = True
If CveCompraSurtir > 0 Then
If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
CreaDTInv(ObjInventario.DtResultados)
CargaGVInv()
BtnGuardar.Visible = True
End If
End If
Limpia()
Else
ObjInventario.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()