反式脂肪檢測的原始記錄打印程序

上一篇BLOG居然貼不全，估計是超過了允許字段了。。。這個子程序可以直接打印出反式脂肪的原始記錄。。一共4 張。。把一件很費勞動力的事情給徹底簡化了。。

版權所有，抄襲無過。。歡迎大家來抄。。

 

 

set colo off
set path to d:\程序
zt1="font '宋體',18"
zt2="font '宋體',10"
zt3="font '宋體',13"

 

*       反式脂肪酯原始紀錄打印程序    
                 
*  注：共26種，由t1 - t26命名
*  峰面積    由 a1-a26 輸入數組a(26)  
*  換算系數  由 q1-q26 固定數組q(26)
*  校準因子  由 f1-f26 固定數組f(26)
*  樣品名稱   由 n1-n26 固定數組n(26)
**
* 
*    飽和脂肪酸 -----------------------------------------------------
*1     C4:0      丁酸(C4:0)甲酯                  Butyric/丁酸 
*2     C6:0      己酸(C6:0)甲酯                  Caproic/己酸 
*3     C8:0      辛酸(C8:0)甲酯                  Octanoic/辛酸
*4     C10:0  奎酸(C10:0)甲酯                 Capric/癸酸 
*5     C12:0  十二烷酸(C12:0)甲酯             Lauric/月桂酸 
*6     C14:0 十四烷酸(C14:0)甲酯              Tetradecanoic/豆寇酸 
*7     C16:0 十六烷酸甲酯,C16:0 棕櫚酸甲酯    Palmitic/棕櫚酸 
*8     C18:0  十八烷酸甲酯,C18:0 硬酯酸甲酯   Stearic/硬脂酸
*9     C20:0 二十烷酸甲酯,C20:0 花生酸甲酯    Arachidic/花生酸 
*10    C22:0 二十二烷酸甲酯,C22:0山崳酸甲酯   Behenic/山崳酸 
*11    C24:0 二十四烷酸甲酯,C24:0 木蠟酸甲酯  Lignoceric/掬焦油酸 

*  順式不飽和脂肪酸-----------------------------------------------------------

*12     C16:1 9cis            9-順-十六碳烯酸甲酯（C16:1 9cis）,棕櫚油酸甲酯      Palmitoleic/棕櫚油酸 
*13     C18:1 6cis            6-順-十八碳烯酸甲酯（C18:1 6cis）,油酸甲酯          Petroselinic/巖芹酸 
*14     C18:1 9cis           9-順-十八烯酸甲酯,（C18:1 9cis）油酸甲酯           Oleic/油酸 
*15     C18:1 11cis           11-順-十八烯酸甲酯,（C18:1 11cis）異油酸甲酯         Vaccenic/異油酸 
*16     C18:2 9cis12cis        順,順-9，12-十八烯酸甲酯（C18:2 9cis12cis）(亞油酸甲酯)   Linoleic/亞油酸
*17     C18:3 9cis12cis15cis 順,順,順-9,12,15-十八烯酸甲酯(亞麻酸甲酯)（C18:3 9cis12cis15cis）   Linolenic/亞麻酸 
*18     C20:1 11cis          11-順-二十碳烯酸甲酯,（C20:1 11cis）花生一烯酸甲酯                Eicosenoic/花生烯酸 
*19     C22:1 13cis           13-順-二十二烯酸甲酯,（C22:1 13cis）順芥子酸甲酯                  Erucic/芥酸 

*  反式不飽和脂肪酸

*20     C16:1 9trans        反棕櫚烯酸甲酯(C16:1 9trans)              Palmitelaidic/棕櫚油酸 
*21     C18:1 6 trans         6-反-十八烯酸甲酯（C18:1 6 trans）       Petroselaidic/巖芹烯酸 
*22     C18:1 9 trans         反油酸甲酯(C18:1 9 trans)                Olaidic/油烯酸 
*23     C18:1 11 trans         異油酸（C18:1 11 trans）                 Transvaccenic/異油酸 
*24     C18:2 9 trans 12 trans  反亞油酸甲酯(C18:2 9trans12trans)       Linolaidic/反-十八碳二烯酸 
*25     C20:1 11 trans        11-反-二十烯酸甲酯（C20:1 11trans）        Trans Eicosenoic/反-花生烯酸
*26     C22:1 13 trans        13-反-二十二烯酸甲酯（C22:1 13trans）     Brassidic/蕓苔酸 

 

