| Produto: |
TOTVS Backoffice
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Serviços |
| Módulo: | TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)
|
| Função: | PCOA120 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCOA1202 é acionado na finalização da revisão de orçamentos. Ele permite que os itens posicionados na revisão sejam utilizados para manipulações posteriores, possibilitando customizações específicas conforme as necessidades do usuário. Esse ponto é ideal para ajustes adicionais ou validações no encerramento do processo de revisão orçamentária.
If ExistBlock("PCOA1202")
ExecBlock("PCOA1202",.F.,.F.)
EndIf
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)
Importante !!