深圳全飞鸿

标题: 关于SFC的Error Code系统 [打印本页]
作者: zhgc    时间: 2021-7-10 00:07
标题: 关于SFC的Error Code系统
  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;

  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;

  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;

  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;

  38. END;
复制代码


作者: zhgc    时间: 2021-7-10 15:14
系统的不良，都在不良代码系统里申请不良代码。

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





作者: zhgc    时间: 2021-7-10 15:41
本帖最后由 zhgc 于 2021-7-10 18:46 编辑
  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    时间: 2021-7-10 17:56
本帖最后由 zhgc 于 2021-7-10 17:57 编辑
  1. var
  2.   lanBuf:tstrings=nil;
  3.   lanBufStr:tstrings=nil;

  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;

  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;

  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    时间: 2021-7-10 18:44
  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';

  4. function _L(cn:string;en:string):string;

  6. implementation

  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;
复制代码




欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/) Powered by Discuz! X3.2