REFLEX Angebot/Auftrag Styles Code

1 Allgemeines

Hier finden Sie den Programm-Code, der in den Standard-Style-Reports für Angebot/Auftrag verwendet wird.

2 Code

procedure MasterDataAnschriftOnBeforePrint(Sender: TfrxComponent);
begin
  // Dies ist der erste Bereich des Reports, der gedruckt wird (außer dem PagerHeader des Basis-Reports).
  // Hier kann man generelle Einstellungen des Reports vornehmen.

  // Anschriftenfeld zusammenstellen:
  memoAnschrift.Lines.Clear;

  memoAnschrift.Lines.Add( <AuftragsKopf."NameFirma"> );

  if <Ansprechpartner."Briefanrede"> >  then
    memoAnschrift.Lines.Add( <Ansprechpartner."Briefanrede"> );

  memoAnschrift.Lines.Add( <AuftragsKopf."Str"> );
  memoAnschrift.Lines.Add( <AuftragsKopf."PLZ"> + ' ' + <AuftragsKopf."Ort"> );
  memoAnschrift.Lines.Add( UpperCase( <Adresse."Landname"> ) );

  // Kennzeichen 3 = Rabatt im Fuss Ja/Nein
  if <AuftragsKopf."KENNZ3"> = 'Nein' then
    ChildMaterialRabatt.Visible := False;

  // Kennzeichen 5 = Kapitelpreise Ja/Nein
  if <AuftragsKopf."KENNZ5"> = 'Nein' then
  begin
    memoKapitelBetrag.Visible         := False;
    GroupFooterKapitel.Visible := False;
  end;

  // Kapitel-Summe im Fuss:
  if <AuftragsKopf."KENNZ7"> = 'Nein' then
    GroupFooterKapitel.Visible := False;

  // Bänder nur für ANGEBOT (bzw. ANFRAGE):
  if <AuftragsKopf."StatusNr"> in [3,7,103,107] then // ANGEBOT, ANFRAGE, ANGEBOT im Archiv, ANFRAGE im Archiv
  begin
    // Angebots-Text im Fuß:
    ChildAngebotAuftragserteilung.Visible := True;

    // Wenn keine Arbeitszeit im Auftrag: Band unterdrücken:
    MasterDataArbeitszeitAng.Visible := <AuftragsFuss."SummeArbzeit"> > 0;
  end
  else
  begin
    // Wenn kein Angebot, müssen diese Bereiche IMMER ausgeblendet werden:
    ChildAngebotAuftragserteilung.Visible := False;
    MasterDataArbeitszeitAng.Visible := False;
  end;
end;


procedure pictureBasisKopfLogoOnBeforePrint_inherited(Sender: TfrxComponent);
begin
  if <AuftragsKopf."KENNZ1"> = 'Nein' then
    pictureBasisKopfLogo.Visible := False;
end;
 
procedure MemoNummerOnBeforePrint(Sender: TfrxComponent);
begin
  MemoAuftrNrTitelHeaderPositionen.Visible := True;
end;

procedure HeaderSeitenNummerOnBeforePrint(Sender: TfrxComponent);
begin
  // Seitennummer auf der ersten Seite unterdrücken:
  if <Page>=1 then
    HeaderSeitenNummer.Visible := False
  else
    HeaderSeitenNummer.Visible := True;
end;


procedure MasterDataVARaumOnBeforePrint(Sender: TfrxComponent);
begin
  // Wenn beide Felder leer sind: Ausblenden!
  if ( <AuftragsKopf."VA-OrtKurzname"> =  ) and ( <AuftragsKopf."VA-Raum"> =  ) then
    MasterDataVARaum.Visible := False;
end;

procedure MasterDataStandardTextKopfOnBeforePrint(Sender: TfrxComponent);
begin
  if <StandardTextKopf."StandardText"> =  then
     MasterDataStandardTextKopf.Visible:= False
  else
     MasterDataStandardTextKopf.Visible:= True;
end;

procedure MasterDataKopftextOnBeforePrint(Sender: TfrxComponent);
begin
  if <AuftragsKopf."Kopftext"> =  then
    MasterDataKopftext.Visible:= False
  else
    MasterDataKopftext.Visible:= True;
end;

procedure MasterDataKopfMieteOnBeforePrint(Sender: TfrxComponent);
begin
  if <AuftragsKopf."Bereich_1Verkauf_2Miete_3Mietverkauf"> <> 2 then
    MasterDataKopfMiete.Visible := False
  else
  begin
    MasterDataKopfMiete.Visible := True;

    // Bei Miete Datumsfelder im Kopf nur sichtbar, wenn Text drin steht:
    if <AuftragsKopf."AufbauText"> =  then
    begin
      AuftragsKopfAufbauDatum.Visible := False;
      AuftragsKopfAufbauText.Visible := False;
      AuftragsKopfAufbauZeit.Visible := False;
    end;

    if <AuftragsKopf."AbbauText"> =  then
    begin
      AuftragsKopfAbbauDatum.Visible := False;
      AuftragsKopfAbbauText.Visible := False;
      AuftragsKopfAbbauZeit.Visible := False;
    end;

    if <AuftragsKopf."ProbeText"> =  then
    begin
      AuftragsKopfProbeDatum.Visible := False;
      AuftragsKopfProbeText.Visible := False;
      AuftragsKopfProbeZeit.Visible := False;
    end;
  end;
