Élviro Cavalcanti

Boa tarde, eu não lembro de ter visto o acbr um componente para o SNGPC, mas fiz uma rotina pra ele, vou colocar aqui, talvez lhe ajude, segue abaixo [ editado ]

Cara, como já usava esse componente tava fazendo por ele mesmo, mas você abriu um caminho novo que estava aqui sem perceber e na minha frente! Obrigado pela dica!!

Boa tarde pessoal, possuo uma rotina que importa o xml da NFe pra dentro do sistema, mas queria pegar também os campos de rastro que são os lotes e cadastrar junto, já bati e não consegui importar, alguém poderia me ajudar nessa rotina? Segue abaixo minha rotina, quem desejar posso colocar ela completa pra ajudar também procedure TForm1.Button2Click(Sender: TObject); var vXMLDoc: TXMLDocument; NodePai,NodeSec,NodeTmp,NodeImp,NodeImposto, NodePaiLote, NodeLote: IXMLNode; nome, codigo, estado, nota, natop, modelo, serie, emissao: WideString; tiponf,municipio,cnpj,nomeemit,fantasia,endereco,numero: WideString; complemento,bairro,cep,fone,ie,base,icms,basest,valorst,ean: WideString; VNlote:WideString; valorprod,frete,seguro,desconto,valorii,valoripi,valorpis: WideString; valorcofins,outros,totalnota,ncm,cfop,unidadecom,quantidadecom:WideString; unitariocom,valorproduto,unidadetrib,quantidadetrib,unitariotrib:WideString; origem,cst,cstpis,ppis,basepis,valorpisprod,cstcofins: WideString; basecofins,pcofins,valorcofinsprod: WideString; diretorio:string; chaveacesso,protocolo,datahora,motivo: string; i : integer; begin i := 1; if OpenDialog1.Execute then begin // Cria a variável baseada no TXMLDocument vXMLDoc := TXMLDocument.Create(self); diretorio := OpenDialog1.FileName; // Le conteúdo do arquivo XML informado vXMLDoc.LoadFromFile(diretorio); // Aqui eu peço para encontrar a primeira ocorrencia da Tag > NodePai := vXMLDoc.DocumentElement.childNodes.First.ChildNodes.FindNode('infNFe'); //lendo os campos da nota fiscal NodeSec := NodePai.ChildNodes.FindNode('ide'); NodeSec.ChildNodes.First; memo_retorno.clear; // Esse nó vai ser usado no LOOP NodeSec := NodePai.ChildNodes.FindNode('det'); // Posiciona o primeiro elemento encontrado NodeSec.ChildNodes.First; memo_retorno.lines.add('{ ************************ Detalhes da NFe -(Produtos e Impostos) ************************ }'); memo_retorno.lines.add(''); memo_retorno.lines.add('{ ************************ Detalhes da NFe -(Produtos) ************************ }'); repeat //referencia a tag dentro de NodeTmp := NodeSec.ChildNodes['prod']; NodeTmp.ChildNodes.First; //pega os dados que vc quiser dentro da tag nome := NodeTmp.ChildNodes['xProd'].text; codigo := NodeTmp.ChildNodes['cProd'].text; ean := NodeTmp.ChildNodes['cEAN'].text; memo_retorno.lines.add(nome); memo_retorno.lines.add(codigo); memo_retorno.lines.add(ean); memo_retorno.lines.add(''); //Abrir o lote NodeSec := NodePai.ChildNodes.FindNode('rastro'); NodeSec.ChildNodes.First; //NodePaiLote.ChildNodes.First; //NodeTmp.ChildNodes.First; //repeat //NodeTmp := NodeTmp.ChildNodes['rastro']; //VNlote := NodeTmp.ChildNodes['nLote'].Text; //ShowMessage(VNlote); // until nome = ''; //Abrir o lote //vai para a proxima ocorrência (se houver) NodeTmp := NodeTmp.NextSibling; // vai para a proxima ocorrência NodeSec := NodeSec.NextSibling; inc(i); // AdvGridNfe.RowCount := AdvGridNfe.RowCount + 1; until nome = ''; memo_retorno.lines.add( '' ); { ************************ Fim do Detalhes da NFe - (Produtos e Impostos) ************************ } // ou para ler o arquivo do recibo da NFe // Aqui eu peço para encontrar a primeira ocorrencia da Tag > end; memo_retorno.setfocus; end;

