Painel de líderes

Boa tarde! primeiro solicito que faça pesquisa no fórum ! já existe "N" tópicos até mesmo com a mesma frase do título seu! então aconselho meter a mão na pesquisa e ler ! peço a gentileza para todos que estão com essas dúvidas façam a boa velha pesquisa e leitura, muita leitura! estou já de cara fechando esse tópico pois já tem e tem mesmo gente !

além disso precisa saber que provedor é? documentação?chegou a testar essas alterações em sua instalação?

Boa tarde a todos, Estamos trabalhando em diversas melhorias e simplificação de código dos componentes. É bem provável que em um primeiro momento deixou-se de lado a propriedade salvar, mas iremos corrigir.

Boa tarde! Usou o ACBrInstall para instalar nos dois delphi no mesmo micro? Bom a primeira coisa se não fez é usar ele mas para isso rode o apagaracbr.bat em todos os drivers do micro! depois de feito isso veja se as dll foram corretamente registradas e copiadas para o system32 ou syswo64!

falha nossa, desculpe.

obs.fiz a postagem antes da mensagem do guilherme, vou fazer os procedimentos, depois eu posto...

Bom Dia a Todos, Apenas reforçando: a mensagem "Não é possível modificar as propriedades com o componente Ativo" está aparecendo sempre que clicamos no botão salvar, mesmo não se tendo feito qualquer alteração.

Concordo com Tiago. Se não houver nenhum impacto negativo, deve-se verificar a propriedade "salvar". Assim o programador terá mais controle sobre onde e quando salva os arquivos.

Bom dia amigo hints, Primeiramente, as regras do fórum declaram que você deve ANEXAR o arquivo de texto, e não copiar e colar. Fique atento. Tentando te ajudar, gostaria de mostrar que a melhor forma de atualizar a sua versão dos componentes é removendo COMPLETAMENTE do seu computador a versão anterior. Dê uma olhada no tópico a seguir: Tenho certeza que seguir esse procedimento irá lhe ajudar.

Enviado, obrigado pela contribuição.

Sem dúvida, como eu disse acredito que tenho uma versão da biblioteca ACBrNFeUtil desatualizada vou mandar o arquivo em anexo para vc. comparar com na sua, caso a sua esteja declarado a class function CstatProcessado por favor me encaminhe a mesma! ACBrNFeUtil.pas

Bom dia! a primeira coisa é remover sua verificação de status! conforme já existem relatos e pode se observar pela documentação esse webservice tão logo será desligado, pois não mostra a real situação do webservice! e é uma chamada desnecessária! o que deve de tratar é faça sua nota, envie ela e trate o retorno, caso venha a dar problema ou os códigos que vierem de retorno do sefaz

Bom dia Senhores, Em específico ao amigo Ítalo, é o seguinte setei as propriedades de salvar os arquivos como "False", porém os procEventos e nfeProc retornados pelo webservice DistribuicaoDFe continuam sendo salvos, pelo que percebi não se verifica a propriedade para salvar esses xml's, é isso mesmo ou estou deixando passar alguma coisa? Se sim, incluir uma verificação se a propriedade salvar é 'True' teria algum impacto negativo? Alguém já havia percebido isso? Qual a opinião dos colegas sobre isso? Grato,

Alguns webservices faze isso mesmo, retornam uma mensagem nada a ver com o que está acontecendo as vezes.

Há sim entendi agora! é só você continuar a vender! as informações de COO CCF está ali quanto ao espelho se você usa memo tem que gravar o txt senão recuperar o banco o que já foi registrado! existe um tópico bem no começo do fórum que fala sobre isso

Por isso que falei que vc se equivocou, conhecendo vc, sei que jamais iria afirmar isso, sei,m que tivesse se engando. []s,

Bom falta o vocês pesquisarem no fórum ! temos mais de 6 anos de posts uns 5 GB de informações e as perguntas se repetem veja se isso te ajuda, foi uns 20 segundos de pesquisa e já achei

O SAT se comunica com o SEFAZ por essa interface de rede... Se ele não conseguir enviar os CFes represados em sua memória, ele será bloqueado... Esse comando permite que você configure como o SAT acessará a rede da Empresa... Se na Empresa existe um servidor DHCP, isso pode ser desnecessário

