Painel de líderes

@NiltonGM Acredito que o acbrmonitorplus na versão mais atualizada somente para membros do sac, se esta começando no acbr sugiro que conheça o sac, e se possivel assine vai ter um suporte muito bacana e com toda certeza vai ser util para você, apoie o projeto. link: https://www.projetoacbr.com.br/forum/sac/sobre/ Att.

Na verdade depende do modo como você está carregando o módulo. Para que a sessão initialization seja chamada deveria utilizar o método LoadPackage da unit SysUtils pra carregar a bpl. http://docwiki.embarcadero.com/Libraries/en/System.SysUtils.LoadPackage Caso você esteja carregando via um método do Sistema Operacional (LoadLibrary por exemplo), então você vai ter que chamar o método InitializePackage da mesma unit mencionada. http://docwiki.embarcadero.com/Libraries/Rio/en/System.SysUtils.InitializePackage Isso está explicado no link que o Daniel mencionou acima.

Vou continuar testando no cliente para ver se tenho sucesso. Por enquanto, esta usando o ACBr 1.2.0.58 que esta funcionando com Hoje (27/04/20) instalei a versão ACBr 1.3.0.294 em outro cliente que emite NFe e NFCe. Funcionando corretamente. Assim que possível, vou continuar testando no cliente que da erro para ver o que descubro. Podem encerrar este tópico. Se precisar crio novo com alguma informação diferente. Obrigado à todos.

Desinstalei o lazarus 64bits e instalei o 32bits, todos os fontes do acbr foram instalados sem problema. Obrigado, Daniel

Boa tarde Edevair, Todos os eventos não importa qual, é gerado 3 XML. *-ped-eve.xml ===> Pedido de Evento, esse XML é enviado para SEFAZ. *-eve.xml ===> Retorno da SEFAZ contendo o protocolo de autorização do evento, caso este tenha sido aceito pela SEFAZ. *-procEventoNFe.xml ===> É gerado pelo componente, ele contem os outros dois acima. É este ultimo que devemos carregar juntamente com o XML da nota para poder imprimir o DAEvento um Documento Auxiliar do Evento, gerar o PDF através do método ImprimirPDF e inclusive enviar o Evento por e-mail através do método EnviarEmailEvento. No programa exemplo do ACBrNFe temos um botão para cada uma dessas funcionalidades. Com relação a salvar o XML em disco, é preciso verificar a configuração do componente. Os dois primeiros arquivos só são salvos se a propriedade Configuracoes.Geral.Salvar estiver com o valor True, já o terceiro só se Configurações.Arquivos.Salvar estiver com o valor True. Outra coisa os XMLs dos eventos não são salvos na mesma pasta que são salvos os XMLs das NF-e. É criado uma pasta chamada Evento e dentro desta uma pasta com o nome do tipo de evento e dentro desta os XMLs.

Consegui imprimir o código do serviço seguindo seu post e passei a separar as informações com ; e também deu certo. Muito obrigada!

Boa tarde, os testes foram realizados e atenderam o solicitado. O código ficou bem melhor assim. Obrigado novamente.

Obrigado pela dica, deu certo, valeu mesmo.

Boa tarde Luiz, Legal, ele traz uma relação de todas as cidades atendidas pelo provedor. Seria interessante verificar quais dessas cidades não estão no arquivo Cidades.ini e inclui-las.

Boa tarde Fernando, Estou preparando uma alteração no componente que vai permitir que você informe um nome para PDF. Até o final desta semana estarei enviando para o repositório.

Boa tarde Eduardo, Favor anexar o XML inteiro gerado pelo componente e o fragmento de código referente ao ICMS.

Testei aqui funcionou obrigado pela ajuda Juliomar.

sim tentei compilar mas dava erro mas acho que era por causa do patch não tinha colocado no delphi rio mas agora que vc falou vou testar novamente pensei que nao iria funcionar se der certo dou um retorno muito obrigado pela ajuda.