dimension a(26),q(26),f(26),n(26),x(26)
stor 0 to a
stor 0 to x
f(7)=0.003576
* f(7)即f(16:0)的實值
f(1)=1.5106*f(7)
f(2)=1.2836*f(7)
f(3)=1.1702*f(7)
f(4)=1.1021*f(7)
f(5)=1.0567*f(7)
f(6)=1.0243*f(7)
f(7)=1.0000*f(7)
f(8)=0.9811*f(7)
f(9)=0.9660*f(7)
f(10)=0.9536*f(7)
f(11)=0.9433*f(7)
f(12)=0.9925*f(7)
f(13)=0.9745*f(7)
f(14)=0.9745*f(7)
f(15)=0.9745*f(7)
f(16)=0.9678*f(7)
f(17)=0.9612*f(7)
f(18)=0.9600*f(7)
f(19)=0.9482*f(7)
f(20)=0.9925*f(7)
f(21)=0.9745*f(7)
f(22)=0.9745*f(7)
f(23)=0.9745*f(7)
f(24)=0.9678*f(7)
f(25)=0.9600*f(7)
f(26)=0.9482*f(7)

q(1)=0.9868
q(2)=0.9897
q(3)=0.9915
q(4)=0.9928
q(5)=0.9937
q(6)=0.9945
q(7)=0.9950
q(8)=0.9955
q(9)=0.9959
q(10)=0.9962
q(11)=0.9965
q(12)=0.9950
q(13)=0.9955
q(14)=0.9955
q(15)=0.9955
q(16)=0.9954
q(17)=0.9954
q(18)=0.9959
q(19)=0.9962
q(20)=0.9950
q(21)=0.9955
q(22)=0.9955
q(23)=0.9955
q(24)=0.9954
q(25)=0.9959
q(26)=0.9962

n(1)='  C4:0( Butyric/丁酸)      丁酸(C4:0)甲酯 '
n(2)='  C6:0( Caproic/己酸)      己酸(C6:0)甲酯 '
n(3)='  C8:0( Octanoic/辛酸 )    辛酸(C8:0)甲酯 '               
n(4)='  C10:0( Capric/癸酸)      奎酸(C10:0)甲酯 '                
n(5)='  C12:0( Lauric/月桂酸)    十二烷酸(C12:0)甲酯'            
n(6)='  C14:0(Tetradecanoic/豆寇酸)    十四烷酸(C14:0)甲酯'             
n(7)='  C16:0( Palmitic/棕櫚酸 )      十六烷酸甲酯,C16:0 棕櫚酸甲酯'
n(8)='  C18:0( Stearic/硬脂酸)         十八烷酸甲酯,C18:0 硬酯酸甲酯'
n(9)='  C20:0( Arachidic/花生酸)       二十烷酸甲酯,C20:0 花生酸甲酯'   
n(10)='  C22:0( Behenic/山崳酸 )      二十二烷酸甲酯,C22:0山崳酸甲酯'
n(11)='  C24:0( Lignoceric/掬焦油酸)   二十四烷酸甲酯,C24:0 木蠟酸甲酯'
n(12)='  C16:1 9cis  ( Palmitoleic/棕櫚油酸 )    9-順-十六碳烯酸甲酯（C16:1 9cis）,棕櫚油酸甲酯'   
n(13)='  C18:1 6cis  (  Petroselinic/巖芹酸 )    6-順-十八碳烯酸甲酯（C18:1 6cis）,油酸甲酯 '  
n(14)='  C18:1 9cis  ( Oleic/油酸)               9-順-十八烯酸甲酯,（C18:1 9cis）油酸甲酯'  
n(15)='  C18:1 11cis ( Vaccenic/異油酸)          11-順-十八烯酸甲酯,（C18:1 11cis）異油酸甲酯'       
n(16)='  C18:2 9cis12cis( Linoleic/亞油酸 ) 順,順-9，12-十八烯酸甲酯（C18:2 9cis12cis）(亞油酸甲酯)'  
n(17)='  C18:3 9cis12cis15cis( Linolenic/亞麻酸)順,順,順-9,12,15-十八烯酸甲酯（C18:3 9cis12cis15cis）'  
n(18)='  C20:1 11cis  (  Eicosenoic/花生烯酸)      11-順-二十碳烯酸甲酯,（C20:1 11cis）花生一烯酸甲酯 '           
n(19)='  C22:1 13cis( Erucic/芥酸)             13-順-二十二烯酸甲酯,（C22:1 13cis）順芥子酸甲酯 '           
n(20)='  C16:1 9trans (Palmitelaidic/棕櫚油酸 )   反棕櫚烯酸甲酯(C16:1 9trans)'     
n(21)='  C18:1 6 trans( Petroselaidic/巖芹烯酸)  6-反-十八烯酸甲酯（C18:1 6 trans）'    
n(22)='  C18:1 9 trans(  Olaidic/油烯酸 )      反油酸甲酯(C18:1 9 trans) '   
n(23)='  C18:1 11 trans( Transvaccenic/異油酸)  異油酸（C18:1 11 trans）'      
n(24)='  C18:2 9 trans 12 trans(  Linolaidic/反-十八碳二烯酸) 反亞油酸甲酯(C18:2 9trans12trans)'  
n(25)='  C20:1 11 trans( Trans Eicosenoic/反-花生烯酸)         11-反-二十烯酸甲酯（C20:1 11trans）'    
n(26)='  C22:1 13 trans(  Brassidic/蕓苔酸)       13-反-二十二烯酸甲酯（C22:1 13trans）'

