Painel de líderes

O código é praticamente uma cópia de "TACBrTEFDClass.Inicializar"... (isso não me agrada muito... código repetido.... ) Poderíamos criar um novo método na classe mãe, e sobrescrever apenas o que é realmente diferente... Algo como "VerificarTransacoesPendentesClass"... Veja as Units em anexo... ACBrTEFD.zip

Boa tarde a todos Seguindo alguns tópicos que encontrei no fórum, fiz um resumo da conversão que fiz para quem estiver migrando para o trunk 2, espero que possa ajudar alguém: CTe ** CTe * Valida De: ACBrCTe1.Conhecimentos.Valida; Para: ACBrCTe1.Conhecimentos.Validar; * Configuracoes.Geral.PathSalvar De: ACBrCTe1.Configuracoes.Geral.PathSalvar Para: ACBrCTe1.Configuracoes.Arquivos.PathSalvar * EnviarEventoCTe De: ACBrCTe1.EnviarEventoCTe(idLote); Para: ACBrCTe1.EnviarEvento(idLote); * De: if ACBrCTe1.Conhecimentos.Items[i].Confirmada then Para: if ACBrCTe1.Conhecimentos.Items[i].Confirmado then * De: ACBrCTe1.Conhecimentos.Items[i].SaveToFile(cFileName); Para: ACBrCTe1.Conhecimentos.Items[i].GravarXML(cFileName); * De: DFEUtil.LimpaNumero(cDocumento) Para: OnlyNumber(cDocumento) * De: ACBrCTe1.Configuracoes.Certificados.DataVenc Para: ACBrCTe1.SSL.CertDataVenc NFe ** NFe * De: cNroSerieCertificado := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado; Para: cNroSerieCertificado := ACBrNFe1.SSL.SelecionarCertificado; * De: ACBrNFe1.NotasFiscais.Valida; Para: ACBrNFe1.NotasFiscais.Validar; * De: ACBrNFe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFe1.EnviarEventoNFe(idLote); Para: ACBrNFe1.EnviarEvento(idLote); * De: cSituacao := SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); Para: cSituacao := SituacaoDFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); * De: ACBrNFe1.NotasFiscais.Items[i].SaveToFile(cFileName); Para: ACBrNFe1.NotasFiscais.Items[i].GravarXML(cFileName); * Removidos: ( não existe mais DPEC) ACBrNFe1.WebServices.EnviarDPEC.Executar ACBrNFe1.WebServices.ConsultaDPEC.NFeChave ACBrNFe1.WebServices.ConsultaDPEC.Executar; * De: NFe.Det[idx].Prod.nItemPed := 0; Para: NFe.Det[idx].Prod.nItemPed := ''; * Disponível NFe.Det[idx].Prod.CEST ( trunk 2 ) * Remover Componentes ACBrNFeDANFERave1 e ACBrNFeDANFERaveCB1 * De: ACBrNFe1.NotasFiscais.Items[idx].SaveToFile(cFileName ); Para: ACBrNFe1.NotasFiscais.Items[idx].GravarXML(cFileName); * De: ACBrNFe1.Configuracoes.Certificados.DataVenc Para: ACBrNFe1.SSL.CertDataVenc NFSe ** NFSe * De: ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True Para: ACBrNFSe1.Configuracoes.Arquivos.SepararPorMes := True * De: ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := 9999 Para: ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := 9999 * De: ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas); Para: ACBrNFSe1.Configuracoes.Geral.SetConfigMunicipio; * De: ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := cSenhaWeb; Para: ACBrNFSe1.Configuracoes.Geral.SenhaWeb := cSenhaWeb; * De: ACBrNFSe1.Configuracoes.WebServices.UserWeb := cUserWeb; Para: ACBrNFSe1.Configuracoes.Geral.UserWeb := cUserWeb; * De: cProvedor := ACBrNFSe1.Configuracoes.WebServices.xProvedor; Para: cProvedor := ACBrNFSe1.Configuracoes.Geral.xProvedor; * De: ACBrNFSe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFSe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := noTributacaoNoMunicipio; ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := StrToNaturezaOperacao(ok, cNaturezaOperacao); Geral * pcnConversao ( ainda existe ) - especializado para pcnConversaoNFe e pcteConversaoCTe adicionem no uses pcnConversaoNFe e pcteConversaoCTe junto com pcnConversao * ACBrDFeUtil // Unificado: ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil ( não existem mais ) remover ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil e deixem ACBrDFeUtil * Added novo uses ACBrUtil * EstaVazio De: if DFeUtil.EstaVazio(cPathSalvar) then Para: if EstaVazio(cPathSalvar) then

