Painel de líderes

Olá a todos, Aviso da SEFAZ-MG: Prezados contribuintes, Em função de manutenção preventiva no ambiente de processamento da NF-e, modelo 55, o ambiente de produção ficará indisponível no dia 05/11/2019 de 09:00h até as 13:00h. A SVC (Sefaz Virtual de Contingência) estará disponível durante este período.

É a ultima que morre . O suporte deles costumava ser bem atencioso, e como funfa no soft deles tem que funfar no teu Veja com eles que linguagem/comando estão usando nesse modelo eles tem um conjunto de dlls uma delas, chamada de ghdl32.dll que faz isso, com essa duas funções, a primeira configura e a segunda que faz o trabalho dependendo dos parâmetros que vc envia. Function GavetaConfigura (pulso,min : integer): integer; stdcall; external 'Ghdl32.dll'; Function DriverGaveta (p,f : integer) :integer; stdcall; external 'Ghdl32.dll'; verifica com o suporte que eles te ajudam ps. eles tem um monitor que funfa igual o MonitorPLUS, tu cria um arquivo chamado menno.gav e larga numa pasta configurada no monitor deles, mas o tempo de resposta as vezes é lento, daí bem na hora do troco fica complicado.

Ficamos muito contentes, quando achamos Cursos Sobre o ACBr, sendo promovidos na internet, pois isso reforça a confiança de uso dos componentes do Projeto ACBr Há algumas semanas, o curso NFC-e com Delphi e ACBr no Mobile, ministrado pelo nosso moderador @Régys Silveira e distribuído pela WK Technology, vem chamando a nossa atenção... E agora vem a boa notícia.... Estivemos com a WK Technology, na última Embarcadero Conference e chegamos à uma excelente parceria... No mês de Novembro, todas as novas assinaturas do SAC Anual também ganharão o curso: NFC-e com Delphi e ACBr no Mobile WK Technology Ou seja... Neste mês, assinando o SAC Anual, você ganhará um curso no valor de R$ 499,00. E é claro! Como de costume, você receberá todos os benefícios que o plano anual oferece, além de contribuir com o Projeto ACBr, aproveite o melhor de nossas soluções! O Kit completo do ACBr é indispensável. Possui Camisa Polo, Boné, Agenda, Caneta, caneca e de bônus um chaveiro. Os produtos são feitos para durar, assim como os fontes. Conheça nossa loja de produtos para fãs... Quer mais agilidade nas respostas? Use o Chat ACBr! Um grupo exclusivo com a equipe de consultoria e moderação do Projeto ACBr. Os membros do SAC Anual podem interagir, enviar snippets, prints por meio de mensagens instantâneas. Saiba mais... Benefícios de ser Usuário SAC ACBr Você não sabe o que está perdendo? O ACBr é gratuito e sempre será, mas nossas modalidades de suporte pago podem agregar facilidades que tornam o preço do serviço irrisório. Saiba mais... Lembre-se, a promoção acima só é válida para o plano Anual! Assine o SAC ACBr

http://aprendalazarus.com.br/2019/11/vem-ai-lazarus-streaming-day.html Dia 08 de Novembro de 2019 . Diversos vídeos sobre a IDE Lazarus .

