Painel de líderes

Fechando o tópico por estar já muito extenso.

veja se seria isso http://www.firebase.com.br/artigo.php?id=2862

Bom dia a todos. Pessoal , apenas a nivel de compartilhamento ontem dia 08/06/2017 apartir das 17:00 toda emissão e consulta de nota fiscal estava dando o seguinte erro : 12045 - A autoridade de certificação não é válida ou está incorreta Depois de muito pesquisar e tentar resolver os problemas através de alterações do internet explorer e atualizações de certificado, consegui resolver o problema através de uma colega nosso que teve problema mas em outro estado. Como estou em MG eu fiz uma atualização da cadeia de certificados através do seguinte site : https://wwws.prodemge.gov.br/cadeias-individualizadas-e-componentes Baixei a versão para internet explorer. Ele fez toda a atualização sozinho e depois isso tudo correu certinho.

Boa tarde. Em nossos testes de envio de MDF-e v3.00, não estamos conseguindo enviar a tag <tpTransp> como ETC ou CTC no caso em que o veículo é próprio. Vimos que, de acordo com o tópico abaixo, nas revisões 13005 e 13006 foi feita a alteração na unit pmdfeMDFeW.pas para não enviar a tag caso o documento do proprietário seja CPF. Como consequência, se o CNPJ do proprietário não é preenchido (o que indica veículo do emitente) a tag <tpTransp> não será enviada. Código atual: if (VersaoDF >= ve300) and (Length(MDFe.Rodo.veicTracao.Prop.CNPJCPF) > 11) and (MDFe.Ide.tpTransp <> ttNenhum) and not ( (MDFe.Ide.tpEmit = teTranspCargaPropria) and (MDFe.Ide.modal = moRodoviario) and ((MDFe.Rodo.veicTracao.Prop.CNPJCPF = '') or (MDFe.Rodo.veicTracao.Prop.CNPJCPF = MDFe.emit.CNPJ)) ) then Gerador.wCampo(tcStr, '#007', 'tpTransp', 01, 01, 0, TTransportadorToStr(MDFe.Ide.tpTransp), DSC_TPTRANSP); Sugestão de correção: if (VersaoDF >= ve300) and ((MDFe.Rodo.veicTracao.Prop.CNPJCPF = '') or (Length(MDFe.Rodo.veicTracao.Prop.CNPJCPF) > 11)) and (MDFe.Ide.tpTransp <> ttNenhum) and not ( (MDFe.Ide.tpEmit = teTranspCargaPropria) and (MDFe.Ide.modal = moRodoviario) and ((MDFe.Rodo.veicTracao.Prop.CNPJCPF = '') or (MDFe.Rodo.veicTracao.Prop.CNPJCPF = MDFe.emit.CNPJ)) ) then Gerador.wCampo(tcStr, '#007', 'tpTransp', 01, 01, 0, TTransportadorToStr(MDFe.Ide.tpTransp), DSC_TPTRANSP); Segue em anexo a unit pmdfeMDFeW.pas para avaliação. pmdfeMDFeW.pas

Me parece que antes de o ACBrTEFD chamar o comandaECF para abrir o gerencial ele verifica o estado. Se você estiver retornando o estado como se já houvesse um cupom aberto, é provável que o ACBrTEFD envie um opeCancelaCupom pra poder depois chamar o opeAbreGerencial. Então a sugestão é verificar se no quando da chamada administrativa o ACBrTEFD está verificando o estado e qual o estado você está passando pra ele.

Juliomar apenas confirmando o problema era esse mesmo. Alterei a rotina e assinei antes de validar e tudo funcionou. Obrigado

Interessante... tens boa vontade em colaborar (ótimo)... Mas falta-lhe a paciência de compreender que todos aqui são voluntários.. e tem suas próprias agendas e prioridades de tarefas... Realmente um conflito...

Ambos são gerados no mesmo grupo no XML: <ICMSSN202>, se é o que quer saber, e é especificado na tag CSOSN dentro do grupo, de acordo com o MOC.

Deve ser o suficiente para o Rafael fazer um "merge".... Muito obrigado pela ajuda... Assim que o Rafael tiver um tempo, ele interage...

Não sei se é o correto amigos mas resolveu desta maneira. Obrigado a todos os mentores do ACBr. //VERIFICAR SE PRECISA IMPRIMIR DANFE NFCe if not FormConfig.chkDanfeNFCe.Checked then ACBrNFe1.DANFE := nil else ACBrNFe1.DANFE := ACBrNFeDANFeRL1; //***************************************

Boa noite André, Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

Boa noite Werner, Favor verificar a configuração do Internet Explorer, no que diz respeito a revogação de certificados, tem que estar desmarcados.

Você também pode instruir o ACBr a não tentar imprimir após o envio: ACBrNFe1.Enviar(nLote, False); Se quiser que imprima, sem visualizar: ACBrNFe1.DANFE.MostrarPreview := False; ACBrNFe1.Enviar(nLote, True);

