Paulo Tenório

O Lazarus, assim como o Delphi é uma IDE para Pascal, os exemplos podem ser migrados de um para o outro.

Altere a finalização do comando. Experimente: StringdeComando + #13#10 + '.' + #13#10

De todas não, a disponibilidade é dos últimos 90 dias. Consegue consultar os eventos e documentos dos últimos 3 meses.

A empresa onde trabalho é licenciada Delphi desde a versão 6. Hoje usamos a 7 para alguns projetos antigos e a Seattle para os novos. Temos assinatura anual, que nos mantém sempre atualizados. Voltando ao assunto, Respeito, admiro e leio diariamente e atentamente a evolução do projeto. Utilizo diversos componentes nas minhas tarefas. Alguns simplesmente uso, outros faço questão de estudar e entender o funcionamento. Nunca tive problema de relacionamento ou dúvida sem solução, por isso admiro, respeito e recomendo o grupo. Dei minha singela opinião com comentários, na intenção de ser solidário com os companheiros (talvez aí resida meu erro) que alegam falhas intermitentes que ocorrem na versão Plus e, voltando para versões antigas deixam de existir. Tudo caminhava muito bem, eis que surge a frase: "Você pode criar o seu próprio projeto do Monitor... vá em frente e faça um Fork.. Coragem... se você é tão confiante das vantagens, outros usuários deverão ajudá-lo nessa empreitada...". Eu aceitaria tranquilamente essa expressão de qualquer usuário mas achei grosseira vindo de um fundador, que deveria zelar pela agregação e não pela dissidência dentro do grupo. Mais adiante ele escreve, destacando em maiúscula a sua indignação com a proposta de ter as duas versões, como alguns componentes ainda têm: "Mas se depender de mim... então a resposta é NÃO... o MonitorPLUS não será migrado para Delphi...". Bato palmas para o fechamento, quisera eu que fossem as únicas palavras do comentário que dirigiu à mim. Nesse momento ele agiu como um fundador e orgulhoso integrante dos desenvolvedores do projeto: "Hoje temos o MonitorPLUS com suporte a SAT e NFe/NFCe no Linux... tudo isso graças ao Lazarus..." Visitarei mais o fórum do Lazarus. Quem sabe me torno um ferrenho defensor dessa IDE, a empresa aqui vai adorar a economia com licenciamento. Em tempo, EMBarbosa, o próprio tópico é o fato. Quando ocorre uma falha e volta-se para uma versão antiga, em Delphi, a falha não ocorre mais. É certo que na versão antiga o foco era somente notas fiscais e hoje é essa maravilha multifuncional. O aplicativo cresceu e, acompanho desde a versão BETA os vários ajustes que foram necessários. Sinto falta de abrir os fontes na minha IDE e sair vasculhando para encontrar a solução de algo inesperado. O fato de ser intermitente na versão Plus me leva a desconfiar que o Delphi contorna melhor essa péssima qualidade de nossa internet. Obrigado mais uma vez ao grupo. Daniel e EMBarbosa, não há nada de pessoal na discussão, no máximo uma interpretação errada ou uma colocação indevida. Nosso dia é estressante demais para desperdiça-lo alimentando desafetos, desculpem-me por qualquer coisa.