Bom dia pessoal. Como todos sabem, na maioria das vezes em que o windows se atualiza ele marca aquelas opções de certificados revogados em "Opções da internet > Avançado" e, pelo menos comigo, gera uma grande quantidade de suporte à clientes. O correto é ficar assim: ( ) Usar SSL 2.0 (x) Usar SSL 3.0 (x) Usar TSL 1.0 ( ) Usar TSL 1.1 ( ) Usar TSL 1.2 ( ) Verificar revogação de certificados servidor* (x) verificar se ha assinaturas em programas baixados ( ) Verificar se há revogação de certificados do editor Então no final do ano passado até cheguei a comentar em um tópico se teria como modificar esses dados diretamente pelo delphi, pra facilitar nossa vida, mas não tinha ninguém com essa informação. Pois bem, essa semana tive um tempinho e comecei a mexer com isso e creio que encontrei uma solução, segue abaixo programação para alterar o registro do windows com as opções corretas. Já testado em alguns clientes e até o momento funcionando perfeitamente. (Testado em windows XP, 7, 2003 server) uses Registry; procedure TFPrincipal.FormCreate(Sender: TObject); var Registro: TRegistry; begin //acertando opções da internet (revogados / SSL / TSL) //verificar revogação de certificados do servidor Registro := TRegistry.Create(KEY_WRITE); Registro.RootKey := HKEY_CURRENT_USER; if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin Registro.WriteInteger('CertificateRevocation', 0); end; registro.CloseKey; //verificar se há certificados revogados do fornecedor if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing', true) then begin Registro.WriteInteger('State', 146944); end; registro.CloseKey; //Usar SSL 3.0 / Usar TSL 1.0 if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin Registro.WriteInteger('SecureProtocols', 160); end; registro.CloseKey; registro.Free; end; Espero ajudar o pessoal do ACBr com essa contribuição. Um abraço a todos.

Pessoal, obrigado pelas dicas. O cliente vai comprar um certificado e vou tentar autorizar como se fosse empresa do simples. Depois posto aqui os resultados. Valeu.

Não tem como... mas não se preocupe com isso... a uns 3 anos, todos os ECFs existentes já contemplam essa funcionalidade... (é um requisito fiscal para a homologação do ECF)

@Marcio Martins Moreira bom dia. Acabei de atualizar a versão do ACBrMonitorPLUS com a alteração para selecionar a versão do Schema do CTe.

@biniva bom dia. Decidimos criar um novo comando, ESCPOS.SetCortaPapel, no ACBrMonitorPLUS que deve resolver seu problema, utilize ele antes de enviar o comando de corte de papel, e se desejar após para desativar o corte. ESCPOS.SetCortaPapel(<bValor>) bValor : True ou False Padrão: True A nova versão do ACBrMonitorPLUS 1.0.0.11, link abaixo, já contém a alteração.

Olá Luiz, Me parece que aqui há uma pequena confusão. Se você utiliza os componentes como o ACBrNFe, você não precisaria utilizar o ACBrMonitorPlus. Ele foi desenvolvido para quem não pode utilizar os componentes diretamente, por exemplo por programar em outra linguagem/IDE. Para te ajudar, você também pode pesquisar no fórum e vai encontrar alguns tópicos de orientação. Dê uma olhada nesse aqui abaixo que responde boa parte das suas dúvidas, em especial a primeira:

Só para deixar registrado.. Debugando achei lá... ACBrECF1.Device.Tag:=1; ACBrECF1.Device.Tag:=2; ACBrECF1.Device.Tag:=3; Assim consigo trabalhar com as três configurações na mesma máquina Eduardo Costa

Bom dia colegas. Adicionei nova propriedade em TEFDial para saber se ao inicializar deve confirmar ou cancelar as transações pendentes, deixando como padrão cancelar que é o padrão. ACBr_TEFD-change-log.txt ACBrTEFDDial.pas

