Painel de líderes

Olá, Para uso com ACBrMonitorPLUS é possível configurar as novas propriedades na tela abaixo:

Foi publicado no DOE-MG a resolução 5.313, a qual define novos prazos para obrigatoriedade da NFCe na UF. Em resumo as empresas com faturamento inferior a R$4.500.000,00 foram divididas em grupos de faturamento menor, onde: Entre R$ 1.000.000,00 e R$ 4.500.000,00 estarão obrigadas em 01/02/2020 Entre R$ 500.000,00 e R$ 1.000.000,00 estarão obrigadas em 01/06/2020 Inferior a R$ 500.000,00 estarão obrigadas em 01/09/2020* *Microempresas até R$ 120.000,00 estão desobrigadas Outros detalhes quanto ao inicio da obrigatoriedade devido a mudança de faturamento § 7º - Fica dispensado da obrigatoriedade de uso da NFC-e o contribuinte que estiver enquadrado como microempresa com receita bruta anual igual ou inferior a R$ 120.000,00 (cento e vinte mil reais). § 8º - O estabelecimento enquadrado como microempresa que ultrapassar o valor previsto no § 7º ficará obrigado a emitir a NFC-e no prazo de até sessenta dias contados da data em que ultrapassar o referido valor. § 9º - Os contribuintes em início de atividades ficam obrigados à emissão da NFC-e quando auferirem receita bruta anual acima de R$ 120.000,00 (cento e vinte mil reais), observado o disposto no § 8º.”. Além da mudança de prazos, também houve alteração da permissão de uso dos ECFs ja ativos, que passa de 9 para 12 meses após o inicio da obrigatoriedade da NFCe. http://www.fazenda.mg.gov.br/empresas/legislacao_tributaria/r7esolucoes/2019/rr5313_2019.htm RESOLUÇÃO Nº 5.313 DE 1º DE NOVEMBRO DE 2019 (MG de 02/11/2019)

Olá Edmar, Acho que ninguém conseguiu testar antes. Estou adicionando na minha lista de afazeres.

consegui resolver agora... usei essa função... Private Const CP_UTF8 As Long = 65001 ' UTF-8 Code Page 'Sys call to convert multiple byte chars to a char Private Declare Function MultiByteToWideChar Lib "KERNEL32" ( _ ByVal CodePage As Long, _ ByVal dwFlags As Long, _ ByVal lpMultiByteStr As Long, _ ByVal cchMultiByte As Long, _ ByVal lpWideCharStr As Long, _ ByVal cchWideChar As Long) As Long Private Function DecodeURI(ByVal EncodedURI As String) As String Dim bANSI() As Byte Dim bUTF8() As Byte Dim lIndex As Long Dim lUTFIndex As Long If Len(EncodedURI) = 0 Then Exit Function End If EncodedURI = Replace$(EncodedURI, "+", " ") ' In case encoding isn't used. bANSI = StrConv(EncodedURI, vbFromUnicode) ' Convert from unicode text to ANSI values ReDim bUTF8(UBound(bANSI)) ' Declare dynamic array, get length For lIndex = 0 To UBound(bANSI) ' from 0 to length of ANSI If bANSI(lIndex) = &H25 Then ' If we have ASCII 37, %, then bUTF8(lUTFIndex) = Val("&H" & Mid$(EncodedURI, lIndex + 2, 2)) ' convert hex to ANSI lIndex = lIndex + 2 ' this character was encoded into two bytes Else bUTF8(lUTFIndex) = bANSI(lIndex) ' otherwise don't need to do anything special End If lUTFIndex = lUTFIndex + 1 ' advance utf index Next DecodeURI = FromUTF8(bUTF8, lUTFIndex) ' convert to string End Function Private Function FromUTF8(ByRef UTF8() As Byte, ByVal Length As Long) As String Dim lDataLength As Long lDataLength = MultiByteToWideChar(CP_UTF8, 0, VarPtr(UTF8(0)), Length, 0, 0) ' Get the length of the data. FromUTF8 = String$(lDataLength, 0) ' Create array big enough MultiByteToWideChar CP_UTF8, 0, VarPtr(UTF8(0)), _ Length, StrPtr(FromUTF8), lDataLength ' End Function