end;

procedure MasterDataKopfVerkaufOnBeforePrint(Sender: TfrxComponent);
begin
  if <AuftragsKopf."Bereich_1Verkauf_2Miete_3Mietverkauf"> = 2 then
    MasterDataKopfVerkauf.Visible := False
  else
    MasterDataKopfVerkauf.Visible := True;
end;


// Positionen:

procedure ChildDetailPositionenOnBeforePrint(Sender: TfrxComponent);
begin
  if ( <Positionen."TextPosition"> =  ) or ( <AuftragsKopf."KENNZ8"> = 'Nein' ) then
    ChildDetailPositionen.Visible := False
  else
    ChildDetailPositionen.Visible := True;
end;

procedure MemoTitelHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
begin
  // Auf der 1. Seite unterdrücken:
  if <Page> = 1 then
    HeaderSeitenNummer.Visible := False
  else
    HeaderSeitenNummer.Visible := True;
end; 

procedure GroupHeaderKapitelOnBeforePrint(Sender: TfrxComponent);
begin
  // Dieser Code wird ausgeführt, BEVOR das Positionen-Gruppenkopf-Band (die Kapitel-Überschrift) ausgegeben wird.
  // Wenn das Kennzeichen "Seitenwechsel Vorher" gesetzt ist:
  if <Positionen."Seitenwechsel_0Nein_1Vorher_2Nachher"> = 1 then
    Engine.NewPage;                                   // Neue Seite, Seitenkopf usw. drucken
end; 
 

procedure ChildGroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
  // Unterdrücken, wenn kein Zusatztext vorhanden ist:
  if <Positionen."TextPosition"> =  then
    ChildGroupHeader1.Visible := False
  else
    ChildGroupHeader1.Visible := True;
end;
 

 
procedure DetailPositionenOnBeforePrint(Sender: TfrxComponent);
begin
  // Dieser Code wird ausgeführt, BEVOR das Positionen-Detail-Band
  // ausgegeben wird. 

  // Grundeinstellung: Erst mal alles einschalten, unten u.U. wieder aus:
  MemHeaderEinzPreis.Visible       := True;
  memoHeaderRabattTitel.Visible    := True;
  memoHeaderGesPreis.Visible       := True;
  memoPositionenRabattProz.Visible := True; 

  memoPosEinzelPreis.Visible       := True;
  memoPosGesBetrag.Visible         := True; 

  // Derzeit unbenutzt: AuftrStatistikSummeRabatt.Visible:= True; 

  // Kennzeichen 4 = Einzelpreise sichtbar Ja/Nein:
  if <AuftragsKopf."KENNZ4"> = 'Nein' then
  begin
    MemHeaderEinzPreis.Visible    := False;
    memoHeaderRabattTitel.Visible := False;
    memoHeaderGesPreis.Visible    := False;
  end;

  // Wenn der Gesamtpreis 0 ist, den Einzelpreis unterdrücken:
  // (z.B. bei 100 % Rabatt)
  if <Positionen."GesBetrag"> = 0 then
  begin
    memoPosEinzelPreis.Visible := False;
    memoPositionenRabattProz.Visible := False;
  end;

  // Titel "Rabatt" in Überschrift unterdrücken, wenn keine
  // Rabatt-Postion vorhanden ist.
  // (Hinweis: Hinter diesem Feld liegt ein leeres Textfeld, das den Rahmen anzeigt, wenn dieses Feld unsichtbar ist!)
  if <AuftrStatistik."AnzahlRabattPos"> = 0 then
    memoHeaderRabattTitel.Visible := False; 

  // Kennzeichen 2 = Rabatt Ja/Nein
  if <AuftragsKopf."KENNZ2"> = 'Nein' then
  begin
    memoHeaderRabattTitel.Visible := False;
    memoPositionenRabattProz.Visible := False;
    // Derzeit unbenutzt: AuftrStatistikSummeRabatt.Visible := False;
  end; 

  // Kapitel-Position ausblenden:
  // Kennzeichen "Nur Kapitel" = 'Ja': Positionen unterdrücken:
  if ( <Positionen."PosNr"> = 0  )
  or ( <AuftragsKopf."KENNZ6"> = 'Ja' ) then
  begin
    DetailPositionen.Visible := False;
  end
  else
    DetailPositionen.Visible := True; 

  // Rabatt % unterdrücken, wenn's keinen Rabatt-Betrag gibt:
  if <Positionen."RabattBetrag"> = 0 then
    memoPositionenRabattProz.Visible := False;

  // Einzelpreise sichtbar abhängig vom Kennzeichen 4:
  if <AuftragsKopf."KENNZ4"> = 'Nein' then
  begin
    memoPosEinzelPreis.Visible := False;
    memoPositionenRabattProz.Visible := False;
    memoPosGesBetrag.Visible := False;
  end;

  // Bei Mietartikeln den Mietpreisfaktor anzeigen,
  // bei Arbeitszeit die Stunden/Tage:
  PositionenMietFaktor.Visible := False;
  PositionenStundenSoll_BeiArbZeit.Visible := False;
  if <Positionen."Artikelart_1MT_2VK_3DL_4AZ"> = 1 then
  begin
    PositionenMietFaktor.Visible := True;
  end; 

  if <Positionen."Artikelart_1MT_2VK_3DL_4AZ"> = 4 then
  begin
    PositionenStundenSoll_BeiArbZeit.Visible := True;
  end;

  // Alternativ-Position kennzeichnen:
  // Markierung mit " * " nur bei Alternativ-Position anzeigen
  // (und nicht beim Kapitel, das auch das Alternativ-Kennzeichen hat!)
  if (<Positionen."Alternativ_0_1"> = 1) and (<Positionen."PosNr"> > 0 ) then
  begin
    memoPosGesBetrag.Font.Color := clGray; // clWindowFrame;
    MemoAlternativStern.Visible := True;
  end
  else
  begin
    MemoAlternativStern.Visible := False;
    memoPosGesBetrag.Font.Color := clBlack; // clWindowText;
  end;

  // Wenn das Kennzeichen "Seitenwechsel Vorher" gesetzt ist:
  if <Positionen."PosNr"> > 0 then                                   // NICHT bei Kapitel-Position, das wird da schon gemacht!
    if <Positionen."Seitenwechsel_0Nein_1Vorher_2Nachher"> = 1 then
      Engine.NewPage;                                                // Neue Seite, Seitenkopf usw. drucken
  
