DA-MDFE com muitas notas

[JoséQuintas]

O MDFE só estava gerando uma página.
No meu caso não tinha problema.
Só fui avisado disso hoje.
Por enquanto uma alteração quebra-galho, apenas dividindo as notas, e com todas as páginas iguais.

https://github.com/JoseQuintas/sefazcla ... 1c4b3c44e0

Ainda resolvendo a minha perda de fontes, e outro problema que apareceu.

Se alguém quiser colaborar, uma primeira alteração seria reduzir o tamanho do bloco anterior as NFs, que dá pra deixar só com uma linha cada um.
Isso já melhora, porque 11 notas é pouco.

A outra alteração será pras páginas adicionais: não precisa toda informação da página 1, então vai liberar espaço pra muita nota.
Se estiver tudo em seguida, basta um IF ::nFolha < 2 com o conjunto de impressão, e algo parecido nas notas para ajustar a linha inicial.

[JoséQuintas]

Caso alterem essa quantidade de notas por folha, precisa ajustar os cálculos também.

Código: Selecionar todos

METHOD geraPDF( cFilePDF ) CLASS hbnfeDaMdfe

   LOCAL nQtFolhas, nCont

   nQtFolhas := 1
   IF Len( ::aInfNfe ) > 11
      nQtFolhas := Int( ( Len( ::aInfNfe ) + 10 ) / 11 )
   ENDIF

Código: Selecionar todos

   FOR nCont = 1 TO 11
      nItem := ( ::nFolha - 1 ) * 11 + nCont
      IF nItem > Len( ::aInfNfe )
         EXIT
      ENDIF