Agradecido meu amigo!

Esse modem seria usado com o chip no caso? Desculpa a pergunta, pois nunca trabalhei com ele, sempre usei sites e abria pelo delphi no browse e auto completava as informações como citei acima

Bom dia, alguém sabe de algum site funcional para envio de SMS que possa usar o web browser no delphi e comando para completar tipo WebBrowser1.OleObject.Document.all.Item('destino', 0).value := '819888888; Tente um " http://www.torpedogratis.pro.br " mas não consigo enviar, alguém tem algum outro?

Aqui em PE tem a NFSe e a NFCe pra separar essa questão, não passa serviço na NFCe

Opa, obrigado !

Bom dia pessoal, alguém possui a tabela de NCM atualizada?

Boa tarde pessoal, quando vou gerar os dados do farmácia popular, sempre me retorna : CRM do médico que emitiu a receita é inválido. Medicamento não autorizado. Dados inválidos na Solicitação. Resolvi isso colocando um espaço em branco antes do CRM do Médico, não sei se aconteceu alguma alteração no datasus mas que minhas solicitações estão sendo enviadas e a medicação autorizada! CRM 018695PE - Assim acontece o erro 18695PE - Assim é autorizado Caso alguém esteja tendo esse mesmo problema, consegui solucionar dessa forma, abraço a todos!

Boa noite, tive que reinstalar meus componentes, agora sim meu CTe está atualizado, agradeço a todos a atenção meus amigos!

Isso, verifiquei At revision: 17676

Eu acabei de baixar o acbr novamente e reinstalar ele todo, tem algum arquivo que possa verificar se está atualizado ?

Mesmo setando pra pasta do acbr o erro continua, será algo com o componente ACBrCTeDACTeRL ou já foi liberado p QRCode pra o componente?

eu baixei o arquivo e atualizei o acbr, mas mesmo assim o erro persiste Schemas XML CT-e - Pacote de Liberação 3.00a (ZIP) (Atualizado em 01/08/2019)

Element '{http://www.portalfiscal.inf.br/cte}infCTeSupl' is unexpected according to content model of parent element '{http://www.w3.org/2000/09/xmldsig#}Signature.

Boa tarde pessoal, eu ainda não consegui implementar no meu sistema de CTe o qrcode, eu uso o componente ACBrCTeDACTeRL e estou informando na informação GerarInfCTeSupl como fgtSomenteHomologacao mas mesmo assim é gerado erro, só passa quando informo fgtNunca, caso alguém possa me ajudar eu agradeço

Boa tarde, estou tentendo salvar um arquivo no banco do dados MySql, o erro apresentado " SQL Error: Incorrect string value: '\xbb\xb4\xbc...' for column 'CHAVE' at row 1 " alguém já teve esse problema? O conteúdo do campo que estou tentando incluir no campo CHAVE é o »´¼ºº¼¹»º²º´»¹¹¶¶³µ»»»º´³

Nesse caso, você pode consultar no site https://consultapublica.antt.gov.br/Site/ConsultaRNTRC.aspx pelo cnpj ou pela placa do veículo o ANTT desse caso caso tenha, caso não tenha eu coloco os dados do CPF do transportador e informo TAC (Transporte Autônomo de Carga)

