ADVPLAULA 01

cdigo da Filial (varivel cFilAnt)A1_FILIAL := xFilial(SA1) A1_FILIAL := xFilial(SA1) cFilAnt C5_FILIAL := xFilial(SC5) cFilAnt

Incluso de dados:RecLock(SA1, .T.)SA1->A1_Filial := xFilial(SA1)SA1->A1_Cod := 000030SA1->A1_Nome := IMPORTADOR EUA

Acesso direto ao registro:dbSeek( +000020) oudbSeek(xFilial(SA1)+000020)

Leitura sequencial: em ordem de Nome dbSetOrder(2) dbGoTop() While !Eof() ... dbSkip() End

dbSetOrder(n), onde n = 1...35 funo para selecionar o ndice.

Portanto, ndices de usurio devem sempre ter um NickName. Deve-se usar a funo dbOrderNickName(NICKNAME). ndices do sistema, nunca tero NickName. Usa-se dbSetOrder().

AULA 02

If Saldo >= QtdVenda Pedido Liberado Else Pedido Bloqueado EndIf cESTNEG := GetMV(MV_ESTNEG) If Saldo >= QtdVenda .Or. cESTNEG == S Pedido Liberado Else Pedido Bloqueado EndIf