ich habe im Formular BKASSPOBARC bei BUTTON_20OnClick
die SQL Anweisung für frmAuflist2 geändert dahingehend,
dass ich anstatt der "SELECT *" - Abfrage eine Abfrage mit allen Feldern
(aber mit geänderter Reihenfolge) erstellt habe:
Code: Alles auswählen
(...)
O_Auflist := Application.FindComponent('frmAuflist2');
O_Auflist.Caption := Self.Caption;
O_Auflist.MultiSelectIDFeld := 'ID';
O_Auflist.bEinfacheAuswahl := true;
O_Auflist.Q_Erfassung.SQL.Text := 'SELECT ' +
'MASKENKEY,ARTBEZ,ARTBEZ2,(HK1*1.19) Brutto,ID,ALZEIT,'+
'ARTDRUCK,ARTKZ,BESTELLEN,BBVO_ART,BNAME,BREIT,DURCHEK,'+
'EANCODE,EKDATUM,EKKTO,FAKTOR,FAKTOR_LE,FAKTOR_LF,FAKTOR_LV,'+
'FAKTOR_V,FAKT_E,FAKT_LE,FAKT_LF,FAKT_LV,FAKT_V,FERTKZ,GARMON,'+
'GKLVE_E,GPREIS,INVSATZ,INV_MEK,BARTG5_ID_KALKGR,KLVE_E,KLVE_V,'+
'KLPE_V,ERSATZTEIL,K_AEKPF,K_BPR,K_DIENST,K_DISK,K_LISTP,K_LPFL,'+
'K_VK,K_VKVE,K_INV,LANG,TIEF,LLZEIT,MATCHCODE,BMENG_ID_ME_E,'+
'BMENG_ID_ME_F,BMENG_ID_ME_L,BMENG_ID_ME_V,BMWST_ID_MWSTKZ,'+
'OBERF,'+
'PAL_E,PAL_V,BMENG_ID_PE_E,BMENG_ID_PE_V,PRBASIS,TOLERANZ,UK_E,'+
'UK_V,'+
'BLAND_ID_URSPLAND,VERKKTO,VOLK_E,BWERK_ID_WERKSTOFF,'+
'BARTG1_ID_WGR1K,'+
'BARTG2_ID_WGR2K,BARTG3_ID_WGR3K,BARTG4_ID_WGR4K,'+
'BARTG6_ID_WGR6K,'+
'BARTG7_ID_WGR7K,BKST_ID_EKKOST,BKST_ID_VKKOST,ZEICHNR,'+
'KALKNACH,'+
'BSAL_ID,AKTIV_JN,ARTIKEL_ART,CHARGE_JN,VORMONTAGE,BSAL_KZ,HK1,'+
'HK1_DATUM,HK1_GPREIS_DIFF,HK1_USER,RABATT_JN,KANBAN_JN,'+
'BPROPT_ID,'+
'BZOTAR_ID,BSAKATLG_ID,GEWICHT,NORM1,NORMART1,NORM2,NORMART2,'+
'EINSATZMENGENFAKTOR,BSAS_GEWICHT,VERSCHN,MAT_GEW_B,'+
'MAT_GEW_N,'+
'BVERPA_ID,VERSCHL,MASCHZUORD,NEGLAG_JN,K_FA_AUTOFERTIG,'+
'BSAKAT_ID,'+
'WERKZEUG,UVP,STATUS,BFARB_ID,VKRUNDEN,SERIENNR_EINK,'+
'KUNDENBEZUG,'+
'SERIENNR_VERK,ERFASST,VORGABE,EINSATZ_GEW,TEILE_GEW,'+
'KALK_BASIS,'+
'ZUS_KOST,ROHS_KONFORM,BBVONEG_KZ,BFARB_GEW,VOC,DIV_ARTIKEL,'+
'VORGPFAD,BENUTZER,GESPEICHERT,BARTG5_MASKENKEY,BARTG5_BEZ,'+
'BMENG_MASKENKEY_ME_E,BMENG_MASKENKEY_ME_F,'+
'BMENG_MASKENKEY_ME_L,'+
'BMENG_MASKENKEY_ME_V,BMWST_MASKENKEY,BMWST_PROZENT,'+
'BMENG_MASKENKEY_PE_E,BMENG_MASKENKEY_PE_V,BLAND_MASKENKEY,'+
'BWERK_MASKENKEY,BWERK_WERKST,BWERK_SG,BWERK_WERKSTOFFB,'+
'BARTG1_MASKENKEY,BARTG1_BEZ,BARTG2_MASKENKEY,BARTG2_BEZ,'+
'BARTG3_MASKENKEY,BARTG3_BEZ,BARTG4_MASKENKEY,BARTG4_BEZ,'+
'BKST_MASKENKEY_EKKOST,BKST_MASKENKEY_VKKOST,'+
'BPROPT_MASKENKEY,'+
'BPROPT_BEZEICHNUNG,T_ARRAYS_INT_ARRAY,T_ARRAYS_VAR_ARRAY,'+
'BZOTAR_MASKENKEY,BZOTAR_BEZ1,BARTG6_MASKENKEY,BARTG6_BEZ,'+
'BSAHK_BSAP_GESAMT,BSAHK_BSAS_GESAMT,BSAHK_BSAL_GESAMT,'+
'BSAHK_VORGABE_GESAMT,BSAHK_PRBERKZ,BSAKATLG_MASKENKEY,'+
'BVERPA_MASKENKEY,BSAKAT_MASKENKEY,BSAKAT_BEZ,'+
'BFARB_MASKENKEY,'+
'BFARB_BEZ,BMAND_BWAER_MASKENKEY,BARTG7_MASKENKEY,'+
'BARTG7_BEZ, A_VIEWPSEUDO_ID_BZEI'+
' FROM V_BSA ' +
'WHERE (ARTBEZ = :BARCODE) OR ' +
' (ARTBEZ CONTAINING :BARCODE)
OR ' +
' (ARTBEZ2 = :BARCODE) OR ' +
' (ARTBEZ2 CONTAINING :BARCODE)
OR ' +
' (MASKENKEY = :BARCODE) OR ' +
' (MASKENKEY CONTAINING
:BARCODE) AND ' +
' AKTIV_JN = :SJA';
O_Auflist.Q_Erfassung.ParamByName('BARCODE', sAusw);
O_Auflist.Q_Erfassung.ParamByName('SJA',
(...)
Was ist bei so einer Änderung noch zu beachten? SQL habe ich über den Objektinspektor geändert, das Formular gespeichert...
Ist es sinnvoll, wenn ich gleich den View ändere?