Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT100C7L - Alteração de itens de Pedidos
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
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).
Programa Fonte 
MATA103.PRW
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aArrayF4 Vetor Array com os itens de acordo com o aCampos. X
aArrSldo Vetor Array com saldo e recnos. X
Retorno
    Nil(nulo)
  • Nil
Exemplos 
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