Boa tarde! Fiz algumas adequações para atender a documentação da versão 1.2, segue abaixo as descrições das implementações: Unit Registro0030 e UACBrLCDPR os comentários com a licença estava perdido no corpo do código, foi colocado logo no inicio. Unit RegistroQ200 necessário criar o registro como uma LISTA Unit BlocoQ o "FRegistroQ200: TRegistroQ200" tornou-se "FRegistrosQ200: TRegistroQ200List" Unit LCDPRBlocos - Foi necessário adicionar alguns tipos a mais para atender a documentação 1.2 e também foi alterados as funções que devolvem o STR para os valores de acordo com a documentação 1.2 TCodVer adicionado o valor Versao011 (o manual da receita é 1.2 mais no exemplo o valor estava com 011!) TTipoExploracao adicionado o valor teOutro TTipoContraparte adicionado o valor tpcOutro TTipoLanc, foi removido tlDespesaNaoDedutivel e tlAdiantamentos As funcões abaixo foi necessário, ajustar os valores para atender a documentação 1.2: function IndFormaApurToStr(IndFormaApur : TFormaApur) : String; function TipoExploracaoToStr(TipoExploracao : TTipoExploracao) : String; function TipoContraparteToStr(TipoContraparte : TTipoContraparte) : String; function TipoDocToStr(TipoDoc : TTipoDoc) : String; function TipoLancToStr(TipoLanc : TTipoLanc) : String; A constante "crFinal = 'CRLF'" foi atribuido o valor '', acredito que houve um equivoco porque no manual se refere aos caracteres "CR" (Carriage Return) e "LF" (Line Feed) correspondentes a "retorno do carro" e "salto de linha", respectivamente (CR e LF: caracteres 13 e 10, respectivamente, da Tabela ASCII) e criaram como uma STRING. Olavo. LCDPRBlocos.pas UACBrLCDPR.pas BlocoQ.pas RegistroQ200.pas Registro0030.pas

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 03 11 2019. Dica 2445. Vamos chamar os metodos inicializar e finalizar Boleto da dll acbr lib. DICAS 2445 - WINDEV WEBDEV MOBILE - ACBR 145 - ACBR LIB - Boleto_Inicializar - Boleto_Finalizar Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2445-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_Inicializar.html https://acbr.sourceforge.io/ACBrLib/Boleto_Finalizar.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ AcbrLib - Integrando com Windev ======================== PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),"") IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca " IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado " IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI " RESULT texto END ======================== PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca" RESULT texto END ======================== // BTN_INI // https://acbr.sourceforge.io/ACBrLib/Boleto_Inicializar.html // https://acbr.sourceforge.io/ACBrLib/Boleto_Finalizar.html bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA="Dll Inicializado com sucesso" END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ========================

A SEFAZ-MT, especificamente, informou que o DANFe deve ser uma representação fiel do que está no XML.

Olá Gilberto, Fique atento também ao tópico abaixo. As melhorias mencionadas ali logo vão chegar ao Monitor ajudando seus clientes a economizarem tinta e papel. O Júnior vai atualizar o tópico assim que as implementações forem feitas no ACBrMonitor.

Esta modificações nos enums já se encontram no SVN.

tanto frete quanto desconto podem ser colocados num item apenas, não há rejeição com relação a isso, apenas ao somatório que tem que fechar com o total. Isso é bom pois hoje em dia praticamente todas as empresas importam o XML na entrada de estoque e o custo é calculado em cima disso, então o desconto e frete devem refletir o real.

Obrigado @Gr@c@, pelas palavras. Sabe não querer ter um trabalho danado e depois descobrir que fez a toa, pois é. Perguntei ao contador do cliente e ele nem sabia o que eu estava falando. Acho que não vai ter jeito, vou aguardar se mais alguém fala algo a respeito.

Quando vc consulta verifica se nos campo XMLOriginal ou Assinado vem os dados se sim, vc pega o xml contido nesses campos e recarrega o componente com a consulta por xml assim ele vai recriar ele novamente

Quanto a descontos em alguns itens e outros não, já é uma prática comum. O importante é a soma dos descontos ser igual ao total do valor de desconto da NFe. Já o frete, nunca tive uma situação dessa de incidir frete somente em alguns itens, seria o caso de teste em homologação. Mas creio que siga a mesma regra dos descontos. A soma dos fretes dos itens ser igual ao total do frete da NFe.

Visulizar Arquivo ACBrBlocoXSign Projeto utilitário para envio do Bloco X baseado no ACBrSATSign. Esse projeto tem vários recursos úteis para trabalho e debug ao trabalhar com os arquivos do Bloco X do PAF-ECF, como validação, transmissão e consulta aos diversos métodos WebServices. Autor EMBarbosa Enviado 04-11-2019 Categoria Utilitários - PRO

