lazarinr

Agnaldo Prates obrigado por responder amigo. Acabamos emitindo a nota fiscal dessa forma mesmo.

Bom dia Amigos, Alguém aqui do grupo emite nota fiscal de transferência entre matriz e filial no estado de Mato Grosso? Segundo a SEFAZ, conforme essa consulta que coloquei em anexo, orienta a utilizar a CST 41 e destacar apenas o valor do ICMS sem destacar base e alíquotas. Porém quando gero o XML não vai o valor do ICMS. Pelo que vi no MOC da NFe não tem essa TAG no grupo ICMS40. Porém a SEFAZ MT orienta dessa forma. Alguém emite NFe de transferência em Mato Grosso? Como estão fazendo nesse caso? SOLUCAO CONSULTA.pdf

Boa tarde @Alexandre de Paula, devo solicitar um novo token para itau e gerar o certificado novamente, é isso?

Fiz as alterações no componente e testei, mais também não funciona.

Eu fiz essa alteração, recompilei o ACBr e testei, não deu certo. Fiz essa mudança

Bom dia Também estou tendo mesmo problema. Entrei em contato com banco, mais até agora ainda não retornaram.

Muito obrigado pela resposta Juliomar. Vou usar o PDC então.

Boa noite pessoal, uma dúvida, para atender ao decreto de meios de pagamento preciso preencher a tag idTermPag. A propriedade correta do componente a ser utilizada seria ACBrTEFAPI.UltimaRespostaTEF.ID ?

Boa tarde Era o client_secret que estava errado. A última letra que deveria estar maiúscula e estava minúscula. Obrigado pela ajuda @EliasCesar

Bom dia Pessoal, Não estou conseguindo gerar PIX no PSP do Banco do Brasil. Já configurei as credenciais passados pelo banco. Já coloquei as DLLs na mesma pasta do aplicativo e dá mesmo erro. "Erro HTTP: 400, Metodo: POST, URL: https://oauth.bb.com.br/oauth/token". Tentei configurar pelo Demo do ACBr e deu o mesmo erro: Segue o arquivo de log em anexo. ACBrPixLog

@Pedro Frayman Muito obrigado! Era isso mesmo, eu havia esquecido disso. RESOLVIDO.

Estou fazendo os testes com o ACBrTEFAPI e está retornando a mensagem "NEGADA 50" quando tento autorizar um cartão débito no autorizador Rede. Porém a forma de pagamento crédito está autorizando e no autorizador DEMO autoriza tanto débito como crédito.ACBrLogTEF ACBrLogTEF

Muito Obrigado Juliana Atualizei o componente e usei a variável que você falou, Deu certo! Grato.

Boa tarde Juliana, No meu caso eu uso o componente e não utilizo ACBrMonitor. Abri a unit ACBrBancoCaixa e nela não tem tratamento para código de cedente de 7 posição, somente para 6 posições.

Olá SUPORTE SIG 2000 Já conseguiu a resposta para essa questão, pois estou tendo o mesmo problema, fui homologar boleto da caixa e recebi essa mesma inconsistência a mais algumas outras, do suporte da caixa. Se o componente ainda não foi adaptado irei fazer essas adaptações, mais gostaria de ter certeza que ainda não foram implementadas as exigências do manual versão abaixo: INTERCÂMBIO DE INFORMAÇÕES ENTRE BANCOS E EMPRESAS TROCA ELETRÔNICA DE DADOS – CNAB240 ABRIL/2020 67.118 v016 micro Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_240.rar

Marcos conseguiu resolver o problema? Está acontecendo no meu Delphi 2010 também.

Consegui resolver, desinstalei e instalei o FortesReport novamente e funcionou.

Boa noite Estou tendo esse problema também. Estou com Delphi 2010 e Delphi 7 instalados, inicialmente deu erro e quase todos os pacotes. Fiz o procedimento sugerido pelo EMBarbosa de configurar o PATH e resolveu o problema de conflito (Obrigado EMBarbosa). Porém agora está dando a mensagem de erro Can´t load package - C:\Desenv\....\ACBr_BoletoRL.bpl - Não foi possível encontrar o módulo especificado. Somente nos pacote de DANFE´s. Em anexo está o arquivo de log de instalação. log_Delphi_2010.txt

Descobri o problema!!! Primeiramente descobri que o erro só ocorria quando eu informava data + hora ( ex: '01/01/2017 23:59:59'), se informasse somente data ( ex: '01/01/2017') funcionava normalmente. Então fui alterando as propriedades do TZReadOnlyQuery uma-a-uma e testando para ver se alguma estava influenciando nisso, até que alterei a propriedade ParamCheck para FALSE e então funcionou. Não sei responder porque mais é isso.

