Produto: | Microsiga Protheus |
Versões: | 12Todas |
| Ocorrência: | Como é realizada a carga de dados das ocorrências CNAB e EXTRATO? | Instruções: | A carga de dados é iniciado pelo cadastro de uma subconta na rotina de parâmetros bancos - FINA130.
Para que essa carga padrão ocorra é necessário que a rotina PARÂMETROS BANCOS - FINA130 esteja com data de 11/07/2016 ou superior, e NÃO podem existir dados (registros) para o banco nas tabelas SEJ e/ou SEB. Caso HAJA dados desse banco nessas tabelas, a carga padrão NÃO é executada, ou seja, são mantidas as configurações já realizadas no Sistema.
- Os Bancos atendidos na carga da tabela Ocorrências CNAB (SEB) são:
- 001 – Banco do Brasil.
- 033 – Santander.
- 104 – CAIXA.
- 237 – Bradesco.
- 341 – Itaú.
- 399 – HSBC.
- 745 – Citibank.
- Os Bancos atendidos na carga da tabela Ocorrências Extrato (SEJ) são:
- 001 – Banco do Brasil.
- 237 – Bradesco.
- 341 – Itaú.
É importante dizer que, esse recurso de carga não substitui a configuração manual do SistemaNOSSONUM - Número disponível para identificação do título- Nosso Número |
| Instruções: | Retorna o próximo número disponível para identificação do titulo, de acordo com a faixa de numeração fornecida pelo banco. Esta função é utilizada quando os boletos são impressos pela empresa e há necessidade de informar a numeração dos boletos no arquivo de remessa CNAB. |
Síntaxe: | NOSSONUM() - Número disponível para identificação do título ( [Nil] ) --> cNumBco |
Parâmetros/Elementos: | | Nome | Tipo | Descrição | Obrigatório | Referência |
|---|
| Nil | Nulo | Nenhum | | |
|
Retorno: | cNumBco (caracter)- Número do título no banco, gravado no campo E1_NUMBCO, gerado a partir da faixa de numeração do cadastro de Parâmetros de Banco (SEE).
|
| Exemplo: | #include "rwmake.ch" User Function E1NUMBCO() Local cNumBco := ""// Posiciona nos parametros do banco SEE->( dbSetOrder( 1 ) )
SEE->( MsSeek( xFilial( "SEE" ) + "341" + "001 " + "001 " + "001" ) )// Banco / Agencia / Conta / Sub-conta
// Posiciona no titulo em bordero
SE1->( dbSetOrder( 1 ) )
SE1->( MsSeek( xFilial( "SE1" ) + "PRF" + "000000001" + " " + "NF " ) )// Titulo em bordero If !Empty( SE1->E1_NUMBOR ) // Atualiza numero do titulo no banco
cNumBco := NossoNum()
Aviso( "NOSSONUM", "Número do título no banco: " + cNumBco, { "Ok" }, 3 )
EndIf
Return .T. |
