- 论坛徽章:
- 0
|
EXSR SLTSTMTSR1;
0339.00 C/EXEC SQL
0340.00 C+ PREPARE S1 FROM :SLTSTMT
0341.00 C/END-EXEC
0472.00 BEGSR SLTSTMTSR1;
0473.00 CLEAR SLTSTR1;
0474.00 IF PEMN@@<>0 OR ASTNO@@<>' ' OR XZ@@<>' ';
0475.00 SLTSTMT1='SELECT RRN(AC0 ,ASTNO,A8QTY,MUMSR,A8AMT,A8RPD,' +
0476.00 'ASTNM,FPREM,A8LOC,A8BC2 FROM AC08 WHERE ' +
0477.00 ' A8ID1<>''A''';
0478.00 ENDIF;
0479.00 IF PEMN@@<>0;
0480.00 SLTSTR1(1)='FPREM='+PEMN@C;
0481.00 ENDIF;
0482.00 IF XZ@@<>' ';
0483.00 SLTSTR1(2)='A8BC2 <>'' ''';
0484.00 ENDIF;
0485.00 IF ASTNO@@<>' ';
0486.00 SLTSTR1(4)='ASTNO='''+ASTNO@@+'''';
0487.00 ENDIF;
FOR SLTSTRIDX1=1 TO SLTSTRNO1 BY 1;
IF SLTSTR1(SLTSTRIDX1)<>' ';
SLTSTMT1=%TRIM(SLTSTMT1)+' AND '+SLTSTR1(SLTSTRIDX1);
ENDIF;
ENDFOR; |
|