- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Problema na impressão boleto Itau
×
Linguagem de Programação ADVPL
Perguntas Problema na impressão boleto Itau
- HelderOSouza
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 36
- Obrigados Recebidos: 0
10 anos 5 meses atrás #18602
por HelderOSouza
Problema na impressão boleto Itau foi criado por HelderOSouza
Boa tarde, estou com problemas na impressão do boleto gráfico do banco itau, em alguns títulos não está incrementando a faixa atual e pega o mesmo numero do titulo anterior.
Alguém já passou por esse problema?
Alguém já passou por esse problema?
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 5 meses atrás #18604
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 Problema na impressão boleto Itau
Helder bom dia, como vc está gerando o nosso numero ? através da função nossonumero() ? ou vc customizou ?
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.
- HelderOSouza
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 36
- Obrigados Recebidos: 0
10 anos 5 meses atrás #18606
por HelderOSouza
Respondido por HelderOSouza no tópico Problema na impressão boleto Itau
Bom dia Luiz.
Pego a faixa atual campo (ee_faxatu) mais digito verificador calculado por uma função. É um fonte que pessoal já usa mais vou anexar o fonte.
Pego a faixa atual campo (ee_faxatu) mais digito verificador calculado por uma função. É um fonte que pessoal já usa mais vou anexar o fonte.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 5 meses atrás #18607
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 Problema na impressão boleto Itau
If empty(SE1->E1_NUMBCO)
If Reclock("SEE",.F.)
Replace SEE->EE_FAXATU WITH soma1(alltrim(SEE->EE_FAXATU),5)
msunlock()
Endif
Troca por isso e testa
If empty(SE1->E1_NUMBCO)
NossoNum()
Endif
If Reclock("SEE",.F.)
Replace SEE->EE_FAXATU WITH soma1(alltrim(SEE->EE_FAXATU),5)
msunlock()
Endif
Troca por isso e testa
If empty(SE1->E1_NUMBCO)
NossoNum()
Endif
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.
- HelderOSouza
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 36
- Obrigados Recebidos: 0
10 anos 5 meses atrás #18611
por HelderOSouza
Respondido por HelderOSouza no tópico Problema na impressão boleto Itau
não deu certo, parou de incrementar colocando apenas o trecho que você me mandou.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 5 meses atrás #18612
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 Problema na impressão boleto Itau
Então essa função é responsável por buscar o conteudo do campo EE_FAXATU incrementar mais 1 e atualizar o campo E1_NUMBCO, o problema acredito que esteja na outra função que calcula o digito.
Cara o ideal realmente é tentar debugar, faz uma seleção de uns 10 titulos e coloca um break point na sua rotina que acumula o campo EE_FAXATU e vai passo a passo.
outra dica seria vc fazer assim
If empty(SE1->E1_NUMBCO)
cNumBco := SEE->EE_FAXATU
cNumBco := Soma1(cNumBco,5)
If Reclock("SEE",.F.)
SEE->EE_FAXATU := cNumBco
msunlock()
dbCommint() // Forca a Gravacao da Memoria para o Disco
Endif
Cara o ideal realmente é tentar debugar, faz uma seleção de uns 10 titulos e coloca um break point na sua rotina que acumula o campo EE_FAXATU e vai passo a passo.
outra dica seria vc fazer assim
If empty(SE1->E1_NUMBCO)
cNumBco := SEE->EE_FAXATU
cNumBco := Soma1(cNumBco,5)
If Reclock("SEE",.F.)
SEE->EE_FAXATU := cNumBco
msunlock()
dbCommint() // Forca a Gravacao da Memoria para o Disco
Endif
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Problema na impressão boleto Itau
Tempo para a criação da página:0.123 segundos