IdealB

Pessoal, Estou com problemas para identificar quando uma NFe está denegada. No XML, não tem a tag protNFe mas quando faço o download pelo site da SEFAZ, ela aparece. Na busca pelo fórum, vi que alguns programadores estavam com problema mas ninguém apresentou nenhuma solução. grato.

Olá pessoal, estou contratando programador Delphi e gostaria de saber a média de salário para: Junior, Pleno e Sênior com conhecimento em SQL e POO e 3 anos de experiência. Grato pela ajuda.

Empresa de Software voltada para o varejo necessita de programador Delphi com conhecimento em POO. Local: São Paulo - SP - Moóca Regime: CLT + Benefícios Enviar curriculum com pretensão salarial para: [email protected] grato.

Ítalo, sugestão: //AValue := IntToStr(StrToInt64Def(LimpaNumero(AValue), 0)); lTemp:= LimpaNumero(AValue); AValue:= ifthen(lTemp = EmptyStr, '0', AValue); No meu teste funcionou.

Ítalo, achei o problema. StrToInt64Def() remove zero a esquerda!!! if copy(AValue, 1, 4) = '800' then Result := copy(AValue, 1, 4) + '-' + copy(AValue, 5, 3) + '-' + copy(AValue, 8, 4) Seria gambiarra?

Ítalo, tem coisa "Estranha" ai. Olha só: Trecho da função DFeUtil.FormatarFone(AValue: String): class function DFeUtil.FormatarFone(AValue: String): String; var lTemp: string; begin // Proposta de Italo AValue := IntToStr(StrToInt64Def(LimpaNumero(AValue), 0)); Result := AValue; Quando entra na função LimpaNumero(), AValue está "08007794450" porem, quando sai, o valor é modificado para "8007794450" assim, o trecho de código abaixo não é executado: // Incluido por Italo em 15/01/2014 if copy(AValue, 1, 4) = '0800' then Result := copy(AValue, 1, 4) + '-' + copy(AValue, 5, 3) + '-' + copy(AValue, 8, 4) consegue desvendar?

Sim, compilei usando "Build All Project". Estou usando TACBrNFeDANFERaveCB como gerador. É esse o problema?

Ítalo, obrigado pelo retorno mas continua o mesmo problema. no XML: <fone>08007794450</fone>

Pessoal, é possível informar no telefone do emitente da NFe o número "0800" ? Ao imprimir esta saindo assim: FONE: (80)0779-4450 grato.

Cara, estou utilizando em um pequeno projeto primeiro. Unica dificuldade está sendo no procedimento "Delete" que ao meu ver não poderia executar o comando e sim marca-lo como Deleted primeiro. grato.

Pessoal, estou passando para a propriedade ACBrNFe.Transp.modFrete o valor mfContaDestinatario(2) e, ao gerar o XML, ele coloca mfContaEmitente (1). Estou usando ACBrNFeDANFERaveCB. Alguém esta passando por isso? grato.

João, obrigado pelo retorno. Se fosse um problema de versão do RAVE o ACBrNFeMonitor não deveria funcionar, correto? A unica diferença do meu projeto e do monitor é que encapsulei os componentes na minha classe criando-os em tempo de execução. Você vê algum problema nisso? Poderia exclui o outro post? Respondi no lugar errado. Desculpa. FNFe:= TACBrNFe.Create(Screen.ActiveForm); FDanfe:= TACBrNFeDANFERavecb.Create(FNFe); FNFe.DANFE:= FDanfe; //FDanfe.RavFile := 'Report\DANFE_Rave513.rav'; FNFe.Configuracoes.Certificados.NumeroSerie := FEmpresa.CertificadoDig; FNFe.Configuracoes.Geral.AtualizarXMLCancelado := True; FNFe.Configuracoes.Geral.FormaEmissao := TpcnTipoEmissao(ConfigSys.TipoEmissaoNFe); FNFe.Configuracoes.WebServices.UF := FEmpresa.Cidade.Estado; FNFe.Configuracoes.WebServices.Ambiente := TpcnTipoAmbiente(FEmpresa.AmbienteNFe); FNFe.Configuracoes.WebServices.Visualizar := False; FNFe.Configuracoes.WebServices.AguardarConsultaRet := 1000; FNFe.Configuracoes.WebServices.Tentativas := 10; FNFe.Configuracoes.WebServices.IntervaloTentativas := 1000; FNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; FNFe.Configuracoes.Arquivos.PathEvento := theApp.PathXmlCanc; FNFe.Configuracoes.Arquivos.PathNFe := theApp.PathXmlDest; FNFe.Configuracoes.Arquivos.PathCan := theApp.PathXmlCanc; FNFe.Configuracoes.Arquivos.PathInu := theApp.PathXmlInut; FNFe.Danfe.PathPDF := theApp.PathPDF; FNFe.Danfe.Logo := ALogo; FNFe.Configuracoes.Arquivos.Salvar := True; FDanfe.ExibirResumoCanhoto := True; FDanfe.TipoDANFE := tiRetrato; FDanfe.MostrarPreview := False; FDanfe.MostrarStatus := False;

