| Versões: | Advanced Protheus 7.10 , Microsiga Protheus 8.11 |
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})
.PRW
PLS510AC - Dados de Cobrança ( < paramixb> ) --> Array
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| paramixb | Array of Record | X |
-
Array(vetor)
[1] - Valor da fatura que será gerada (deve ser o conteúdo do nValor (3o parâmetro de entrada) Alterado ou não
[2] - Criticas da fatura que será gerada (deve ser o conteúdo do aCritica (4o parâmetro de entrada) Alterado ou não
[3] - Composição do titulo que será gerada (deve ser o conteúdo do aVlrCob (8o parâmetro de entrada) Alterado ou não