Marcelo Bill

Boa noite pessoal Delphi 7 + FB 2.0 + ZeosLib + multicamadas + Fortes Atualizei o ACBr e reinstalei conforme o protocolo a 5 dias, a partir dessa, ao imprimir Danfe Fortes em paisagem ocorre o erro "Property AlignWithMargins does not Exist", para resolver o problema rapidamente com os clientes, alterei a opção para tiRetrato e o cliente torceu o nariz, mas pelo menos ficou resolvido provisoriamente. Até já li algo sobre o tipo, mas não encontrei tal linha onde pudesse remover e resolver o problema. Hoje, atualizei novamente o ACBR e inclusive atualizei o Fortes, coisa que nunca tinha feito, achei que resolvereia, mas o problema persiste. Alguem tem alguma idéia do que posso fazer para resolver ? Obrigado abraço a todos

Boa noite Owww rapá, você é o cara, não desmerecendo ninguém dos moderadores e colaboradores, mas você faz parte da minha lista de pessoas especiais, mesmo sem conhece-lo. Se um dia tivermos oportunidade de nós reunirmos, "não pra falar de programação", o que vai ser muiiiiito difícil, com certeza darei uma abraço de irmão em cada um de vocês que estão sempre dispostos e coerentes. Muito obrigado

Bom dia a todos A felicidade bateu em minha porta, quando conheci o ACBr. Minha paz de espírito atingiu o ápice, quando conheci as capacidades de cada um desses profissionais moderadores que tanto nos ajudam. Obrigado

Daniel boa tarde Sua alteração funcionou corretamente. Essa atualização vai estar no SVN ? Quando poderei atualizar o componente ? Obrigado abraço

Ok Daniel Desculpe a demora na resposta, percebi a diferença e vou testar amanhã no cliente. Assim que testado posto a resposta. obrigado

Bom dia Daniel O ACBRECF.Pas que estou usando, é o mesmo que voce me mostrou. Entenda bem o que fiz. em 27/09/2016 a) Atualizei o Acbr; Compilei e distribui Atualização aos clientes; c) 1 Cliente com 2 Epson, único Reclamando; em 29/09/2016 Solução: Copiei apenas a Procedure FechaCupom do AcbrECFEpson.pas com data de 30/07/16 conforme postei um pedaço anteriormente. com isso, voltou a funcionar sem erros. Agora voce diz que o CR que estou mandando causa o Erro, veja bem, o meu campo BLOB chamado OBS, sim de fato contem CR LF, mas essa Unit ACBRECF.pas já contem o tratamento, então não faz sentido o que voce disse. Por um outro lado, esse problema só está ocorrendo com ECF Epson, pois tenho outros clientes com outras marcas e nenhuma acusa tal problema. Estou mantendo a situação, pois está funcionando no cliente. No entanto, assim que eu atualizar o componente de novo, terei que ficar me lembrando do Detalhe. Testei no Emulador da Epson, onde acusava erro, vai sem erros, mas até ai é um emulador. Infelizmente eu não tenho Ecf Epson em mãos para Testar. Qualquer coisa, dá um tok Obrigado abraços

Ola Daniel Peguei a mensagem no ECF_LOG -- 29/09 10:06:19:477 FechaCupom( Imposto pago aproximado 5,18 IBPT[LF]ICMS A SER RECOLHIDO CONF LC-123/2006 SIMPLES NACIONAL[CR]V[LF]endedor = 83- ALVARO[LF] ) -- 29/09 10:06:19:477 TX -> [STX][211][LF]"[FS][NUL][NUL][FS]Imposto pago aproximado 5,18 IBPT[FS]ICMS A SER RECOLHIDO CONF LC-123/2006 SIMPLES NACIONAL[CR]V[FS]endedor = 83- ALVARO[FS][FS][FS][FS][FS][ETX]211E -- 29/09 10:06:19:512 RX <- ACK = 6 -- 29/09 10:06:19:622 RX <- [STX][211][NUL][NUL][FS][192][129][FS][FS][ESC][STX][14][FS][ETX]02B4 -- 29/09 10:06:19:622 ----------------- ERRO ----------------- Erro retornado pela Impressora: Epson Erro: 020E - Campos com atributos de impressão inválido. ----------------------------------------

