DIEGO J B PIRES

Pessoal, bom dia Sabem dizer se será possível integrar a calculadora da reforma tributária com o componente de NFe do ACBR para que a parte do xml relativo à reforma que preenchido por item seja montado por essa calculadora;?

Boa tarde, tenho essa função no meu sistema para processar o retorno de cancelamento de NF, porém quando o cancelamento dá duplicidade, não estou conseguindo pegar o protocolo do cancelamento Tentei pegar por ai e não deu certo. ALguem já precisou dessa informação ? prot := NotaAcbr.WebServices.Consulta.procEventoNFe[i].RetEventoNFe.InfEvento.detEvento.nProtEvento; procedure TProcessoNotaFiscal.ProcessarRetornoCancelamento(just : string); var codStat, i : Integer; xml, prot : string; dt : TDateTime; trans : TDBXTransaction; begin codStat := NotaAcbr.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; case codStat of //Evento registrado 135 : begin xml := NotaACBR.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML; prot := NotaAcbr.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; dt := NotaAcbr.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; end; //Duplicidade 573 : begin NotaAcbr.NotasFiscais.Clear; NotaAcbr.WebServices.Consulta.NFeChave := CdsDfe.AsStr('DFECHAVE'); NotaAcbr.WebServices.Consulta.ExtrairEventos := true; NotaAcbr.WebServices.Consulta.Executar; if NotaAcbr.WebServices.Consulta.cStat in [100, 101] then begin for i := 0 to NotaAcbr.WebServices.Consulta.procEventoNFe.Count - 1 do begin if NotaAcbr.WebServices.Consulta.procEventoNFe[i].RetEventoNFe.InfEvento.tpEvento = TpcnTpEvento.teCancelamento then begin xml := NotaAcbr.WebServices.Consulta.procEventoNFe[i].RetEventoNFe.XML; prot := NotaAcbr.WebServices.Consulta.procEventoNFe[i].RetEventoNFe.InfEvento.detEvento.nProtEvento; dt := NotaAcbr.WebServices.Consulta.procEventoNFe[i].RetEventoNFe.InfEvento.dhEvento; just := NotaAcbr.WebServices.Consulta.procEventoNFe[i].RetEventoNFe.InfEvento.detEvento.xJust; end; end; end else AddMsg(NotaAcbr.WebServices.Consulta.xMotivo, true); end; else AddMsg('Não foi possível cancelar a NF.' + sLineBreak + notaAcbr.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo, true); end; if Sucesso then begin trans := IniciarTransacao; CdsDfe.Editar; CdsDfe.FieldByName('DFEXMLCANCELADO').AsString := xml; CdsDfe.FieldByName('DFEPROTOCOLOCANC').AsString := prot; CdsDfe.FieldByName('DFEDATACANC').AsDateTime := dt; CdsDfe.FieldByName('DFEJUSTCANC').AsString := just; CdsDfe.FieldByName('DFESIT').AsInteger := Ord(esdCANCELADO); CdsDfe.Commit; CommitTransacao(trans); end; end;

Problema com a consulta CNPJ. Está dando erro no captcha.

Encontrei uma propriedade Layout e coloquei lPadraoEntrega Vllw

Boa tarde Estava usando a versão Fast Report para impressão dos boletos, mas tive que mudar pro Fortes Report que é gratuito, porém o boleto não a parte do canhoto (No fortes). Alguem que tenha inserido e possa me apoiar? Att

Deu certo meu caro. Vacilo aqui.Esqueci de atualizar o fr3. Como faço uma cópia pro meu diretório não tinha atualizado.

Pessoal, Estou com erro ao imprimir boleto pelo fastReport após as ultimas atualizações; O erro é esse.. monitorei o projeto meu e não tive alterações nem encontrei esse memo93. Sabem dizer se o ACBR ta errado ou é alguma mudança que preciso fazer aqui?

Obrigado por responder. Esse vídeo aqui tinha visto mesmo, mas tentei aqui e não consegui adequar a forma que o cara fez com meu jeito aqui. Mesmo assim obrigado.

Pessoal Se alguem puder me ajudar. Até procurei no forum e encontrei falando do meu problema, mas não consegui encaixar pra resolver o meu caso. Tenho salvo no banco de dados o arquivo do certificado. *.pfx. Atualmente faço o download numa pasta temporária e utilizo, mas queria ler o certificado direto do banco de dados sem ter baixá-lo... Utilizo o firebird. O campo no banco está como BLOB SUB_TYPE 0 SEGMENT SIZE 2048; function VerificarValidadeCertificado(caminho, senha : string) : TDate; var nfe : TACBrNFe; begin if (senha = '') or not(FileExists(caminho)) then begin Result := 0; Exit; end; try nfe := CriarACBrNFe; nfe.Configuracoes.Certificados.ArquivoPFX := caminho; nfe.Configuracoes.Certificados.Senha := senha; nfe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; nfe.Configuracoes.Geral.SSLHttpLib := httpWinHttp; nfe.Configuracoes.Geral.SSLLib := libWinCrypt; nfe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; Result := nfe.SSL.CertDataVenc; finally FreeAndNil(nfe); end; end; Criei essa função para pegar no banco de dados function Certificado : string; var cds : TBDClientDataSet; begin try cds := CriaCds; cds.Close; cds.SQL.Add('SELECT * FROM EMPRESA ' + ' WHERE EMPCOD = ' + IntToStr(GetSessao.Empresa.Codigo) ); cds.Open; Result := cds.FieldByName('EMPCERT').AsString; finally FreeAndNil(cds); end; end; Porém dá erro! Alguem que sofreu com isso, pode me ajudar? Eu salvo assim no BD procedure TfrmCadastroEmpresa.TelaParaCds; begin inherited; cdsCadastro.Editar; cdsCadastro.FieldByName('EMPCERTSENHA').AsString := Criptografar(txtSenhaCertificado.Value); if (arquivoSelecionado <> '') then TBlobField(cdsCadastro.FieldByName('EMPCERTARQ')).LoadFromFile(arquivoSelecionado); cdsCadastro.Post; end;

Boa noite pessoal, Vocês por acaso, tem algum arquivo fr3 (Fast Report) ou do Fortes Reports de ordem de serviço ou pedido que possam compartilhar? Ainda estou aprendendo a mexer com essa ferramenta de relatório. Desde já agradeço.

Pessoal, Gostaria de ajuda para quem puder.. Desenvolvi uma rotina que captura as alíquotas do Imposto Estimado (IBPT) para não ficar dependendo daqueles arquivos em excel. Porém gostaria de automatizar esse processo para executar em segundo plano por exemplo, como um segundo aplicativo, sem depender do principal. Alguem já fez algo parecido ?

Meu caro deu certo! Obrigado.

Oi Juliomar, Quando refiro a "cortado", são as palavras "Cte Cancelado". As margens influenciam nessa parte ?

Para o cte cancelado, o dacte esta saindo com o texto "cortado". Alguem sabe como resolver ? Imagem de como está saindo. Já quando uso fr3 em formato paisagem não imprime...

Deu certo. Mudei o arquivo do danfe para paisagem e funcionou. Tava usando um retrato. Obrigado!