CN100ESR - Estorno de baixa de retenção

Ponto de entrada executado no estorno da baixa da retenção. Desvia o fluxo para desconsiderar os títulos financeiros gerados no processo padrão.

Este ponto de entrada tem o mesmo tratamento disponibilizado no ponto CN100BxRet, porém no estorno.

CNTA100.PRW

CN100ESR - Estorno de baixa de retenção ( ) --> aExp01

aExp01(array_of_record)
• aExp[1] - Informa se o estorno pode ser finalizado; aExp[2] - Array contendo as retenções que foram estornadas e os respectivos valores.

Estrutura do array de retorno do ponto:

aRet[1] - Informa se o estorno pode ser executado.
aRet[2] - Array contendo as retenções estornadas e os respectivos valores.
    aRet[2,1] - Array contendo o código da primeira retenção e o valor.
        aRet[2,1,1] - Contém o código da medição.
        aRet[2,1,2] - Contém o valor estornado.
    aRet[2,2] - Array contendo o código da segunda retenção e o valor.
        aRet[2,2,1] - Contém o código da medição.
        aRet[2,2,2] - Contém o valor estornado.
    ...
    aRet[2,x] - Estrutura criada para cada retenção estornada.
        aRet[2,x,1] - Contém o código da medição.
        aRet[2,x,2] - Contém o valor estornado.

User Function CN100EsRetLocal aRet := {}Local aBxs := {}         //Informa as medições que tiveram retenção estornada, o respectivo valor do estornoaAdd(aBxs,{<>,<>})aAdd(aBxs,{<>,<>})aAdd(aBxs,{<>,<>})//Informa se pode finalizar o estorno das baixasaAdd(aRet,<>)//Inclui o vetor das baixas no retorno do pontoaAdd(aRet,aBxs)Return aRet