Obrigado pelas ponderações, vou fazer uma consulta na SEFAZ questionando sobre a fiscalização e se há algum impeditivo legal e retorno aqui.

Olá! Arquivo em anexo. ACBrDFeWinCrypt.pas

Adicionei no Calendário

Apenas para deixar registrado aqui, como estou aprendendo a trabalhar com o Lazarus, as soluções vão aparecendo aos poucos, consegui resolver isso apenas configurando o componente, mudando a propriedade Sorted, a configuração ficou assim: AutoComplete := True; ReadOnly := True; ScrollListDataSet := True; Sorted := True; Style := csDropDownList;

Bom dia amigo José ! De fato esse método vem sendo muito utilizado mesmo, principalmente depois que a sefaz reduziu o tempo do cancelamento convencional para 30min. Obrigado pela atenção.Abraço. Bom dia amigo Daniel! Obrigado pela atenção nessão questão. Abraço.

A flag PKCS12_ALLOW_OVERWRITE_KEY, segundo a documentação do wincrypt.h, diz: Ou seja, o arquivo com a chave privada armazenada em cache é sempre sobrescrito para o mesmo PFX. Em meus testes, criando o componente múltiplas vezes em runtime, com a alteração sugerida abaixo, o arquivo com a chave privada é criado no diretório de cache dos certificados, mas apenas uma vez. Essa alteração resolve o problema de quem precisa criar o componente em runtime e importar o PFX a cada ciclo de execução.

Olá Olavo, Muito obrigado pela contribuição. Fiz a implementação baseada nela. Mas fiz algumas alterações. Por exemplo, eu removi definitivamente a constante crlf visto que ela não é necessária. Também em outros arquivos eu notei que o aviso da licença caiu fora do lugar e arrumei. Outra alteração é que a função somenteNumeros já existia na unit ACBrUtil com o nome OnlyNumber. O ideal é modificar o código desse componente para se adequar as classes do ACBrTXT (a exemplo do SPEDFiscal). Mas ainda não tivemos voluntários para fazer esse trabalho. De qualquer maneira, subi as alterações para o SVN na Revisão 18112 18114. Pelo que vi está tudo certo. Queira por favor atualizar, testar e reportar qualquer problema. Mais uma vez obrigado. Deixa eu só mencionar o @Willian Hübner caso ele queira olhar também de perto essas modificações.

Muito obrigado pela ajuda Daniel! Abraço

Boa Tarde, Muitíssimo obrigado.

Observamos algumas ocorrências de usuários do SAT NITERE aqui no forum sobre a exibição de uma tela de mensagem com "Tempo=0,4940000000838". Aparentemente esta mensagem é exibida pela DLL do sat em questão, para remover a exibição desta tela copie a dll do aparelho e o arquivo SYGMASAT.INI para dentro de um mesmo diretório, no arquivo . ini existe um parâmetro "MostraTempo=1", altere para "MostraTempo=0" e reinicie a aplicação. Tela exibida: Exemplo do arquivo SYGMASAT.INI com a alteração. [Sistema] Porta=COM5 BAUD=115200 MostraTempo=0 [Flags] NumPkt=2291

https://www.sacfiscal.com.br/semanafiscal/

