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

-- las devoluciones debe poder dejar libres renglones, cuando hay lotes entregados previamente

Browse Source
This commit is contained in:
rrene
2024-05-07 12:04:35 -07:00
parent cd70160c17
commit 3351f0a9fb
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2080,18 +2080,18 @@ Partial Class Inventarios_EntregaAlmacen
If Not Cantidad > 0 Then
Alert("No se detecto ningun movimiento por hacer. Por favor verifique e intente nuevamente.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
'PROCESO , si tiene proceso "176" no lo valida
If Not UsuarioActual.TienePermisoProceso(176) Then
For Each Gvr As GridViewRow In GvDatos.Rows
If Gvr.DataKey("CantidadF").ToDecimal <> Gvr.FCTextBox("TbCantidadF").Text.ToDecimal Then
Alert("En la factura no se han especificado todos los productos a entregar, favor de especificarlos para poder dar salida.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Next
If Not TipoDocto.Contiene("Dev") Then 'para devoluciones debe de aceptar parcialidades
For Each Gvr As GridViewRow In GvDatos.Rows
If Gvr.DataKey("CantidadF").ToDecimal <> Gvr.FCTextBox("TbCantidadF").Text.ToDecimal Then
Alert("En la factura no se han especificado todos los productos a entregar, favor de especificarlos para poder dar salida.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Next
End If
End If
If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then