Bom dia @Juliana Tamizou ainda não, estou estudando uma forma de implementar isso, mas sem duvida eu vou postar aqui para ajudar quem tiver a mesma duvida.... Att.

Bom dia. EmBarbosa, muito obrigado. Irei providenciar os testes e darei o feedback.

Bom dia, Não tive retorno do cliente/provedor e sem demanda para este provedor não segui com a implementação.

Bom dia Anderson. Pelo que entendi você está falando de registro do seu sistema, como em registro de licença. Certo? Nesse caso, nem sempre mais coisas significa melhor. Por isso seria interessante você dizer o porquê de seu formato atual não te atender ou o que você gostaria de aprimorar. Caso contrário, minha sugestão é você procurar algo já pronto.

Desculpe a demora no retorno na verdade como produção esta funcionando certinho, acabei não voltanto para tentar testar homologação até hoje. Acabei de gerar o CSC no site de Brasilia que agora funcionou e fiz o teste de envio que funcionou tb.

obrigado Italo. Ta resolvido

Então o lance até la vai ser você compilar o monitor, vai abrindo pacote por pacote do acvr e vai instalando, creio que nao terá problema, comece pela imagem, abre o pacote e instala, alguns minutos e vc tera td pronto, se nao tiver algum doscomponentes q o acbr depende avisa aq que te ajudo.

Boa tarde, acabei de acabar a unit para geração do componente, como não consegui alguém para me orientar eu segui o padrão do componente da NFe . A unit está pronta para os registros 0000, 1000, 1010, 1100, 1110, 1200, 1210, 9000 ou seja para vendas do simples nacional para o consumidor final sem devoluções. vou implementar essa unit no meu sistema e depois continuarei melhorando-a adicionando novos registros para as demais operações e tratando as propriedades para verificar alguns erros já na geração do arquivo. Tem dois contadores que entraram em contato comigo por aqui que me auxiliarão nos cálculos, uma parceria que tocara minha mão de obra pelo conhecimento deles. Para quem já servir como está e quiser ir usando seque o exemplo de uso, qualquer duvida no que estiver ao meu alcance estarei a disposição. DEUS abençoe a todos. uses unitADRCST; //********************** try ADRCST := TADRCST.Create; ADRCST.PathSalvar := 'D:\Desktop'; //Abertura do arquivo e identificação do contribuinte with ADRCST.REG0000 do begin COD_VERSAO := 100; MES_ANO := '032020'; CNPJ := '99999999999999'; IE := '9999999999'; NOME := 'Empresa X'; CD_FIN := 0; N_REG_ESPECIAL := ''; CNPJ_CD := ''; IE_CD := ''; end; //Adiciona os itens with ADRCST.Item.New do begin with REG1000 do begin IND_FECOP := 1; COD_ITEM := '3'; COD_BARRAS := ''; COD_ANP := ''; NCM := '22021000'; CEST := '0300700'; DESCR_ITEM := 'REFRIGERANTE 200 ML'; UNID_ITEM := 'UND'; ALIQ_ICMS_ITEM := 18.00; ALIQ_FECOP := 2.00; end; //Identificação do inventário do produto with REG1010 do begin COD_ITEM := '3'; UNID_ITEM := 'UND'; QTD := 1.00; VL_TOT_ITEM := 1.00; TXT_COMPL := ''; end; //Registro 1100 – Totalizador das entradas do produto REG1100.MENOR_VL_UNIT_ITEM := 0.99; //Identificação das notas fiscais de entrada with REG1110.New do begin DT_DOC := '19022020'; COD_RESP_RET := 1; CST_CSOSN := 60; CHAVE := '*******************'; N_NF := 691640; CNPJ_EMIT := '9999999999999'; UF_EMIT := 'PR'; CNPJ_DEST := '319*************'; UF_DEST := 'PR'; CFOP := 5405; N_ITEM := 9; UNID_ITEM := 'UND'; QTD_ENTRADA := 12.00; VL_UNIT_ITEM := 0.99; VL_BC_ICMS_ST := 18.12; end; //Registro 1210 – Identificação das notas fiscais de saída para consumidor final with REG1210.New do begin DT_DOC := '06032020'; CST_CSOSN := 500; CHAVE := '4120033***********************************'; N_NF := 417; CNPJ_EMIT := '319**********************'; UF_EMIT := 'PR'; CNPJ_CPF_DEST := ''; UF_DEST := ''; CFOP := 5405; N_ITEM := 2; UNID_ITEM := 'UND'; QTD_SAIDA := 2.000; VL_UNIT_ITEM := 2.00; end; end; ADRCST.GerarArquivo; finally ADRCST.Free; end; unitADRCST.pas