use fat
clea
 

bh1=space(8)

@ 15,16 say replicate('-',55)
@ 13,15 say ' 4:打印記錄   '      
@ 18,15 say '樣品編號： ' get BH1

* @ 23,15 say  '進樣次數： ' get cs
read

use fat
locate  for bh=bh1
  if eof()
  RETU
  ENDIF

 

 set print on

set device to printer

  ******************   
   i=1
   do while i<=26
 
    store str(INT(i)) to iii
    store 'Area'+Ltrim(iii) to areax
     stor &areax to  a(i)
   
    i=i+1
    enddo
 
 ********************
i=1
af3=0.0000
do while i<=26
  
     af3=af3+a(i)*f(i)
i=i+1
enddo

************************************

@  5,40 say '反式脂肪酸檢測原始記錄' &zt1

@  7,100 say '記錄編號：'+bh
@  8,100 say '第 1 頁　共 4 頁'
@ 9,10 say replicate('━',55)

@ prow()+1,10 say '檢測項目：反式脂肪酸(26種)'
@ prow()+1,10 say '樣品編號：'+bh
@ prow(),70 say '樣品名稱： '+name
@ prow()+1,10 say '樣品檢測前狀態：正常 '        
@ prow(),70 say '檢測環境： 溫度  '+ltrim(str(wendu))+' ℃        濕度  '+ltrim(str(shidu))+' %'

　

@ prow()+1,10 say '收樣日期：'+substr(syrq,1,4)+' 年  '+ substr(syrq,5,2)+'月 '+ substr(syrq,7,2)+' 日 '
@ prow(),70 say '檢測日期： ' +substr(jyrq,1,4)+' 年  '+ substr(jyrq,5,2)+'月 '+ substr(jyrq,7,2)+' 日 '

 

@ prow()+1,10 say '檢測標準：  '

@ prow()+1,15 say '參照　“中華人民共和國出入境檢驗檢疫行業標準”（食品中反式脂肪酸含量的測定方法）'
@ prow()+1,10 say '檢測條件：'
@ prow()+1,15 say '儀器：惠普5890氣相色譜儀(3336A52239)， DJ-600T電子天平(01230739)'
@ prow()+1,15 say '色譜柱：CP-Sil88 FAME(100 m×0.25 mm ID×0.20 μm)    '
@ prow()+1,15 say '柱溫：初始溫度160 ℃，保持5 min，以1.8 ℃／min速率，升溫至220 ℃，保持11 min '
@ prow()+1,15 say '進樣口溫度為250 ℃，分流比為30:1。   檢測器：氫火焰離子化檢測器，溫度:為260 ℃'
@ prow()+1,10 say '分析步驟:'
@ prow()+1,15 say '用乙醚提取試樣中脂肪，在氫氧化鉀－甲醇溶液中，脂肪經水解、甲酯化反應，轉變為脂肪酸甲酯，用'
@ prow()+1,10 say '配有氫火焰離子化檢測器的毛細管氣相色譜儀進行測定，歸一化法定量。'
@ prow()+2,10 say '計算方法:'
@ prow()+1,15 say '脂肪酸甲酯百分比含量計算：采用歸一化法，計算出各被測組分脂肪酸甲酯的百分比含量（%,m/m），'
@ prow()+1,10 say '換算為甘油三酯百分比含量，再合計為反式脂肪的含量。'