Bom dia, recebi ontem de um amigo, alguém sabe me dizer se essa informação está correta, o TEF pra o simples vai ser desobrigado em PE? Atenção: Empresas do Simples Nacional dispensada do uso do TEF no Estado de Pernambuco! Decreto Nº 47449 DE 13/05/2019 O Governador do Estado, no uso das atribuições que lhe são conferidas pelo inciso IV do artigo 37 da Constituição Estadual, Considerando a necessidade de promover ajustes no Decreto nº 44.650, de 30 de junho de 2017, que regulamenta a Lei nº 15.730, de 17 de março de 2016, que dispõe sobre o ICMS, Decreta: Art. 1º O art. 149-A do Decreto nº 44.650, de 30 de junho de 2017, passa a vigorar com as seguintes modificações: "Art. 149-A. ..... ..... Parágrafo único. A obrigatoriedade prevista no caput não se aplica: ..... IV - ao contribuinte optante do Simples Nacional, inclusive MEI. (AC) .....". Art. 2º Este Decreto entra em vigor na data de sua publicação. Palácio do Campo das Princesas, Recife, 13 de maio do ano de 2019, 203º da Revolução Republicana Constitucionalista e 197º da Independência do Brasil. PAULO HENRIQUE SARAIVA CÂMARA Governador do Estado DÉCIO JOSÉ PADILHA DA CRUZ NILTON DA MOTA SILVEIRA FILHO ERNANI VARJAL MEDICIS PINTO Com essa alteração Art. 149 – A do DECRETO Nº 44.650, DE 30 DE JUNHO DE 2017 fica assim: Art. 149-A. A partir de 1º de janeiro de 2019, na hipótese de operação cujo pagamento seja efetuado por meio de cartão de crédito, débito ou outro instrumento de pagamento eletrônico, observa-se: (Dec. 46.087/2018) I - a emissão do respectivo comprovante deve estar vinculada à NFC-e correspondente, mediante interligação com o programa emissor do mencionado documento fiscal; e II - na hipótese de impressão do Danfe-NFC-e, deve ser utilizado o mesmo equipamento para impressão do comprovante referido no inciso I. Parágrafo único. A OBRIGATORIEDADE PREVISTA NO CAPUT NÃO SE APLICA: I - à venda realizada fora do estabelecimento; e II - até 31 de julho de 2019, ao estabelecimento com atividade preponderante relativa ao fornecimento de alimentação, bebida e outras mercadorias em bares, restaurantes, lanchonetes e estabelecimentos similares, inscrito no Cacepe com atividade econômica principal classificada em um dos seguintes códigos da CNAE: 5510- 8/01, 5510-8/02, 5510-8/03, 5590-6/01, 5590- 6/02, 5590-6/03, 5590-6/99, 5611-2/01, 5611-2/02, 5611-2/03, 5620- 1/03, 9312-3/00, 9313-1/00, 9319-1/01, 9321-2/00, 9329-8/01, 9329- 8/02 ou 9329-8/03. (Dec. 47.290/2019) III - à venda realizada com entrega em domicílio, desde que o equipamento destinado ao registro do pagamento da mencionada operação: (Dec. 47.290/2019) a) contenha os dados constantes no Cacepe referentes ao nome empresarial e endereço do respectivo estabelecimento, a serem impressos no comprovante da operação; e (Dec. 47.290/2019) b) seja utilizado apenas na hipótese de o referido pagamento ocorrer em domicílio. (Dec. 47.290/2019) IV - ao contribuinte optante do Simples Nacional, inclusive MEI. (Dec. 47.449/2019)

Atualmente o meu programa de CTE está gerando o DACTE da forma normal, mas o cliente me perguntou se teria como alterar pra o mesmo sair numa folha apenas de forma resumida, até mandou um exemplo. Tentei alterar no ACBrCTeDACTeRL1 a propriedade Tamanho do papel e Tipo do DACTE mas mesmo alterando ele permanece da mesma forma, alguém já passou e resolveu essa alteração de impressão?

Verdade, essa pcnRetConsStatServBPe eu tirei e o projeto compilou normal mesmo, fico grato pela resposta meu amigo!

Quando vou gerar aparece essa tela de erro

Fiz o processo agora e o erro fica 'pcnRetConsStatServBPe' ele não consegue compilar

Sim, mas vou refazer o processo novamente e retorno se deu o erro, agradeço a atenção !