Producto: | TOTVS Backoffice |
Línea de producto: | Línea Protheus |
Segmento: | Backoffice |
Módulo: |
TOTVS Backoffice (Línea Protheus) - Compras (SIGACOM) |
Función: | MATA120 |
País: | Brasil |
Ticket: | |
Requisito/Story/Issue (informe el requisito relacionado): |
Función responsable por imponer una condición de uno o todos los ítems del GetDados del Pedido de compras / Autorización de entrega. Ejemplo utilizado: "Precio unitario menor que 5".
El punto se encuentra al final de la función y se activa tras confirmar los ítems de la GetDados y antes del pie de página de la dialog del PC, debe utilizarse para validaciones específicas del usuario donde se controlará por medio de la devolución del punto de entrada, si este fuera .F. el proceso se interrumpirá y si fuera .T. se validará.
No hay
Tipo | Descripción |
Lógico |
|
#INCLUDE "TOTVS.ch" /*/{Protheus.doc} User Function MT120OK Validación de todos los ítems del Getdados del PC/Autorización de entrega. @type Function @since 11/09/2024 @author user /*/ User Function MT120OK() Local nPosPrd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRODUTO'}) Local nPosQtd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_QUANT'}) Local nPosPrc := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRECO'}) Local lValido := .T. Local nX := 0 For nX :=1 To Len( aCols ) If ( !aCols[nx][Len(aCols[nX])] .And. !Empty(aCols[nX][nPosPrd]) ) If aCols[nX][nPosPrc]<5 lValido := .F. MsgAlert("Precio menor que 5.") Exit EndIf EndIf Next nX Return(lValido)