PCODELITM - Ponto de Entrada

Descrição

Criado ponto de entrada na exclusão dos itens da planilha na função PcoWriteIt, após a chamada da rotina de lançamentos do PCO (PcoDetLan) e antes da chamada das funções para exclusão de itens de planilhas orçamentárias.

Observações

Esse ponto de entrada servirá para exclusão de valores que estejam amarrados ao item excluído.

Exemplos

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 ()

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 possui retorno

Eventos de chamada do Ponto de Entrada

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

Variáveis

Local lPCODelItm := ExistBlock("PCODelItm")

Programa Fonte

PCOXFUN.PRW