关于SFC的Error Code系统

zhgc

1. var
   
2.   lanBuf:tstrings=nil;
   
3.   lanBufStr:tstrings=nil;
   
4. function TFrmDM.GetPubMessage(PROMPT_CODE: String): STRING;
   
5. var
   
6.   SLANGUAGE:STRING;
   
7.   iIndex:integer;
   
8. BEGIN
   
9.   SLANGUAGE:='C';
   
10.   IF(Globepas.LAN <>'CN')THEN SLANGUAGE:='E';
    
11.   PROMPT_CODE:=SLANGUAGE+PROMPT_CODE;
    
12.   result:=PROMPT_CODE;
    
13. 
    
14.   if(lanBuf=nil)then lanBuf:=tstringlist.Create;
    
15.   if(lanBufStr=nil)then lanBufStr:=tstringlist.Create;
    
16.   if(lanBuf.Count<>lanBufStr.Count)then
    
17.   begin
    
18.      lanBuf.Clear;
    
19.      lanBufStr.Clear;
    
20.   end;
    
21. 
    
22.   iIndex:= lanBuf.IndexOf(PROMPT_CODE);
    
23.   if(iIndex>=0)then
    
24.   begin
    
25.     result:= lanBufStr[iIndex];
    
26.   end else
    
27.   begin
    
28.     self.qrymsg.Close;
    
29.     self.qrymsg.SQL.Text:='call SFC.GET_PROMPT_MESSAGE('''+PROMPT_CODE+''',@x)';
    
30.     self.qrymsg.Execute;
    
31. 
    
32.     self.qrymsg.close;
    
33.     self.qrymsg.SQL.Text:='select @x msg from dual'  ;
    
34.     self.qrymsg.Open;
    
35.     result:=self.qrymsg.fieldbyname('msg').AsString;
    
36.   end;
    
37. 
    
38. END;

复制代码

zhgc

系统的不良，都在不良代码系统里申请不良代码。

信息在sqlite的数据库里发布。 所有客户的系统，不良代码是一至的。一个EC反应的是同样的现象和问题！

zhgc

1. procedure TPM_MainForm.Chinese1Click(Sender: TObject);
   
2. var
   
3.   inipp:Tinifile;
   
4. begin
   
5.   Chinese1.Checked:=TRUE;
   
6.   English1.Checked:=FALSE;
   
7.   inipp:=Tinifile.Create('SFIS.INI');
   
8.   inipp.WriteString('LANGUAGES','LANGUAGE','C');
   
9.   inipp.Free;
   
10. end;

复制代码

1. procedure TPM_MainForm.English1Click(Sender: TObject);
   
2. var
   
3.   inipp:Tinifile;
   
4. begin
   
5.   Chinese1.Checked:=FALSE;
   
6.   English1.Checked:=TRUE;
   
7.   inipp:=Tinifile.Create('SFIS.INI');
   
8.   inipp.WriteString('LANGUAGES','LANGUAGE','E');
   
9.   inipp.Free;
   
10. end;

复制代码

zhgc

1. var
   
2.   lanBuf:tstrings=nil;
   
3.   lanBufStr:tstrings=nil;
   
4. 
   
5. function TDataModule1.GetPubMessage(PROMPT_CODE: String): STRING;
   
6. var
   
7.   SLANGUAGE:STRING;
   
8.   iIndex:integer;
   
9. BEGIN
   
10.   SLANGUAGE:='C';
    
11.   IF(Globepas.LAN <>'CN')THEN SLANGUAGE:='E';
    
12.   PROMPT_CODE:=SLANGUAGE+PROMPT_CODE;
    
13.   result:=PROMPT_CODE;
    
14. 
    
15.   if(lanBuf=nil)then lanBuf:=tstringlist.Create;
    
16.   if(lanBufStr=nil)then lanBufStr:=tstringlist.Create;
    
17.   if(lanBuf.Count<>lanBufStr.Count)then
    
18.   begin
    
19.      lanBuf.Clear;
    
20.      lanBufStr.Clear;
    
21.   end;
    
22. 
    
23.   iIndex:= lanBuf.IndexOf(PROMPT_CODE);
    
24.   if(iIndex>=0)then
    
25.   begin
    
26.     result:= lanBufStr[iIndex];
    
27.   end else
    
28.   begin
    
29.     with  SELF.MyStoredProc1   do
    
30.     begin
    
31.        close;
    
32.        StoredProcName:='SFC.GET_PROMPT_MESSAGE';
    
33.        preparesql;
    
34.        ParambyName('P_PROMPT_CODE').Asstring :=PROMPT_CODE;
    
35.        try
    
36.          ExecProc;
    
37.          result:=ParambyName('RES').AsString;
    
38.          lanBuf.Add(PROMPT_CODE);
    
39.          lanBufStr.Add(result);
    
40.        except
    
41.          Showmessage('GET_PROMPT_MESSAGE Exception Happened');
    
42.        end;
    
43.     end;
    
44.   end;
    
45. END;

复制代码

zhgc

1.     showmessage(_L('工单'+strwo+'已投WIP, 不允许删除工单，请联系MES管理员处理!',
   
2.                   'The work order ('+strwo+') is already in production and cannot be deleted, please contact the MES administrator'));

复制代码

Globepas

1. var
   
2.   lan:string='EN';
   
3. 
   
4. function _L(cn:string;en:string):string;
   
5. 
   
6. implementation
   
7. 
   
8. function _L(cn:string;en:string):string;
   
9. begin
   
10.   if(lan='CN')then
    
11.     result:=cn
    
12.   else
    
13.     result:=en;
    
14. end;

复制代码