Bom dia O CSC e ID do CSC não são jogados no xml,(não de forma individual ou implícita). São usados para compor o QrCode da NFCe. Vc deve informa-los apenas nas configurações do componente mesmo. abraço.

Parece uma boa idéia.. Uma vez que o Gerenciador Padrao do TEF discado, ja nao existe mais... Para ter certeza dessa ideia, poderíamos conferir se a NTK pensa da mesma maneira

Boa noite Geison, Toda vez que o DistribuicaoDFe é executado devemos informar no terceiro parâmetro do respectivo método, sem o valor do último NSU retornado na execução anterior. Ao usar pela primeira vez devemos informar o valor zero, se o valor de ultNSU retornado for 30 devemos passar 30 como sendo o valor do terceiro parâmetro, para que a SEFAZ retorno os documento a partir deste. Espero ter ajudado.

Boa tarde, Empresas de solução não cadastradas como contribuintes no estado paulista poderão ter acesso ambiente de homologação do sistema de autorização da NF-e As empresas provedoras de soluções que não estiverem cadastradas como contribuintes no estado de São Paulo - não possuem Inscrição Estadual - poderão se conectar ao ambiente de homologação da NF-e. Os interessados devem encaminhar e-mail para a GS1-Brasil-Associação Brasileira de Automação no endereço eletrônico com as seguintes informações: razão social, CNPJ, endereço, responsável (nome, CPF, telefone, celular, e-mail). A Secretaria da Fazenda do Estado de São Paulo iniciou a substituição da emissão dos modelos 1 e 1-A de documentos fiscais em papel pela Nota Fiscal Eletrônica (NF-e) em 2006, quando se iniciou o projeto com validade jurídica, seguindo a implantação de um modelo nacional digital, tendo a massificação no estado ocorrida gradualmente entre 2008 a 2010. Instruções para solicitação de credenciamento de emissão de NF-e: 1. O acesso ao sistema é efetuado por meio do mesmo usuário e senha do contribuinte (senha master ou filho) utilizado para acessar os serviços do Posto Fiscal Eletrônico - PFE; Atenção: a senha do PFE obtida junto ao Posto Fiscal somente será reconhecido no sistema de credenciamento após um dia útil. 2. Ao acessar o sistema, selecione um estabelecimento e complete ou corrija as informações pré-cadastradas; 3. Ao processar as informações, o estabelecimento já estará autorizado, automaticamente, a realizar os testes de sua solução tecnológica de emissão de NF-e no ambiente de teste/homologação da Sefaz-SP. Os testes realizados neste ambiente não serão avaliados pela Sefaz-SP; 4. Apesar dos testes no ambiente de testes/homologação da Sefaz-SP não serem obrigatórios, recomendamos fortemente que o contribuinte efetue seus testes antes de solicitar seu credenciamento no ambiente de produção. Para entrar em produção, após realizados todos os testes que julgar necessário, clique no botão "Credenciamento para emitir NF-e em produção". Não é necessária a prévia publicação em Diário Oficial para que o estabelecimento esteja credenciado. 5. Ao credenciar-se no ambiente de produção, o estabelecimento continuará a ter acesso ao ambiente de testes da Sefaz-SP para realizar os testes que julgar necessário. o As NF-e enviadas para o ambiente de produção têm validade jurídica junto à SEFAZ-SP e substituem as notas fiscais em papel modelo 1 ou 1A; o As NF-e enviadas para o ambiente de homologação NÃO têm validade jurídica e NÃO substituem as notas fiscais em papel modelo 1 ou 1A. 6. Para atualizar a IE e razão social no sistema de credenciamento, acesse o sistema (no link abaixo) e clique no CNPJ do estabelecimento. Este procedimento recuperará os dados atuais da DECA e atualizará o sistema de emissão de NF-e em homologação e produção. Benefícios Para o contribuinte vendedor (emissor da NF-e) · Redução de custos de impressão; · Redução de custos de aquisição de papel; · Redução de custos de envio do documento fiscal; · Redução de custos de armazenagem de documentos fiscais; · Simplificação de obrigações acessórias, como dispensa de AIDF; · Redução de tempo de parada de caminhões em Postos Fiscais de Fronteira; · Incentivo a uso de relacionamentos eletrônicos com clientes (B2B); Para o contribuinte comprador (receptor da NF-e) · Eliminação de digitação de notas fiscais na recepção de mercadorias; · Planejamento de logística de entrega pela recepção antecipada da informação da NF-e; · Redução de erros de escrituração devido a erros de digitação de notas fiscais; · Incentivo a uso de relacionamentos eletrônicos com fornecedores (B2B); Para a sociedade · Redução do consumo de papel, com impacto em termos ecológicos; · Incentivo ao comércio eletrônico e ao uso de novas tecnologias; · Padronização dos relacionamentos eletrônicos entre empresas; · Surgimento de oportunidades de negócios e empregos na prestação de serviços ligados a Nota Fiscal Eletrônica. Para as administrações tributárias · Aumento na confiabilidade da Nota Fiscal; · Melhoria no processo de controle fiscal, possibilitando um melhor intercâmbio e compartilhamento de informações entre os fiscos; · Redução de custos no processo de controle das notas fiscais capturadas pela fiscalização de mercadorias em trânsito; · Diminuição da sonegação e aumento da arrecadação; · Suporte aos projetos de escrituração eletrônica contábil e fiscal da Secretaria da RFB (Sistema Público de Escrituração Digital – SPED). Informações sobre o Certificado Digital · O certificado digital utilizado na Nota Fiscal Eletrônica deverá ser adquirido junto à Autoridade Certificadora credenciada pela Infra-estrutura de Chaves Públicas Brasileira – ICP-Brasil, devendo conter o número do CNPJ de qualquer dos estabelecimentos do contribuinte. Para maiores informações sobre Autoridades certificadoras, autoridades de registro e prestadores de serviços habilitados na ICP-Brasil, consulte o site http://www.iti.gov.br/certificacao-digital. · Não é necessário enviar a chave Pública do certificado Digital para a SEFAZ/SP. Basta que elas estejam válidas no momento da conexão e verificação da assinatura digital. · Não é necessário um certificado digital distinto para cada estabelecimento da empresa. Nos termos do Artigo 9º, III alínea “b” da Portaria CAT 162/08: a NF-e deverá ser assinada pelo emitente, com assinatura digital, certificada por entidade credenciada pela Infraestrutura de Chaves Públicas Brasileira - ICP-Brasil, conter o número do CNPJ de qualquer dos estabelecimentos do contribuinte. - See more at: https://www.gs1br.org/noticias/desenvolvedores-de-software-podem-te... Fonte: site da GS1 []s,