Obrigado @Daniel Port , eu acabei fazendo a rotina e ao testar em homologação verifiquei que não há rejeição, se colocar o frete em apenas alguns itens

Vdd Né... Como diria um amigo "USE A FORÇA, LEIA OS FONTES", kkkkkkkk Obrigado pela informação. Problema resolvido.

BOM dia Mistério funcionou assim BOLETO.GerarRemessa("c:\remessa\",00007) ontem tentei várias vezes e não dava certo... vai entender talvez por ter desligado o PC a noite Obrigado

Bom dia, entendi sim. É que como eu desenvolvo para uma empresa, só posso compartilhar o código se me autorizarem. Por minha parte eu compartilharia sem problemas. E no caso, se chegarmos a desenvolver, será apenas a versão do Fast, pois não utilizamos o Fortes aqui. Quando decidirem algo aqui, aviso vocês. Obrigado por enquanto.

Bom dia Marco, Muito obrigado pela contribuição, ainda hoje estarei enviando para o repositório.

Bom dia Leonardo, Muito obrigado pela contribuição, ainda hoje estarei enviando para o repositório.

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 05 11 2019. Dica 2450. Alterando e Criando uma procedure VER_RETORNO_MAIOR_256 para facilitar o desenvolvimento. DICAS 2450 - WINDEV WEBDEV MOBILE - ACBR 147 - ACBR LIB - Criando VER_RETORNO_MAIOR_256 Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2450-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_UltimoRetorno.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ * AcbrLib - Integrando com Windev https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2450-windev-webdev-mobile-acbr.html ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,GsResposta)) ======================== PROCEDURE ACBR_NFE_OBTERXML(nPosicao_nfe is int=0) gsResposta is string on 256 sGsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ObterXml",nPosicao_nfe,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,gsResposta)) ELSE texto is string="Erro Retorno - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" IF gnretorno_acbr=-5 THEN texto+=" Indica que o arquivo passado não existe." IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP." IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar." IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada." texto+=ACBR_ULTIMO_RETORNO() RESULT texto END ========================

Boa tarde, foi realizado o ajuste, será disponibilizado em uma nova versão ainda no início dessa semana.

No dia 22 de outubro de 2019, ocorreu mais uma edição da Embarcadero Conference. Nessa edição, o colega Wagner Landgraf, da TMS Software, apresentou uma interessante palestra, de como montar o seu próprio Servidor de NFe/NFCe, em Nuvem, usando API REST, e é claro, os componentes do ACBr.. A partir da ideia dessa palestra, ele montou um curso completo, e está disponibilizando o mesmo gratuitamente, com os Fontes do projeto... Clique no botão abaixo, e se inscreva já no curso... Quero me inscrever no curso

Boa tarde Pessoal. Apenas repassando uma informação relacionada ao PAF-ECF / NFC-e: Foi publicado no dia 23/10 a noticia abaixo sobre NFC-e no portal da Secretaria de Estado da Fazenda de Santa Catarina (SEF-SC) Na última quarta-feira, 23/10, o secretário de Estado da Fazenda (SEF/SC), Paulo Eli, recebeu representantes da Associação Comercial e Industrial de Florianópolis (ACIF), da Associação Brasileira de Bares e Restaurantes de Santa Catarina (Abrasel) e da Câmara de Dirigentes Lojistas (CDL) de Florianópolis. O objetivo do encontro foi criar um grupo de trabalho com as entidades empresariais para a implantação da Nota Fiscal de Consumidor Eletrônica (NFC-e) em Santa Catarina. "Assumimos este compromisso, junto ao governador Carlos Moisés, de modernizar a máquina pública e Santa Catarina. Já iniciamos o processo e, até o próximo ano, iremos adotar a NFE-c", afirmou Eli. Empresário e membro do Conselho de Administração Nacional da Abrasel, Célio Salles reforçou que a medida é recebida com muita expectativa pelo setor varejista catarinense. "Há muito tempo estávamos aguardando esta notícia. Santa Catarina é um estado pioneiro e precisa atualizar seu sistema de acordo com o modelo nacional, que traz mais segurança e agilidade para o comerciante e o contribuinte", disse. Fonte: SEF/SC. http://www.sef.sc.gov.br/midia/noticia/2406

