Painel de líderes

ACBrTEFD1.GPAtual := gpTefDial; ACBrTEFD1.CRT() ACBrTEFD1.GPAtual := gpConvCard; ACBrTEFD1.CRT()

Boa noite, Juliomar Obrigado pelas observações. Perdoe-me pela falta de atenção. Estou enviando novamente os arquivos alterados para inclusão do registro E120 com comentários no devido local. As alterações que fiz no bloco 0 foram necessárias para validar o arquivo. O campo IND_RT do registro 0030 e COD_BF_ISS do registro 0025 estavam sendo gerados de forma incorreta quando feita conversão para integer. ACBrSEF2.rar

Galera, a muito acompanho o fórum ACBr mas especificamente na parte de Delphi e sentia a necessidade da implementação do mesmo em .NET tenho visto a movimentação do framework mas nunca interessei em ver o que realmente era, hoje acabei vendo como está o pé. A questão é: já vinha fazendo este trabalho há algum tempo, tenho quase todo o SPED PisCofins pronto em C# e gostaria de fazer a colaboração, vou "acopla-lo" ao projeto da framework e disponibilizar o source aqui para a galera! Gostaria de saber também em que pé está o projeto, vejo que está liberado o SPED Fiscal e o Sintegra, além de outros, estes 2 citados estão em produção já ou ainda em implementação? acabei de ver que tenho o sintegra completo também!! Abraços!

boa tarde a todos estou comum pequeno problema que é o seguinte ao tentar manifestar uma nota fiscal ta dando o seguinte erro Cnpj base docertificado difere do certificado do emitente uso as seguintes rotinas 4 empresas cadastradas o banco de dados para selecionar o certificado certo uso a seguinte rotina procedure TF_Importador.configuracoes; begin dm.empresa2.Locate('CODEMP', lblcod.Caption,[]); Dm.Acbrnfe1.NotasFiscais.Clear;//tentaiva de resolver o problema if dm.empresa2TP_AMB_NFE.AsString = '1' then begin dm.ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao; end else if dm.empresa2TP_AMB_NFE.AsString = '2' then begin dm.ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao; end; //=======salva ou não salva if dm.empresa2SALVA_XML.AsString = 'S' then begin dm.ACBrNFe1.Configuracoes.Geral.Salvar := True; end else if dm.empresa2SALVA_XML.AsString = 'N' then begin dm.ACBrNFe1.Configuracoes.Geral.Salvar := False; end; //=======fimde salva ou não salva dm.ACBrNFe1.Configuracoes.Certificados.Senha := trim(dm.Empresa2SENHA_CERT.AsString); dm.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := trim(dm.Empresa2NUMSERIE_CERT.AsString); // dm.ACBrNFe1.Configuracoes.Geral.Salvar := False; dm.ACBrNFe1.Configuracoes.Geral.PathSalvar := dm.Empresa2CAMINHOXML.AsString; dm.ACBrNFe1.Configuracoes.WebServices.UF := dm.Empresa2UF_WEBSERVER.AsString; dm.ACBrNFe1.Configuracoes.WebServices.ProxyHost := dm.Empresa2HOST_PROXY.AsString; dm.ACBrNFe1.Configuracoes.WebServices.ProxyPort := dm.Empresa2PORTA_PROXY.AsString; dm.ACBrNFe1.Configuracoes.WebServices.ProxyUser := dm.Empresa2USER_PROXY.AsString; dm.ACBrNFe1.Configuracoes.WebServices.ProxyPass := dm.Empresa2SENHA_PROXY.AsString; end; //para outras rotinas como consulta funciona muito bem as configurações porem para manifestar ta dando erro. procedure que manifesta a nfe procedure TF_Importador.SpeedButton1Click(Sender: TObject); var Chave, idLote, CNPJ: string; lMsg: string; begin configuracoes; idLote := InttoStr(Dm.inc_gen('GEN_LOTE_MANIF_ID')); Chave:=''; CNPJ := ''; Chave := trim(DM.XmlNfeCHAVE.AsString); showmessage(chave); CNPJ := trim(DM.XmlNfeCNPJ_CPF.AsString); showmessage(CNPJ); dm.ACBrNFe1.EventoNFe.Evento.Clear; with dm.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; dm.ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote)); with dm.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin dm.XmlNfe.Edit; dm.XmlNfePROTOC_XML.AsString := nProt; dm.XmlNfeDT_MANIF.AsDateTime := dhRegEvento; dm.XmlNfeXMOTIVO.AsString := xMotivo; dm.XmlNfeMANIFESTADA.AsString := 'S'; dm.XmlNfe.ApplyUpdates(0); lMsg:= 'Id: '+Id+#13+ //id de retorno 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ //(taProducao, taHomologacao); 'verAplic: '+verAplic+#13+//versão do aplicativo 'cOrgao: '+IntToStr(cOrgao)+#13+ //valor inteiro 'cStat: '+IntToStr(cStat)+#13+ //valor do tipo inteiro 'xMotivo: '+xMotivo+#13+ //string 'chNFe: '+chNFe+#13+ //chave nfe 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ // teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada); 'xEvento: '+xEvento+#13+ //string 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ //valor inteiro 'CNPJDest: '+CNPJDest+#13+ //cnpj do emitente// 'emailDest: '+emailDest+#13+//email destinatario 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+//data e hora da manifestação 'nProt: '+nProt; //numero de protocolo// end; ShowMessage(lMsg); end; alguem pode me ajudar

