Histórico da Página
...
Descrição: | Este Ponto de Entrada é executado para cada item que será apresentado na tela de conferência de itens, permite definir se o item deverá ser ou não validado pelo processo de conferência |
Programa Fonte: | STBItemCheck.prw |
Função: | A função recebe os parâmetros: PARAMIXB[1]: Lógico - Se o item está definido na rotina padrão para ser validado PARAMIXB[2]: Array - Array contendo dados do item (aSL2) |
Retorno: | Array: [1] Lógico - Define se o item deverá ou não ser validado na tela de conferência [2] - Altera o texto da coluna Observações |
Conversores e Parâmetros: | DT_MV_LJITCHK → Habilita/Desabilita rotina de conferência de itens |
...
Local lRet := PARAMIXB[1]
Local _aSL2 := PARAMIXB[2]
Local nX := 0
Local nPosENTREGA := AScan( _aSL2 , { |x| x[1] == "L2_ENTREGA" } )
Local nPosQUANT := AScan( _aSL2 , { |x| x[1] == "L2_QUANT"} )
Local aRet := {}
IF lRet .AND. _aSL2[nPosENTREGA][2] == "2" .AND. _aSL2[nPosQUANT][2] > 1
lRet := aadd(aRet,.F.) //exemplo hipotético: não obriga a conferência de itens do tipo retira(L2_ENTREGA = 2) se a quantidade for maior que 1
aadd(aRet,"teste") //exemplo de texto
EndIf
Return lRetaRet