ATUALIZAÇÃO: As informações abaixo podem ser desconsideradas. Veja o próximo post que mostra que o ACBr é compatível com o OpenSSL 1.1.x. Olá, Como sabemos, diversos componentes do ACBr utilizam a lib OpenSSL para comunicação segura. No Linux utilizamos exclusivamente a lib OpenSSL, até o momento o ACBr é compatível apenas com versões 1.0.v da OpenSSL mas algumas distros do Linux instalam por padrão, a versão 1.1.v, neste caso é necessário baixar e instar a versão anterior para funcionar com o ACBr... Segue abaixo o procedimento para atualização: 1- Para saber qual versão OpenSSl está instalada no Linux, utilize o comando: # openssl version Se estiver utilizando a versão 1_1_v, precisará baixar e instalar a versão 1_0_v. 2- No nosso exemplo estamos utilizamos a distro OpenSuse Leap 15.1, que por padrão é instalada com a versão 1_1_v da OpenSSL. Utilizando a ferramenta de Instalação de Pacotes YaST do OpenSuse, selecionamos a opção: "Software" e "Gerenciamento de Software". Pesquisamos por: "OpenSSL" - Selecione para instalar a versão OpenSSL-1_0_0 que esta disponível no seu repositório (Note que é a versão 1.0.2p), será informado que precisa desinstalar algumas dependências da versão atual. Selecione a primeira opção e dê OK. - Selecione para instalar também a LibOpenSSL-1_0_0. (caso essa dependência não seja adicionada automaticamente no passo anterior). Click em Aceitar para Baixar e Instalar... 3- Confira os pacotes da versão OpenSSL 1_0_0 que precisam estar instalados: obs: Caso esteja obtendo o erro abaixo na tentativa de comunicação com a SEFAZ, significa que está faltando alguma dependência da OpenSSL-1_0_0 para ser instalada, basta instalar todas as dependências conforme está no passo 3.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Compreendo... obrigado pelo relato... Consumir DLLs é um pouco chato... pois envolve ponteiro,e coisa do gênero... (o que é relativamente comum em C) as DLLs do ACBrLib, não são diferentes de outras DLLs existentes... então talvez seja melhor primeiro pesquisar, como consumir DLLs em C++ Talvez o Link abaixo possa ajudar: https://www.codeguru.com/cpp/cpp/cpp_mfc/tutorials/article.php/c9855/DLL-Tutorial-For-Beginners.htm

Postamos com diferença de alguns minutos e eu realmente não apesar de ter procurado e não achado, então peço desculpas por isso, vou atualizar e colocar para funcionar. Obrigado por avisar.

Precisa alterar a configuração: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSVCRS; E na geração do XML informar o tipo de emissão: Ide.tpEmis := teSVCRS;

boa noite Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 02 11 2019. Dica 2444. Modificando Metodo Inicializar e Finalizar Para Comecar Boletos. Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2444-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_Inicializar.html https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html ======================== PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),"") IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca " IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado " IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI " RESULT texto END ======================== PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca" RESULT texto END ======================== // btn NFE carregar xml bRETORNO is boolean=ACBR_INICIALIZAR("ACBrNFe32.DLL","NFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML) END ACBR_FINALIZAR("ACBrNFe32.DLL","NFE_Finalizar") ========================

Boa noite, Lembre-se que o CT-e primeiro é enviado para a SEFAZ-Autorizadora e é esta que processa e autoriza ou não. Caso venha ser autorizado, a SEFAZ-Autorizadora compartilha o CT-e com o Ambiente Nacional. Mas esse compartilhamento pode demorar minutos ou até horas. O meu conselho é, primeiro consultar no site da SEFAZ-Autorizadora.

Para quem desenvolve no Linux e quer adicionar Cross Compiling, veja esse artigo do Daniel em nossa base de conhecimentos:

Era isso mesmo Italo. Limpei lá , estava com 100% utilizado. Obrigado Quanto a dúvida, citada aqui o problema foi resolvido. Tinhamos salvado no banco com numeração errada após um erro de envio que não era tratado.

Isso pode acontecer porque em algum momento surge uma mensagem dizendo que o ACBrIntegrador já foi carregado e se você deseja carregá-lo novamente. Daí você clica em não e então o pacote do ACBrIntegrador é desativado. Se for isso, sempre clique em sim. Esse é um heisenbug que ainda não detectamos... infelizmente...

