beneli Postado Dezembro 8, 2008 Denunciar Share Postado Dezembro 8, 2008 Bom dia,Estou desenvolvendo um relatorio de nota fiscal no quick report,no formulario da nota-fiscal eu coloco o numero da nota que sera gerada, ex. (100) esse numero é enviado para o quick report.Quando é gerado mais que uma nota-fiscal ai eu coloque um codigo no Afterprint no band no quick report encrementandoo numero da primeira nota +1, incrementando na segunda nota. Exemplo: X:=StrToInt(Fnotafiscal.Enumero.Text); X:=X+1; QRNumero.Caption:=IntToStr(X);1º nota - 100 +12º Nota - 101Ai fica duas paginas no quick report com duas numeros de nota, OK!Até ai funciona, mas o problema é que quando mando imprimir as duas notas, na impressora as notas saem incrementadas +1Ou seja, no relatorio do qucik report as notas estão corretas, 100 e 101, mas na hora de imprimir, automaticamento é incrementado +1 sem querer.Então a 1ºnota que é 100 sai impressa 101 e a 2ºnota que é 101 sai impressa 102 e assim por diante.Oque eu faço?Obrigado desde já. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Dezembro 8, 2008 Denunciar Share Postado Dezembro 8, 2008 Quando é gerado mais que uma nota-fiscal ai eu coloque um codigo no Afterprint no band no quick report encrementandoo numero da primeira nota +1, incrementando na segunda nota. Exemplo:X:=StrToInt(Fnotafiscal.Enumero.Text);X:=X+1;QRNumero.Caption:=IntToStr(X);1º nota - 100 +12º Nota - 101Ai fica duas paginas no quick report com duas numeros de nota, OK!Até ai funciona, mas o problema é que quando mando imprimir as duas notas, na impressora as notas saem incrementadas +1Ou seja, no relatorio do qucik report as notas estão corretas, 100 e 101, mas na hora de imprimir, automaticamento é incrementado +1 sem querer.Então a 1ºnota que é 100 sai impressa 101 e a 2ºnota que é 101 sai impressa 102 e assim por diante.Oque eu faço?Se voce reparou é o seu proprio comando que está fazendo isto //coloquei um codigo no Afterprint no band no quick report procedure TQRNotaFiscal.QRBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); begin X:=StrToInt(Fnotafiscal.Enumero.Text); X:=X+1; QRNumero.Caption:=IntToStr(X); end; Não coloque o código no AfterPrint da banda e sim do quickreport procedure TQRNotaFiscal.QuickRepAfterPreview(Sender: TObject); begin X:=StrToInt(Fnotafiscal.Enumero.Text); X:=X+1; QRNumero.Caption:=IntToStr(X); end;abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 beneli Postado Dezembro 9, 2008 Autor Denunciar Share Postado Dezembro 9, 2008 Bom dia,Estou desenvolvendo um relatorio de nota fiscal no quick report,no formulario da nota-fiscal eu coloco o numero da nota que sera gerada, ex. (100) esse numero é enviado para o quick report.Quando é gerado mais que uma nota-fiscal ai eu coloque um codigo no Afterprint no band no quick report encrementandoo numero da primeira nota +1, incrementando na segunda nota. Exemplo: X:=StrToInt(Fnotafiscal.Enumero.Text); X:=X+1; QRNumero.Caption:=IntToStr(X);1º nota - 100 +12º Nota - 101Ai fica duas paginas no quick report com duas numeros de nota, OK!Até ai funciona, mas o problema é que quando mando imprimir as duas notas, na impressora as notas saem incrementadas +1Ou seja, no relatorio do qucik report as notas estão corretas, 100 e 101, mas na hora de imprimir, automaticamento é incrementado +1 sem querer.Então a 1ºnota que é 100 sai impressa 101 e a 2ºnota que é 101 sai impressa 102 e assim por diante.Oque eu faço?Obrigado desde já.Obrigado pela ajuda!Eu fiz oque você me falou, eu colouqei esse comando no band do quick report, ele parou de incrementar os numeros da nota no. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
beneli
Bom dia,
Estou desenvolvendo um relatorio de nota fiscal no quick report,
no formulario da nota-fiscal eu coloco o numero da nota que sera gerada, ex. (100) esse numero é enviado para o quick report.
Quando é gerado mais que uma nota-fiscal ai eu coloque um codigo no Afterprint no band no quick report encrementando
o numero da primeira nota +1, incrementando na segunda nota.
Exemplo:
X:=StrToInt(Fnotafiscal.Enumero.Text);
X:=X+1;
QRNumero.Caption:=IntToStr(X);
1º nota - 100
+1
2º Nota - 101
Ai fica duas paginas no quick report com duas numeros de nota, OK!
Até ai funciona, mas o problema é que quando mando imprimir as duas notas, na impressora as notas saem incrementadas +1
Ou seja, no relatorio do qucik report as notas estão corretas, 100 e 101, mas na hora de imprimir, automaticamento é incrementado +1 sem querer.
Então a 1ºnota que é 100 sai impressa 101 e a 2ºnota que é 101 sai impressa 102 e assim por diante.
Oque eu faço?
Obrigado desde já.
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.