Bom dia, Quando exibido uma pré visualização de um boleto pelo FastReport e por lá exportado para um arquivo PDF, as propriedades do arquivo gerado ficam com as informações preenchidas inicialmente no componente de exportação (Autor: "FastReport", Assunto: "Exportação DANFE para PDF"). Vi que essas informações são alteradas apenas quando invocado o método "TACBrBoletoFCFR.GerarPDF". Duplicando o trecho que altera essas propriedades para a opção "fiNenhum" do case no método "TACBrBoletoFCFR.Imprimir" o arquivo fica certo. Segue anexo fonte alterado (com outras modificações, trecho tratado nesse tópico é apenas o método "TACBrBoletoFCFR.Imprimir"). ACBrBoletoFCFR.pas

ACBrLibMail Visulizar Arquivo ACBrLibMail - Biblioteca para envio de email Faça Download pelo SVN, dos Demos de uso da ACBrLibMail em diversas linguagens, usando o endereço: http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/ Manual On-Line: https://acbr.sourceforge.io/ACBrLib/ACBrLib.html Autor Daniel Simoes Enviado 08-09-2019 Categoria ACBrLib - PRO  

Quando da impressão de NFC-e com a propriedade ImprimeEmUmaLinha=true (Somente na linha dos Itens) Não esta sendo impresso corretamente nas impressoras: Bematech MP-4200 Elgin i9 Epson T20 Somente na Daruma DR800 que imprime corretamente. Esta sendo cortando uma parte do texto do lado esquerdo Não imprime: O Contador de itens “001 ..” Uma parte do Código do Produto Mesmo mudando as margens e tamanho e largura da bobina não resolve. Estou usando : MargemDireita=0 MargemEsquerda=0 MargemSuperior=0,8 MargemInferior=0,8 LarguraBobina=285 Na impressão com duas linhas funciona em todos os modelos. Uma sugestão para corrigir: em meus testes funcionou nos 4 modelos: Unit: ACBrDANFCeFortesFr Linha 680 Mudar de: if ACBrNFeDANFCeFortes.ImprimeEmUmaLinha then mLinhaItem.Alignment := taLeftJustify para: if ACBrNFeDANFCeFortes.ImprimeEmUmaLinha then mLinhaItem.Alignment := taCenter linha 930 Mudar de: while TamanhoLinha < mLinhaItem.Width-10 do para: while TamanhoLinha < mLinhaItem.Width-40 do segue arquivo com a sugestão ACBrDANFCeFortesFr.pas

Que ela tem que ter no minimo 5 caracteres e no máximo 20 caracteres.

Obrigado Italo, estou em aguardo..

Bom dia, Segue anexo correções do envio e leitura dos arquivos do provedor Megasoft. Obs.: Os arquivos de configuração já estão no repositório. pnfsNFSeR.pas pnfsConversao.pas

Boa tarde. O WS de migração deles possui apenas o ambiente de Produção, já os demais WS possui os dois ambientes (Homologação e Produção).

Boa Tarde, Testei aqui a nova versão e está funcionando corretamente! Muito obrigado e parabéns pelo excelente trabalho! Abraço Leandro

