Call Query from Application Engine

曾经终败给现在 2021-11-13 18:24 183阅读 0赞

Function SG\_ExecQuery() Returns boolean;  
   Local string &sOutFile;  
   Local Record &rcdQryRunParms;  
   Local Record &rcdQryPrompts;  
   Local SQL &sqlSelectQryParms;  
   Local number &cnt, &i, &Result;  
   Local ApiObject &aQry, &QryRunTimePrompts;  
   Local boolean &bPublic;  
   Local number &nOrigPSMessagesMode;  
   Local ApiObject &PSMessages;  
   Local number &MsgSetNbr, &MsgNbr;  
   Local boolean &bResult;  
    
   &nOrigPSMessagesMode = %Session.PSMessagesMode;  
   %Session.PSMessagesMode = 1;  
   &sQryName = "SG\_VNDR\_DEBTS2";  
   &sOutFile = %FilePath | &sQryName | "\_" | SG\_VNDR\_DEB\_AET.PROCESS\_INSTANCE;  
   &aQry = %Session.GetQuery();  
    
   If &aQry.Open(&sQryName, True, False) = 0 Then  
      &rcdQryPrompts = &aQry.PromptRecord;  
      If &rcdQryPrompts <> Null Then  
         &QryRunTimePrompts = &aQry.RunTimePrompts;  
         &rcdQryRunParms = CreateRecord(Record.SG\_RUN\_VNDRDBTS);  
         &sqlSelectQryParms = CreateSQL("%Selectall(:1) WHERE OPRID = :2 AND RUN\_CNTL\_ID = :3");  
         &sqlSelectQryParms.Execute(&rcdQryRunParms, %OperatorId, SG\_VNDR\_DEB\_AET.RUN\_CNTL\_ID);  
         While &sqlSelectQryParms.Fetch(&rcdQryRunParms)  
            /\* OPRID and RUN\_CNTL\_ID are here the only prompts for this query … \*/  
            &rcdQryPrompts.GetField(Field.OPRID).Value = &rcdQryRunParms.GetField(Field.OPRID).Value;  
            &rcdQryPrompts.GetField(Field.RUN\_CNTL\_ID).Value = &rcdQryRunParms.GetField(Field.RUN\_CNTL\_ID).Value;  
            Break;  
         End-While;  
         &sqlSelectQryParms.Close();  
      End-If;  
      &Result = &aQry.RunToFile(&rcdQryPrompts, &sOutFile, %Query\_XLS, 0);  
   End-If;  
   &aQry.Close();  
    
   %Session.PSMessagesMode = &nOrigPSMessagesMode;  
   If %Session.PSmessages.Count = 0 Then  
      Return True;  
   Else  
      &bResult = True;  
      &PSMessages = %Session.PSmessages;  
      For &i = 1 To &PSMessages.Count  
         If (&PSMessages.Item(&i).MessageType <= 1) Then  
            &bResult = False;  
            Break;  
         End-If;  
      End-For;  
      Return &bResult;  
   End-If;  
End-Function; /\* SG\_ExecQuery \*/

If SG\_ExecQuery() = True Then  
   Exit (0);  
Else  
   Exit (1);  
End-If;

转载于:https://www.cnblogs.com/GoDevil/archive/2008/12/31/1365854.html