Jump to content

Antonio Gomes

Membros
  • Posts

    485
  • Joined

  • Last visited

Everything posted by Antonio Gomes

  1. olha no manual do banco, se aceita barra no seunumero, eu geralmente, passo ai, o id unico do meu receber, sem caracteres estranhos, como barra: 12094/1 posicoes: copy(Linha,38,25); do arquivo de retorno
  2. CodOcorrencia := StrToIntDef(IfThen(copy(Linha,109,2) = ' ','00',copy(Linha,109,2)),0); nessa posicao que pega a ocorrencia e na 319 os motivos, em blocos de 2
  3. Voce colocou na remessa o campo seunumero, não aquele nosso numero que sai no boleto, mas o campo 038 a 062
  4. geralmente, no aplicativo deles, voce olha isso, mas de cara, ja tem umas coisas chatas, que eles rejeitam. Alem de dados, titulo vencido emissao apos o vencimento falta de endereco falta de cep posta a remessa aqui, as vezes a gente olhando, consegue lhe ajudar.
  5. bug no seu sistema, gerei um agora e nao saiu assim. qual versao do delphi é?
  6. Tecnospeed tenta vender direto a solução aqui no meu email, pq ta largando
  7. a agencia 0010 ? para mim so tem a de bh nao, 0019
  8. tem esse campo em dois locais, vc viu ? header do lote e do arquivo, sugiro voce criar no seu sistema rapaz, esse pessoal nao sabe o que pede. Header do arquivo: seq 12.0 => Dígito Verificador da Ag/Conta: Preencher com zeros Header do lote: Seq 16.1 => Dígito Verificador da Ag/Conta: Preencher com espaços em branco
  9. voce nao deve alimentar a variavel convenio para esse banco, a carteira deles roda com agencia e conta e codigo do cedente sobre a DigitoVerificadorAgenciaConta, sugiro voce criar o campo no seu sistema, pois para outra versao isso vai falhar. Sugiro ler o particularidades, dentro da pasta Fontes\AcbrBoleto
  10. se for fast report, voce consegue sim. Desenha a impressao do pedido em meia folha, cria a impressao do boleto, no restante, ao imprimir, muda o modo de impressão para "Juntar paginas pequenas", e em imprimir na folha, bota A4, funciona que o cliente fica rindo de orelha a orelha. Nota, eu não tenho isso pronto, no caso, eu uso apenas para pedido, não tive essa necessidade ainda. Mas sei que dá certo. Isso é usado no cliente meu hoje, para sair duas vias, sem precisar mandar cortar a folha A4 na gráfica. O funcionario corta, se for uma pagina do pedido apenas. Se for mais de uma, atenção naquele "agrupar" ali... Ex:
  11. vc pode usar o acbr e criar o seu webservice para devolver isso, recebendo json, xml, qq outra forma. procure por: Horse, Restdataware. Se foi bem o que entendi...
  12. blz. Sem problemas, se modificaram já, ótimo, geralmente, quando vejo algo, corrijo e mando aqui. Como não sou "comitador" aí, não sabia que tinha sido alterado. Dentro do possível, se eu puder ajudar, deixa aqui quais units ou pacote posso mexer. Valeu. Negócio é ajudar resolver, e tirar esses hints kkkk
  13. está correto, qual problema está havendo com você? é primeira via, segunda via? Explica. Pois tenho isso já funcionando em cliente.
  14. @Juliana Tamizou Segue units, sincronizado nesse dia 11/04/22, com correção de alguns deprecated. conteudo da pasta: \ACBr2wc\Fontes\ACBrBoleto ACBrBoleto.zip Grato,
  15. Só para quebrar o gelo: E ja tem contador dando entrada com xml. A promessa de dar entrada, com codificacao do fornecedor, sem casar codigo de produto com o estoque do cliente, contador nao é para ter acesso disso, vai criar um problema maior. Inventario que nao bate com nada, saida que não é lé com cré...
  16. aquele programa que fica aberto tipo sieg nao tem ligado?
  17. Trocar ideia, com essa regra de bloqueio, o contador carregou os xmls pelo sieg, ai no meu sistema fica aparecendo sempre, que devo mandar o ultimo nsu gravado, e eu tenho ele gravado. Pergunto, um computador manifesta, baixa o xml, e depois eu não mais teria de fato acesso a isso? Tentei solicitar a partir do nsu zero, dos ultimos, bloqueado 1 hora, espero o tempo, mando de novo, mais 1 hora bloqueado. Não estou em loop. A manifestação é intrigante, aceita fazer.
  18. Não tem. Uma versão já dá para rir e chorar de delphi. kkk Nem componentes, sempre que atualizo, mando aquele comando ali do Tortoise, o CleanUp.
  19. Isso é mais visível, no aplicativo, e fazendo compilação com build all.
  20. Não foi preciso, pois movendo a linha para cima, a inicialização da diretiva DELPHIXE2_UP foi feita. E o chaveamento {$IFDEF REMOVE_CAST_WARN} não é anulado. Logo, fica faltando apenas o bloco de deprecated, que vou corrigir onde tiver como mexer, e mandar ai para vocês. Entendo que deprecated é trem velho.... Se você analisar bem essa unit, vai ver que ela precisa ser colocada antes ainda, pois tem uma variável BORLAND sendo acionada, e ela ainda não foi inicializada. Veja ai, analisa se precisa subir para linha: 86, o bloco onde faz {$DEFINE BORLAND}, ou seja, na unit anterior já define ela... vai ver o else foi colocado desnecessário (*//////////////// IMPLEMENTAÇÃO ////////////////////*) // Ajusta FreePascal para o modo Delphi //------------------------------------------------------------------------------ {$IFDEF FPC} {$DEFINE USE_UTF8} {$UNDEF BORLAND} {$DEFINE DFE_SEM_INDY} {$DEFINE VCL} {$DEFINE UNICODE} // Lazarus 0.9.26 usa UnicodeString como default para String {$DEFINE DELPHI7} {$DEFINE COMPILER7} {$DEFINE HAS_FORMATSETTINGS} {$DEFINE HAS_REGEXPR} {$DEFINE HAS_INLINE} {$DEFINE HAS_STRICTDELIMITER} {$H+} {$UnDef FMX} {$UnDef FPC3} {$UnDef FPC2} {$IFDEF VER2} {$DEFINE FPC2} {$EndIf} {$IFDEF VER3} {$DEFINE FPC3} {$ENDIF} {$IFDEF FPC3} {$DEFINE HAS_CHARINSET} {$DEFINE SUPPORTS_DEPRECATED_DETAILS} {$UnDef FPC2} {$ENDIF} {$UNDEF REMOVE_CAST_WARN} //Devido a problemas com a mensagem de erro "Message recordind not yet supported" {$ELSE} << {$DEFINE BORLAND} << vem la da unit Acbr_jedi.inc e a chamada dessa unit, por meio do {$I esta abaixo daqui... {$ENDIF}
  21. A correção que fiz aqui, resolveu, caiu de 30 mil warnings, para 1069. Vai ser corrigido isso na Acbr.inc? ou mando aqui para voce? ACBr.inc
  22. faz um teste no seu, move as linhas: // utilizar para facilitar a manutenção do ACBr.inc, já que ele era uma cópia // da jedi, essa mudança permite uma evolução melhor do arquivo. //------------------------------------------------------------------------------ {$I ACBr_jedi.inc} para altura da linha 119 da unit acbr.inc
  23. eu fiquei na duvida agora, pois na unit ACBr_jedi.inc, tem: {------------------------------------------------------------------------------} { DELPHIX_UP from DELPHIX_UP mappings } {------------------------------------------------------------------------------} {$IFDEF DELPHI28_UP} {$DEFINE DELPHIX_ALEXANDRIA_UP} // synonym to DELPHI28_UP {$DEFINE DELPHI27_UP} {$ENDIF} {$IFDEF DELPHI27_UP} {$DEFINE DELPHIX_SYDNEY_UP} // synonym to DELPHI27_UP {$DEFINE DELPHI26_UP} {$ENDIF} {$IFDEF DELPHI26_UP} {$DEFINE DELPHIX_RIO_UP} // synonym to DELPHI26_UP {$DEFINE DELPHI25_UP} {$ENDIF} {$IFDEF DELPHI25_UP} {$DEFINE DELPHIX_TOKYO_UP} // synonym to DELPHI25_UP {$DEFINE DELPHI24_UP} {$ENDIF} {$IFDEF DELPHI24_UP} {$DEFINE DELPHIX_BERLIN_UP} // synonym to DELPHI24_UP {$DEFINE DELPHI23_UP} {$ENDIF} {$IFDEF DELPHI23_UP} {$DEFINE DELPHIX_SEATTLE_UP} // synonym to DELPHI23_UP {$DEFINE DELPHI22_UP} {$ENDIF} {$IFDEF DELPHI22_UP} {$DEFINE DELPHIXE8_UP} // synonym to DELPHI22_UP {$DEFINE DELPHI21_UP} {$ENDIF} {$IFDEF DELPHI21_UP} {$DEFINE DELPHIXE7_UP} // synonym to DELPHI21_UP {$DEFINE DELPHI20_UP} {$ENDIF} {$IFDEF DELPHI20_UP} {$DEFINE DELPHIXE6_UP} // synonym to DELPHI20_UP {$DEFINE DELPHI19_UP} {$ENDIF} {$IFDEF DELPHI19_UP} {$DEFINE DELPHIXE5_UP} // synonym to DELPHI19_UP {$DEFINE DELPHI18_UP} {$ENDIF} {$IFDEF DELPHI18_UP} {$DEFINE DELPHIXE4_UP} // synonym to DELPHI18_UP {$DEFINE DELPHI17_UP} {$ENDIF} {$IFDEF DELPHI17_UP} {$DEFINE DELPHIXE3_UP} // synonym to DELPHI17_UP {$DEFINE DELPHI16_UP} {$ENDIF} {$IFDEF DELPHI16_UP} {$DEFINE DELPHIXE2_UP} // synonym to DELPHI16_UP {$DEFINE DELPHI15_UP} {$ENDIF} Para mim, ela tem que chegar true lá no teste, e não cair no "not", pois não é not... vou dormir, deve ser falta disso.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.