01. DADOS GERAIS
Produto: | |
---|
Linha de Produto: | |
---|
Segmento: | |
---|
Módulo: |
TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)
|
---|
Função: | PCOXINT |
---|
País: | Brasil |
---|
Ticket: | Interno |
---|
Requisito/Story/Issue | DSERCTR1-46829 |
---|
02. DESCRIÇÃO
O ponto de entrada PCOAKDCHV permite a alteração do conteúdo do campo AKD_CHAVE com o objetivo de tratar lançamentos que possuam a mesma chave configurada.
cChvAux := ExecBlock("PCOAKDCHV" ,.f.,.f., {cProcesso , cItem , .T. ,cChave} )
User Function PCOAKDCHV()
Local cRetLocal cProcesso:= Paramixb[1]
Local cItem := Paramixb[2]
Local lDelet := Paramixb[3]
Local cChave := Paramixb[4]
Local aArea := GetArea()
If cProcesso=="000055" .and. !lDelet
DbSelectArea("SC7")
DbSetOrder(2)
cRet := Padr("SC7"+&(IndexKey()),Len(AKD->AKD_CHAVE))
Else
cRet := cChave
Endif
RestArea(aArea)
Return cRet
04. ASSUNTOS RELACIONADOS