import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: MT110TOK
Descrição:
Eventos
Programa Fonte
MATA110.PRX
Sintaxe
MT110TOK ( < PARAMIXB> ) --> lRetorno
Parâmetros:
Retorno
Observações
Exemplos
User Function MT110TOK()Local nPosPrd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C1_PRODUTO'})Local nPosItem := aScan(aHeader,{|x| AllTrim(x[2]) == 'C1_ITEM'})Local lValido := .T.dbSelectArea('SC1')dbSetOrder(2)If MsSeek(xFilial('SC1')+aCols[n][nPosPrd]+cA110Num+aCols[n][nPosItem]) If (C1_QUJE > 0) .Or. (C1_RESIDUO == 'S') ) lValido := .F. EndIfEndIf Return(lValido) |