Histórico da Página
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() 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") |
Variáveis | Local lPcoa1202 := ExistBlock("PCOA1202") |
Programa Fonte | PCOA120.PRW |