@ prow()+2,10 say '26種反式脂肪酸項目列表：'
@ prow()+1,10 say '1     C4:0             丁酸(C4:0)甲酯                         Butyric/丁酸 '
@ prow()+1,10 say '2     C6:0             己酸(C6:0)甲酯                         Caproic/己酸'
@ prow()+1,10 say '3     C8:0             辛酸(C8:0)甲酯                         Octanoic/辛酸'
@ prow()+1,10 say '4     C10:0             奎酸(C10:0)甲酯                         Capric/癸酸'
@ prow()+1,10 say '5     C12:0             十二烷酸(C12:0)甲酯                    Lauric/月桂酸'
@ prow()+1,10 say '6     C14:0             十四烷酸(C14:0)甲酯                     Tetradecanoic/豆寇酸'
@ prow()+1,10 say '7     C16:0             十六烷酸甲酯,C16:0 棕櫚酸甲酯          Palmitic/棕櫚酸'
@ prow()+1,10 say '8     C18:0             十八烷酸甲酯,C18:0 硬酯酸甲酯           Stearic/硬脂酸'
@ prow()+1,10 say '9     C20:0             二十烷酸甲酯,C20:0 花生酸甲酯           Arachidic/花生酸'
@ prow()+1,10 say '10    C22:0             二十二烷酸甲酯,C22:0山崳酸甲酯          Behenic/山崳酸'
@ prow()+1,10 say '11    C24:0             二十四烷酸甲酯,C24:0 木蠟酸甲酯          Lignoceric/掬焦油酸'
@ prow()+1,10 say '12    C16:1 9cis        9-順-十六碳烯酸甲酯（C16:1 9cis）,棕櫚油酸甲酯   Palmitoleic/棕櫚油酸'
@ prow()+1,10 say '13    C18:1 6cis         6-順-十八碳烯酸甲酯（C18:1 6cis）,油酸甲酯     Petroselinic/巖芹酸'
@ prow()+1,10 say '14    C18:1 9cis         9-順-十八烯酸甲酯,（C18:1 9cis）油酸甲酯         Oleic/油酸'
@ prow()+1,10 say '15    C18:1 11cis        11-順-十八烯酸甲酯,（C18:1 11cis）異油酸甲酯      Vaccenic/異油酸'
@ prow()+1,10 say '16    C18:2 9cis12cis     順,順-9，12-十八烯酸甲酯（C18:2 9cis12cis）(亞油酸甲酯)   Linoleic/亞油酸'
@ prow()+1,10 say '17    C18:3 9cis12cis15cis 順,順,順-9,12,15-十八烯酸甲酯（C18:3 9cis12cis15cis）   Linolenic/亞麻酸'
@ prow()+1,10 say '18    C20:1 11cis        11-順-二十碳烯酸甲酯,（C20:1 11cis）花生一烯酸甲酯      Eicosenoic/花生烯酸'
@ prow()+1,10 say '19    C22:1 13cis       13-順-二十二烯酸甲酯,（C22:1 13cis）順芥子酸甲酯             Erucic/芥酸 '
@ prow()+1,10 say '20    C16:1 9trans        反棕櫚烯酸甲酯(C16:1 9trans)              Palmitelaidic/棕櫚油酸'
@ prow()+1,10 say '21    C18:1 6 trans         6-反-十八烯酸甲酯（C18:1 6 trans）       Petroselaidic/巖芹烯酸'
@ prow()+1,10 say '22    C18:1 9 trans         反油酸甲酯(C18:1 9 trans)                Olaidic/油烯酸'
@ prow()+1,10 say '23    C18:1 11 trans         異油酸（C18:1 11 trans）                 Transvaccenic/異油酸'
@ prow()+1,10 say '24    C18:2 9 trans 12 trans  反亞油酸甲酯(C18:2 9trans12trans)       Linolaidic/反-十八碳二烯酸'
@ prow()+1,10 say '25    C20:1 11 trans        11-反-二十烯酸甲酯（C20:1 11trans）        Trans Eicosenoic/反-花生烯酸'
@ prow()+1,10 say '26    C22:1 13 trans        13-反-二十二烯酸甲酯（C22:1 13trans）     Brassidic/蕓苔酸 '

