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

prepoliza de garantía

Browse Source
This commit is contained in:
rrene
2022-03-09 15:18:15 -07:00
parent 45b554605e
commit 41feda0f9e
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1805,6 +1805,7 @@ Partial Class Inventarios_EntregaAlmacen
ObjConta.Dispose() ObjConta.Dispose()
ObjVentas.Dispose() ObjVentas.Dispose()
ObjEventos.Dispose() ObjEventos.Dispose()
'' identificar que productos no están completos.
CargaVentaPorSurtir(CveVentaSurtir) CargaVentaPorSurtir(CveVentaSurtir)
CargaPendientes() CargaPendientes()
Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia) Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia)
@@ -2331,6 +2332,11 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
TotalGarantia += (RowGarantia("Cantidad").ToString().ToDecimal() * PU) TotalGarantia += (RowGarantia("Cantidad").ToString().ToDecimal() * PU)
Next Next
'se registra
If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.ToDate, HLFolio.Text, "EntregaAlmacen", CveMovimiento, CveMovimientoEntrada, TotalGarantia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True) <= 0 Then
ErrorMovInv = True
End If
End If End If
End If End If
' TERMINA: GARANTIAS ' TERMINA: GARANTIAS