Histórico da Página
...
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 |