No seu arquivo pesquise por "SituacaoTributaria/" sem aspas que você vai encontrar um registro em que o valor pra esse elemento está vazio. Isso é inválido conforme a mensagem que está recebendo. Abaixo trecho do seu arquivo com problema. -<Produto> <Descricao>CG.MACH3 SENSITIVE GILLETTE LV3PG2 - 6184</Descricao> <CodigoGTIN>7500435114479</CodigoGTIN> <CodigoCEST/> <CodigoNCMSH>82122010</CodigoNCMSH> <CodigoProprio>00000000006184</CodigoProprio> <Quantidade>12,000</Quantidade> <QuantidadeTotalAquisicao>12,000</QuantidadeTotalAquisicao> <Unidade>UND</Unidade> <ValorUnitario>14,060</ValorUnitario> <ValorTotalAquisicao>14,06</ValorTotalAquisicao> <ValorTotalICMSDebitoFornecedor>0,00</ValorTotalICMSDebitoFornecedor> <ValorBaseCalculoICMSST>14,06</ValorBaseCalculoICMSST> <ValorTotalICMSST>0,00</ValorTotalICMSST> <SituacaoTributaria/> <Aliquota>0,00</Aliquota> <IsArredondado>true</IsArredondado> <Ippt>Terceiros</Ippt> <SituacaoEstoque>Positivo</SituacaoEstoque> </Produto>

Parabéns... logo estará dando consultoria na ACBrLib... Por padrão ela responde em UTF8... você pode mudar para ela responder em ANSI, usando a configuração: CodificacaoResposta = 1 https://acbr.sourceforge.io/ACBrLib/Geral.html

Boa tarde. Obrigada pela colaboração, adicionada ao svn. Att.

Essa propriedade não existe mais, já que a geração do QrCode é obrigatória. O QrCode é gerado automaticamente no XML assim que ele é assinado.

Nota: Atualizado em 05/11/19. Veja as configurações do ACBrMonitor no post do Júnior abaixo. Nota: Atualizado em 31/10/19 conforme post logo abaixo Olá a todos, Queremos informar que duas novas propriedades foram adicionadas ao DANFe em Fortes e que no momento estão funcionando apenas no formato retrato e Paisagem. São elas: ExpandirDadosAdicionaisAuto (padrão False) - Essa propriedade faz com que a área "Dados Adicionais" do DANFe se expanda para caber mais dados. Ela já existia no Fast Report e estamos trazendo ela pro Fortes também; ImprimeContinuacaoDadosAdicionaisPrimeiraPagina (padrão False) - Quando os "Dados Adicionais" não cabem no espaço reservado para eles, é criado um novo quadro "Continuação dos Dados Adicionais". As vezes esse quadro pode caber na primeira página, mas ele é jogado na página seguinte por questão de ficar na ordem do texto. Essa propriedade faz com que a continuação possa ser impresso na primeira página. Esse é o tópico que originou esse request Também enviamos uma alteração melhora (e muito) no uso do quadro "Dados Adicionais". O componente muitas vezes estava criando quebrando a linha desnecessariamente, causando até a impressão de uma página adicional quando isso não era necessário. Esperamos que isso os ajude a agradar seus clientes que querem economizar o número de páginas e os que preferem os dados na ordem certa, seja lá qual for o segmento que eles trabalhem. As alterações foram enviadas ao SVN na revisão 18063 18105. Agradecemos a todos que puderem testar e reportar qualquer problema. Pronto pessoal, obrigado pela atenção. Agora todo mundo voltando ao trabalho com animação!

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

Provavelmente algum erro na sua rotina. Veja se não está chamando novamente o método NotasFiscais.Add ao preencher o campo dhCont.

Oi Artur, Por favor, poderia anexar o arquivo alterado aqui no fórum para que possamos analisar?

Observe no seu código que você sinalizou um parâmetro como sCC... ou seja, basta passar um TStringList para ele... Para CCO você teria que usar diretamente o ACBrMail e compor o email

Olá @magnosystem obrigado pela resposta. Consegui resolver. Para testes de homologação é preciso usar o CONVENIO do Cliente (já habilitado para o WS). E agora q vem a pegadinha... tem q usar as Chaves que estão no manual e o CNPJ da empresa que está no manual também. Qualquer outro CNPJ ou CPF não vai funcionar. Agora estou testando todas as situações sem gerar boletos quentes. Abraço!

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

