8. Februar 2007 11:02
8. Februar 2007 11:51
IF CONFIRM('Ausdruck in Deutsch?',TRUE) THEN
REPORT.RUNMODAL(Dein_Deutscher_Report)
ELSE
REPORT.RUNMODAL(Dein_Englischer_Report);
Auswahl := STRMENU('Deutsch drucken,Englisch drucken,Abbrechen',1);
CASE Auswahl OF
1: REPORT.RUNMODAL(Dein_Deutscher_Report);
2: REPORT.RUNMODAL(Dein_Englischer_Report);
3: MESSAGE('Dier Verarbeitung wurde abgebrochen');
END;
8. Februar 2007 12:04
<Control1000000009> - OnPush()
BelegDrucken.EinkKopfDruck(Rec);
BerechneTotale()
EinkBuchen.SummeEinkaufZeilen(Rec,1,TotalEkZeile,TotalEkZeileMW,MWStBetrag,MWSTBetragText);
InitDokument(VAR Dokument : Record Dokument)
// DM_stle
Dokument.INIT;
Dokument.Herkunftstyp := 'BESTELLUNG';
Dokument."Herkunftsnr." := "Nr.";
EinkKnopfDruckFax(EinkKopf : Record Einkaufskopf)
//************ 2004-03-18 : Ro : 1.00 **************************************
EinkKopf.SETRANGE("Nr.",EinkKopf."Nr.");
EinkaufEinrichtung.GET;
IF EinkaufEinrichtung."Rechnungsrab. berechnen" THEN BEGIN
EinkZeile.RESET;
EinkZeile.SETRANGE(Belegart,EinkKopf.Belegart);
EinkZeile.SETRANGE("Belegnr.",EinkKopf."Nr.");
EinkZeile.FIND('-');
EinkBerechRab.RUN(EinkZeile);
EinkKopf.GET(EinkKopf.Belegart,EinkKopf."Nr.");
COMMIT;
END;
CASE EinkKopf.Belegart OF
EinkKopf.Belegart::Anfrage:
BerichtsAuswahl.SETRANGE(Verwendung,BerichtsAuswahl.Verwendung::EK_AnFax);
EinkKopf.Belegart::Rahmenbestellung:
BerichtsAuswahl.SETRANGE(Verwendung,BerichtsAuswahl.Verwendung::"EK-Rahm");
EinkKopf.Belegart::Bestellung:
BerichtsAuswahl.SETRANGE(Verwendung,BerichtsAuswahl.Verwendung::EK_BeFax);
ELSE
EXIT;
END;
BerichtsAuswahl.SETFILTER("Bericht ID",'<>0');
BerichtsAuswahl.FIND('-');
REPEAT
REPORT.RUNMODAL(BerichtsAuswahl."Bericht ID",TRUE,FALSE,EinkKopf)
UNTIL BerichtsAuswahl.NEXT = 0;
8. Februar 2007 12:38
ich verstehe aber nicht wann der bericht aufgerufen wird
REPEAT
REPORT.RUNMODAL(BerichtsAuswahl."Bericht ID",TRUE,FALSE,EinkKopf)
UNTIL BerichtsAuswahl.NEXT = 0;
8. Februar 2007 12:46
BerichtsAuswahl."Bericht ID",TRUE,FALSE,EinkKopf
8. Februar 2007 13:34
8. Februar 2007 13:36
8. Februar 2007 14:35
CurrReport.LANGUAGE := Language.GetLanguageID("Language Code");