USB com COM virtual, o componente sempre irá preferir usar a COM (ele mesmo muda) para que não tenha confusão com dispositivos não mapeados, informe USB:PID:VID... Se você rodar o método "AcharPortasUSB", ele já retornará uma String nesse formato

Pessoal, peço desculpas por ter tomado o tempo de vocês. Não verifiquei as regras para preenchimento deste campo. Apliquei as regras ao programa e deu certo. Obrigado pelo atenção de todos.

Italo, Encontrei a falha, no meu código após o envio eu salvo o xml na base de dados, e quando o usuário vai fazer alguma ação o sistema verifica se tem o xml no path se não tem ele exporta do bd para o path, nesse momento estava gerando errado, o field da query não estava no formato correto.

Guia ACBrBoleto – Especificidades dos Bancos Afim de tornar a documentação do ACBrBoleto mais completa, criamos um documento relacionando os pontos onde ocorrem particularidades conforme o banco a ser utilizado. Estas informações encontram-se no arquivo Particularidades.html disponível no svn, assim como nos manuais online do ACBrMonitorPlus e da ACBrLib. Att.

Olá pessoal, Existem provedores que possuem uma lista de serviços outros apenas um único campo chamado Discriminação para que possamos informar o(s) serviço(s) executado(s). Para os provedores que possuem uma lista devemos atribuir o valor True a propriedade DetalharServico da seguinte forma: ACBrNFSeDANFSeRL1.DetalharServico := True; Fica ai a dica.

Value, na verdade eu consegui usando um exemplo acima... RESTRequest.Params.AddHeader('Authorization', 'Bearer ' + FToken); RESTRequest.Params.ParameterByName('Authorization').Options := [poDoNotEncode];

