PCOAK2GRV - Ponto de Entrada

Descrição

Ponto de entrada criado após a gravação AK2 na função PcoWriteIt, que permite utilizar os itens posicionados para manipulações posteriores.

Exemplos

User Function PCOAK2GRV ()
Local aArea := GetArea()
Local lRet := .F.
Public _nQtdeLct := 0

DbSelectArea("P01")

P01->(DbSetOrder(1))

If (lRet := P01->(Dbseek(xFilial("P01")+AK2->AK2_ORCAME+AK2->AK2_VERSAO+AK2->AK2_CO+DTOS(AK2->AK2_PERIOD)+AK2->AK2_ID)))

While P01->(!EOF()) .and. P01->P01_FILIAL+P01->P01_ORCAME+P01->P01_VERSAO+P01->P01_CO+DTOS(P01->P01_PERIOD)+P01->P01_ID == AK2->AK2_FILIAL+AK2->AK2_ORCAME+AK2->AK2_VERSAO+AK2->AK2_CO+DTOS(AK2->AK2_PERIOD)+AK2->AK2_ID

_nQtdeLct += P01->P01_QTDE

P01->(DbSkip())

EndDo

EndIf

RestArea(aArea)

Return (lRet)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Não possui

Retorno

Não possui

Eventos de chamada do Ponto de Entrada

If ExistBlock("PCOAK2GRV")
ExecBlock("PCOAK2GRV",.F.,.F.)
EndIf

Variáveis

Local lPCOAK2GRV := ExistBlock("PCOAK2GRV")

Programa Fonte

PCOXFUN.PRW