Programa: PLSA510
Ponto de entrada: PLS510AC
Objetivo: Manipular dados de cobrança antes de gerar um Titulo a Receber no faturamento
Parâmetros de Entrada:
Array nas seguintes posições:
[1] – Nível de cobrança (Caracter)
[2] – Chave do nivel de cobrança (Caracter)
[3] – Valor a ser gerado (Numérico)
[4] – Criticas da geração (Array)
[5] – Mês de Competência (Caracter)
[6] – Ano da Competência (Caracter)
[7] – Numero da cobrança (Caracter)
[8] – Estrutura da cobrança (Array)
Parametros de Retorno:
Array nas seguintes posições:
[1] – Valor a ser gerado (numérico)
[2] - Criticas da geração (Array)
[3] - Estrutura da cobrança (Array)
Observação: Os dados enviados são os mesmos retornados, casa haja necessidade deve-se alterar o conteúdo dos dados enviados e retonar nos dados de retorno. Caso não haja necessidade em alguma condição de alterar os dados acima basta retornar os mesmos que foram enviados.
Exemplo:
O exemplo abaixo inibe a critica “022 -Data de emissão informada e inferior a emissão do ultimo titulo.' de qualquer geração de lotes de intercambio.
User Function PLS510AC
LOCAL nValor := paramixb[3]
LOCAL aCritica := paramixb[4]
LOCAL aVlrCob := paramixb[8]
LOCAL nFor
LOCAL nTamCols
For nFor := 1 To Len(aCritica)
If aCritica[nFor,1] == '22'
nTamCols := Len(aCritica)
aDel(aCritica,nFor)
aSize(aCritica,nTamCols-1)
Endif
Next
Return({nValor,aCritica,aVlrCob})