Histórico da Página

LOCALIZAÇÃO   : Function A103ItemPC - Tela de importação de itens de Pedidos de Compra. 

EM QUE PONTO : O ponto se encontra antes de exibir os itens na tela, e permite alterar os itens de pedidos exibidos do diálogo de seleção de itens de pedidos de compra no documento de entrada, após preencher cabeçalho. Atualizar os arrays aArrayF4 (com os itens, de acordo com aCampos) e aArrSldo (com subarrays com saldo e RecNo).

MATA103.PRW

MT100C7L - Alteração de itens de Pedidos ( < aArrayF4> , < aArrSldo> ) --> Nil

Nil(nulo)
• Nil

User Function MT100C7L()Local aArea := GetArea()Local nFreeQtLocal nX dbSelectArea('SC7')dbSetOrder(3)If dbSeek(xFilial() + cA100For + '02') While !Eof .And. SC7->C7_FORNECE == cA100For .And. SC7->C7_LOJA == '02'  nFreeQt := SC7->C7_QUANT - SC7->C7_QUJE - SC7->C7_QTDACLA  If nFreeQt > 0   aAdd(aArrSldo, {nFreeQt, RecNo()})   Aadd(aArrayF4, Array(Len(aCampos)))   For nX := 1 To Len(aCampos)    If aCampos[nX][3] != 'V'     aArrayF4[Len(aArrayF4)][nX] := FieldGet(FieldPos(aCampos[nX][1]))    Else     aArrayF4[Len(aArrayF4)][nX] := CriaVar(aCampos[nX][1],.T.)    Endif   Next  Endif  dbSkip() EndEndifRestArea(aArea)Return NIL