A Academia de Automação Comercial & SPED é composta de 4 níveis de conteúdo sobre as regras de negócio e modelagem de dados para um sistema de automação comercial com SPED. Nesta jornada passamos pelos conceitos e processos que envolvem a automação comercial, mostramos dentro do modelo de dados como absorver as regras, assim como extrair os dados para atender ao SPED. Nível 1 - Estoque & Suprimentos: www.sacfiscal.com.br/automacaonivel1 Nível 2 - Vendas & Comercial: www.sacfiscal.com.br/automacaonivel2 Nível 3 - Finanças: www.sacfiscal.com.br/automacaonivel3 Nível 4 - Controle da Produção: Em breve

O que o Daniel disse acima se aplica: Mas verifique o seguinte tópico se te ajuda:

Boa tarde, Consegui resolver. Ao invés de carregar o XML (método carregarXML) e chamar o método de "ImprimirPDF", tem que ser chamado diretamente o método "imprimirEventoPDF", com dois parâmetros: caminho do arquivo da NFe e caminho do arquivo do Evento de cancelamento. Exemplo: imprimirEventoPDF(Patch_NFe, Patch_Evento);

muito obrigado, tava com mesmo problema, fazia alguns dias

Oi, Juliomar, bom dia ! Vou verificar, obrigada... A minha estranheza é que isso começou há pouco.... até alguns dias atrás estava normalzão...

Se o problema for apenas a Versão do arquivo e Versão do Lote, isso é configurável no arquivo Dados do Cedente na seção [Banco] https://acbr.sourceforge.io/ACBrMonitor/ModeloConfiguracaoArquivoINI.html

RESOLVIDO: Vendo outros post, vi um onde falava que para CSOSN900 somente devemos informar o valor do VBCFCPST, PFCPST e VFCPST. Como o cliente mala pediu para informar o FCP, achei que o correto seria informar estes valores. Fica meio confuso, pois informo no InfadProd os valores do FCP, mas não posso informar no detalhe de imposto do produto e nem totalizar. Vai entender...

Boa tarde Alessandro O intuito dos botões no ACBrMonitor seriam mais para efeito de testes, o ideal é ter toda a rotina via métodos... O Cancelamento por substituição é apenas um evento da NFe, não seria muito viável adicionar todos em tela, mas este evento por ser bastante utilizado creio que possamos adicionar sim...

Boa tarde João, Por favor atualize os fontes. Comentei as linhas referente a montagem da tag com os namespace de todos os métodos. Testa o Envio, EnvioSincrono, Gerar, as Consultas e o Cancelar. Desde já muito obrigado pela colaboração.

Não faziam referência. Essa unit foi adicionada recentemente. Ela fica na seguinte pasta "\ACBr\Fontes\Terceiros\FastStringReplace\StrUtilsEx.pas". Por favor, queira verificar se seu código está totalmente atualizado, incluindo pacotes. Após isso, se você usa Lazarus, é necessário fazer uma nova recompilação da IDE.

Vou adicionar na minha lista de afazeres. Você tem um XML para que eu consiga reproduzir o problema?

Vários SATs estão hoje, em horário de verão... mesmo quando o mesmo foi extinto por decreto Presidencial... Acreditamos que a origem do Problema está no site NTP Brasil... onde a grande maioria dos aparelhos SAT consulta, para obter o horário... https://ntp.br NTP.br parece que já corrigiu o horário... Para quem está com problemas no SAT, provavelmente basta religar o equipamento

Boa tarde Dércio, Não entendi o motivo de usar o GravarXML. Supondo que após o envio o XML da nota ocorreu um erro de timeout por exemplo, logo não foi possível obter o retorno da SEFAZ. Vou tentar resumir de como proceder: ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.LoadFromFile(NomeXML); ACBrNFe.Consultar; if DMDFe.NFe.WebServices.Consulta.cStat = 100 then begin ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.LoadFromFile(NomeXML); ACBrNFe.Imprimir; end else begin // Tratar a rejeição end; Lembre-se que o componente esta configurado para salvar os XML das notas. Configuracoes.Arquivos.Salvar := True; Ao executar o método Consultar se o retorno for 100, ou seja, Autorizado, o componente verifica se o XML da nota esta carregado, se sim, atualiza e salva o XML (depende da configuração) deixando-o completo.