Bom dia pessoal,
Na impressão de nota fiscal, a lesgislação atual não se pode mais emitir uma
nota para cada quantidade x de itens, a numeração que já vem impressa em
vermelho é o número do formulário e não da Nota Fiscal. O certo e imprimir
quantos formulários necessários até o total de quantidades de itens colocando o
mesmo número de Nota Fiscal nos formulários. À época que desenvolvi a rotina de
impressão de Notas Fiscais gerei pelos menos quatro rotinas para impressão
sendo:
1: rotina para impressão do cabeçalho;
2: rotina para impressão dos itens;
3: rotina para impressão do rodapé (Totalizadores, transportadora, obs., etc);
4: rotina para reimpressão do cabeçalho e rodapé para as Notas Fiscais com mais
de um formulário.
Obs.: Antes de começar a imprimir, verifico qual a quantidade de itens
contém a nota e qual a quantidade de itens podem ser impressos por formulário
(setado por uma pré-configuração);
Ao imprimir a nota fiscal, para quando a nota possuir mais de um formulário,
devo considerar que os dados do rodapé devem ser impressos somente no último
formulário sendo que os formulários anteriores devem conter (*) asteriscos ou
(X) em seus campos. Para saber quando é o último formulário calculava a cada
passagem de um item o cálculo de :
while not qryItensNF.eof do
begin
ImprimeItensNotas;
QTDE TOTAL ITEM NOTA := QTDE TOTAL ITEM NOTA - 1;
if QTDE TOTAL ITEM NOTA < QTDE TOTAL ITEM FORMULÁRIO then
ImprimirRodapeCompleto := True;
if (Verificar se é necessário dar um saldo de página) then
begin
Reimprimir Rodape;
NewPage;
Reimprimir Cabecalho;
end;
qryItensNF.Next;
end;
if ImprimirRodapeCompleto then
ImprimirRodapeCompleto;
Nota: Fiz toda esta rotina utilizando o Print.Canvas;
Espero ter ajudado.
Paulo Sérgio
Desenvolvedor
MV Tecnologia Ltda - Belo Horizonte (matriz)
[EMAIL PROTECTED]
www.mvtec.com.br
Tel:(31) 3286-0106 - Fax: (31) 3286-1266
----- Original Message -----
From: Eduardo Silva dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 05, 2007 1:51 AM
Subject: Re: [delphi-br] Emissão de nota fiscal
Eu acho que essa questão da nota depende do tipo do formulario, o modulo 1
se não engano ja vem com a numeração impressa em vermelho, dai nao daria pra
imprimir duas notas com o mesmo número.
alguém ja usa esse tipo de impressão?
uma vez vi numa empresa e era assim, se tivesse muitos itens o sistema
pulava para a outra folha, so nao lembro como ficava a numeração.
2007/1/4, Andrei Luís <[EMAIL PROTECTED]>:
>
> Sim, Mário, esta é uma opção. Mas não seria mais fácil para o usuário
> digitar uma NF com qtos itens quiser e o sistema imprimir de acordo?
>
> Eu também estou envolvido com desenvolvimento de um sistema que vai
> imprimir NFs e estou caminhando na mesma direção o Régis.
>
> []
> Andrei
>
> Em 04/01/07, Mario Lucio<[EMAIL PROTECTED]<marioluciovs%40bol.com.br>>
> escreveu:
> > Eu tenho um sistema que imprimir Nota Fiscal, mas cada nota tem seu
> número.
> > o que eu faço coloquei na venda do produto uma função onde ele só pode
> fazer X itens(quantidade de itens que a nota pode emitir) se tiver mais
> itens ele tem que gerar outra nota fiscal.
> >
> >
> > Mario Lucio
> >
> > ----- Original Message -----
> > From: Alessandro DUARTE de Moraes
> > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> > Sent: Thursday, January 04, 2007 9:09 AM
> > Subject: Re: [delphi-br] Emissão de nota fiscal
> >
> >
> > Cara, vc pode criar uma variável para contar o número de produtos.
> Quando tiver o número máximo, chame a "função" [NEWPAGE] do próprio
> FastReport.
> >
> > []'s
> >
> > ----- Original Message -----
> > From: Régis Júlio Bender
> > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> > Sent: Wednesday, January 03, 2007 9:08 PM
> > Subject: [delphi-br] Emissão de nota fiscal
> >
> > Boa noite,
> >
> > estou com um problema na impressao de notas fiscais com umas quantidade
> de produtos superior a suportada.
> > Por exemplo, na nota fiscal cabem 12 itens, mas existem 20 para serem
> impressos. Ele deverá jogar em duas notas com o mesmo número.
> > Sei que existe uma propriedade chamada 'force new page' ou algo
> parecido, mas não sei aonde.
> > alguém pode me ajudar???
> >
>
>
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.16.4/615 - Release Date: 03/01/2007
[As partes desta mensagem que não continham texto foram removidas]
