Keine Daten im Windows Subfile

[DEVJO]

Moin moin,

ich habe ein kleines Problem mit der Anzeige von Daten in einem Windows Subfile


A R PLH_SFL SFL
A BS_WAHL 1A I 4 1VALUES(' ' '1')
A BS_PLATZH 25A O 4 6
*
A R PLH_CTL SFLCTL(PLH_SFL)
A SFLCSRRRN(&RECNR)
A 81 SFLDSP
A 82 SFLDSPCTL
A 83 SFLINZ
A 80 SFLCLR
A 84 SFLEND(*MORE)
A SFLSIZ(0011)
A SFLPAG(0010)
A WINDOW(4 10 17 30 *NOMSGLIN)
A RECNR 5S 0H
A PAGNBR 4S 0H SFLRCDNBR
A 1 2'Übersicht Platzhalter'
A 3 1'AW'
A 3 6'Platzhalter'
*
A R DUMMY KEEP
A TEST 1 17 2

Das Subfile wird angezeigt, aber die Daten leider nicht, das Feld BS_PlatzH wird aber befüllt.


Begsr $Exfmt;
Exfmt PLH_TXT;
If InfDS.Taste = F09;
Texte = BS_Fld01 + BS_Fld02 + BS_Fld03 +
BS_Fld04 + BS_Fld05 + BS_Fld06 +
BS_Fld07 + BS_Fld08 + BS_Fld09;
If F_SetPHText(Firma:BS_Platz:BS_Sprach:
TEXTK1:Texte:2222) = FALSE;
BS_MSG = %Subst(Get_MSG('PLH5001'):19);
Endif;
Elseif InfDS.Taste = F04;
Exsr $Init_PLH_CTL;
Exsr $Fill_PLH_SFL;
Exsr $Exfmt_SFL;
Endif;
Endsr;
// ************************************************** ***************
Begsr $Exfmt_SFL;
Dou InfDs.TASTE = F03;
SflDSP = FALSE;
SflDSPCTL = TRUE;
Write DUMMY;
Exfmt PLH_CTL;
SflDSP = TRUE;
SflDSPCTL = FALSE;
Exsr $Taste;
Enddo;
Endsr;
// ************************************************** *************
Begsr $Taste;
Endsr;
// ************************************************** *************
Begsr $Fill_PLH_SFL;
Sprache = Sprach;
Dou BS_PlatzH = '*STOP';
BS_PlatzH = F_Get_All_PH(Firma:2222:Sprache:'READ');
If BS_PlatzH <> '*STOP';
RecNr += 1;
Write PLH_SFL;
If RecNr = 16;
SflEnd = TRUE;
Elseif %Rem(RecNr:10) = 0;
PagNbr += 1;
Else;
SflEnd = FALSE;
Endif;
Else;
BS_PlatzH = F_Get_All_PH(Firma:2222:Sprache:'CLOSE');
Endif;
Enddo;
Endsr;
// ************************************************** ************************
Begsr $Init_PLH_CTL;
Clear BS_PlatzH;
RecNr = 0;
SflDsp = FALSE;
SflDspCtl = TRUE;
Write PLH_CTL;
SflDsp = TRUE;
SflDspCtl = FALSE;
Endsr;
/end-free
************************************************** ********

[Fuerchau]

SflDSP muss AN sein, damit die SFL auch angezeigt wird.
Prüfe das beim entsprechenden EXFMT.

SFLINZ wird nicht benötigt, wenn du die SFL nicht mit der entsprechenden Anzahl Leersätzen befüllen willst.
Ein WRITE fügt dann am Ende an.

SFLCLR muss an sein, wenn du den vorherigen Inhalt löschen willst.