Danfe muda pra modo paisagem

[jfaguiar]

Olá Amigos.

Utilizo Classe do Teacher Gilmer e não sei ainda porquê a impressão da Danfe está mudando pra modo paisagem em um cliente.

Após a linha com ::oPrn:SetPage(9) coloquei um ::oPrn:SetPortrait() e mesmo assim o problema persiste. Devo lembrar que isto não acontece em todos os casos.

Alguém pode dar uma ajuda?

Obrigado

[kapiaba]

Na DANFE.PRG não há referência a modo retrato ou paisagem, então, o mais provável, é que o uçuário, tenha modificado as propriedades da impressora.

verifique a seguir:

Preferência de impressão;

Orientação:

Retrato.

Creio que resolve.

abs.

[kleyber]

De repente pode ser a descrição de um produto que é muito longa e a classe faz a mudança automaticamente, pra poder caber essa descrição... pode ser por ai também.

[kapiaba]

SABE DE NADA "INOCENTE" KKKKKKKKKKKKKKKKKKKKKKKK

abs.

[jfaguiar]

Valeu Teachers

Vou dar uma olhada. Creio que seja por conta da descrição longa mesmo, pois nesse meu cliente a descrição é de 100 caracteres.

Kleyber, você saberia no fonte danfe.prg onde altero pra deixar somente em modo retrato?

Obrigado

[gilmer]

Não tem isto no fonte do danfe.prg, acredito mais no que o João falou

[kapiaba]

Method Default() Class TVoImpDanFe


   Local aMargin,nDiv:=::oPrn:nLogPixelX()/300

   Local aMargin2  // alterar aqui


   If valtype(::oPrn)=="O"


      //? ::oPrn:nVertRes(),::oPrn:nHorzRes(),::oPrn:nLogPixelX()/300


      ::oPrn:SetPage(9)  // A4

      ::oPrn:SetPortrait() // Vertical/Retrato


      /*

      ::oPrn:SetPage(9)  //a4

      ::oPrn:SetLandscape() // HORIZONTAL/Paisagem

      */


      Define Font ::oFontCabecalho Name "Time News Roman" Size 0,-5 Of ::oPrn

      Define Font ::oFontCabecalhoCenter Name "Time News Roman" Size 0,-5 Of ::oPrn

      * Define Font ::oFontDados Name "Time News Roman" Size 0,-6 Of ::oPrn BOLD

      Define Font ::oFontDados Name "Courier New" Size 0,-6 Of ::oPrn BOLD


      If !::lProducao

         Define Font ::oFontMensagem Name "ARIAL" Size 100,100 Of ::oPrn

        //NESCAPEMENT 450

      Endif


      aMargin:=::oPrn:SizeInch2Pix(0.09,0.128)


      Define Font ::oFontCodBarra Name "Code128bWin" Size aMargin[1],55 Of ::oPrn


      aMargin2:=::oPrn:SizeInch2Pix(0.09,0.128)


      Define Font ::oFontCodBarra2 Name "Code128bWin" Size aMargin[1],19 Of ::oPrn   // alterar aqui


      Define Pen ::oPenSolid style PS_SOLID Width 2 Color CLR_BLACK Of ::oPrn


      Define Pen ::oPenDot style PS_DOT Width 1 Color CLR_BLACK Of ::oPrn


   Endif


Return(Nil)

[kapiaba]

Vou dar uma olhada. Creio que seja por conta da descrição longa mesmo, pois nesse meu cliente a descrição é de 100 caracteres.

Se for verdade, pegue SUBSTR( PRODUTO, 40 ) + ou - ou o que couber. Eu acho...

abs.

[rochinha]

Amiguinhos,

As descrições de produtos devem ser suscintas, não precisa de uma carta para explicá-las. Mas se a descrição contiver informações de seus itens, como receitas, estas podem usar mais linhas de descrição.

O manual de integração já estipula que quando o produto contiver componentes, estes devem ser apresentados em linha subsequentes.

Use SUBSTR( LINHA, 1, 40 ), depois SUBSTR( LINHA, 41, 40 ), etc.

[jfaguiar]

Deu tudo certo Rocinha era pau na impressora mesmo e o usuário ainda não havia carregado a nova versão do aplicativo com a instrução ::oPrn:SetPortrait() em Danfe.prg.

Quanto a descrição longa, eu tive que manter, pois importei os dados de um tal de S.A.P. rsrsrs e pediram pra deixar como estava.

Obrigado a todos