Significado de Fórum s.m. Antigo. História. Local público, foro. Lugar onde está situado o poder judiciário e que abriga os tribunais. Assembleia ou reunião cujo propósito é discutir um tema. P.ext. Internet. Local eletrônico específico, ou site, em que várias pessoas debatem um determinado tema. pl. foruns. (Etm. do latim: forum) (http://www.dicio.com.br/forum/) Senhor Daniel, baseado no significado da palavra fórum, estamos aqui para discutir o tema referente à falhas no monitor quando submetido à situação de internet instável ou de baixa qualidade. As opiniões e dúvidas colocadas neste fórum são valiosíssimas e merecem ser incentivadas e respeitadas pela contribuição que já deram e dão até hoje ao projeto. Concordo que, em alguns casos são descabidas ou sem nexo mas podem ser ignoradas sem comentários maldosos ou estressados que estimulem dissidências ou desentendimentos. Não quero nem vou reinventar a roda, prefiro participar do aperfeiçoamento dela. Voltando ao tema principal deste post, as versões anteriores, enquanto compiladas no Delphi eram mais estáveis sim, é fato comprovado por diversos posts que já pude ler por aqui, uma rápida pesquisa vai lhe mostrar isso, ponto. Se a culpa é do Lazarus, do Delphi, dos Webservices ou do código, é com debates como esse que poderemos encontrar uma forma de sanar o problema e, caso o culpado seja o Lazarus, espero que a decisão final não dependa somente de você, principalmente porque em muitos lugares no Brasil a internet é muito ruim. De nada vai adiantar um aplicativo tão abrangente e flexível se ele funcionar bem somente em Linux ou com banda larga de primeiro mundo.

Cuidado com os valores do NSU que possa ter armazenado em banco de dados. O NSU era único à nível nacional, agora é único à nível de CNPJ, ou seja, os números que tinha antes nada têm a ver com os que receberá agora. Eu utilizava o NSU como chave primária e controlava todas as filiais da empresa na mesma tabela. Quando fiz a migração foi um caos, precisei alterar a chave primária da tabela e começar todas as filiais com NSU 0. Para piorar, só dá para consultar alguns meses para trás, ou seja, o histórico ficou meio bagunçado. Boa sorte.

Sobre o assunto, eu só tenho uma coisa à dizer: Pode até ser psicológico mas, enquanto o Monitor era compilado em Delphi, era mais rápido, parecia consumir menos recursos da máquina, podíamos a qualquer momento compilar, abrir os fontes, ajudar no desenvolvimento, eu me sentia integrado ao projeto. Não que, com o Lazarus, isso seja impossível, basta instalá-lo... Só que, embora seja irmão do Delphi, tem diferenças e adaptações a fazer até chegar ao ponto de desenvolver alguma coisa nele. Sinceramente, se é para perder tempo aprendendo e descobrindo coisas de alguma IDE, prefiro me atualizar com o Seattle. Quem sabe, um dia, o monitor volte ao Delphi... Até lá, vamos convivendo com esses incômodos. Apesar de pequenos problemas como esse de conexão, ele funciona. Não sei o que seria de mim sem os componentes ACBr e sem o Projeto ACBrMonitor/ACBrMonitorPlus.

Eu utilizo esse recurso de macro-substituição e está funcionando normalmente. Qual versão do Plus você usa? Nas primeiras versões realmente não funcionava.

Essa tabela tem falha de definição, o código CEST pode apresentar zeros à esquerda, a tabela do link é do tipo Inteiro e vai remover esse algarismo, armazenando um código inválido. Melhor pegar daqui: http://www.projetoacbr.com.br/forum/topic/25577-campo-cest-i05c/#comment-166286

Boa tarde, A revisão feita pelo Ítalo sob o número 10348 está com um problema no meu Delphi7, não sei se é só nesta versão ou em todas: // Se a nota foi enviada para o SVC a consulta tem que ser realizada no SVC e // não na SEFAZ-Autorizadora case FPConfiguracoesNFe.Geral.FormaEmissao of teSVCAN: FcUF := 'SVC-AN'; teSVCRS: FcUF := 'SVC-RS'; end; [Error] ACBrNFeWebServices.pas(1701): Incompatible types: 'Integer' and 'String' [Error] ACBrNFeWebServices.pas(1702): Incompatible types: 'Integer' and 'String'

Unit blcksock

Walter, Tente algo do tipo: fSocket.SendString('NFe.FileExists(C:\ACBrNFeMonitor\nfe\32151027550193001344550010000037591000037591-nfe.xml)' + #13 + #10 + '.' + #13 + #10); IF (Trim(fSocket.RecvTerminated(5000, #3)) = 'OK:') THEN BEGIN IF SaveDialog1.Execute THEN BEGIN fSocket.SendString('NFe.LoadfromFile(C:\ACBrNFeMonitor\nfe\32151027550193001344550010000037591000037591-nfe.xml,3) + #13 + #10 + '.' + #13 + #10); richedit1.Text := fSocket.RecvTerminated(5000, #3); richedit1.Lines.SaveToFile(SaveDialog1.FileName); END; END ELSE BEGIN ShowMessage('ARQUIVO NÃO LOCALIZADO'); END;

Amigos, Funcionou tudo certinho no envio e no recebimento de arquivos de texto. Agora preciso tentar enviar ou receber executáveis, pdfs, etc. Nos testes que fiz os arquivos chegaram mas estavam corrompidos. Alguém conhece alguma forma de contornar isso ? Muito obrigado.

Obrigado amigos. Testarei hoje à tarde e volto para dar o depoimento sobre o assunto.

Walter, chamei de pegadinha porque normalmente nas comunicações via TCP/IP utiliza-se apenas #13 + #10 ou somente #13. Nos monitores aqui do projeto, se você não finalizar com #13 + #10 + '.' + #13 + #10 o comando não é executado.

Sim Daniel, já testei a comunicação TCP/IP e sei que funciona. Já caí na pegadinha do #13 + #10 + '.' + #13 + #10 e agora está redondinho na troca de solicitações/respostas. Existem várias maneiras diferentes de trocar arquivos via TCP/IP mas todas que achei envolvem deixar rodando uma outra aplicação servidora e o que eu quero é deixar apenas o ACBRMonitor. Minha esperança é que exista alguma forma de enviar o XML não assinado de uma nota para o monitor em TCP/IP. Em seguida enviarei os comandos de validar, assinar e enviar esse XML à SEFAZ. Quando o XML estiver devidamente autorizado com protocolo, recibo, etc, preciso que o monitor o devolva para atualizar o original que ficou lá na filial solicitante.

Boa tarde amigos, Utilizo o monitor centralizado na matriz da empresa utilizando apenas um certificado A3 para todas as operações. Simultaneamente todos os usuários geram, validam, assinam e transmitem as notas normalmente, inclusive as filiais remotas que logam numa VPN e participam da movimentação de notas com o monitor através de arquivos TXT. Um novo projeto de rede irá acabar com a VPN e as filiais remotas só se comunicarão com o servidor através de um nome fixo (ddns). O acesso ao banco de dados já está implementado, o e-mail da intranet também. Agora chegou a vez do monitor e já comecei a fazer as alterações nos sistemas para enviar solicitações via TCP/IP, o único problema é que cada usuário cria o XML na própria máquina, num segundo momento ele copia o XML para o servidor realizar as operações que exigem certificado. Os usuários internos não terão dificuldades, continuarão copiando seus arquivos para a pasta compartilhada no servidor, o problema será com as filiais que não terão mais uma pasta mapeada para enviar seus arquivos. Existe alguma maneira de enviar via TCP/IP o xml para o monitor assinar e submeter à SEFAZ ? Depois de processar e receber a autorização da SEFAZ, tem alguma forma ou comando que permita ao monitor devolver esse XML via TCP/IP também? Obrigado,

Perfeito!!!. Resolvido

Após a atualização da revisão 10230, ao visualizar ou imprimir o DANFE, é apresentada a mensagem: "Error reading frlDANFeRLPaisagem.ExplicitWidth: Property ExplicitWidth does not exist." Não posso afirmar que foi alguma alteração no código do DANFE pois na sequência atualizei também o FortesReport para a revisão 262. Alguém pode me ajudar a solucionar o problema?

Só se confirma a nota se, na totalidade, tudo ocorreu como descrito. Se confirmar a nota você aceita, não existe confirmação parcial. Se os valores estão errados, você pede ao fornecedor para cancelar a nota e emitir uma nova com as correções. Não precisa devolver nada, fique com a mercadoria e cobre a emissão da nota correta. A única chance de consertar um erro de emissão de nota com CTE vai ser contar com a compreensão e confiança da transportadora e a boa vontade do fornecedor. Você vai ficar com a mercadoria sem que seja confirmado o recebimento ou pedir que a transportadora não devolva à origem, apenas guarde no depósito local até que os novos documentos sejam emitidos pelo fornecedor. Dependendo dos motivos e da frequência com que isso vem ocorrendo, sugiro que busque um outro fornecedor.

Acredito que, do ponto de vista fiscal, a nota transmitida e posteriormente cancelada nunca deixará de ter sido autorizada. O que ocorreu com ela foi um posterior cancelamento que nada mais é do que um evento, assim como a ciência, confirmação, correção, etc. Não posso afirmar com absoluta certeza mas "acho" que, na consulta com o comando DFE, cada protocolo de cada evento de cada nota será cronologicamente recebido, permitindo armazenar e controlar a situação da mesma pelo último evento relacionado à ela, no caso do cancelamento, o evento 110111 será sempre o mais recente pois qualquer outro será rejeitado para uma nota que já tenha esse evento registrado. Como tive que abandonar o comando de consultar destinadas por causa das mudanças exigidas pela SEFAZ, estou implementando esse novo controle e parece ser o caminho mais correto. Eu armazeno na tabela de eventos um registro "provisório" de cada evento enviado pelo sistema para o webservice e, após consultar com o comando DFE, vou armazenando em outro campo a confirmação e data em que cada um deles foi confirmado oficialmente. Está dando certo, o único evento que não tem me retornado confirmação é o de ciência, não sei se por falha no processamento do componente ou por não existir essa confirmação mesmo.

O inconveniente de definir como pasta de armazenamento das notas a mesma que é de envio/recebimento dos webservices é que ficará muito lixo nela, não apenas os XMLs das notas autorizadas. O efeito colateral deve ter ocorrido após alguma nova interpretação das propriedades do componente ACBRNFe. no arquivo .ini temos: [ARQUIVOS] -> PathNFe (antes era onde o monitor guardava as notas após serem acatadas e processadas, recebendo o protocolo e autorização). e [GERAL] -> PathSalvar (antes era uma pasta para troca de requisições e respostas, onde ficava toda a conversa, inclusive os documentos autorizados ou não).

Pode ser impressão errada minha mas, o Plus é compilado em Lazarus... Gostaria de ver uma versão compilada em Delphi para tirar essa pulga de trás da minha orelha. O desempenho é bem diferente entre o Monitor antigo e o Plus.

Para quem tem pressa, sugiro um downgrade de versão até que nossos amigos encontrem com calma a solução. Nós programadores sabemos bem o que acontece quando a pressão aumenta, por isso, voltei para a versão 1.1.9.0.5 e estou feliz da vida. Baixei a 0.1.9.10 mas nem instalei porque comentaram que o problema persiste. Infelizmente nunca instalei o Lazarus para poder ajudar a encontrar onde se encontra a falha, então, aguardarei pacientemente. Admiro demais a competência e a responsabilidade com que a equipe trata o cada problema de desenvolvimento.

A versão ACBrMonitorPLUS-0.1.9.08 não está gravando o XML na pasta de finalizadas. Voltei para a ACBrMonitorPLUS-0.1.9.05 e tudo está normal. Deve ter sido uma alteração referente à gravação em pastas, ocorrida nesse período.