Moin moin,

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

PHP-Code:
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.

PHP-Code:
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                                                 
**********************************************************