× Linguagem de Programação ADVPL

Perguntas PE para retorno de CNAB sem remessa

Mais
11 anos 10 meses atrás #8554 por lalberto
Hugo a função do ! é negativa, ou seja, se não encontrar a chave então entra nesta condição.

Você criou o indice E1_FILIAL + E1_NUMBCO, veja qual a posição do mesmo se bate com a posição 27 ok.

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 10 meses atrás #8561 por GuPadrao

Luiz Alberto escreveu:
//aValores := ( { cNumTit, dBaixa, cTipo, cNsNum, nDespes, nDescont, nAbatim, nValRec, nJuros, nMulta, nOutrDesp, nValCc, dDataCred, cOcorr, cMotBan, xBuffer,dDtVc,{} })


Luiz, fiquei com uma duvida a respeito da variável xBuffer, o que é essa variável, seria o arquivo de retorno carregado na memória?

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 10 meses atrás #8569 por lalberto
Luiz a variavel xBuffer contem a linha atual do arquivo de retorno do cnab, a cada passagem do parametro vai linha por linha até o final ok.

xbuffer possui a linha inteira do arquivo de retorno de 0 a 400, dependendo do cnab.

Abraços.

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 10 meses atrás #8572 por GuPadrao
É o PARAMIXB[01] que vai definir essa linha?

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 10 meses atrás #8573 por lalberto
o PARAMIXB[01] é o vetor que recebe parametro em todos os pontos de entrada,
dependendo do ponto pode ser
paramixb[01]
paramixb[02]
paramixb[03]
paramixb[04]

ETC.

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 10 meses atrás #8626 por Hboleta
Pessoal, acertei o arquivo. Também fiz umas pequenas melhorias: na captura do nosso número, e na busca pelo nickname.

#include "rwmake.ch"
User Function F200VAR()
Local aValores := PARAMIXB[01]
// aValores := ({cNumTit, dBaixa, cTipo, cNsNum, nDespes, nDescont, nAbatim, nValRec, nJuros, nMulta, nOutrDesp, nValCc, dDataCred, cOcorr, cMotBan, xBuffer,dDtVc,{}})
Local aArea := GetArea()
Local cNNum := aValores[04] /// Captura do Nosso Numero

// Posiciona no Registro do Titulo com Base no Nosso Numero
// Novo Indice Criado E1_FILIAL + E1_NUMBCO
// Colocar o Numero da Ordem do Indice Criado na Tabela SE1, a ordem dele eh 27
If !Empty(cNNum)
If SE1->(dbOrderNickName('NSNUM'), dbSeek(xFilial("SE1")+cNNum))
cNumTit := SE1->E1_PREFIXO + SE1->E1_NUM + SE1->E1_PARCELA
Return
Endif
Endif
RestArea(aArea)
Return

Obrigado a todos pela ajuda.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.128 segundos
Joomla templates by a4joomla