Histórico da Página

Este Ponto de Entrada é executado no momento da montagem dos itens da sugestão de compras, na janela tela da rotina MATA297M. Assim, este ponto de entrada E permite a manipulação das informações dos itens antes que estes sejam exibidos em tela para o usuário.

User Function MT297MAC()
MsgInfo("Programa MT297MAC executado com sucesso.")
return

Português(Brasil)

Todas

Todos

Todas

N/A

N/A

Static Function MontaCols()
Local _ni := 0

aCols := \{\}
DbSelectArea("SDF")
DbSetOrder(1)
DbSeek( xFilial("SDF")+SFJ->FJ_CODIGO )
While !Eof() .And. DF_CODIGO==SFJ->FJ_CODIGO .and. xFilial("SDF")==SDF->DF_FILIAL

AADD(aCols,Array(nUsado+1))

For _ni:=1 to nUsado
If ( aHeader[_ni][10] != "V")
aCols[Len(aCols),_ni]:=FieldGet(FieldPos(aHeader[_ni,2]))
Else
aCols[Len(aCols),_ni] := CriaVar(aHeader[_ni,2],.t.)
EndIf
Next

aCols[Len(aCols),nUsado+1]:=.F.

dbSkip()
EndDo

// PONTO DE ENTRADA PARA ALTERACAO DO VETOR aCols
If ExistBlock("MT297MAC")
ExecBlock("MT297MAC",.f.,.f.)
EndIf

Return

MATA297M.PRW