nosso amigo já respondeu pra ti ! coisa fácil

ACBrNFe_NFe.DANFE := nil; ACBrNFe_NFe.DANFE := ACBrNFeDANFEFR;

Depure e veja se os parâmetros estão sendo passados para o componente. Na dúvida veja como é feito no SATTeste, especificamente na procedure AjustaACBrSAT.

Versão do SAC disponível com novos métodos para download de NFe usando o método DistribuicaoDFe. Os comandos adicionados ao ACBrMonitorPLUS, ficaram assim: NFe.DistribuicaoDFe(cUF,cCNPJ,nUltNSU,nNSU,aChNFe) NFe.DistribuicaoDFePorChaveNFe(cUF, cCNPJ, aChNFe) NFe.DistribuicaoDFePorNSU(cUF, cCNPJ, nNSU) NFe.DistribuicaoDFePorUltNSU(cUF, cCNPJ, nUltNSU) A correção já está no SVN. E a versão compilada para usuários do SAC disponível em:

@fagner A sua pergunta não tem muito a ver com o tópico. Entenda que a cessação é definitiva e não provisória. Aconselho à você colocar uma trava no seu software em que você possa bloquear o uso nesse tipo de situação.

Solução Encontrada no FORUM -> Funcionou o Download em nossa Aplicação sem problemas Segue um teste que criei DM.DMManif.DistribuicaoDFePorChaveNFe('Código Estado', 'Cnpj', 'Chave'); with DM.DMManif.WebServices.DistribuicaoDFe.retDistDFeInt do begin if cStat = 138 then begin for i := 0 to docZip.Count - 1 do begin if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml) begin XML := docZip.Items.XML; ArqXML := TStringStream.Create(XML); XMLDocument1.LoadFromStream(ArqXML); XMLDocument1.Active; XMLDocument1.SaveToFile('C:\temp\xmlteste\'+schv+'.xml'); end; end; end;

@FABRICIO CERAVOLO PENA veja se a opção Preview está true, qqr coisa desabilita via código : Ou como o Juliomar respondeu, não associa o componente da danfe (ACBrNFeDANFEFR) com o componente da nota (ACBrNFe)

basta não associar o componente e nem colocar ele que vai resolver.

Você deve usar um componente ACBrNFeDANFCe.

NA MORAL, vc deve ser um mal amado man, não quer ajudar, não responda. simples assim...

tenho que ser bom em português pra participar do grupo? tenho 26 anos morei nos estados unidos por anos onde terminei meus estudos, voltei ao brasil a pouco menos de 1 anos, normal que eu não seja bom com português... em fim... o sistema manda imprimir, não gera nenhum tipo de erro e a impressão fica aguardando (como se não houvesse comunicação) quando isso acontece, a pagina teste da impressora tambem não sai, tenho que desligar a impressora e ligar novamente, são 6 caixas em um mercado com o mesmo problema. quando acontece isso temos que limpar o spooler pra poder funcionar. obrigado

Boa Tarde Prezados, Também resolvi o problema atualizando o certificado da Autoridade Certificadora Raiz Brasileira v5 no seguinte repositório "Autoridades de Certificação Raiz Confiáveis" Segue anexo ICP-Brasilv5.crt

Se vc estiver usando Delphi XE7+ usa os componentes da REST.* Vc vai precisar 3 componentes: REST: TRESTClient; Request: TRESTRequest; Response: TRESTResponse; E vai montar o código parecido com esse: REST.BaseURL := ' http://cosmos.bluesoft.com.br/api'; Request.Client := REST; Request.Response := Response; Request.Method := rmGet; Request.Resource := '/gtins/{codigo}'; Request.Params.AddHeader('X-Cosmos-Token', 'SEU_TOKEN'); Request.Set Params.ParameterByName('codigo').Value := 'GTIN_DO_PRODUTO'; Request.Execute; if (Response.StatusCode = 200) then begin Meu_Objeto_Que_Representa_o_JSON_do_Cosmos := Meu_Parser_De_Json_Para_Algo_Que_Meu_Sistema_Entende(Response.JSONValue); end; Meu_Parser_De_Json_Para_Algo_Que_Meu_Sistema_Entende Aqui vc pode usar xSuperObject como o Renato falou ou outra biblioteca que lê JSON. Recomendo usar as do próprio Delphi System.JSON. Meu_Objeto_Que_Representa_o_JSON_do_Cosmos Aqui pode ser algo que o seu sistema conheça, um Objeto, um DataSet. Algo que represente o retorno do Cosmos. Um pequeno exemplo pra vc pegar valores do retorno do Cosmos usando a System.JSON: ResponseCosmos: TJSONValue; // Para pegar a description que está de exemplo no site: ResponseCosmos.GetValue<TJSONString>('description').Value; // Para pegar a o code do NCM que está de exemplo no site: ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('code').Value; ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('description').Value; ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('full_description').Value; // Note que os Parametros estao em minusculos, é CASESENSITIVE...