Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | PCOXINT |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46829 |
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 |
|