Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada: STITEMCHK Define se o item será validado na tela de conferência de itens - TOTVS PDV

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] - 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

 

Exemplo:

#INCLUDE "PROTHEUS.CH"

User Function STITEMCHK

Local lRet := PARAMIXB[1]
Local _aSL2 := PARAMIXB[2]
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
   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 aRet