Einzelnen Beitrag anzeigen

Willi1960

Registriert seit: 18. Nov 2006
Ort: Goslar
29 Beiträge
 
#3

Re: Meine Formblätter spinnen

  Alt 1. Jun 2007, 14:45
Danke für die schnelle Antwort. Habe jetzt unter f1 Show Modal nachgeschaut, werde aber nicht ganz schlau daraus. Wo soll ich es denn einsetzten. ich gebe mal kurz die Procedure mit an.

Delphi-Quellcode:
{ Bonabschluss }
     form3.show;
     zeit:=formatdatetime('ddddd',now);
     zeile:=zeile+10;
     bonsumme:=bonsumme+(preis*menge);
     str(bonsumme:5:2,s);
     edit7.text:=s;
     mwst:=bonsumme-(bonsumme/119*100);
     str(mwst:5:2,mwsttext);
     zeilendruck;
     zeile:=zeile+20;
     printer.canvas.textout(0,zeile,' GESAMTPREIS ');
     printer.canvas.textout(300,zeile,s);
     printer.canvas.textout(0,zeile+30,' Goslar d.');
     printer.canvas.textout(150,zeile+30,zeit);
     printer.canvas.textout(0,zeile+40,'Im Gesamtbetrag sind 19 % Mwst');
     printer.canvas.textout(0,zeile+50,' in Höhe von '+mwsttext+' enthalten');
     printer.enddoc;
     taggesamt:=taggesamt+bonsumme;
     str(taggesamt:5:2,s2);
     inc(anzahlkunden);
     edit3.text:=s2;
     Bonsumme:=0;
     feldinhaltloeschen;
     firmendruck:=false;
     edit4.setfocus;
[edit=Matze]Delphi-Tags gesetzt. Das nächste Mal bitte selbst erledigen. Mfg, Matze[/edit]
  Mit Zitat antworten Zitat