João, obrigado pelo retorno. Se fosse um problema de versão do RAVE o ACBrNFeMonitor não deveria funcionar, correto? A unica diferença do meu projeto e do monitor é que encapsulei os componentes na minha classe criando-os em tempo de execução. Você vê algum problema nisso? FNFe:= TACBrNFe.Create(Screen.ActiveForm); FDanfe:= TACBrNFeDANFERavecb.Create(FNFe); FNFe.DANFE:= FDanfe; //FDanfe.RavFile := 'Report\DANFE_Rave513.rav'; FNFe.Configuracoes.Certificados.NumeroSerie := FEmpresa.CertificadoDig; FNFe.Configuracoes.Geral.AtualizarXMLCancelado := True; FNFe.Configuracoes.Geral.FormaEmissao := TpcnTipoEmissao(ConfigSys.TipoEmissaoNFe); FNFe.Configuracoes.WebServices.UF := FEmpresa.Cidade.Estado; FNFe.Configuracoes.WebServices.Ambiente := TpcnTipoAmbiente(FEmpresa.AmbienteNFe); FNFe.Configuracoes.WebServices.Visualizar := False; FNFe.Configuracoes.WebServices.AguardarConsultaRet := 1000; FNFe.Configuracoes.WebServices.Tentativas := 10; FNFe.Configuracoes.WebServices.IntervaloTentativas := 1000; FNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; FNFe.Configuracoes.Arquivos.PathEvento := theApp.PathXmlCanc; FNFe.Configuracoes.Arquivos.PathNFe := theApp.PathXmlDest; FNFe.Configuracoes.Arquivos.PathCan := theApp.PathXmlCanc; FNFe.Configuracoes.Arquivos.PathInu := theApp.PathXmlInut; FNFe.Danfe.PathPDF := theApp.PathPDF; FNFe.Danfe.Logo := ALogo; FNFe.Configuracoes.Arquivos.Salvar := True; FDanfe.ExibirResumoCanhoto := True; FDanfe.TipoDANFE := tiRetrato; FDanfe.MostrarPreview := False; FDanfe.MostrarStatus := False;

Obrigado pelo retorno Julio, Mudei para o Rave apontando a propriedade RavFile para o arquivo DANFE_Rave513.rav porem, ocorre um a Access Violation na procedure TACBrNFeDANFERave.ExecutaReport linha dmDanfe.RvProject.ExecuteReport('DANFE1'); finally dmDanfe.RvProject.ExecuteReport('DANFE1'); dmDanfe.RvProject.Close; ProtocoloNFe:=''; end; Obs: dmDanfe e RvProject não estão null

Estou usando o componente TACBrNFeDANFERave para imprimir a danfe, passando o nome do arquivo na propriedade RavFile porem, ocorre um erro na procedure TACBrNFeDANFERave.ExecutaReport linha dmDanfe.RvProject.ExecuteReport('DANFE1'); Access Violation. finally dmDanfe.RvProject.ExecuteReport('DANFE1'); dmDanfe.RvProject.Close; ProtocoloNFe:=''; end; Alguém passou por isso? Grato.

por favor, me ajudem a alterar a impressão da DANFE. Sou leigo no que diz respeito ao RAVE. grato.

Pessoal, gostaria de mexer na unit que imprime a DANFE(Rave) para ajustar o tamanho disponível de impressão da logomarca, mas não sei aonde está ela. A impressão é montada em tempo de execução ou tem um form contendo o componente RAVE? grato.

Kiko, primeiramente obrigado pelo retorno... Acabei de instalar a maquina virtual e o firewall esta desativado..

Pessoal, na maquina de desenvolvimento, a rotina de enviar Email usando TSMTPSend funciona perfeitamente com qualquer domínio. Quando coloco no meu cliente ou na minha maquina virtual, praticamente nenhum domínio funciona. Copiei TODAS as dlls que vem junto com o ACBr na pasta System32 e não funciona. Alguém passou por isso?

boa tarde pessoal, ainda estou com o mesmo problema acima. Já atualizei o ACBr e recompilei. alguém pode me ajudar?

Onde mudo isso no ACBr?

Pessoal, uma CCe foi enviada mas, por um erro, não peguei o protocolo de retorno. Como busca-lo na SEFAZ?

Valew regys.silveira, baixei o sistema teste da SEFAZ e apesar do ACBr permitir uma lista de eventos, deve ser declarado somente um evento por nota fiscal. valew.

Pessoal, há uma Nota fiscal enviada para a SEFAZ com 2 produtos. Os 2 estão com o NCM errados. Devo enviar uma carta com 2 eventos? ou no campo Correção coloco que a correção refere-se aos produtos XXX? Quando monto 2 eventos para um mesmo lote, no XML de retorno não consigo abri-lo no navegar Abaixo informações que podem ajudar. Codigo: with FCCe.CartaCorrecao.CCe.Evento.Add do begin infEvento.chNFe := FNFiscal.NumeroNFe; infEvento.cOrgao := EmpresaSys.CodUFIbge; infEvento.CNPJ := EmpresaSys.CnpjAsNum; infEvento.dhEvento := Now; infEvento.tpEvento := FNFiscal.CartaEventList.Items[I].TpEvento; infEvento.nSeqEvento := FNFiscal.CartaEventList.Items[I].SeqEvento; infEvento.versaoEvento := FNFiscal.CartaEventList.Items[I].VersaoEvento; infEvento.detEvento.descEvento := FNFiscal.CartaEventList.Items[I].DescEvento; infEvento.detEvento.xCorrecao := FNFiscal.CartaEventList.Items[I].Correcao; end; Erro: error on line 5 at column 13: Opening and ending tag mismatch: evento line 0 and infEvento XML de retorno: <?xml version="1.0" encoding="UTF-8" ?> 2SP_EVENTOS_PL_10035573Rejeicao: Duplicidade de Evento (tpEvento + chNFe + nSeqEvento)3512060307544000010455001000000354100000354211011052012-06-04T14:08:04-03:00

Valew Kiko.