- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- PE para retorno de CNAB sem remessa
×
Linguagem de Programação ADVPL
Perguntas PE para retorno de CNAB sem remessa
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 10 meses atrás #8554
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: PE para retorno de CNAB sem remessa
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.
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.
- GuPadrao
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 86
- Obrigados Recebidos: 1
11 anos 10 meses atrás #8561
por GuPadrao
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?
Respondido por GuPadrao no tópico Re: PE para retorno de CNAB sem remessa
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.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 10 meses atrás #8569
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: PE para retorno de CNAB sem remessa
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.
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.
- GuPadrao
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 86
- Obrigados Recebidos: 1
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 10 meses atrás #8573
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: PE para retorno de CNAB sem remessa
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.
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.
- Hboleta
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 11
- Obrigados Recebidos: 0
11 anos 10 meses atrás #8626
por Hboleta
Respondido por Hboleta no tópico Re: PE para retorno de CNAB sem remessa
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.
#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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- PE para retorno de CNAB sem remessa
Tempo para a criação da página:0.128 segundos