Boa tarde D7+FB+cds Estou com o problema acima relatado, erro ao FechaCupom(VarMensagem,0); Foi depois da atualização que o Daniel postou "Possível correção no" Acredito que pode ter corrigido para uma Situação mas não para todas. Tenho um cliente com 2 Epson TM81 e ambas ocorrem o mesmo erro. Fui buscando as atualizações e copiei a Procedure FechaCupom do acbrECFEpson.pas Vejam a parte da alteração e como fiz funcionar Daniel, se puder me dar uma ajudinha nisso, agradeço muito. Fiz a gambiarra só para o cliente voltar a emitir cupom, pois estava desde ontem de manhã sem concluir um cupom se quer. Abraço a todos Funciona.txt Nao_Funciona.txt

Boa tarde Ricardo Dá sim, da erro e diz que a procedure é muito grande { Checking project dependencies... Compiling CAAPCOM.dproj (Debug configuration) [DCC Error] U_FUNCOES.pas(6561): E2283 Too many local constants. Use shorter procedures [DCC Fatal Error] APLICATIVO.dpr(333): F2063 Could not compile used unit 'U_FUNCOES.pas' Failed Elapsed time: 00:00:03.2 } São apenas 517 linhas, por enquanto pois se a SEFAZ inventar mais alguns codigos de retono, ain só vai piorando kkkk Se eu não estiver sabendo fazer, não sei. Só digo que isso funciona desse jeito no D7 desde 2004. Function RespDaConsultaNFE(CodigoResposta:integer):String; Var i:integer; r:string; begin Case CodigoResposta of 0:r:='Ambiente do Sefaz se encontra Instável. Tente Mais Tarde'; 100:r:='Autorizado o uso da NF-e'; 101:r:='Cancelamento de NF-e homologado'; 102:r:='Inutilização de número homologado'; 103:r:='Lote recebido com sucesso'; 104:r:='Lote processado'; 105:r:='Lote em processamento'; 106:r:='Lote não localizado'; 107:r:='Serviço em Operação'; 108:r:='Serviço Paralisado Momentaneamente (curto prazo)'; 109:r:='Serviço Paralisado sem Previsão'; 110:r:='Uso Denegado'; 111:r:='Consulta cadastro com uma ocorrência'; ... ... ... 999:r:='Rejeição: Erro não catalogado'; Else r:='('+IntToStr(CodigoResposta)+') Erro não Identificado pelo Sistema'; End; RespDaConsultaNFE:=r; end;

Boa noite a todos Osmar, muito obrigado pela atenção. Vou tentar fazer essa função. O único problema é atualizar as descritiva das mensagens a cada vez que o SEFAZ solta novas NTs com alterações nas descritivas. Mas valeu pela dica obrigado

Boa noite pessoal Estou saindo do D7+Firebird+cds para D2010+Firebird+cds Eu sempre tratei as mensagens de retorno através de uma função com as mensagens enumeradas sendo pesquisadas pelo codigo de retorno da SEFAZ. Com a mudança para o D2010, o mesmo está se recusando a aceitar uma função muito grande, o que é o caso dessa função. Estive procurando soluções dentro do acbr e encontrei o método "acbrNFe.NotasFiscais.Items.ErroRegrasdeNegocios", percebi que o danado pega até papo de boi no pasto. Por acaso alguem poderia me ajudar a montar uma função tipo Function RetMsg(aComponente:TAcbrNFe;aIndice:Integer):String; Begin Result:=aComponente.NotasFiscais.item[aIndice].ErroRegradeNegocios; End; Ou algo parecido com essa funcionalidade Pois assim me parece que poderia usar para qualquer tipo de captura da mensagem de erro, Rejeição ou de sucesso ex: NFE retorno = 100 - Autorizado o uso da NF-e Mensagem_a_Ser_Mostrada_ao_Usuario:=RetMsg(dm.acbrnfe,0); NFE Retorno = 101 - Cancelamento Homologado Mensagem_a_Ser_Mostrada_ao_Usuario:=RetMsg(dm.acbrnfe,0); NFE Retorno = 204 - Duplicidade Mensagem_a_Ser_Mostrada_ao_Usuario:=RetMsg(dm.acbrnfe,0); Pelo que notei, essa ErroRegraDeNegocios tem para NFe,CF-e,NFS-e, ou seja, com apenas uma pequena função, já poderiamos resolver todos os nossos problemas. Me perdoem se estou atrasado e não ter encontrado algo caso já exista essa facilidade. Abraço a todos

Valeu pela dica infelizmente meu certificado é A3 mas muito boa sua atenção muito obrigado

