FGGLUIZ

Pessoal, estou com uma dúvida: No ACBrNFe.EnviaEmail a opção "AguardarEnvio" para que serve? Esta funcionando? É que estou fazendo alguns testes e observei se setar a opção de AguardarEnvio como True a tela "Status" fica na opção de "Enviando e-mail" e não fecha. (Fica com loop constante). No aguardo. Fábio Gabriel

Amigo, veja: ACBrBoleto1.ImprimirMensagemPadrao:=False; //ou True; Fábio Gabriel

Olá amigos. Ao tentar utilizar os layout´s Fatura e Carne em Fast estava gerando erros de "DisplayFormat" no Delphi 7. Efetuei as correções nos FR3 e estou disponibilizando para os moderadores. Abraços. Fábio Gabriel ACBrBoletoFCFR_Fatura_Carne.rar

Italo, boa noite. Perfeito. Obrigado. Fábio Gabriel

Italo, boa noite. Por gentileza, poderia postar os exemplos em PDF de CCe e Eventos que você implementou em Quick, pois vou fazer nos mesmos moldes em Fast e depois disponibilizar para merge. Desde já agradeço. Fábio Gabriel

Léo, boa noite. Você chegou a trabalhar neste assunto? Tem alguma coisa já pronta? No aguardo, pois vou começar a criar os Eventos para Fast. Fábio