end; 

procedure HeaderPositionenOnBeforePrint(Sender: TfrxComponent);
begin
  // Auf der 1. Seite unterdrücken:
  if <Page> = 1 then
  begin
    MemoAuftrNrTitelHeaderPositionen.Visible := False;
    HeaderSeitenNummer.Visible := False;
    HeaderPositionen.Visible := False;
  end
  else
  begin
    MemoAuftrNrTitelHeaderPositionen.Visible := True;
    HeaderSeitenNummer.Visible := True;
    HeaderPositionen.Visible := True;
  end;
end;

procedure ChildHeaderPositionenOnBeforePrint(Sender: TfrxComponent);
begin
  // Überschriftszeile unterdrücken, wenn keine Positionen mehr kommen:
  if DetailPositionen.DataSet.EOF then
    ChildHeaderPositionen.Visible := False
  else
    ChildHeaderPositionen.Visible := True;
end;


// FUSS:

procedure FussPositionenOnBeforePrint(Sender: TfrxComponent);
begin
  // Kennzeichen 2 = Rabatt Ja/Nein
  if <AuftragsKopf."KENNZ2"> = 'Nein' then
  begin
    // Derzeit unbenutzt: AuftrStatistikSummeRabatt.Visible:= False;
    MemoFooterGespreis.Visible:= False;
  end; 

  // Ohne Mwst.: Mwst-Felder unterdrücken:
  if <AuftragsFuss."MwstBetrag"> = 0 then
  begin
    AuftragsFussMwstBetrag.Visible:= False;
    AuftragsFussMwstSatzProzent.Visible:= False;
    memoFussGesamtbetragText.Visible:= False;
    AuftragsFussGesamtBetragBrutto.Visible:= False;
  end;

  // Rabatt % berechnen:
  if ( <AuftragsFuss."KalkSummeGesamt"> > 0 ) then
    Set( 'FussRabattProzent', 100 - ( (<AuftragsFuss."SummeMiete"> +  <AuftragsFuss."SummeVerkauf"> ) / <AuftragsFuss."KalkSummeGesamt">  * 100 ) )
  else
    Set( 'FussRabattProzent',0);

end;

procedure AuftrStatistikAnzahlAlternativPosOnBeforePrint(Sender: TfrxComponent);
begin
  // Hinweis aus Alternativ-Positionen:
  if <AuftrStatistik."AnzahlAlternativPos"> = 0 then
    AuftrStatistikAnzahlAlternativPos.Visible := False
  else
    AuftrStatistikAnzahlAlternativPos.Visible := True;
end;

begin