Isto que você está falando é sobre o indicador de pagamento (ide.indPag), este sim pode ter somente estes 3, já os tipos de formas de pagamento (pag.tPag) da NFC-e são estes: 01 = Dinheiro 02 = Cheque 03 = Cartão de Crédito 04 = Cartão de Débito 05 = Crédito Loja 10 = Vale Alimentação 11 = Vale Refeição 12 = Vale Presente 13 = Vale Combustível 99 = Outros No caso se o seu cliente pagar em cartão ficaria: [PAG001] tpag=03 <------ cartão de crédito vpag=391,97

utilize GravarXML

http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=33ol5hhSYZk= http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=tW+YMyk/50s=

Boa tarde, É bem simples fazer isso que vc quer. Basta importar o arquivo xml e depois tratar ele. Ex : ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(Arquivo.xml); depois que fizer isso, pode tratar os dados da nfe e lançar no seu sistema as entradas de fornecedores, estoque, etc.... para percorrer os itens da nfe, vc pode fazer assim : for i:=0 to (ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Count - 1) do begin ..... e para acesso a itens ACBrNFe1.NotasFiscais.Items[0].NFe.Det.prod.cProd; // Exemplo para recuperar o código do produto. -------------------------------- Isso é só para vc ter uma ideia de como começar. Mas como disse o Régys, é bom da uma olhada nos exemplos do acbr para ter uma visão melhor.

A sim, isso é simples, basta você montar o código a mão mesmo, geralmente ele é formado assim: ABBBBBBCCCCCD A= digito, geralmente o número 2 (isso pode ser alterado nas configurações das balanças) B= Código da mercadoria C= Peso ou quantidade depende de como o produto está configurado D= digito verificador Lembrando que está formação pode ser alterada, mas geralmente é isso para a grande maioria. Existe o componente ACBrInStore que faz esse tratamento automaticamente, veja na pasta \exemplos\ACBrInStore.