@ prow()+2,10 say '報告方式及表述:'
@ prow()+1,15 say '反式脂肪(％，m/m，以脂肪計)：××.×   '
@ prow()+1,15 say '含義為：被測食品中每100克脂肪含有××.× g 反式脂肪, 陽性結果報告的最小值：0.1 % (m/m)。'
@ prow()+1,15 say '當結果為0.0%時報未檢出。'

 

 

@ prow()+2,100 say '(接下頁)'
@ prow()+1,10 say replicate('━',55)
@ prow()+1,13 say '檢測者：                                    復核者：'&zt3

eject
　

 

*----------------------

**********************************

i=1
j=1
clea

@  5,40 say '反式脂肪酸檢測原始記錄' &zt1

@  7,100 say '記錄編號：'+bh
@  8,100 say '第 2 頁　共 4 頁'
@ 9,10 say replicate('━',55)
@ 9+i,30 say '下面列出26種脂肪酸甲酯項目的峰面積(當峰面積為 0時，表示該項目在保留時間未出峰 )'&zt2

do while j<=26

@ 10+i,10  say '('+alltrim(str(j))+') '+n(j)+'的脂肪酸甲酯 '
@ 11+i,25  say '峰面積為:'+str(a(j))

i=i+2
j=j+1
enddo
@ prow()+1,10 say replicate('━',55)
@ prow()+1,100 say '接下頁'
eject

 

*----------------------
i=1
j=1
clea

@  5,40 say '反式脂肪酸檢測原始記錄' &zt1

@  7,100 say '記錄編號：'+bh
@  8,100 say '第 3頁　共 4 頁'
@ 9,10 say replicate('━',55)

xq3=0

@ 9+i,30 say '下面列出26種脂肪酸甲酯項目的百分含量'
do while j<=26
x(j)=a(j)*f(j)/af3

@ 10+i,10  say '('+alltrim(str(j))+') '+n(j)+'的脂肪酸甲酯'
@ 11+i,20  say '百分含量:'+str(x(j)*100,6,2)+'%'

xq3=xq3+x(j)*q(j)
j=j+1
i=i+2
enddo

@ prow()+1,10 say replicate('━',55)
@ prow()+1,100 say '接下頁'
eject

i=1
j=1

@  5,40 say '反式脂肪酸檢測原始記錄' &zt1

@  7,100 say '記錄編號：'+bh
@  8,100 say '第 4頁　共 4 頁'
@ 9,10 say replicate('━',55)

@ 9+i,30 say '下面列出26種脂肪酸甲酯項目換算為甘油三酯后的百分含量'

tg=0.0000

do while j<=26

@ 10+i,10  say '('+alltrim(str(j))+') '+n(j)+'的甘油三酯'
@ 11+i,20  say '百分含量:'+str(100*x(j)*q(j)/xq3,6,2)+'%'

  if j>=20
  tg=tg+q(j)*x(j)/xq3
  endif
 
j=j+1
i=i+2
enddo

if af3=0
repl tf with 0
@ prow()+2,15 say '總反式脂肪酸甘油三酯的含量(％，m/m，以脂肪計)： 未檢出'
else
repl tf with tg*100

@ prow()+2,15 say '總反式脂肪酸甘油三酯的含量(％，m/m，以脂肪計)：'+str(tf,6,1)+'%'
endif

 

@ prow()+1,10 say replicate('━',55)
　
eject

set device to scre
retu

　
set device to scre
* set print off
return