Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | PCOXINC |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCODELITM é executado no momento da exclusão de itens da planilha orçamentária, dentro da função PcoWriteIt. Este ponto é acionado após a chamada da rotina de lançamentos do PCO (PcoDetLan) e antes da execução das funções responsáveis pela exclusão dos itens.
Ele permite que o usuário insira validações ou manipulações adicionais antes que os itens sejam efetivamente removidos, oferecendo maior controle e flexibilidade sobre o processo de exclusão de itens de planilhas orçamentárias.
If ExistBlock("PCODelItm") ExecBlock("PCODelItm",.F.,.F.) EndIf |
User Function PCODelItm () Local aArea := GetArea() Local cChave := AK2->(AK2_ORCAME+AK2_VERSAO+AK2_CO+DTOS(AK2_PERIOD)+AK2_ID) DbSelectArea("P01") DbSetOrder(1) While P01->(DbSeek(xFilial("P01")+cChave)) PcoDetLan("000252","05","PCOEQTDE",.T.) If P01->(RecLock("P01",.F.,.T.)) P01->(DbDelete()) P01->(MsUnlock()) EndIf EndDo RestArea(aArea) Return () |
|