Mais uma coisa estranha, se utilizar os operadores >= ou <= funciona, mais com o between não funciona: qryVendas.SQL[vilIdxSQL] := 'and vrp.VRP_DATA >= '+QuotedStr(FormatDateTime('mm/dd/yyyy',dbePeriodo1.Date)); qryVendas.SQL[vilIdxSQL] := 'and vrp.VRP_DATA <= '+QuotedStr(FormatDateTime('mm/dd/yyyy',dbePeriodo2.Date)+' 23:59:59'); qryVendas.SQL[vilIdxSQL] := 'and vrp.VRP_DATA between '+QuotedStr(FormatDateTime('mm/dd/yyyy',dbePeriodo1.Date)+' 00:00:00')+' and '+QuotedStr(FormatDateTime('mm/dd/yyyy',dbePeriodo2.Date)+' 23:59:59');

Juliomar, Obrigado por responder amigo! Descobri que só está acontecendo isso em um campo do tipo data. A query é essa. select vrp.VRP_CODIGO, vrp.PES_COD_CLIENTE, cli.PES_NOME, vrp.VRP_COMPLEMENTO, vrp.VRP_DATA, vrp.VRP_DATA_ENCERRAMENTO, vrp.VRP_VAL_TOTAL_LIQUIDO as VALOR_LIQUIDO, vrp.VRP_STATUS, vrp.PES_COD_VENDEDOR, vnd.PES_NOME as VENDEDOR, vrp.VRP_DATA_VALIDADE from VENDA_RAPIDA vrp left join PESSOAS cli on cli.PES_CODIGO = vrp.PES_COD_CLIENTE left join PESSOAS vnd on vnd.PES_CODIGO = vrp.PES_COD_VENDEDOR where vrp.EMP_CODIGO = 0 and vrp.VRP_STATUS in ('A','P') and vrp.PES_COD_VENDEDOR = 1 and vrp.VRP_DATA between '05/01/2016' and '05/31/2016 23:59:59' and vrp.PES_COD_CLIENTE = 1 order by vrp.VRP_CODIGO desc Os outros filtros estão funcionando, somente esse filtro pela data não funciona. Já tentei utilizar o cast() para converter a data e nada. Parece ignorar essa linha. Juliomar Sobre o CacheUpdate, como estou utilizando o TZReadOnlyQuery, que é somente leitura ele não tem cacheupdate.

Estou migrando meu sistema de BDE para Zeos, e me deparei com o seguinte problema. Tenho muitas querys onde altero os comandos SQL em tempo de execução. Dou um Close na query altero os comandos e dou um Open novamente, no TwwQuery (InfoPower) e no TQuery (BDE) funciona legal. Porém no TZQuery e no TZReadOnlyQuery quando abro a query novamente não atualiza os dados, ou seja, continua os dados que tinha antes, é como se eu não houvesse mudado os comandos, mais já debuguei e ví que os comandos estão alterados. Existe alguma propriedade ou algo que tenho que fazer para funcionar?

OldProgramer Estou tendo o mesmo problema porém no Firebird 2.5

Boa tarde Juliana CNAB 240 Anexei o arquivo com o layout que recebi da cooperativa SICOOB na segunda feira. Layout Sistema Proprio 0001.XLS

Bom dia Pessoal Fiz atualização do ACBr a duas semanas. E a partir daí comecei a ter problemas com o Banco do Brasil e com o SICOOB, com este segundo foi mais grave pois até o momento já detectei dois campos que foram alterados na unit e os arquivos remessa estão sendo rejeitados por esse motivo, são eles: - Código do Convênio - posição 33 à 53 no Header do arquivo. No manual do SICOOB fala que tem que ser vazio e agora está gerando zeros. - Código da Versão - posição 14 à 16 no Header do lote. No manual fala que tem que ser 040 agora está gerando 045. No caso do Banco do Brasil o problema está sendo o nosso número. que está gerando zerado. Após eu alterar o trecho em azul para RightStr(ANossoNumero, 5) voltou a funcionar. Ocorre que ao montagem do nosso número é feito assim: CCCCCC+NNNNN e a formatação de NNNNN colocando zeros à esquerda até completar 11 dígitos exemplo 00000000012, logo LeftStr() pegava somente zeros, quando mudei para RightStr() gerou correto if ((ACBrTitulo.Carteira = '16') or (ACBrTitulo.Carteira = '18')) and (Length(AConvenio) = 6) and (wTamNossoNum = 17) then ANossoNumero := PadLeft(ANossoNumero, 17, '0') else if Length(AConvenio) <= 4 then ANossoNumero := PadLeft(AConvenio, 4, '0') + PadLeft(ANossoNumero, 7, '0') else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then ANossoNumero := PadLeft(AConvenio, 6, '0') + LeftStr(ANossoNumero, 5) else if (Length(AConvenio) = 7) then ANossoNumero := PadLeft(AConvenio, 7, '0') + RightStr(ANossoNumero, 10); O Banco do Brasil já está tudo certo, mais no caso do SICCOB ainda não consegui homologar novamente o arquivo remessa, então ainda pode ter mais divergências.