Dúvida Array Enumeradotostr

[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.

 

 

[Italo Giurizzato Junior]

Bom dia Edson,

 

Veja bem não existe o tipo de impressão = 6, conforme a sua alteração se configurarmos o componente para Tipo de Impressão = tiNFCeA4 ao gerar o XML será informado o numero 6 e desta forma vai ocorrer um erro de validação ou Rejeição.

 

Da forma que estava antes, bastaria configurar o componente e alimentar a propriedade tpImp segundo o tipo tiNFCeA4 que iria funcionar.

 

Com a sua alteração devemos configurar o componente com o valor tiNFCeA4 e alimentar a propriedade tpImp com o valor tiNFCe, para que não ocorra erro.

[Edson]

Bom dia Edson,

 

Veja bem não existe o tipo de impressão = 6, conforme a sua alteração se configurarmos o componente para Tipo de Impressão = tiNFCeA4 ao gerar o XML será informado o numero 6 e desta forma vai ocorrer um erro de validação ou Rejeição.

 

Da forma que estava antes, bastaria configurar o componente e alimentar a propriedade tpImp segundo o tipo tiNFCeA4 que iria funcionar.

 

Com a sua alteração devemos configurar o componente com o valor tiNFCeA4 e alimentar a propriedade tpImp com o valor tiNFCe, para que não ocorra erro.

Bom dia

Ok, estaremos fazendo as alterações aqui.

Obrigado.

[Edson]

Bom dia Edson,

 

Veja bem não existe o tipo de impressão = 6, conforme a sua alteração se configurarmos o componente para Tipo de Impressão = tiNFCeA4 ao gerar o XML será informado o numero 6 e desta forma vai ocorrer um erro de validação ou Rejeição.

 

Da forma que estava antes, bastaria configurar o componente e alimentar a propriedade tpImp segundo o tipo tiNFCeA4 que iria funcionar.

 

Com a sua alteração devemos configurar o componente com o valor tiNFCeA4 e alimentar a propriedade tpImp com o valor tiNFCe, para que não ocorra erro.

Italo, fizemos os testes aqui  e não obtivemos sucesso.

 

Na configuração do componente Danfe, passamos o valor 4 (tiNfce), mas a impressão esta entendendo o modelo (tiNfceA4).

Mesmo passando o valor no tpimp como orientado, não conseguimos fazer a impressão correta, no modelo bobina.

Lembrando que estamos usando o quickrerport.

Grato.

[Italo Giurizzato Junior]

Boa tarde Edson,

 

Você esta configurando desta forma?

 

ACBrNFe1.DANFE.TipoDANFE := tiNFCe;

[Edson]

 

Boa tarde Edson,

 

Você esta configurando desta forma?

 

ACBrNFe1.DANFE.TipoDANFE := tiNFCe;

 

Boa tarde

Italo, fechou, fazendo isso resolveu.

Obrigado.