金税发票号码回写Baan

tony

1. declaration:
   
2. #ident "@(#)T1896_07_01, Ganesh Moorthy J, 2008-09-10, B50C_c_x201"
   
3. #ident "@(#)T1896_07_02, Ganesh Moorthy J, 2008-09-12, B50C_c_x201"
   
4. 
   
5.         table        tfxacr005        | VAT Information in Getpaid System
   
6. 
   
7.         extern  domain  tcmcs.str132m   fpath
   
8.         extern  domain  fxex.datf       datf
   
9.                 domain  tcncmp          site
   
10.                 domain  tcmcs.str11     ninv
    
11.                 domain  tcmcs.long      vtno
    
12.                 domain  tfgld.date      vtdt
    
13.                 long    retval
    
14. 
    
15.     #include <bic_tt>
    
16.     #pragma used dll "ofxcomdll0001"
    
17. |****************************** form section **********************************
    
18. group.1:
    
19. init.group:
    
20.     get.screen.defaults()
    
21. |****************************** choice section ********************************
    
22. 
    
23. choice.cont.process:
    
24. on.choice:
    
25.     retval = 0
    
26.     if not process.file()  then
    
27.         fxcom.dll0001.close()
    
28.         choice.again()
    
29.     else
    
30.         message("File Uploaded Successfully")   
    
31.     endif
    
32. 
    
33. |****************************** field section *********************************
    
34. 
    
35. field.fpath:
    
36. check.input:
    
37.     if rpos(fpath, "/") = len(fpath) then
    
38.         message("Please Specify the file name")
    
39.         choice.again()
    
40.     endif
    
41. 
    
42. |****************************** function section ******************************
    
43. 
    
44. functions:
    
45. 
    
46. function domain tcbool process.file()
    
47. {   
    
48.     if fxcom.dll0001.open(fpath, 4, ",") < 1 then
    
49.         return(false)
    
50.     endif
    
51.     fxcom.dll0001.set.date.array(4, datf, 0, 1)
    
52.     while retval = 0
    
53.         retval = get.file.values()
    
54.         if retval = 2 then
    
55.             message("Wrong Data")
    
56.             return(false)
    
57.         endif
    
58.         if retval = 0 then
    
59.             tt.align.according.domain(ninv, ninv, "tcmcs.str11")
    
60.             update.main.table()
    
61.         endif
    
62.     endwhile
    
63.     fxcom.dll0001.close()
    
64.     return(true)
    
65. }
    
66. 
    
67. function long get.file.values()
    
68. {
    
69.     site = 0
    
70.     ninv = ""
    
71.     vtno = 0
    
72.     vtdt = 0
    
73.     return(fxcom.dll0001.get.values(site, ninv, vtno, vtdt))
    
74. }
    
75. 
    
76. function update.main.table()
    
77. {
    
78.         domain  tfgld.ttyp  ttyp
    
79.         domain  tfgld.docn  docn
    
80.        
    
81.         ninv = strip$(shiftl$(ninv))
    
82.         ttyp = ninv(1;3)
    
83. |        docn = val(ninv(3))                                                |#T1896_07_02.o
    
84.     docn = val(ninv(4))                                         |#T1896_07_02.n
    
85.        
    
86.         db.retry.point()       
    
87.         select        fxacr005.*
    
88.         from        fxacr005 for update
    
89.         where   fxacr005._index1 = {:site, :ttyp, :docn}
    
90.         order by fxacr005._index1
    
91.         selectdo
    
92.         selectempty
    
93.             fxacr005.site = site
    
94.             fxacr005.ttyp = ttyp
    
95.             fxacr005.ninv = docn
    
96.             fxacr005.vtno = vtno
    
97.             fxacr005.vtdt = vtdt
    
98.                 | update set
    
99.                 db.insert(tfxacr005, db.retry)
    
100.                 commit.transaction()
     
101.         endselect
     
102. }

复制代码