| 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. Esse ponto de entrada é especialmente útil para situações onde é necessário diferenciar lançamentos ou evitar conflitos gerados por chaves duplicadas.
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 |
|