Descrição

O ponto de entrada PLR580CODB, tem como objetivo customizar o código de barras para diferentes bancos. Sua execução é realizada durante a emissão/impressão de boletos no relatório "Emissão Boletos (PLSR580)". Acionada também na geração do arquivo Ptu A500.

Observações

Exemplos

User function PLR580CODB
Local cPrefixo := ParamIxb[1] //Código referente ao Prefixo do Título do Boleto Emitido
Local cNumero := ParamIxb[2] //Código referente ao Número do Título do Boleto Emitido
Local cParcela := ParamIxb[3] //Código referente a Parcela do Título do Boleto Emitido
Local cTipo := ParamIxb[4] //Código referente ao Tipo do Título do Boleto Emitido
Local cBanco := ParamIxb[5] //Código referente ao Banco do Sacado do Título do Boleto Emitido
Local cAgencia := ParamIxb[6] //Código referente a Agência do Título do Boleto Emitido
Local cConta := ParamIxb[7] //Código referente a Conta do Sacado do Título do Boleto Emitido
Local cDacCC := ParamIxb[8] //Código referente ao Dac do Título do Boleto Emitido
Local cNroDoc := ParamIxb[9] //Código referente ao Número do Documento do Título do Boleto Emitido
Local nValor := ParamIxb[10] //Valor referente ao Título do Boleto Emitido
Local cCart := ParamIxb[11] //Código referente a Carteira do Título do Boleto Emitido
Local cMoeda := ParamIxb[12] //Código referente a Moeda do Título do Boleto Emitido
Local cEspec := ParamIxb[13] //Código referente a Especie do Título do Boleto Emitido
Local cAceite := ParamIxb[14] //Código referente ao Aceite do Título do Boleto Emitido
Local cNosso := ""
Local NNUM := ""
Local cCampoL := ""
Local cFatorValor := ""
Local cLivre := ""
Local cDigBarra := ""
Local cBarra := ""
Local cParte1 := ""
Local cDig1 := ""
Local cParte2 := ""
Local cDig2 := ""
Local cParte3 := ""
Local cDig3 := ""
Local cParte4 := ""
Local cParte5 := ""
Local cDigital := ""
Local aRet := {}
//Tratamento realizado pelo cliente
Aadd(aRet,cBarra)
Aadd(aRet,cDigital)
Aadd(aRet,cNosso)
Aadd(aRet,substr(cParte1,1,5)"."+substr(cparte1,6,4)+cDig1" ")
Aadd(aRet,substr(cParte2,1,5)"."+substr(cparte2,6,5)+cDig2" ")
Aadd(aRet,substr(cParte3,1,5)"."+substr(cparte3,6,5)+cDig3" ")
Aadd(aRet,cParte4)
Aadd(aRet,cParte5)
Return aRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Paramixb[1] - Código do Prefixo do Título
Paramixb[2] - Código do Número do Título
Paramixb[3] - Código da Parcela do Título
Paramixb[4] - Código referente ao Tipo do Título do Boleto Emitido
Paramixb[5] - Código referente ao Banco do Sacado do Título do Boleto Emitido
Paramixb[6] - Código referente a Agência do Título do Boleto Emitido
Paramixb[7] - Código referente a Conta do Sacado do Título do Boleto Emitido
Paramixb[8] - Código referente ao Dac do Título do Boleto Emitido
Paramixb[9] - Código referente ao Número do Documento do Título do Boleto Emitido
Paramixb[10] - Valor referente ao Título do Boleto Emitido
Paramixb[11] - Código referente a Carteira do Título do Boleto Emitido
Paramixb[12] - Código referente a Moeda do Título do Boleto Emitido
Paramixb[13] - Código referente a Especie do Título do Boleto Emitido
Paramixb[14] - Código referente ao Aceite do Título do Boleto Emitido

Retorno

aRet[1] - cBarra
aRet[2] - cDigital
aRet[3] - cNossoNumero
aRet[4] - .F. (Boolean)
aRet[5] - 0 (Numérico)
aRet[6] - cCart
aRet[7] - cEspec
aRet[8] - cAceite
aRet[9] - aRet

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

PLSR580