| | |
|---|
| | | begin |
|---|
| | | ScanSaveFilename := ''; |
|---|
| | | FormID := BarCode2FormID; //取出FormID |
|---|
| | | if (FormID <> '') and ISGuideFormID(FormID) then |
|---|
| | | NowGuideFormID := FormID; |
|---|
| | | //Showmessage('A:'+FormID+#13+'B:'+NowGuideFormID); |
|---|
| | | if (NowGuideFormID <> '') {and (FormID = '')} then |
|---|
| | | FormID := NowGuideFormID; |
|---|
| | | // if (FormID <> '') and ISGuideFormID(FormID) then //20170510 註解 因為DSCAN 會全擠在導引頁下 |
|---|
| | | // NowGuideFormID := FormID; |
|---|
| | | // if (NowGuideFormID <> '') {and (FormID = '')} then //20170510 註解 因為DSCAN 會全擠在導引頁下 |
|---|
| | | // FormID := NowGuideFormID; |
|---|
| | | DocNo := FormCode2DocNo(FormID); |
|---|
| | | ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo); |
|---|
| | | //ShowMessage('ScanDocDir='+ScanDocDir); |
|---|
