Edson

Bom dia Estava tentando imprimir o Nfc-e no quickreport e nos deparamos com a situação das funções TpImpToStr e StrToTpImp. Verificamos que o result esta assim.. result := EnumeradoToStr(t, ['0', '1', '2', '3', '4', '5', '4'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); O último elemento também é o 4, alteramos para 6 e trocamos o tipo de impressão, e ai sim saiu a impressão em A4 e o fipo bobina. Colocaram assim porque ainda não esta 100% a impressão ou esta errado mesmo? pcnConversao.pas // B21 - Formato de Impressão do DANFE ***************************************** function TpImpToStr(const t: TpcnTipoImpressao): string; begin result := EnumeradoToStr(t, ['0', '1', '2', '3', '4', '5', '4'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); end; function StrToTpImp(out ok: boolean; const s: string): TpcnTipoImpressao; begin result := StrToEnumerado(ok, s, ['0', '1', '2', '3', '4', '5', '4'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); end; alteramos para // B21 - Formato de Impressão do DANFE ***************************************** function TpImpToStr(const t: TpcnTipoImpressao): string; begin result := EnumeradoToStr(t, ['0', '1', '2', '3', '4', '5', '6'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); end; function StrToTpImp(out ok: boolean; const s: string): TpcnTipoImpressao; begin result := StrToEnumerado(ok, s, ['0', '1', '2', '3', '4', '5', '6'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); end; Obrigado a todos e tenham um ótimo dia.

Boa noite. Ja fiz, mas na verdade esta faltando a propriedade, pois esta apenas declarado no private. Verifiquei no fonte e a propriedade foi criada. Grato.

Bom dia. Pessoal faltou a linha abaixo no publico. property Sucesso: String read FSucesso write FSucesso; Grato.

Bom dia a todos. Estou com problema na instalação do pacote nfse, tanto pelo instalador quanto manualmente. Esta dando erro na linha 280 da unit pnfsCancNfseResposta. InfCanc.Sucesso := Leitor.rCampo(tcStr, 'Sucesso'); dei uma olhada na classe TInfCanc e a propriedade em questão esta declarada, mas faltou a propriedade. Ja fiz o checkout do svn, ja removi todos os arquivo com o apagarAcbr.bat, mas mesmo assim não resolveu. Poderiam me ajudar por favor.. Grato.

Ok.. Muito obrigado pelo retorno. Tenha um ótimo dia.

Bom dia Isaque, obrigado pelo retorno, mas a lógica esta errada. Vi que colocou if FTrimString then Result := Trim(Value); Mas a manipulação esta em cima do result Result := Value + StringOfChar(Caracter, Size - Length(Value)); ... Result := FDelimitador + Result; neste caso não teria que ser if FTrimString then Result := Trim(Result); Obrigado..

Bom dia. Estava com problema na geração do bloco do SPED em relação aos espaços no final. Verifiquei que tem a função que retira, mas esta com um erro de lógica. function TACBrTXTClass.RFill(Value: String; Size: Integer = 0; Caracter: Char = ' '): String; begin /// Se a propriedade TrimString = true, Result retorna sem espaços em branco /// iniciais e finais. if FTrimString then Result := Trim(Value); if (Size > 0) and (Length(Value) > Size) then Result := Copy(Value, 1, Size) else Result := Value + StringOfChar(Caracter, Size - Length(Value)); if Caracter = '?' then Result := FDelimitador + StringReplace(Result, ' ', Caracter, [rfReplaceAll]) else Result := FDelimitador + Result; end; A Função esta dando trim no resulte e abaixo ele usa o Value passado na função... então fiz o acerto da seguinte maneira... Value := Trim(Value); o Mesmo problema esta para o LFill. Obrigado a todos.

Boa noite, Italo obrigado, instalou corretamente..

Boa tarde, O componente esta com erro para instalar, esta dando erro na função WebServices.COnsultaNFS, esta faltando o ASerie. Preciso fazer algum procedimento? Estou instalando no Delphi xe2, Windows 8.1. Obrigado a todos. Att. Edson.

Boa tarde igCastro segue link para o SVN. https://github.com/fortesinformatica/fortesreport-ce Mas como Juliomar disse, esta aguardando a versão ficar 100% para colocar no acbr.

Boa tarde. Entendi, ok. Para fazer os meus testes aqui com o delphi xe7, vou deixar alterado, mas assim que estiver ok, desfaço o que alterei. Posso colocar o post como resolvido, ou deixa em aberto. Obrigado.

Só para acrescentar, fiz a alteração somente para o Xe7, pois o 6 foi normalmente a instalação dos componentes.. Obrigado.

Boa tarde Veja novamente, pois para mim esta aparecendo..

Boa tarde Precisei fazer algumas alterações para que o pacote da Danfe para Fortes Report na vcersão Xe7 fosse instalado. Esta anexado as alterações, caso for útil para açguem, ai esta. Fiz as alterações para o CT-e. PS: Não fiz todos os testes. Favor fazer antes de disponibilizar. Obrigado. FortesXE7.rar CTE XE7.rar

Régys Silveira, boa tarde, sim fiz a leitura do manual, mas esta duvida tinha surgido, mas aqui estamos passando como regra a manifestação do destinatário, senão não faz o download, antes disso na verdade estamos orientando a fazer um backup de todos os XMl´s recebidos, pois a operação de download é somente no extremo caso e com ciencia de Gerencia. Mas mesmo assim mais uma vez obrigado a todos.

Boa tarde Juliomar Marchetti, só uma dúvida, porque na receita, se abrirmos a consulta consigo fazer o download de qualquer XML sem manifestar? Grato.

Bom dia Italo, mais uma vez, muito obrigado pelo esclarecimento. No meu caso vou ter que separar mesmo, pois o validador da maioria dos nossos contadores não esta conseguindo validar. Obrigado mais uma vez e tenha um excelente dia.

Bom dia a todos. Verifiquei que foi alterado a maneira de se salvar o XML na consulta, pois agora o XML original, não pode ser alterado. Mas teria alguma maneira de na consulta os eventos estarem separados. Por exemplo Envio evento de correção de depois envio de cancelamento. Quando consulto vem a Autorização, Correção e cancelamento no mesmo XML. Tem alguma maneira de separa-los? Falo isso, porque estamos encontrando resistencias de alguns contadores, quando por ventura percisa consultar o XML e o mesmo vem em um unico arquivo. Obrigado a todos, e tenham todos um excelente dia.

Boa tarde Desculpe a demora na resposta, é que estava ausente. Alteração TNFeDownloadNFe(Self).FDownload.CNPJ; para (Self as TNFeDownloadNFe).CNPJ e retirado o FDownload A segunda alteração foi feita o que passou de TNFeDownloadNFe(Self) para (Self as TNFeDownloadNFe)., pois não estava reconhecendo os dados da maneira que estava, mesmo reinstalando e executando um build no projeto. Agora não sei te explicar o porque, mas no meu caso resolveu. Não tentei voltar e testar novamente, mas caso os testes não apresentam problemas, pode desconsiderar a informação. Obrigado.

Bom dia Segue anexado. Obrigado. ACBrNFeWebServices.pas

Bom dia, segue abaixo as mudanças que efetuei e se estiverem incoerentes por favor ignore e aproveite o que for bom para o projeto. CORREÇÃO 1: UNIT: ACBrNFeWebServices PROCEDURE: TWebServicesBase.DoNFeDownloadNFe; Original: procedure TWebServicesBase.DoNFeDownloadNFe; var DownloadNFe: TDownloadNFe; i: integer; begin DownloadNFe := TDownloadNFe.create; DownloadNFe.schema := TsPL006; DownloadNFe.TpAmb := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1); DownloadNFe.CNPJ := TNFeDownloadNFe(Self).FDownload.CNPJ; for i := 0 to TNFeDownloadNFe(Self). FDownload.Chaves.Count - 1 do begin with DownloadNFe.Chaves.Add do begin chNFe := TDownloadNFe(Self).Chaves.Items.chNFe; end; end; DownloadNFe.GerarXML; FDadosMsg := DownloadNFe.Gerador.ArquivoFormatoXML; DownloadNFe.Free; FDadosMsg := StringReplace( FDadosMsg, '<'+ENCODING_UTF8_STD+'>', '', [rfReplaceAll] ) ; FDadosMsg := StringReplace( FDadosMsg, '<'+ENCODING_UTF8+'>', '', [rfReplaceAll] ) ; FDadosMsg := StringReplace( FDadosMsg, '<?xml version="1.0"?>', '', [rfReplaceAll] ) ; end; Modificada: procedure TWebServicesBase.DoNFeDownloadNFe; var DownloadNFe: TDownloadNFe; i: integer; begin DownloadNFe := TDownloadNFe.create; DownloadNFe.schema := TsPL006; DownloadNFe.TpAmb := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1); DownloadNFe.CNPJ := (Self as TNFeDownloadNFe).CNPJ; for i := 0 to (Self as TNFeDownloadNFe). FDownload.Chaves.Count - 1 do begin with DownloadNFe.Chaves.Add do begin chNFe := (Self as TNFeDownloadNFe). FDownload.Chaves.chNFe; end; end; DownloadNFe.GerarXML; FDadosMsg := DownloadNFe.Gerador.ArquivoFormatoXML; DownloadNFe.Free; FDadosMsg := StringReplace( FDadosMsg, '<'+ENCODING_UTF8_STD+'>', '', [rfReplaceAll] ) ; FDadosMsg := StringReplace( FDadosMsg, '<'+ENCODING_UTF8+'>', '', [rfReplaceAll] ) ; FDadosMsg := StringReplace( FDadosMsg, '<?xml version="1.0"?>', '', [rfReplaceAll] ) ; end; Motivo da Mudança: Utilizando da maneira original a variável CNPJ vinha em branco no DELPHI 7. Obrigado a todos e tenham um ótimo dia.

Bom dia Desculpe na demora da resposta. Obrigado pelo link do tópico. Vou fazer a alteração aqui e fazer os testes. Obrigado mais uma vez.

Bom dia Para ser sincero não encontrei, encontrei um que foi alterado campos que estavam com True para False, mas não foi o campo de quantidade. Obrigado.

Esta sugerindo alterar a classe, mas isso pode resolver para alguns casos e outros não..., pode ser que passam 0 e esteja true e o PVA validar e dar problemas... Gostaria de saber se pode ser alterado a linha passando parametro e não alterando a classe. Grato.

Bom dia Pesquisei sobre uma duvida no bloco c170 e me deparei com um problema. Na unit ACBrEFDBloco_C_Class, na procedure WriteRegistroC170, tem a quantidade que esta sendo formatada coim o comando LFILL( QTD, 0, 4, False, '0', '#0.00000'). Para notas ficais de credito de icms, não pode ir 0 no campo pois o PVA não deixa passar. Tem algum parametro onde posso alterar o false para true, para que quando passar 0 ele coloca |? Verifiquei que na função LFILL ja tem esta verificação, mas como faço para passar? Ou preciso alterar manualmente? Obrigado a todos. At. Edson.