lazarinr
Membro Pro Verificado-
Total de ítens
81 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que lazarinr postou
-
Alterar comandos no TZQuery em tempo de execução
lazarinr replied to lazarinr 's tópico in Object Pascal - Delphi & Lazarus
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'); -
Alterar comandos no TZQuery em tempo de execução
lazarinr replied to lazarinr 's tópico in Object Pascal - Delphi & Lazarus
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. -
Alterar comandos no TZQuery em tempo de execução
um tópico no fórum postou lazarinr Object Pascal - Delphi & Lazarus
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.
-
Olá Willbr2k, não tenho certeza, mais acho que o commit é somente para usuários que tenham permissão para gravar alterações, acho que teremos que postar a unit alterada aqui para alguém dar commit.
-
Descobri que o motivo da divergência entre as descrições dos código de motivo de rejeição que eu citei na mensagem anterior é porque são de layout diferentes. 63: Result:='63-DV do nosso número inválido' está no manual do padrão CNAB 400 e '63' = Entrada para Título já Cadastrado.está no manual do padrão CNAB 240. Observei que o componente já faz alguns tratamentos deferentes para esses layout em outras procedures. Porém na procedure CodMotivoRejeicaoToDescricao não há esse tratamento. Como vou precisar dessa melhoria no componente, pergunto se alguém já fez esses ajustes? Para não haver retrabalho. Senão eu vou fazer e enviar a unit para ser atualizada no componente.
-
Olá Pessoal No arquivo retorno do Banco do Brasil CNAB 240 segmento T posição 216 o banco está retornando o código A9. Isso está causando um erro. Verifiquei na unit ACBrBancoBrasil na procedure CodMotivoRejeicaoToDescricao e não há tratamento para esse código de motivo. Então procurei o manual de cobrança no site do Banco do Brasil a fim de entender do que se trata esse código A9. Porém os códigos de motivos de retorno que encontrei no manual não batem com os códigos que estão nessa procedure. Por exemplo o código na unit está 63: Result:='63-DV do nosso número inválido' ; no manual do FEBRABAN que baixei do site do banco está '63' = Entrada para Título já Cadastrado. Será estou consultando o manual errado? ou a procedure precisa de manutenção? Estou com a última versão do ACBR.
-
Passar Parâmetro ao chamar o Programa
lazarinr replied to lazarinr 's tópico in Object Pascal - Delphi & Lazarus
Pessoal consegui, e é bem mais simples que no Delphi. No Lazarus tem uma função chamada ParamStrUTF8 que utilizei assim: ParamStrUTF8(1). no evento OnCreate do form, chamei o programa dessa forma "Project1.exe -TESTE" e esse comando retornou o parâmetro -TESTE. -
Passar Parâmetro ao chamar o Programa
um tópico no fórum postou lazarinr Object Pascal - Delphi & Lazarus
Estou tentando chamar um executável de dentro de outro executável e passar um parâmetro para o programa chamado. Faço isso no delphi, mais no lazarus não estou conseguindo. Seria algo do tipo MEUPROGRAMA -x onde -x é o parâmetro passado. -
Acbrnfedanferl Campos Com Mascara
lazarinr replied to laerte's tópico in Dúvidas Gerais sobre o ACBr
Estou tendo um problema parecido, porém em apenas um cliente e a partir de ontem, antes funcionava corretamente. A partir de hoje de manhã começou a imprimir a máscara ao invés dos valores. -
Out of Memory Trunk2 FortesReport ao imprimir DANFE
lazarinr replied to Michel Abrão's tópico in ACBrNFe
Veja se não está utilizando uma logo muito grande. Eu tive problema com isso, era um bitmap muito grande (em bytes). foi só reduzir o solucionou o problema.- 25 replies
-
- trunk2
- out of memory
-
(e 2 mais)
Tags:
-
Enviar E-Mail Com Acbrmail Com From Diferente De Username
um tópico no fórum postou lazarinr ACBrDiversos
Olá Amigos do ACBR Estou com o seguinte problema. Eu utilizava o Indy para enviar orçamentos de venda. Usava apenas uma conta de e-mail para login (UserName) e uma conta de e-mail para cada vendedor (From), assim cada vendedor recebia os retornos de seus clientes separadamente. Porém quando migrei para o ACBrMail só consigo enviar se na propriedade From estiver o mesmo e-mail utilizado na propriedade UserName. É assim mesmo que funciona o componente ou será que estou fazendo algo errado? -
Bom dia André Era isso mesmo. Muito obrigado pela ajuda.
-
Estou imprimindo a DANFCe feita em Fortes no ambiente de homologação, e não está saindo os dados do emitente, sai apenas uma tarja azul no lugar. O restante está tudo certo. Isso está correto? 51140414929091000159650010000000031000003411.pdf
-
Bom dia Leandro Araújo Eu estou utilizando o ambiente de homologação na versão 3.10 em MT.
- 36 replies
-
- nfce
- homologacao
- (e 5 mais)
-
Nfc-E - Nota Fiscal Do Consumidor Eletrônica
lazarinr replied to André Ferreira de Moraes's tópico in ACBrNFe
lucianoiron Não sei já conseguiu resolver o problema que mencionou acima. Se ainda não conseguiu, dê uma olha neste post neste post o Italo deu uma dica que eu consegui resolver o meu problema que era o mesmo do seu. Boa sorte! -
Muito Obrigado Italo Estava com o mesmo problema a dias e não conseguia resolver. Até postei mensagem em outro post e não tinha conseguido nada. Bastou alterar a ordem das propriedade como você sugeriu e funcionou.
- 36 replies
-
- nfce
- homologacao
- (e 5 mais)
-
Problema Delphi 7 + Indy 10 + Acbr + Libeay32.dll
lazarinr replied to diegobolognini's tópico in ACBrTCP
Obrigado Scheila. Eu também estava com o mesmo problema "SMTP Error: Unable to login" no hotmail usando o ACBrMail. Usei a configuração sugerida por você e funcionou. -
Nfc-E - Nota Fiscal Do Consumidor Eletrônica
lazarinr replied to André Ferreira de Moraes's tópico in ACBrNFe
Estou com o mesmo problema do Luciano. Já depurei e não vi nada de errado. Anexei os xml gerados ao fazer o envio. -
Rafael Obrigado pela dica. Mais depois que atualizei o componente parou de dar esse problema. Não sei se corrigiram algo ou se era "Barberagem" minha mesmo. Mais de qualquer forma, obrigado pela ajuda!
-
Boa noite Italo Atualizei os fontes e recompilei o sistema, parou de dar aquele erro, Agora deu outro erro "Arquivo enviado fora da estrutura do arquivo XML de entrada." mais como eu também fiz algumas mudanças no programa que gera a NFS-e no meu sistema, vou verificar melhor se o problema não está no meu sistema. Obrigado pela ajuda.
-
Boa tarde Italo Testei com os dois Schemas, o do ACBrNFSe da pasta exemplo e outro que baixei do site ISSNet. Em ambos deu o mesmo problema.