Daniel Os outros aplicativos, CertificateUI, Tanka, Bemateck, etc, só funcionam corretamente a partir do Windows 7, inclusive o AcbrSign. Acabei de testar no W10 e funcionou direitinho, agora com assinatura semelhante aos gerado anteriormente Só fico na dúvida. Por que não funcionam essas coisas no XP. Tudo bem, voces vão rir de mim neste momento, mas infelizmente não tive tempo suficiente para migrar os meus 3 sistema restantes para plataforma D2010. por isso ainda uso o XP para esses casos. Se por ventura alguem descobrir por que não gera a assinatura correta no XP, agradeço de coração, mas se ninguem souber, também não tem problema, nos momentos em que necessitar gerar a assinatura, vou para o notebook. Por hora muitissimo obrigado a todos

Boa tarde pessoal Estou usando XP Baixei o AcbrSatSign.exe, copiei as Dlls do acbr pra dentro da pasta, tudo funciona direitinho, gera o código de vinculação tudo blz Porém, estou comparando com as assinaturas já geradas anteriormente com outro aplicativo e percebi que estavam diferentes. acessei o sat retaguarda para testar a assinatura e infelizmente está acusando codigo inválido. O que será que estou fazendo de errado ? Obrigado

Juliana Na realidade, não quero colocar o logo do meu cliente e sim o logo do proprio banco, mas percebi que tem uma função ou metodo ACBrFC.CarregaLogo() que talvez eu possa fazer uso em tempo de execução, vou tentar fazer e qq coisa reporto aqui inclusive para que tiver com a msm dificuldade. abraço

Eelias Boa noite Abra o projeto de exemplo na pasta do componente, já que voce já usa o acbr C:\ACBr\Exemplos\ACBrBoleto\Delphi Eeste exemplo está bastante simples e compreenssível, vai te ajudar bastante. Quanto a imprimir na hora, voce pode imprimir a hora que quiser. abraço

Juliana Seguindo o assunto, vou explicar o ocorrido: Antes de o Acbr acatar o componente do boleto, o qual derivou-se do BBoleto (Barbosa Acho). Eu usava esse BBoleto, obviamente que ele não tinha muitos recursos, eram somente a geração do digitável, do codigo de barras e o nossonumero, bem como gerava também o arquivo da remessa, e desde lá, fui obrigado a criar os complementos que faltavam da minha forma, inclusive a impressão do boleto, afinal, devido o BBoleto estar incompleto fui complementando da forma que podia e necessitava. Depois, o acbr pegou esse BBoleto e transformou em AcbrBoleto, lógico ficou ótimo e seguro, porém por falta de tempo, somente troquei o BBoleto por acbrBoleto e continuei usando os complementos como eu havia feito, "por fora". Estou fazendo uma homologação com banco itaú e me retornaram dizendo o codigo de barras não estava sendo possivel a leitura. Ai então eu decidi utilizar a impressão do boleto acbrBoleto. Funcionou tudo certinho. Só um detalhe. no método DirLogo e CarregarLogo, eu gostaria de usar o logo que mandei adicionar no cadastro do banco na tabela do meu banco de dados. Assim como eu consigo adicionar o logo do estabelecimento no acbrNF-e, será que tem possibilidade de fazer isso? Eu não encontrei nenhuma possibilidade, se puder me dar uma luz quanto esse caso agradeço. Peço desculpas se estou usando o mesmo tópico para outra dúvida, embora seja assunto quase similar "AcbrBoleto". abraço Obrigado

Juliana Perfeito Entendi Não testei o envio ao banco ainda, mas já compreendi o funcionamento e a necessidade de informar o tipo de remessa, de fato isso permite definir o que deseja dentro de uma única remessa. Acredito que dessa forma poderíamos ter operações diferentes tais como toRemessaRegistrar como toRemessaBaixar dentro de um único arquivo de remessa.

Boa Noite Juliana Na realidade, estou verificando aqui na geração do arquivo remessa e percebi que não estou informando esse metodo Ocorrencia.tipo=???? O que devo preencher ? Nas ultimas atualizações deixei de acompanhar o txt onde voces informam as alterações e também não vinha acompanhando o forum; só agora que um cliente me apontou esse detalhe, pois os demais ainda estão conseguindo fazer boleto sem registro, por isso ainda não reclamaram. obrigado pela atenção

Bom dia Simplesmente foi feita a remessa para registrar os boletos, a qual deveria chegar um retorno de 02-Entrada confirmada, no entanto chegou o retorno de 03-entrada Rejeitada att.

