ich hänge mal wieder fest, mein Problem ist (wahrscheinlich : Wie kann ich an einer Prozedur zwei Parameter übergeben?
Habe folgendes gemacht:
In der Maske FRMV_BARTLH einen dritten Tabsheet eingefügt und auf diesen ein Grid plaziert.
Desweiteren habe ich in das Ereignis 'GRID_V_BARTLHOnEnter' nachfolgenden Code geschrieben:
Code: Alles auswählen
Begin
DebugOn := True;
wo := GRID_V_BARTLHOnEnter;
MyDisplay := TRANSLATE('UP_GLBINFO_CHARGE_IM_LAGER.*', frmData.nSprache);
Q_3.close();
Q_3.SQL.Text := 'SELECT * FROM UP_GLBINFO_CHARGE_IM_LAGER(:BSA_ID, :BLAGER_ID)';
Q_3.MasterParamLinks.Text := 'BSA_ID=V_BARTLH.BSA_ID_LINKKEY';
Q_3.MasterParamLinks.Text := 'BLAGER_ID=V_BARTLH.BLAGER_ID_LAGERNR';
Q_3.MasterLinks.Text := '';
Q_3.DISPLAYLABEL(MyDisplay);
Q_3.open();
GRID_V_BARTLH.DataSource := D_3;
End;
Leider bleibt die Gridansicht leer
Mit der Prozedur UP_GLBINFO_LAGERANSEHEN, klappt das wunderbar, benötigt aber auch nur einen Eingabeparameter.
Diese Prozedur zeigt mir aber alle Lager an, deshalb möchte ich die UP_GLBINFO_CHARGE_IM_LAGER nutzen.
Irgendwelche Ideen?
Vielen Dank im voraus ...
Werner