Übernahme der Auswahl im Suchmodus - Maske FRMV_BQS [erl.]

[koch]

Hallo,

stehe ein wenig auf dem Schlauch, ist zwar kein großes Problem, würde mich dennoch freuen wenn mir jemand helfen kann

In der Maske QS - Dokumentenverwaltung (FRMV_BQS) gibt es ein Button über den man den Dokumententyp auswählen kann.
Im Einfügemodus klappt das wunderbar, doch im Suchmodus wird die Auswahl nicht in das Feld'E_DOCTYP' übernommen.
Folgender Code steht im 'onClickSkript' des Buttons:

Code: Alles auswählen

Begin
  // letzter Stand: 23.08.2006 GK
  // Eingabehilfe für Werbetextkennzeichen
  //sAuswahl := '"A Anweisung","F Formular"';
  sAuswahl := '"A ' + LB_Anweisung.Caption + '","F ' + LB_Formular.Caption + '"';
  //iAuswahl := SipMessage('Dokumententyp',sAuswahl,'0,1');
  iAuswahl := SipMessage(LB_Dokumententyp.Caption, sAuswahl,'0,1');
  if iAuswahl = 0 then E_DOCTYP.Field.AsString := 'A'
  else if iAuswahl = 1 then E_DOCTYP.Field.AsString := 'F';
End;

Schonmal vielen Dank

Gruß
Werner

[admin]

Code: Alles auswählen

Begin                                  
  // Eingabehilfe für Dokumententyp
  // letzter Stand: 2010.02.02 HB
  
  //  sAuswahl := '"A Anweisung","F Formular"';
  sAuswahl := '"A ' + LB_Anweisung.Caption + '","F ' + LB_Formular.Caption + '"';
  
  if (q_1.state = dssEdit) or (q_1.state = dssInsert) then
  begin      
    iAuswahl := SipMessage(LB_Dokumententyp.Caption, sAuswahl,'0,1');
	  if iAuswahl = 0 then 
		  E_DOCTYP.Field.AsString := 'A'
	  else if iAuswahl = 1 then 
		  E_DOCTYP.Field.AsString := 'F';
  end
  else if (q_1.state = dssSearch) then
  begin      
    iAuswahl := SipMessage(LB_Dokumententyp.Caption, sAuswahl,'0,1');
	  if iAuswahl = 0 then 
		  E_DOCTYP.Text := 'A'
	  else if iAuswahl = 1 then 
		  E_DOCTYP.Text := 'F';
  end;  
End;

[koch]

Vielen Dank für die schnelle Antwort und die Lösung meines kleinen Problems.
Nun kann ich schreibfaul wie ich bin, mir das eintippen eines Buchstabens ersparen

[admin]

Computer sind bekanntlich das beste Produkt menschlicher Faulheit...