Ir para conteúdo
  • Cadastre-se

dev botao

Dúvida Array Enumeradotostr


Ver Solução Respondido por Edson,
  • Este tópico foi criado há 3208 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

 

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Edson,

 

Você esta configurando desta forma?

 

ACBrNFe1.DANFE.TipoDANFE := tiNFCe;
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3208 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.