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