Boa noite pessoal Tenho um cliente que está recebendo o Retorno do banco itaú cnab-400 com acbrboleto.ListadeBoletos.Objects.MotivoRejeicaoComando.Text=19, e de acordo com a Unit do banco itau indica que é uma ocorrência inválida, será que alguém pode me dar uma dica sobre isso; Além do mais o metodo acbrboleto.ListadeBoletos.Objects.DescricaoMotivoRejeicaoComando.Text quando é liquidação vem vazia, e quando é a 03-Entrada rejeitada vem preenchida "ocorrência Inválida" Qual método utilizar para pegar o texto da rejeição ? Obrigado

Olé lê lê, tudo gente fina, muito obrigado por essas informações que não caem do céu, acho isso explica tudo neh Abraço a todos

Bom dia Pessoal Estou passando por um pequeno problema de Rejeição por NCM Inexistente, porém já busquei NCM por NCM nos portais informados, inclusive meu sistema tem a tabela do IBPT atualizada. Sábado, um cliente meu tentou enviar uma NF-e de 18 itens com NCMs diversos e a mensagem que retornava era 778 Rejeição NCM Inexistente. Até ai tudo bem, basta procurar o NCM correto e problema encerrado, no entanto, numa nota de 18 itens, a propriedade do Acbr ErroCompleto esta vindo em branco, ou seja, não sei qual item está com o NCM Inexistente. Meu cliente, fez a seguinte operação, enviou NF-e de cada item separado em cada nota até descobrir qual deles estava errado. Ajudou pois descobrimos que o NCM 3919.10.00 não é válido e que pode ser substituído por 5906.10.00, trata-se de "Fitas Adesivas" Hoje, estamos com outro caso com a mesma Rejeição porém não tem nenhum NCM conforme citado acima, ou seja, tem outros NCM que foram desativados. A dúvida é, a propriedade acbr ErroCompleto não mostra o [Item] em questão, ou eu estou colocando a captura do erro no lugar errado. no meu codigo, apos o envio tem uma variavel tipo string chamada ErroCompleto que deveria armazenar esse retorno. ************************************ dm00.acbrNFe.WebServices.Enviar.Lote:=dm15.NFENOTA.AsString; dm00.acbrNFe.WebServices.Enviar.Executar; vRec:=dm00.acbrNFe.WebServices.Enviar.Recibo; dm00.acbrNFe.WebServices.Retorno.Recibo := vRec; dm00.acbrNFe.WebServices.Retorno.Executar; Ret:=dm00.acbrNFe.WebServices.Retorno.cStat; ErroCompleto:=dm00.acbrNFe.NotasFiscais.Items[0].ErroValidacaoCompleto; case Ret of 100..112:Begin ************************************ Se alguem puder me dar uma dica... muito obrigado

Bom dia Muito obrigado EliasCesar Valeu amigo

Boa tarde a todos Desculpem a ignorância, mas isso tá uma confusão só. Uns dizem o calculo, faço calculo certinho conforme dizem, no entanto a bagaça não envia nem a pau. O que exatamente tenho que preencher e quando preencher; Quando preencher if (EhCPF) And (EhForadoEstado) And (EhConsumo) then begin Devo informar oque? Devo Calcular a partilha e informar quais tags? Devo informar quais tags da partilha nos totais da XML? if (EhCNPJ) And (EhForadoEstado) And (EhConsumo) then begin Devo informar oque? Devo Calcular a partilha e informar quais tags? Devo informar quais tags da partilha nos totais da XML? if (EhCNPJ) And (EhForadoEstado) And (EhConsumo) And (EhIsento) then begin Devo informar oque? Devo Calcular a partilha e informar quais tags? Devo informar quais tags da partilha nos totais da XML? Acredito que essas respostas irão auxiliar não só a mim como outros, pois lamentavelmente estamos vivendo uns caos fiscal. A vontade que tenho, é como diz o Cantu, juntar os contadores e a nós, fazermos uma paralização geral na emissão da NF-e até que a SEFAZ ou os orgãos responsaveis possam trazer mais informações. Ou até mesmo criar um portal onde possamos digitar as informações e como resultado, o que deveriamos preencher na NF-e, pois é tanta confusão que nunca sabemos se quando a NF-e é enviada se a mesma está correta, tem gente que erra na alíquota da UF e a bagaça vai sem o menor pudor. Eu assinei o IOB para me certificar de algumas informações em relação a algumas UF, ufa mas nem isso ta ajudando muito. Creio que o SEFAZ deveria ter um mini portal só pra testarmos as validações e rejeições. A coisa ta tão feia que a até o sERPRO está desistindo do Emissor Gratuito. A quem puder me auxiliar eu agradeço de coração, estou sem dormir direito ja a duas semanas. Obrigado