Boa tarde Dênio, Dançar Lepo Lepo é pra acabar. Eu prefiro ouvir um Queem, Kiss, Iron, .... Boa sorte e nos de um retorno.

Discordo... Precisamos compreender o que ocorre... caso contrário poderemos ter esse problema em vários locais do Fonte...

Boa tarde Graça, A SEFAZ disponibilizou uma nova versão do manual a 2.00a atrasados por variar pois esse manual é de Janeiro/2014 e já estamos em Maio. Na página 3 desse manual temos como Data final de vigência do PL_CTe_104c, ou seja, versão 1.04 como sendo 01/06/2014. Na minha interpretação a SEFAZ vai aceitar a versão 1.04 até o dia primeiro de Junho (domingo), mas é melhor não esperar. Atenção a versão 2.00a se refere ao manual e não ao CT-e. A página 3 desse manual deixa bem claro no quadro titulado como: Identificação e Vigência do Manual, bem como no quadro Versões de leiautes do PL_CTe_200.

Você respondeu a um tópico com 3 meses de atraso, acho que é normal esperar que o Originador dos Posts (OP) não esteja mais procurando essa resposta. Mesmo que esteja, não deveria se surpreender se não obter uma resposta em menos de 24 horas.

O Boleto ficou pronto, agora estou testando a parte de envio da remessa. Depois irei atualizar no cliente para fazer o teste final e enviar a remessa juntamente com o boleto para o TI do banco homologar. Assim que estiver tudo ok, estarei postando os fontes...

Bom dia você postou ontem a tarde todos aqui ou possuem empresas ou são funcionários e não podem ficar o tempo todo lendo os posts e respondendo ou até mesmo que olhou não soube responder por não usar o componente então não passou nem 24 horas que tu postou aqui ! então em primeiro lugar tenha paciência e segundo mais consideração pelo pessoal que responde as perguntas! caso queira respostas mais rápidas assine o SAC ele serve para isso!

Então já temos a solução! se der erro por enquanto é só adicionar o path completo!!!!

Alteração disponibilizada no SVN! Obrigado pela colaboração!

Você tem as duas versões certo ? 7 e 2010 do delphi! fez o que é informado pelo Isaque em seu blog pra poder funcionar? do MDFe você tem o Quickreport instalado? os outros componentes instalaram normalmente?

Bom dia Asterix, Favor atualizar os fontes e testar novamente.