O problema é que essa tabela é específica do SiTef... e nos outros GPs essa propriedade não seria preenchida corretamente... Veja o exemplo em TEFDDemo, usando o método "LeInformacao" procedure TForm1.ACBrTEFD1DepoisConfirmarTransacoes( RespostasPendentes: TACBrTEFDRespostasPendentes); var I : Integer; begin for I := 0 to RespostasPendentes.Count-1 do begin with RespostasPendentes[I] do begin Memo1.Lines.Add('Confirmado: '+Header+' ID: '+IntToStr( ID ) ); memo1.Lines.Add('Desconto: '+ FormatFloat('###,###,##0.00',Desconto)); memo1.Lines.Add('Saque: '+ FormatFloat('###,###,##0.00',Saque)); Memo1.Lines.Add( 'Rede: ' + Rede + ' NSU: ' + NSU + ' Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ; Memo1.Lines.Add('Campo 11: ' + LeInformacao(11,0).AsString ); end; end; end;

Altere essas configurações no internet explorer

Por favor, leia o manual - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=UL1Gh3Ol5NY=

Bom dia a todos, Dentro de alguns minutos vou estar disponibilizando os fontes do componente ACBrNFe com as alterações necessárias para suportar a nova versão 3.10 da NF-e e NFC-e. A liberação do ambiente de homologação ocorreu no dia 02/12/2013 para ambos os modelos de documentos fiscais. Quanto ao de produção esta previsto a liberação para o dia 06/01/2014 ( NFC-e ) e 10/03/2014 ( NF-e ). A versão 2.00 da NF-e vai ser aceita até 01/12/2014, data também prevista para o término da versão 3.00 da NFC-e. Para deixar o componente configuravel a nivel de execução foi acrescentado uma nova propriedade chamada: VersaoDF = Versão do Documento Fiscal. Dica de configuração para que o componente gere o XML no modelo e versão correta: ACBrNFe.Configuracoes.Geral.ModeloDF := moNFe; ACBrNFe.Configuracoes.Geral.VersaoDF := ve200; No exemplo acima o XML a ser gerado vai ser o da NF-e na versão 2.00 Valores aceitos pela propriedade ModeloDF: moNFe e moNFCe. Quando o modelo for moNFe, os valores aceitos pela propriedade VersaoDF são: ve200 e ve310. Quando o modelo for moNFCe, os valores aceitos pela propriedade VersaoDF são: ve300 e ve310. Como o componente esta ganhando uma nova propriedade, se faz necessário a compilação do pacote de instalação do mesmo ou a sua reinstalação com o ACBrInstall, caso contrario essa nova propriedade não vai aparecer no Object Inspector. Favor reportar erros e problemas.

Como vc resolveu os niveis, tag det, impostos, etc? Desenvolvi tudo em delphi... Não sei se ajuda, mas de qualquer forma segue abaixo: var NodeInfNfe,NodeIde,NodEmi,NodeEnderEmit,NodeCobr,NodeDup: IXMLNode; vXMLDoc: TXMLDocument; sIDForn: String; begin //-- abre arquivo xml FComercio.OpenDialog1.DefaultExt := 'xml'; FComercio.OpenDialog1.Filter := 'Documentos XML (*.xml)|*.xml'; FComercio.OpenDialog1.InitialDir := '%USERPROFILE%\Desktop\'; FComercio.OpenDialog1.Execute; if empty( FComercio.OpenDialog1.FileName ) then Abort; try //-- cria componente vXMLDoc := TXMLDocument.Create(Self); //-- atribui arquivo ao componente vXMLDoc.LoadFromFile(FComercio.OpenDialog1.FileName); //-- começa a ler o arquivo xml NodeInfNfe := vXMLDoc.DocumentElement.childNodes.First.ChildNodes.FindNode('infNFe'); //-- pega valores da ide da nfe NodeIde := NodeInfNfe.ChildNodes.FindNode('ide'); NodeIde.ChildNodes.First; //-- pega dados do emitente NodEmi := NodeInfNfe.ChildNodes.FindNode('emit'); NodEmi.ChildNodes.First; //-- pega endereco emitente NodeEnderEmit := NodEmi.ChildNodes.FindNode('enderEmit'); NodeEnderEmit.ChildNodes.First; if sn('Confirma inclusão da NF-e no Contas a Pagar?') = 'N' then Abort; //-- pega valores de cobrança NodeCobr := NodeInfNfe.ChildNodes.FindNode('cobr'); NodeCobr.ChildNodes.First; //-- pega duplicata NodeDup := NodeCobr.ChildNodes['dup']; NodeDup.ChildNodes.First; //-- consulta o fornecedor with QConsForn do begin Close; SQL.Clear; SQL.Add(' SELECT idfornecedor,nome,cgc '); SQL.Add(' FROM fornecedores '); SQL.Add(' WHERE cgc = '+aspas(colocacgccpf(NodEmi.ChildNodes['CNPJ'].Text))); Open; end; sIDForn := QConsFornIDFornecedor.AsString; if empty( QConsFornCGC.AsString ) then begin //-- inclui fornecedor Alert('Atenção... Fornecedor não Cadastrado!','!'); if sn('Cadastrar Fornecedor?') = 'N' then Abort; { implementado nesse caso em 25.07.2012 } AbreParametros; //-- salva número do fornecedor em parametros dm.TBParametros.Edit; dm.TBParametrosCodFornecedor.AsInteger := ( dm.TBParametrosCodFornecedor.AsInteger + 1 ); dm.TBParametros.Post; //-- busca estado with CQUF do begin Close; SQL.Clear; SQL.Add(' SELECT iduf,sigla '); SQL.Add(' FROM estados '); SQL.Add(' WHERE sigla = '+QuotedStr(NodeEnderEmit.ChildNodes['UF'].Text)); Open; end; //-- insere dados coletados do xml with dm.qpadrao do begin Close; SQL.Clear; SQL.Add(' INSERT INTO fornecedores (idfornecedor,tipofornecedor, '); SQL.Add(' nome,endereco,cep,cidade,cgc,ie,telefone,uf,datainicial, '); SQL.Add(' bairro,nomefantasia,codmunnfe,numero) '); SQL.Add(' VALUES ('+aspas(Colzers(dm.TBParametrosCodFornecedor.AsString,5))); SQL.Add(' ,'+aspas('1')+', '+aspas(UPPERCASE(onlycharscomespaco(semacento(NodEmi.ChildNodes['xNome'].Text))))+', '); SQL.Add(' '+aspas(UPPERCASE(NodeEnderEmit.ChildNodes['xLgr'].Text))+', '); SQL.Add(' '+aspas(NodeEnderEmit.ChildNodes['CEP'].Text)+', '); SQL.Add(' '+aspas(UPPERCASE(NodeEnderEmit.ChildNodes['xMun'].Text))+', '); SQL.Add(' '+aspas(colocacgccpf(NodEmi.ChildNodes['CNPJ'].Text))+', '); SQL.Add(' '+aspas(NodEmi.ChildNodes['IE'].Text)+', '); SQL.Add(' '+aspas(NodeEnderEmit.ChildNodes['fone'].Text)+', '); SQL.Add(' '+aspas(CQUFiduf.AsString)+', '); SQL.Add(' CURRENT_DATE, '); SQL.Add(' '+aspas(UPPERCASE(NodeEnderEmit.ChildNodes['xBairro'].Text))+', '); SQL.Add(' '+aspas(UPPERCASE(onlycharscomespaco(semacento(NodEmi.ChildNodes['xFant'].Text))))+', '); SQL.Add(' '+aspas(NodeEnderEmit.ChildNodes['cMun'].Text)+', '); SQL.Add(' '+aspas(NodeEnderEmit.ChildNodes['nro'].Text)+' ) '); ExecSQL; ApplyUpdates; end; { abre cadastro de fornecedores } FCadFornecedores := (TestaForm(TFCadFornecedores,Self) as TFCadFornecedores); FComercio.FechaCad := True; //-- tratar erro na atualização das querys DSContasPagar.Enabled := False; //-- edita FCadFornecedores.BitBtn2Click(Sender); //-- trava a procedure até cadastrar o fornecedor while ( FComercio.FechaCad = True ) do begin Application.ProcessMessages; end; end; //-- consulta o fornecedor with QConsForn do begin Close; SQL.Clear; SQL.Add(' SELECT idfornecedor,nome,cgc '); SQL.Add(' FROM fornecedores '); SQL.Add(' WHERE cgc = '+aspas(colocacgccpf(NodEmi.ChildNodes['CNPJ'].Text))); Open; end; sIDForn := QConsFornIDFornecedor.AsString; //-- loop p/ pegar duplicatas repeat //-- começa inclusão QContasPagar.Append; QContasPagarNumeroDocumento.Value := NodeDup.ChildNodes['nDup'].Text; QContasPagarTipo.Value := '1'; QContasPagarNotaFiscal.Value := NodeIde.ChildNodes['nNF'].Text; QContasPagarFornecedor.Value := sIDForn; QContasPagarDocumentoOriginal.Value := NodeDup.ChildNodes['nDup'].Text; QContasPagarEmissao.AsString := AcertaData(NodeIde.ChildNodes['dEmi'].Text); if empty(bancoXML) then begin //-- atribui qual tela FComercio.IdentTela := 4; //-- procura banco FProcuraBanco := (TestaForm(TFProcuraBanco,Self) as TFProcuraBanco); FComercio.FechaCad := True; //-- trava a procedure até cadastrar o fornecedor while FComercio.FechaCad = True do begin Application.ProcessMessages; end; end; QContasPagarBancoCobranca.Value := bancoXML; QContasPagarValorDuplicata.AsString := PontoPorVirgula(NodeDup.ChildNodes['vDup'].Text); QContasPagarDataVencimento.AsString := AcertaData(NodeDup.ChildNodes['dVenc'].Text); QContasPagarDigitacao.Value := (now); QContasPagarUsuario.Value := FComercio.XUsuario.Text; QContasPagarOrigem.Value := 'XML'; QContasPagarValorOriginal.AsString := PontoPorVirgula(NodeDup.ChildNodes['vDup'].Text); QContasPagar.Post; //-- vai p/ próxima duplicata NodeDup := NodeDup.NextSibling; //-- até zerar until NodeDup = nil; { qualquer erro na importação, retorna (31.07.2012) } except Alert('Erro no XML, não foi possível fazer a importação!','!'); Abort; end; DSContasPagar.Enabled := True; //-- atualiza form Self.FormShow(Sender);