Boa noite. Resolvi meu problema criando uma procedure Delay para que o sistema fique esperando a mensagem ser exibida e fechada para continuar a ser executado. https://showdelphi.com.br/dica-como-implementar-a-funcao-delay-do-pascal-delphi/ Para mais informações de como montar a função de "Delay", segue o link a cima da estrutura da função para quem estiver com o mesmo problema que o meu. Para aplicar a função, basta: procedure Esperar(dwMilliseconds: Longint); var iStart, iStop: DWORD; begin iStart := GetTickCount; repeat iStop := GetTickCount; Application.ProcessMessages; Sleep(1); until (iStop - iStart) >= dwMilliseconds; end; procedure CarregarVendedor(codVendedor: Integer; cIP: String); begin BuscaVendedor(codVendedor); ACBrMTer.LimparDados(cIP); ACBrMTer.EnviarTexto(cIP, 'Carregando'); ACBrMTer.PosicionarCursor(cIP, 2, 1); ACBrMTer.EnviarTexto(cIP, 'Vendedor'); Esperar(2000); // 2000 corresponde a 2 segundos, por exemplo CarregarComanda(cIP); end; Fica um exemplo de uso para quem precisar de ajuda para prosseguir com a implementação em seu projeto. Por meio de pesquisa e estudo do codigo-fonte, Demo do ACBr, fontes externas, consegui aplicar esse método. Tópico resolvido.

Acho que não atualizou o executável do instalador. favor rodar novamente pois houve correções no instalador depois dessa conversa

Pode anexar os dois arquivos?

Geralmente isso indica conflito de atualização do svn não resolvidas por você ter modificações locais. Use a opção "Resolve" do Tortoise, ou baixe novamente os fontes em uma nova pasta.

Boa tarde Felipe, Você poderia anexar o XML da NFS-e do provedor EL para analisarmos o problema?

Testamos em uma MP4200, mas o comando acima não funcionou.. Como não temos dois modelos de EscBema... vamos manter o código atual no ACBr, que é compatível com a MP4200

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

Obrigado Felipe, eu estava com o mesmo problema Instalando no Delphi 10.3.2 comunity, vou baixar novamente e recompilar. Obrigado pela dica.

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

Veja esse tópico na área de notícias:

Isso porque você precisa canonicalizar o arquivo antes de trabalhar com ele ou assinar. Se você está gerando seu próprio arquivo xml, queira por favor estudar o assunto antes de trabalhar o componente.

Consegui resolver removendo os #13#10 do arquivo XML, ou seja tem que remover qualquer enter,espaço e indentação, que tenha entre as tags, antes de carregar no componente. Obrigado! function enviaReinf(XML): begin XML := StringReplace(trim(XML),#13#10,'',[rfReplaceAll]); if ACBrReinf.Eventos.LoadFromString(XML) then begin if ACBrReinf.Enviar then Result := ACBrReinf.WebServices.EnvioLote.RetWS end; end; Acredito que tenha que remover espaços também, o código acima é do programa que estou desenvolvendo! Segue em anexo o arquivo que deu certo no programa de exemplos de REINF ACBR: Reinf10002.xml De alguma forma o componente ACBR esta fazendo alterações no XML depois de assinado pois conforme citei acima consegui resolver removendo os espaços e a indentação entre as tags, essa parte esta resolvida. Obrigado.

Olá BigWings. Desde já obrigado pelo o apoio. Sim, o mesmo não estava setado para a VersãoDF Ve300 Agora funcionou perfeitamente. Muito obrigado pela dica.

Bom dia Suas sugestões foram disponibilizadas nos fontes do Projeto ACBr. Obrigado pela contribuição!

ACBrMonitorPLUS - Linux - 64 bits Visulizar Arquivo ACBrMonitorPLUS compilado em Linux x64. Saiba mais sobre o ACBrMonitorPLUS, Clique Aqui Para acompanhar todo o histórico de alterações acesse o arquivo completo: ACBrMonitor-change-log.txt Autor Daniel Simoes Enviado 29-11-2016 Categoria ACBrMonitorPLUS - PRO  

Já está no repositório, inclusive para o método de inutilização.

Perfeito Daniel, vc é o cara! deu certinho!!! Muito obrigado!