Olá Pessoal, Muitos desenvolvedores acabam escolhendo um dos 3 métodos de envio de RPS e nem sempre funciona, porque? É muito simples, primeiro temos que separar os provedores em 3 grupos: os que seguem a versão 1 do layout da ABRASF, os que seguem a versão 2 e os que tem o seu próprio layout. Os provedores que seguem a versão 1 do layout da ABRASF oferecem somente o serviço de envio assíncrono, portanto só podemos usar o método Enviar do componente, esse método permite o envio de um lote contendo de 1 até 50 RPS. Os provedores que seguem a versão 2 do layout da ABRASF a principio oferecem os serviços: envio assíncrono, envio síncrono e gerar NFSe, respectivamente no componente temos os métodos: Enviar, EnviarSincrono e Gerar, onde os dois primeiros permite o envio de um lote contendo de 1 até 50 RPS e o último o envio de apenas 1 RPS. Destaquei "a principio" porque ao implementar dezenas de provedores que seguem a versão 2 no componente, notei que vários não disponibilizaram os 3 serviços e sim apenas um ou dois dos três sugeridos pelo layout. Logo não é possível afirmar que todos os provedores que seguem a versão 2, disponibilizam os 3 serviços de envio. Já os provedores que tem o seu próprio layout, não tem como estabelecer uma regra, pois cada um implementou o serviço que melhor lhe convém. Além dos serviços de envio, temos também os de consulta, cancelamento e substituição de NFSe. Como faço para saber quais são os serviços disponibilizados pelo provedor que vou utilizar, bem como o layout que ele segue? É muito simples, basta abrir o arquivo INI do mesmo. Na seção XML temos o campo Layout que pode conter os seguintes valores: ABRASFv1, ABRASFv2 ou outro valor (normalmente o nome do provedor). No caso de um valor diferente de ABRASFv1 e ABRASFv2 fica claro que não segue nenhuma das versões da ABRASF, logo tem o seu próprio layout. Para saber os serviços oferecidos pelo provedor basta olharmos para as seções: [Recepcionar] => Responsável por montar o envelope de Envio assíncrono, se consta a definição do envelope significa que este serviço esta disponível. [ConsSit] => Responsável por montar o envelope de Consulta a Situação do Lote, se consta a definição do envelope significa que este serviço esta disponível. [ConsLote] => Responsável por montar o envelope de Consulta ao Lote, se consta a definição do envelope significa que este serviço esta disponível. [ConsNFSeRps] => Responsável por montar o envelope de Consulta NFSe por RPS, se consta a definição do envelope significa que este serviço esta disponível. [ConsNFSe] => Responsável por montar o envelope de Consulta NFSe, se consta a definição do envelope significa que este serviço esta disponível. [Cancelar] => Responsável por montar o envelope de Cancelar NFSe, se consta a definição do envelope significa que este serviço esta disponível. [Gerar] => Responsável por montar o envelope de Gerar NFSe, se consta a definição do envelope significa que este serviço esta disponível. [RecSincrono] => Responsável por montar o envelope de Envio síncrono, se consta a definição do envelope significa que este serviço esta disponível. [Substituir] => Responsável por montar o envelope de Substituir NFSe, se consta a definição do envelope significa que este serviço esta disponível. Exemplo de um Envelope não definido, portanto serviço não disponibilizado no webservice do provedor: [ConsSit] IncluiEncodingCab=0 IncluiEncodingDados=0 Texto1= Exemplo de um Envelope definido, portanto serviço disponibilizado no webservice do provedor: [ConsSit] IncluiEncodingCab=0 IncluiEncodingDados=0 Texto1=<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"> Texto2=<S:Body> Texto3=%DadosMsg% Texto4=</S:Body> Texto5=</S:Envelope> Conselho: Tenha uma tela de configuração que permite ativar ou não a execução de cada um desses métodos, assim a sua aplicação pode enviar o RPS através do método ou outro dependendo da configuração estabelecida por conta do provedor a ser utilizado.

Olá pessoal, Com o passar do tempo e havendo necessidade acabamos fazendo alterações tanto no arquivo Cidades.ini bem como no arquivo INI do provedor que a cidade do seu cliente contratou. Sendo assim é de vital importância que na maquina do seu cliente os arquivos INI (informados acima) bem como os arquivos XSD (Schemas) estejam sempre atualizados. Na pasta: ...\Exemplos\ACBrDFe\ACBrNFSe\ArqINI, encontramos os arquivos INI de todos os provedores que o componente reconhece mais o Cidades.ini Na pasta: ...\Exemplos\ACBrDFe\ACBrNFSe\Schemas, temos uma pasta para cada provedor e dentro de cada uma delas os arquivos XSD, ou seja os schemas usados pelo provedor. A minha sugestão é que dentro da pasta que se encontra o executável da sua aplicação deve constar também os arquivos: Cidades.ini e o INI do provedor, uma pasta com o nome Schemas e dentro desta os arquivos XSD do provedor. No que diz respeito a configuração, o componente deve estar configurado da seguinte forma: ACBrNFSe.Configuracoes.Geral.PathIniCidades := "Informar o path (caminho completo) de onde se encontra o arquivo Cidades.ini"; ACBrNFSe.Configuracoes.Geral.PathIniProvedor := "Informar o path de onde se encontra o arquivo INI do provedor"; ACBrNFSe.Configuracoes.Arquivos.PathSchemas := "Informar o path de onde se encontra os arquivos XSD (Schemas) do provedor";

O problema pode estar na Impressora, que não está enviando o "pulso" corretamente... Use o PosPrinterTeste e faça algumas variações nas opções demarcadas abaixo: - Teste com outra Impressora, de outra marca e modelo...