Painel de líderes

Na impressão do Danfe em fastreport não está sendo exibida a mensagem de DENEGAÇÃO DE USO quando o status da NFe é 301,302 ou 303, somente quando é 110. Fiz a alteração no trecho de código abaixo que resolveu o problema. if not (FNFe.Ide.tpEmis in [teContingencia, teFSDA, teSVCAN, teSVCRS, teSVCSP]) then begin //prioridade para opção NFeCancelada if (FDANFEClassOwner.NFeCancelada) or ((DFeUtil.NaoEstaVazio(FNFe.procNFe.nProt)) and (FNFe.procNFe.cStat in [101,151,155])) then FieldByName('Mensagem0').AsString := 'NFe Cancelada' else if ( FNFe.procNFe.cStat = 110 ) or ( FNFe.procNFe.cStat = 301 ) or ( FNFe.procNFe.cStat = 302 ) or ( FNFe.procNFe.cStat = 303 ) then FieldByName('Mensagem0').AsString := 'NFe denegada pelo Fisco' else if ((DFeUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe)) and (DFeUtil.EstaVazio(FNFe.procNFe.nProt))) then FieldByName('Mensagem0').AsString := 'NFe sem Autorização de Uso da SEFAZ' else if (FNFe.Ide.tpImp = tiSimplificado) then FieldByName('Mensagem0').AsString := 'EMISSÃO NORMAL' else FieldByName('Mensagem0').AsString := ''; end else FieldByName('Mensagem0').AsString := ''; A unit corrigida está anexo. Por favor disponibilizem esta correção no repositório para toda comunidade. Abraço e obrigado a todos. ACBrNFeDANFEFRDM.pas

Valeu meu amigo, boa noite!

Primeira coisa que você deve fazer é verificar se existe webservices disponível para integração, se existir você deve pegar as URLS de produção e homologação, assim como o schemas utilizado por esse provedor. Senão existir você deve gerar o Lote de RPS e fazer upload manualmente no sistema da prefeitura, para isso você precisa saber qual o padrão do XML adotado por eles.

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

É utilizar o componente e fácil o problema é não ter conhecimento da regra de negócio! de nada vai adiantar saber alimentar o componente senão pararem e lerem os manuais, notas técnicas e leis ! e após interpretar as mesmas!

Bom dia! Resumindo o que os colegas comentaram. 1 - Vc deve começar identificando a empresa emissora no regime tributário que se encontra. Isto é informando através do código CRT (Código do Regime Tributário) CRT=1 (Simples Nacional) - CRT=3 (Regime Normal) 2 - Se for Simples Nacional (CRT=1) vc deve usar nos campos relacionado a imposto nos itens os códigos CSOSN (CÓDIGO DE SITUAÇÃO DA OPERAÇÃO DO SIMPLES NACIONAL) sem destaque de ICMS. (Salvo devoluções para empresa do regime normal) - Os códigos são (101,201,300,400,500,900) Se for Regime Normal (CRT=3) vc deve usar nos campos relacionados a impostos nos itens os códigos do CST (Código da Situação Tributária). Estes que vc já usava nas notas antigas. Ex. "00"-Tributado integralmente - "60"-Subst. Tributária cobrado anteriormente. etc. 3 - Tente separar isto e veja no manual o que corresponde a cada campo, pois no teu exemplo está tudo misturado, inclusive até subst. tributária vc está informando. Veja no manual que para cada situação tem os campos que devem ser preenchidos.

Bom dia. Pelo que percebi, o cliente esta como Simples Nacional, e não tem CST e sim CSOSN, e neste caso, não pode ter destacado ICMS (salvo alguma excessões). Este erro é devido a ter icms no item e na capa da nota, mas a receita desconsidera a capa, pois é do simples nacional.

Boa tarde, Sim, vai funcionar da mesma forma, mas lembre-se que: No caso da NF-e devemos montar um arquivo INI contendo os dados da nota. Por outro lado no caso da NFS-e devemos montar um arquivo INI contendo os dados do RPS, pois é este que é enviado para o Web Service. Se tudo estiver correto o Web Service retorna o XML da NFS-e.

Caros amigos, Primeira parte do problema era a exibição do Captcha sem dar erro e resolvi desta forma: procedure TACBrConsultaCNPJ.Captcha(Stream: TStream); var Img64, ImgBin, DataClientID: AnsiString; P: Integer; begin try HTTPGet('http://www.receita.f...rCaptcha.asp'); if HTTPSend.ResultCode = 200 then begin HTTPSend.Document.Position := 0; Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size); Stream.Position := 0; end; Except on E: Exception do begin raise EACBrConsultaCNPJException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message); end; end; end; Antes estava assim: procedure TACBrConsultaCNPJ.Captcha(Stream: TStream); var Img64, ImgBin, DataClientID: AnsiString; P: Integer; begin try HTTPGet(GetCaptchaURL); if HttpSend.ResultCode = 200 then begin HTTPSend.Document.Position := 0; Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size); Stream.Position := 0; end; Except on E: Exception do begin raise EACBrConsultaCNPJException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message); end; end; end; Na rotina de consulta deve estar da mesma forma ue a usada na Consulta CPF e, para isto, basta olhar o exemplo de consulta CPF. Por fim estou tentando resolver a parte de consulta, mas até agora não consegui progredir em nada. Espero ter ajudado a dar um caminho para iniciarmos uma solução final. Atenciosamente... Marcus Vinicius Scarpelli

Bom dia, O meu monitor começou a dar esse problema ontem, depois da mudança de horario, acabei deixando ele no horario velho ( sem adiantar uma hora) e voltou a funcionar, mas demorei pra descobrir que era isso.