PCOA1202 - Revisão de orçamentos

Descrição

Ponto de Entrada PCOA1202

Observações

Ponto de entrada criado na finalização da revisão de orçamentos. O mesmo permite utilizar os itens posicionados para manipulações posteriores.

Exemplos

User Function PCOA1202()
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

Retorno

Não há necessidade de valor de retorno

Eventos de chamada do Ponto de Entrada

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

Variáveis

Local lPcoa1202 := ExistBlock("PCOA1202")

Programa Fonte

PCOA120.PRW