Olá, João. De: Nº [identificacao."NNF"] SÉRIE [identificacao."Serie" #n#000] FOLHA /[TotalPages] Para: Nº [identificacao."NNF"] SÉRIE [identificacao."Serie" #n#000] FOLHA /[TotalPages#] Incluido somente "#" Qualquer dúvida estou a disposição. Abraços. Fábio Gabriel

João Henrique de Souza, bom dia. Na impressão do Danfe em FastReport "Retrato", um cliente observou que quando estava todo preenchido as linhas dos produtos (100%) a numeração da folha aparece 1/2 e não tinha a segunda folha (realmente). Então efetuei uma modificação no arquivo .fr3 em anexo. DANFeRetrato.rar Abraços. Fábio Gabriel

Marcos, veja no ACBrNFe a opção de Stream da logo, tem um exemplo abaixo em Fast:

fjose19, eu faço assim e funciona: ACBrNFeDANFEFR1.CasasDecimais._qCom := 4; ACBrNFeDANFEFR1.CasasDecimais._vUnCom := 4; Fábio

Olá amigo João, bom dia. A função "ReplaceStr" não esta disponível no Delphi 7. Veja a função "StringReplace", eu testei no Delphi 7 e rodou normalmente. "Atual": dmDanfe.frxPDFExport.FileName := PathPDF + ReplaceStr(UpperCase(dmDanfe.NFe.infNFe.ID),'NFE','') + '. "Sugestão": dmDanfe.frxPDFExport.FileName := PathPDF + StringReplace(UpperCase(dmDanfe.NFe.infNFe.ID),'NFE','', [rfReplaceAll, rfIgnoreCase]) + '.pdf'; Abraços. Fábio Gabriel

erikepvh, boa tarde. Use a ferramenta de busca do fórum. Segue: Fábio

Isso ai amigo, cada dia estamos aprendendo mais... Valeu, perfeito. Abraços. Fábio

João, bom dia. Efetuei um teste e a numeração esta Ok. Só que esta truncando as informações dos Vlr. Aprox. Tributos quando não é informado o mesmo. Fábio

Valdir, seria interessante você utilizar o DANFeRetrato.fr3, este arquivo esta mais completo. Assim que você fazer o teste, post o resultado. Fábio

Valdir, qual o arquivo Fast que vc esta usando?

João, boa tarde. Segue em anexo algumas modificações para deixar de ficar truncado os dados do Emitente, obedecendo o manual. Comentários dentro do arquivo. Abraços. Fábio Gabriel FastReport_2013_06_10.rar FastReport_2013_06_10.rar

João, boa tarde. Perfeito. Só efetuei uma modificação no DANFeRetrato.fr3, porque ficou suprimido o nome "Dados Adicionais", se puder subir, esta em anexo. DANFeRetrato.rar Abraços. Fábio Gabriel

João, segue em anexo as modificações e junto os comentários. Fábio Gabriel ACBrNFe_FastReport.rar

Olá, João, me desculpe não retornar antes e que esta semana esta uma loucura. Bom, seria mais o menos isso, vou pegar hoje e amanhã para modificar. Vou aproveitar e dar uma olhada no manual para ver os padrões e tentar levar ao máximo do que estamos precisando. Assim que tiver as modificações eu postarei para você comentar e analisar. Abraços. Fábio Gabriel

João, mas fica várias perguntas para serem respondidas, veja: Se você fosse o meu cliente e eu enviasse para você este XML como iria sair a sua impressão? O Danfe ficaria sem número do protocolo? O protocolo não deve acompanhar junto com XML? Se for efetuar um download do Sefaz não virá este número de protocolo? O XML no inicio ele seria DPEC, após não seria normal? Ao meu ver esta falho, temos que verificar o Tipo de Emissão, mas também se tem protocolo de autorização de uso. Até porque o DPEC foi no momento da contingência, concordo de "NÚMERO DE REGISTRO DPEC", mas após retornar, seria "PROTOCOLO DE AUTORIZAÇÃO DE USO". Veja o link da Portaria CAT- 162, de 29 -12-2008: http://info.fazenda.sp.gov.br/NXT/gateway.dll/legislacao_tributaria/portaria_cat/pcat1622008.htm?f=templates&fn=default.htm&vid=sefaz_tributaria:vtribut Não seria melhor modificar a rotina abaixo no momento da impressão? if (FNFe.Ide.tpEmis = teDPEC) then begin FieldByName('Contingencia_Descricao').AsString := 'NÚMERO DE REGISTRO DPEC'; //precisa testar if DFeUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe) then raise EACBrNFeException.Create('Protocolo de Registro no DPEC não informado.') else FieldByName('Contingencia_Valor').AsString := FDANFEClassOwner.ProtocoloNFe; end; Amigo, desde já agradeço o bom trabalho que você tem no fórum. Fábio Gabriel

João, também faço como você descreveu, está perfeito. Porém quando o serviço normaliza e é enviado o XML para o SEFAZ, o XML é atualizado com um novo protocolo e neste processo o XML é modificado pelo componente, anexa a "Autorização de Uso do Sefaz - cstat = 100". Se você enviar para o cliente e o mesmo for imprimir o XML pelo componente ACBrNFe o mesmo vai apresentar o erro que descrevi no início. Para ajudar a compreender, anexei um XML que foi feito da mesma forma que você descreveu, faça a impressão dele para você ver. Observe que no Tipo de Emissão esta como contingência: <tpEmis>4</tpEmis> Fábio

João, também penso como você. Se ele estiver em contingência, com o protocolo de contingência deverá ser impresso com as informações de contingência. Mas, após a normalização do Sefaz, envio DPEC e vou imprimir o DANFE gera o que te descrevi. No manual, página 111, diz também: A validade do DANFE está condicionada à posterior transmissão da NF-e para a SEFAZ de Origem. Após a normalização, envio e autorização, você envia a XML para o Destinatário? O que você acha sobre? Fábio

João Henrique, boa tarde. Estou criando o DPEC, enviando, retornando, imprimindo, perfeitamente no FastReport (protocolo contingência). Na segunda parte, envio o DPEC para ao Sefaz normalmente, autoriza e pronto, até aí beleza. Bom, daí eu vou imprimir novamente o Danfe (já com o protocolo de autorização de uso atualizado) e não esta correto no FastReport, esta com erro, o número do protocolo não esta aparecendo, já não esta em contigência e a mensagem de contigência continua. Esta acontecendo o mesmo com você? Poderia fazer um teste e nos retornar? No aguardo. Fábio Gabriel

vbarreto, precisa ver o modelo no qual você esta falando, abaixo estão os dois: //Configurações ACBrNFe1.Configuracoes.Geral.ModeloDF := := moNFe; ////Modelo Documento Fiscal (moNFe, moNFCe) --> moNFCe - Consumidor //Identificação Ide.modelo:= 55; //Modelo NFe - Nota Fiscal Eletrônica Exemplo: if ACBrNFe1.Configuracoes.Geral.ModeloDF = moNFe then begin infNFe.Versao := 2; Ide.indFinal := cfNao; //Consumidor - cfNao, cfConsumidorFinal Ide.indPres := pcOutros; //Comprador - pcNao, pcPresencial, pcInternet, pcTeleatendimento, pcOutros Ide.modelo:= 55; //Modelo NFe end Poste o resultado, estamos para ajudar. Fábio