Vorgabe Rechnungsdatum

[wlueck]

Hallo,
wenn ich eine Lieferanten-Rechnung eingebe, wird standardmäßig als Eingangsdatum das aktuelle Datum und als Ausstellungsdatum zwei Tage zuvor angegeben. Da ja immer weniger Rechnungen per Papier sondern per Mail kommen, würde ich gerne die Formeln für das Standard-Datum anpassen. Wo finde ich die richtige Stelle dafür?

[Thomas Rogge]

Moinsen,
wenn ich eine Eingangsrechnung erfasse, wird als Rechnungseingangsdatum das aktuelle Datum vorbelegt und das Rechnungsdatum Lieferant bleibt leer und ich muss das händisch eingeben.
Wie erfasst Du denn die Rechnung?
Ich habe die Maske FRMV_BLRC geöffnet und dann einen Datensatz eingefügt.

Ah, Du führst in Bestellungen das Utility "Rechnungseingang erzeugen" aus, korrekt?
Dann öffne mal im Designer das entsprechende Utility FRUBBES_NACH_BRLC und schaue in den Event "OnFormShow", da findest Du:

Code: Alles auswählen

Begin
  B := lbFormName.Caption;
  Z := Application.FindComponent(B);
  
  if (copy(B, 1, 12) = 'FRMV_BKASSCD') then
  begin
    iBBES_ID := AsInteger(Z.Q_8.FieldByName('ID'));
    sFERTIG := AsString(Z.q_8.FieldByName('GEDRUCKT'));  
  end
  else
  begin
    iBBES_ID := AsInteger(Z.Q_1.FieldByName('ID'));
    sFERTIG := AsString(Z.q_1.FieldByName('GEDRUCKT'));
  end;
  
  sNein := copy(frmData.sJaNein,2,1);
  
  if (iBBES_ID = 0) then
    self.close();

  // Ist die Bestellung bereits gedruckt
  if (sFERTIG = sNein) then
  begin
    Messagebox(lb_nicht_gedruckt.caption, self.caption, 0);
    self.close;
  end;
      
  ED_DATUM.text := date();
  ED_RGDATUM.text := date() - 2;
End;

Ganz unten wird das Datum automatisch 2 Tage vorab gesetzt.
Bei der neuesten Version nicht ganz unten, aber in dem Bereich.


Gruß
Thomas