home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Contabilidade / qpapp1.app (.txt) < prev    next >
MS Visual FoxPro App  |  2015-05-11  |  555KB  |  11,540 lines
  1. PLATFORM
  2. UNIQUEID
  3. TIMESTAMP
  4. CLASS
  5. CLASSLOC
  6. BASECLASS
  7. OBJNAME
  8. PARENT
  9. PROPERTIES
  10. PROTECTED
  11. METHODS
  12. OBJCODE
  13. RESERVED1
  14. RESERVED2
  15. RESERVED3
  16. RESERVED4
  17. RESERVED5
  18. RESERVED6
  19. RESERVED7
  20. RESERVED8
  21.  COMMENT Screen              
  22.  WINDOWS _16V0ME1TO 812602199
  23.  WINDOWS _16V0ME1TP1185644770
  24.  WINDOWS _16V0MNV1U 812602444
  25.  COMMENT RESERVED            
  26. VERSION =   3.00
  27. dataenvironment
  28. dataenvironment
  29. Dataenvironment
  30. YTop = 0
  31. Left = 0
  32. Width = 0
  33. Height = 0
  34. DataSource = .NULL.
  35. Name = "Dataenvironment"
  36. FORM1
  37. Top = 142
  38. Left = 105
  39. Height = 58
  40. Width = 116
  41. DoCreate = .T.
  42. Caption = "Cria
  43. o do Ficheiro Modelo 3"
  44. Icon = ..\shared\icons\gdg2000.ico
  45. Name = "FORM1"
  46. PROCEDURE filecreate
  47. lparam _ana, _anb
  48. _trm3=0
  49. _trdec=0
  50. _trfic=0
  51. _traa=0
  52. _trab=0
  53. _trac=0
  54. local lnind
  55. lnind = 0
  56. if !file(_m3filename)
  57.     filehandle=fcreate(_m3filename)
  58.     filehandle=fopen(_m3filename,2)
  59. endif
  60.  Registo Header do Ficheiro
  61. rec="001ASCII08"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",141)+chr(13)+chr(10)
  62. =FWRITE(FileHandle,rec)
  63.  Registo Header da declara
  64. rec="002"
  65. rec=rec+"Mod.03"
  66. rec=rec+TRANSFORM(ED("M3",1,"1",2), "@L 9999")
  67. rec=rec+TRANSFORM(ED("M3",1,"2",1), "@L 9999")
  68. rec=rec+transform(ED("M3",1,"3",3), "@l 999999999")
  69. If ed("M3",1,"7",2)>=60
  70.     rec=rec+TRANSFORM(Ed("M3",1,"3",5), "@L 999")
  71.     rec=rec+"000"
  72. Endif
  73. if ed("M3",1,"3",7)="S" or ed("M3",1,"3",7)="s"
  74.     REC=REC+"S"
  75.     REC=REC+"N"
  76. endif    
  77. rec=rec+transform(ED("M3",1,"3",4), "@l 999999999")
  78. If ed("M3",1,"3",6)>=60
  79.     rec=rec+TRANSFORM(Ed("M3",1,"3",6), "@L 999")
  80.     rec=rec+"000"
  81. Endif
  82. if ed("M3",1,"3",8)="S" or ed("M3",1,"3",8)="s"
  83.     REC=REC+"S"
  84.     REC=REC+"N"
  85. endif    
  86. rec=rec+replic(" ",116)+chr(13)+chr(10)    
  87. =FWRITE(FileHandle,rec)
  88. _trfic=_trfic+1
  89.  Registo -- Header do Modelo 3
  90. rec="003"
  91. rec=rec+TRANSFORM(ED("M3",1,"3",9), "@L 99")
  92. rec=rec+TRANSFORM(ED("M3",1,"3",10), "@L 99")
  93. REC=REC+TRANSFORM(ed("M3",1,"3",11),"@L 999999999")
  94. REC=REC+TRANSFORM(ed("M3",1,"3",12),"@L 999999999")
  95. REC=REC+TRANSFORM(ed("M3",1,"3",13),"@L 999999999")
  96. REC=REC+TRANSFORM(ed("M3",1,"3",14),"@L 999999999")
  97. REC=REC+TRANSFORM(ed("M3",1,"3",15),"@L 999999999")
  98. REC=REC+TRANSFORM(ed("M3",1,"3",16),"@L 999999999")
  99. REC=REC+TRANSFORM(ed("M3",1,"3",17),"@L 999999999")
  100. REC=REC+TRANSFORM(ed("M3",1,"3",18),"@L 999999999")
  101. REC=REC+TRANSFORM(0,"@L 999999999")
  102. REC=REC+TRANSFORM(0,"@L 999999999")
  103. REC=REC+TRANSFORM(0,"@L 999999999")
  104. REC=REC+TRANSFORM(0,"@L 999999999")
  105. REC=REC+TRANSFORM(0,"@L 999999999")
  106. REC=REC+TRANSFORM(0,"@L 999999999")
  107. rec=rec+replic(" ",26)+chr(13)+chr(10)    
  108. =FWRITE(FileHandle,rec)
  109. _trdec=_trdec+1
  110. _trfic=_trfic+1
  111.  Registo 
  112. rec="004"
  113. REC=REC+TRANSFORM(ed("M3",1,"3",19),"@L 999999999")
  114. if ed("M3",1,"3",23)>=60
  115.     rec=rec+TRANSFORM(Ed("M3",1,"3",23), "@L 999")
  116.     rec=rec+"000"
  117. Endif
  118. if ed("M3",1,"3",27)="S" or ed("M3",1,"3",27)="s"
  119.     REC=REC+"S"
  120.     REC=REC+"N"
  121. endif    
  122. REC=REC+TRANSFORM(ed("M3",1,"3",20),"@L 999999999")
  123. if ed("M3",1,"3",24)>=60
  124.     rec=rec+TRANSFORM(Ed("M3",1,"3",24), "@L 999")
  125.     rec=rec+"000"
  126. Endif
  127. if ed("M3",1,"3",28)="S" or ed("M3",1,"3",28)="s"
  128.     REC=REC+"S"
  129.     REC=REC+"N"
  130. endif    
  131. REC=REC+TRANSFORM(ed("M3",1,"3",21),"@L 999999999")
  132. if ed("M3",1,"3",25)>=60
  133.     rec=rec+TRANSFORM(Ed("M3",1,"3",25), "@L 999")
  134.     rec=rec+"000"
  135. Endif
  136. if ed("M3",1,"3",29)="S" or ed("M3",1,"3",29)="s"
  137.     REC=REC+"S"
  138.     REC=REC+"N"
  139. endif    
  140. REC=REC+TRANSFORM(ed("M3",1,"3",22),"@L 999999999")
  141. if ed("M3",1,"3",26)>=60
  142.     rec=rec+TRANSFORM(Ed("M3",1,"3",26), "@L 999")
  143.     rec=rec+"000"
  144. Endif
  145. if ed("M3",1,"3",30)="S" or ed("M3",1,"3",30)="s"
  146.     REC=REC+"S"
  147.     REC=REC+"N"
  148. endif    
  149. REC=REC+TRANSFORM(0,"@L 999999999")  && DEPENDENTE 5 N
  150. O MENCIONANDO NA DECLARA
  151. rec=rec+"000"
  152. REC=REC+"N"
  153. REC=REC+TRANSFORM(0,"@L 999999999")    && DEPENDENTE 6 N
  154. O MENCIONANDO NA DECLARA
  155. rec=rec+"000"
  156. REC=REC+"N"
  157. REC=REC+TRANSFORM(0,"@L 999999999")    && DEPENDENTE 7 N
  158. O MENCIONANDO NA DECLARA
  159. rec=rec+"000"
  160. REC=REC+"N"
  161. REC=REC+TRANSFORM(0,"@L 999999999")    && DEPENDENTE 8 N
  162. O MENCIONANDO NA DECLARA
  163. rec=rec+"000"
  164. REC=REC+"N"
  165. rec=rec+TRANSFORM(ed("M3",1,"3",31), "@L 9")
  166. rec=rec+TRANSFORM(ed("M3",1,"3",32), "@L 99")
  167. If ED("M3",1,"4",1) = 1
  168.     rec=rec+"1"
  169.     rec=rec+"2"
  170. Endif    
  171. If ED("M3",1,"4",3) = 1
  172.     rec=rec+"3"
  173.     If ED("M3",1,"4",4) = 1
  174.         rec=rec+"4"
  175.     ELSE
  176.         rec=rec+"0"
  177.     endif
  178. Endif    
  179. rec=rec+TRANSFORM(YEAR(ed("M3",1,"4",5)), "@l 9999")+TRANSFORM(month(ed("M3",1,"4",5)), "@l 99")+TRANSFORM(day(ed("M3",1,"4",5)), "@l 99")
  180. Do case
  181.     case ED("M3",1,"5",1) = 1 
  182.         rec=rec+"1"
  183.     case ED("M3",1,"5",2) = 1    
  184.         rec=rec+"2"
  185.     case ED("M3",1,"5",3) = 1    
  186.         rec=rec+"3"
  187.     otherwise
  188.         rec=rec+"0"
  189. Endcase
  190. If !EMPTY(ED("M3",1,"5",4))
  191.     rec=rec+alltrim(str(ED("M3",1,"5",4)))
  192.     rec=rec+replic("0",9)
  193. Endif    
  194. DO case
  195.     CASE !EMPTY(ED("M3",1,"5",5))
  196.         rec=rec+"5"
  197.     CASE !EMPTY(ED("M3",1,"5",6))
  198.         rec=rec+"6"
  199.     OTHERWISE
  200.         rec=rec+"0"
  201. ENDCASE
  202. If !EMPTY(ED("M3",1,"5",7))
  203.     rec=rec+transform(ED("M3",1,"5",7), "@l 999")
  204.     rec=rec+replic("0",3)
  205. Endif    
  206. If !EMPTY(ED("M3",1,"5",8))
  207.     rec=rec+transform(ED("M3",1,"5",8), "@l 999999999999999")
  208.     rec=rec+replic("0",15)
  209. Endif    
  210. Do case
  211.     case ED("M3",1,"6",1) = 1
  212.         rec=rec+"1"
  213.     case ED("M3",1,"6",2) = 1    
  214.         rec=rec+"2"
  215.     case ED("M3",1,"6",3) = 1    
  216.         rec=rec+"3"
  217.     case ED("M3",1,"6",4) = 1    
  218.         rec=rec+"4"    
  219.     otherwise
  220.         rec=rec+"1"
  221. Endcase
  222. rec=rec+replic(" ",9)+chr(13)+chr(10)    
  223. =FWRITE(FileHandle,rec)
  224. _trm3=_trm3+1
  225. _trdec=_trdec+1
  226. _trfic=_trfic+1
  227.  Registo - DETALHE DA MODELO 3
  228. rec="005"
  229. REC=REC+TRANSFORM(ed("M3",1,"7",23),"@L 999999999")
  230. If ed("M3",1,"7",24)>=60
  231.     rec=rec+TRANSFORM(Ed("M3",1,"7",24), "@L 999")
  232.     rec=rec+"000"
  233. Endif
  234. if ed("M3",1,"7",25)=1
  235.     REC=REC+"S"
  236.     REC=REC+"N"
  237. endif    
  238. REC=REC+TRANSFORM(ed("M3",1,"7",27),"@L 999999999")
  239. REC=REC+TRANSFORM(ed("M3",1,"7",30),"@L 999")
  240. REC=REC+TRANSFORM(ed("M3",1,"7",28),"@L 999999999")
  241. REC=REC+TRANSFORM(ed("M3",1,"7",31),"@L 999")
  242. REC=REC+TRANSFORM(0,"@L 999999999")
  243. REC=REC+TRANSFORM(0,"@L 999")
  244. REC=REC+TRANSFORM(0,"@L 999999999")
  245. REC=REC+TRANSFORM(0,"@L 999")
  246. REC=REC+padl(TRANSFORM(ed("M3",1,"7",29),"@L 999999999999999999999"),21,"0")
  247. rec=rec+"N"
  248. If ED("M3",1,"8",1)=0
  249.     REC=REC+"0"
  250.     rec=rec+"1"
  251. Endif
  252. If ED("M3",1,"8",2)=0
  253.     REC=REC+"0"
  254.     rec=rec+TRANSFORM(ED("M3",1,"8",2), "@L 9")
  255. Endif
  256. If ED("M3",1,"8",3)=0
  257.     REC=REC+"0"
  258.     rec=rec+TRANSFORM(ED("M3",1,"8",3), "@L 9")
  259. Endif
  260. If ED("M3",1,"8",4)=0
  261.     REC=REC+"0"
  262.     rec=rec+TRANSFORM(ED("M3",1,"8",4), "@L 9")
  263. Endif
  264. If ED("M3",1,"8",5)=0
  265.     REC=REC+"0"
  266.     rec=rec+"1"
  267. Endif
  268. If ED("M3",1,"8",6)=0
  269.     REC=REC+"0"
  270.     rec=rec+"1"
  271. Endif
  272. If ED("M3",1,"8",7)=0
  273.     REC=REC+"0"
  274.     rec=rec+"1"
  275. Endif
  276. If ED("M3",1,"8",8)=0
  277.     REC=REC+"0"
  278.     rec=rec+"1"
  279. Endif
  280. If ED("M3",1,"8",9)=0
  281.     REC=REC+"0"
  282.     rec=rec+"1"
  283. Endif
  284. If ED("M3",1,"8",10)=0
  285.     REC=REC+"0"
  286.     rec=rec+TRANSFORM(ED("M3",1,"8",10), "@L 9")
  287. Endif
  288. If ED("M3",1,"8",11)=0
  289.     REC=REC+"0"
  290.     rec=rec+TRANSFORM(ED("M3",1,"8",11), "@L 9")
  291. Endif
  292. rec=rec+replic(" ",62)+chr(13)+chr(10)    
  293. =FWRITE(FileHandle,rec)
  294. _trm3=_trm3+1
  295. _trdec=_trdec+1
  296. _trfic=_trfic+1
  297. *----------------------------------------------------------------------
  298.  Registo  ----- Trailer da Modelo 3
  299. rec="006"
  300. rec=rec+transform(_trm3,"@l 999")
  301. rec=rec+replic(" ",153)+chr(13)+chr(10)    
  302. =FWRITE(FileHandle,rec)
  303. _trdec=_trdec+1
  304. _trfic=_trfic+1
  305. *----------------------------------------------------------------------
  306. * A01 Registo ----- Header do Anexo A
  307. If ED("M3",1,"8",1)!=0
  308. Rec="A01"
  309. Rec=rec+TRANSFORM(ed("M3A",1,"3",1),"@L 999999999")
  310. Rec=rec+TRANSFORM(ed("M3A",1,"3",2),"@L 999999999")
  311. Rec=rec+TRANSFORM(ed("M3A",1,"4",1),"@L 999999999")
  312. Rec=rec+TRANSFORM(ed("M3A",1,"4",2),"@L 999999999")
  313. Rec=rec+"000000000"
  314. Rec=rec+"000000000"
  315. Rec=rec+"000000000"
  316. Rec=rec+"000000000"
  317. Rec=rec+"000000000"
  318. Rec=rec+"000000000"
  319. Rec=rec+"000000000"
  320. Rec=rec+"000000000"
  321. Rec=rec+"000000000"
  322. Rec=rec+"000000000"
  323. Rec=rec+"000000000"
  324. Rec=rec+"000000000"
  325. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  326. =FWRITE(FileHandle,rec)
  327. *!*    _trm3=0 ????????
  328. _trdec=_trdec+1
  329. _trfic=_trfic+1
  330. *------------------------------------------------------------------------
  331. * A02  Registo -------- Detalhe do Anexo A(1)
  332. Rec="A02"
  333. rec=rec+transval(ed("M3A",1,"4",3),12)
  334. rec=rec+transval(ed("M3A",1,"4",4),12)
  335. rec=rec+transval(ed("M3A",1,"4",5),12)
  336. rec=rec+transval(ed("M3A",1,"4",6),12)
  337. rec=rec+"000000000000"
  338. rec=rec+"000000000000"
  339. rec=rec+"000000000000"
  340. rec=rec+"000000000000"
  341. rec=rec+"000000000000"
  342. rec=rec+"000000000000"
  343. rec=rec+"000000000000"
  344. rec=rec+"000000000000"
  345. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  346. =FWRITE(FileHandle,rec)
  347. _traa=_traa+1
  348. _trdec=_trdec+1
  349. _trfic=_trfic+1
  350. *------------------------------------------------------------------------
  351. * A03  Registo -------- Detalhe do Anexo A(2)
  352. Rec="A03"
  353. rec=rec+"000000000000"
  354. rec=rec+"000000000000"
  355. rec=rec+"000000000000"
  356. rec=rec+"000000000000"
  357. rec=rec+transval(ed("M3A",1,"4",7),12)
  358. rec=rec+transval(ed("M3A",1,"4",8),12)
  359. rec=rec+transval(ed("M3A",1,"4",9),12)
  360. rec=rec+transval(ed("M3A",1,"4",10),12)
  361. rec=rec+"000000000000"
  362. rec=rec+"000000000000"
  363. rec=rec+"000000000000"
  364. rec=rec+"000000000000"
  365. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  366. =FWRITE(FileHandle,rec)
  367. _traa=_traa+1
  368. _trdec=_trdec+1
  369. _trfic=_trfic+1
  370. *------------------------------------------------------------------------
  371. * A04  Registo -------- Detalhe do Anexo A(3)
  372. Rec="A04"
  373. rec=rec+"000000000000"
  374. rec=rec+"000000000000"
  375. rec=rec+"000000000000"
  376. rec=rec+"000000000000"
  377. rec=rec+"000000000000"
  378. rec=rec+"000000000000"
  379. rec=rec+"000000000000"
  380. rec=rec+"000000000000"
  381. rec=rec+transval(ed("M3A",1,"4",11),12)
  382. rec=rec+transval(ed("M3A",1,"4",12),12)
  383. rec=rec+transval(ed("M3A",1,"4",13),12)
  384. rec=rec+transval(ed("M3A",1,"4",14),12)
  385. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  386. =FWRITE(FileHandle,rec)
  387. _traa=_traa+1
  388. _trdec=_trdec+1
  389. _trfic=_trfic+1
  390. *------------------------------------------------------------------------
  391. * A05  Registo -------- Detalhe do Anexo A(4)
  392. Rec="A05"
  393. rec=rec+"000000000000"
  394. rec=rec+"000000000000"
  395. rec=rec+"000000000000"
  396. rec=rec+"000000000000"
  397. rec=rec+"000000000000"
  398. rec=rec+"000000000000"
  399. rec=rec+"000000000000"
  400. rec=rec+"000000000000"
  401. rec=rec+"000000000000"
  402. rec=rec+"000000000000"
  403. rec=rec+"000000000000"
  404. rec=rec+"000000000000"
  405. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  406. =FWRITE(FileHandle,rec)
  407. _traa=_traa+1
  408. _trdec=_trdec+1
  409. _trfic=_trfic+1
  410. *------------------------------------------------------------------------
  411. * A06  Registo -------- Detalhe do Anexo A(5)
  412. Rec="A06"
  413. rec=rec+transval(ed("M3A",1,"4",15),12)
  414. rec=rec+transval(ed("M3A",1,"4",16),12)
  415. rec=rec+transval(ed("M3A",1,"4",17),12)
  416. rec=rec+transval(ed("M3A",1,"4",18),12)
  417. rec=rec+"000000000000"
  418. rec=rec+"000000000000"
  419. rec=rec+"000000000000"
  420. rec=rec+"000000000000"
  421. rec=rec+"000000000000"
  422. rec=rec+"000000000000"
  423. rec=rec+"000000000000"
  424. rec=rec+"000000000000"
  425. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  426. =FWRITE(FileHandle,rec)
  427. _traa=_traa+1
  428. _trdec=_trdec+1
  429. _trfic=_trfic+1
  430. *------------------------------------------------------------------------
  431. * A07  Registo -------- Detalhe do Anexo A(6)
  432. Rec="A07"
  433. rec=rec+"000000000000"
  434. rec=rec+"000000000000"
  435. rec=rec+"000000000000"
  436. rec=rec+"000000000000"
  437. rec=rec+replic(" ",108)+chr(13)+chr(10)    
  438. =FWRITE(FileHandle,rec)
  439. _traa=_traa+1
  440. _trdec=_trdec+1
  441. _trfic=_trfic+1
  442. *------------------------------------------------------------------------
  443. * A08  Registo -------- Detalhe do Anexo A(7)
  444. Rec="A08"
  445. rec=rec+TRANSFORM(ED("M3A",1,"4",19), "@L 999")
  446. rec=rec+transval(ed("M3A",1,"4",20),12)
  447. rec=rec+transval(ed("M3A",1,"4",21),12)
  448. rec=rec+transval(ed("M3A",1,"4",22),12)
  449. rec=rec+transval(ed("M3A",1,"4",23),12)
  450. rec=rec+"000000000000"
  451. rec=rec+"000000000000"
  452. rec=rec+"000000000000"
  453. rec=rec+"000000000000"
  454. rec=rec+"000000000000"
  455. rec=rec+"000000000000"
  456. rec=rec+"000000000000"
  457. rec=rec+"000000000000"
  458. rec=rec+replic(" ",9)+chr(13)+chr(10)    
  459. =FWRITE(FileHandle,rec)
  460. _traa=_traa+1
  461. _trdec=_trdec+1
  462. _trfic=_trfic+1
  463. *------------------------------------------------------------------------
  464. * A09  Registo -------- Detalhe do Anexo A(8)
  465. Rec="A09"
  466. rec=rec+"000000000000"
  467. rec=rec+"000000000000"
  468. rec=rec+"000000000000"
  469. rec=rec+"000000000000"
  470. rec=rec+replic(" ",108)+chr(13)+chr(10)    
  471. =FWRITE(FileHandle,rec)
  472. _traa=_traa+1
  473. _trdec=_trdec+1
  474. _trfic=_trfic+1
  475. *------------------------------------------------------------------------
  476. * A10  Registo -------- Detalhe do Anexo A(9)
  477. Rec="A10"
  478. rec=rec+TRANSFORM(ED("M3A",1,"4",24), "@L 999")
  479. rec=rec+transval(ed("M3A",1,"4",25),12)
  480. rec=rec+transval(ed("M3A",1,"4",26),12)
  481. rec=rec+transval(ed("M3A",1,"4",27),12)
  482. rec=rec+transval(ed("M3A",1,"4",28),12)
  483. rec=rec+"000000000000"
  484. rec=rec+"000000000000"
  485. rec=rec+"000000000000"
  486. rec=rec+"000000000000"
  487. rec=rec+"000000000000"
  488. rec=rec+"000000000000"
  489. rec=rec+"000000000000"
  490. rec=rec+"000000000000"
  491. rec=rec+replic(" ",9)+chr(13)+chr(10)    
  492. =FWRITE(FileHandle,rec)
  493. _traa=_traa+1
  494. _trdec=_trdec+1
  495. _trfic=_trfic+1
  496. *------------------------------------------------------------------------
  497. * A11  Registo -------- Detalhe do Anexo A(10)
  498. Rec="A11"
  499. rec=rec+"000000000000"
  500. rec=rec+"000000000000"
  501. rec=rec+"000000000000"
  502. rec=rec+"000000000000"
  503. rec=rec+replic(" ",108)+chr(13)+chr(10)    
  504. =FWRITE(FileHandle,rec)
  505. _traa=_traa+1
  506. _trdec=_trdec+1
  507. _trfic=_trfic+1
  508. *------------------------------------------------------------------------
  509. * A12  Registo -------- Detalhe do Anexo A(11)
  510. Rec="A12"
  511. rec=rec+"000"
  512. rec=rec+"000000000000"
  513. rec=rec+"000000000000"
  514. rec=rec+"000000000000"
  515. rec=rec+"000000000000"
  516. rec=rec+"000000000000"
  517. rec=rec+"000000000000"
  518. rec=rec+"000000000000"
  519. rec=rec+"000000000000"
  520. rec=rec+"000000000000"
  521. rec=rec+"000000000000"
  522. rec=rec+"000000000000"
  523. rec=rec+"000000000000"
  524. rec=rec+replic(" ",9)+chr(13)+chr(10)    
  525. =FWRITE(FileHandle,rec)
  526. _traa=_traa+1
  527. _trdec=_trdec+1
  528. _trfic=_trfic+1
  529. *------------------------------------------------------------------------
  530. * A13  Registo -------- Detalhe do Anexo A(12)
  531. Rec="A13"
  532. rec=rec+"000000000000"
  533. rec=rec+"000000000000"
  534. rec=rec+"000000000000"
  535. rec=rec+"000000000000"
  536. rec=rec+replic(" ",108)+chr(13)+chr(10)    
  537. =FWRITE(FileHandle,rec)
  538. _traa=_traa+1
  539. _trdec=_trdec+1
  540. _trfic=_trfic+1
  541. *------------------------------------------------------------------------
  542. * A14  Registo -------- Detalhe do Anexo A(13)
  543. Rec="A14"
  544. rec=rec+"000"
  545. rec=rec+"000000000000"
  546. rec=rec+"000000000000"
  547. rec=rec+"000000000000"
  548. rec=rec+"000000000000"
  549. rec=rec+"000000000000"
  550. rec=rec+"000000000000"
  551. rec=rec+"000000000000"
  552. rec=rec+"000000000000"
  553. rec=rec+"000000000000"
  554. rec=rec+"000000000000"
  555. rec=rec+"000000000000"
  556. rec=rec+"000000000000"
  557. rec=rec+replic(" ",9)+chr(13)+chr(10)    
  558. =FWRITE(FileHandle,rec)
  559. _traa=_traa+1
  560. _trdec=_trdec+1
  561. _trfic=_trfic+1
  562. *------------------------------------------------------------------------
  563. * A15  Registo -------- Detalhe do Anexo A(14)
  564. Rec="A15"
  565. rec=rec+"000000000000"
  566. rec=rec+"000000000000"
  567. rec=rec+"000000000000"
  568. rec=rec+"000000000000"
  569. rec=rec+replic(" ",108)+chr(13)+chr(10)    
  570. =FWRITE(FileHandle,rec)
  571. _traa=_traa+1
  572. _trdec=_trdec+1
  573. _trfic=_trfic+1
  574. *------------------------------------------------------------------------
  575. * A16  Registo -------- Detalhe do Anexo A(15)
  576. Rec="A16"
  577. rec=rec+"000"
  578. rec=rec+"000000000000"
  579. rec=rec+"000000000000"
  580. rec=rec+"000000000000"
  581. rec=rec+"000000000000"
  582. rec=rec+"000000000000"
  583. rec=rec+"000000000000"
  584. rec=rec+"000000000000"
  585. rec=rec+"000000000000"
  586. rec=rec+"000000000000"
  587. rec=rec+"000000000000"
  588. rec=rec+"000000000000"
  589. rec=rec+"000000000000"
  590. rec=rec+replic(" ",9)+chr(13)+chr(10)    
  591. =FWRITE(FileHandle,rec)
  592. _traa=_traa+1
  593. _trdec=_trdec+1
  594. _trfic=_trfic+1
  595. *------------------------------------------------------------------------
  596. * A17  Registo -------- Detalhe do Anexo A(16)
  597. Rec="A17"
  598. rec=rec+"000000000000"
  599. rec=rec+"000000000000"
  600. rec=rec+"000000000000"
  601. rec=rec+"000000000000"
  602. rec=rec+replic(" ",108)+chr(13)+chr(10)    
  603. =FWRITE(FileHandle,rec)
  604. _traa=_traa+1
  605. _trdec=_trdec+1
  606. _trfic=_trfic+1
  607. *------------------------------------------------------------------------
  608. * A18  Registo -------- Detalhe do Anexo A(17)
  609. Rec="A18"
  610. rec=rec+transval(ed("M3A",1,"4",29),12)
  611. rec=rec+transval(ed("M3A",1,"4",30),12)
  612. rec=rec+transval(ed("M3A",1,"4",31),12)
  613. rec=rec+transval(ed("M3A",1,"4",32),12)
  614. rec=rec+"000000000000"
  615. rec=rec+"000000000000"
  616. rec=rec+"000000000000"
  617. rec=rec+"000000000000"
  618. rec=rec+"000000000000"
  619. rec=rec+"000000000000"
  620. rec=rec+"000000000000"
  621. rec=rec+"000000000000"
  622. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  623. =FWRITE(FileHandle,rec)
  624. _traa=_traa+1
  625. _trdec=_trdec+1
  626. _trfic=_trfic+1
  627. *------------------------------------------------------------------------
  628. * A19  Registo -------- Detalhe do Anexo A(18)
  629. Rec="A19"
  630. rec=rec+"000000000000"
  631. rec=rec+"000000000000"
  632. rec=rec+"000000000000"
  633. rec=rec+"000000000000"
  634. rec=rec+transval(ed("M3A",1,"4",33),12)
  635. rec=rec+transval(ed("M3A",1,"4",34),12)
  636. rec=rec+transval(ed("M3A",1,"4",35),12)
  637. rec=rec+transval(ed("M3A",1,"4",36),12)
  638. rec=rec+"000000000000"
  639. rec=rec+"000000000000"
  640. rec=rec+"000000000000"
  641. rec=rec+"000000000000"
  642. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  643. =FWRITE(FileHandle,rec)
  644. _traa=_traa+1
  645. _trdec=_trdec+1
  646. _trfic=_trfic+1
  647. *------------------------------------------------------------------------
  648. * A20  Registo -------- Detalhe do Anexo A(19)
  649. Rec="A20"
  650. rec=rec+"000000000000"
  651. rec=rec+"000000000000"
  652. rec=rec+"000000000000"
  653. rec=rec+"000000000000"
  654. rec=rec+"000000000000"
  655. rec=rec+"000000000000"
  656. rec=rec+"000000000000"
  657. rec=rec+"000000000000"
  658. rec=rec+transval(ed("M3A",1,"4",37),12)
  659. rec=rec+transval(ed("M3A",1,"4",38),12)
  660. rec=rec+transval(ed("M3A",1,"4",39),12)
  661. rec=rec+transval(ed("M3A",1,"4",40),12)
  662. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  663. =FWRITE(FileHandle,rec)
  664. _traa=_traa+1
  665. _trdec=_trdec+1
  666. _trfic=_trfic+1
  667. *------------------------------------------------------------------------
  668. * A21  Registo -------- Detalhe do Anexo A(20)
  669. Rec="A21"
  670. rec=rec+"000000000000"
  671. rec=rec+"000000000000"
  672. rec=rec+"000000000000"
  673. rec=rec+"000000000000"
  674. rec=rec+"000000000000"
  675. rec=rec+"000000000000"
  676. rec=rec+"000000000000"
  677. rec=rec+"000000000000"
  678. rec=rec+"000000000000"
  679. rec=rec+"000000000000"
  680. rec=rec+"000000000000"
  681. rec=rec+"000000000000"
  682. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  683. =FWRITE(FileHandle,rec)
  684. _traa=_traa+1
  685. _trdec=_trdec+1
  686. _trfic=_trfic+1
  687. *------------------------------------------------------------------------
  688. * A22  Registo -------- Detalhe do Anexo A(21)
  689. Rec="A22"
  690. rec=rec+transval(ed("M3A",1,"4",41),12)
  691. rec=rec+transval(ed("M3A",1,"4",42),12)
  692. rec=rec+transval(ed("M3A",1,"4",43),12)
  693. rec=rec+transval(ed("M3A",1,"4",44),12)
  694. rec=rec+"000000000000"
  695. rec=rec+"000000000000"
  696. rec=rec+"000000000000"
  697. rec=rec+"000000000000"
  698. rec=rec+"000000000000"
  699. rec=rec+"000000000000"
  700. rec=rec+"000000000000"
  701. rec=rec+"000000000000"
  702. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  703. =FWRITE(FileHandle,rec)
  704. _traa=_traa+1
  705. _trdec=_trdec+1
  706. _trfic=_trfic+1
  707. *------------------------------------------------------------------------
  708. * A23  Registo -------- Detalhe do Anexo A(22)
  709. Rec="A23"
  710. rec=rec+"000000000000"
  711. rec=rec+"000000000000"
  712. rec=rec+"000000000000"
  713. rec=rec+"000000000000"
  714. rec=rec+transval(ed("M3A",1,"4",45),12)
  715. rec=rec+transval(ed("M3A",1,"4",46),12)
  716. rec=rec+transval(ed("M3A",1,"4",47),12)
  717. rec=rec+transval(ed("M3A",1,"4",48),12)
  718. rec=rec+"000000000000"
  719. rec=rec+"000000000000"
  720. rec=rec+"000000000000"
  721. rec=rec+"000000000000"
  722. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  723. =FWRITE(FileHandle,rec)
  724. _traa=_traa+1
  725. _trdec=_trdec+1
  726. _trfic=_trfic+1
  727. *------------------------------------------------------------------------
  728. * A24  Registo -------- Detalhe do Anexo A(23)
  729. Rec="A24"
  730. rec=rec+"000000000000"
  731. rec=rec+"000000000000"
  732. rec=rec+"000000000000"
  733. rec=rec+"000000000000"
  734. rec=rec+"000000000000"
  735. rec=rec+"000000000000"
  736. rec=rec+"000000000000"
  737. rec=rec+"000000000000"
  738. rec=rec+transval(ed("M3A",1,"4",49),12)
  739. rec=rec+transval(ed("M3A",1,"4",50),12)
  740. rec=rec+transval(ed("M3A",1,"4",51),12)
  741. rec=rec+transval(ed("M3A",1,"4",52),12)
  742. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  743. =FWRITE(FileHandle,rec)
  744. _traa=_traa+1
  745. _trdec=_trdec+1
  746. _trfic=_trfic+1
  747. *------------------------------------------------------------------------
  748. * A25  Registo -------- Detalhe do Anexo A(24)
  749. Rec="A25"
  750. rec=rec+"000000000000"
  751. rec=rec+"000000000000"
  752. rec=rec+"000000000000"
  753. rec=rec+"000000000000"
  754. rec=rec+"000000000000"
  755. rec=rec+"000000000000"
  756. rec=rec+"000000000000"
  757. rec=rec+"000000000000"
  758. rec=rec+"000000000000"
  759. rec=rec+"000000000000"
  760. rec=rec+"000000000000"
  761. rec=rec+"000000000000"
  762. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  763. =FWRITE(FileHandle,rec)
  764. _traa=_traa+1
  765. _trdec=_trdec+1
  766. _trfic=_trfic+1
  767. *------------------------------------------------------------------------
  768. * A26  Registo -------- Detalhe do Anexo A(25)
  769. Rec="A26"
  770. rec=rec+transval(ed("M3A",1,"4",53),12)
  771. rec=rec+transval(ed("M3A",1,"4",54),12)
  772. rec=rec+transval(ed("M3A",1,"4",55),12)
  773. rec=rec+transval(ed("M3A",1,"4",56),12)
  774. rec=rec+"000000000000"
  775. rec=rec+"000000000000"
  776. rec=rec+"000000000000"
  777. rec=rec+"000000000000"
  778. rec=rec+"000000000000"
  779. rec=rec+"000000000000"
  780. rec=rec+"000000000000"
  781. rec=rec+"000000000000"
  782. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  783. =FWRITE(FileHandle,rec)
  784. _traa=_traa+1
  785. _trdec=_trdec+1
  786. _trfic=_trfic+1
  787. *------------------------------------------------------------------------
  788. * A27  Registo -------- Detalhe do Anexo A(26)
  789. Rec="A27"
  790. rec=rec+"000000000000"
  791. rec=rec+"000000000000"
  792. rec=rec+"000000000000"
  793. rec=rec+"000000000000"
  794. rec=rec+transval(ed("M3A",1,"4",57),12)
  795. rec=rec+transval(ed("M3A",1,"4",58),12)
  796. rec=rec+transval(ed("M3A",1,"4",59),12)
  797. rec=rec+transval(ed("M3A",1,"4",60),12)
  798. rec=rec+"000000000000"
  799. rec=rec+"000000000000"
  800. rec=rec+"000000000000"
  801. rec=rec+"000000000000"
  802. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  803. =FWRITE(FileHandle,rec)
  804. _traa=_traa+1
  805. _trdec=_trdec+1
  806. _trfic=_trfic+1
  807. *------------------------------------------------------------------------
  808. * A28  Registo -------- Detalhe do Anexo A(27)
  809. Rec="A28"
  810. rec=rec+"000000000000"
  811. rec=rec+"000000000000"
  812. rec=rec+"000000000000"
  813. rec=rec+"000000000000"
  814. rec=rec+"000000000000"
  815. rec=rec+"000000000000"
  816. rec=rec+"000000000000"
  817. rec=rec+"000000000000"
  818. rec=rec+transval(ed("M3A",1,"4",85),12)
  819. rec=rec+transval(ed("M3A",1,"4",86),12)
  820. rec=rec+transval(ed("M3A",1,"4",87),12)
  821. rec=rec+transval(ed("M3A",1,"4",88),12)
  822. rec=rec+"000000000000"
  823. rec=rec+chr(13)+chr(10)    
  824. =FWRITE(FileHandle,rec)
  825. _traa=_traa+1
  826. _trdec=_trdec+1
  827. _trfic=_trfic+1
  828. *------------------------------------------------------------------------
  829. * A29  Registo -------- Detalhe do Anexo A(29)
  830. Rec="A29"
  831. rec=rec+"000000000000"
  832. rec=rec+"000000000000"
  833. rec=rec+"000000000000"
  834. rec=rec+"000000000000"
  835. rec=rec+"000000000000"
  836. rec=rec+"000000000000"
  837. rec=rec+"000000000000"
  838. rec=rec+"000000000000"
  839. rec=rec+"000000000000"
  840. rec=rec+"000000000000"
  841. rec=rec+"000000000000"
  842. rec=rec+transval(ed("M3A",1,"4",61),12)
  843. rec=rec+transval(ed("M3A",1,"4",62),12)
  844. rec=rec+chr(13)+chr(10)    
  845. =FWRITE(FileHandle,rec)
  846. _traa=_traa+1
  847. _trdec=_trdec+1
  848. _trfic=_trfic+1
  849. *------------------------------------------------------------------------
  850. * A30  Registo -------- Detalhe do Anexo A(29)
  851. Rec="A30"
  852. rec=rec+transval(ed("M3A",1,"4",63),12)
  853. rec=rec+transval(ed("M3A",1,"4",64),12)
  854. rec=rec+"000000000000"
  855. rec=rec+"000000000000"
  856. rec=rec+"000000000000"
  857. rec=rec+"000000000000"
  858. rec=rec+"000000000000"
  859. rec=rec+"000000000000"
  860. rec=rec+"000000000000"
  861. rec=rec+"000000000000"
  862. rec=rec+"000000000000"
  863. rec=rec+"000000000000"
  864. rec=rec+"000000000000"
  865. rec=rec+chr(13)+chr(10)    
  866. =FWRITE(FileHandle,rec)
  867. _traa=_traa+1
  868. _trdec=_trdec+1
  869. _trfic=_trfic+1
  870. *------------------------------------------------------------------------
  871. * A31  Registo -------- Detalhe do Anexo A(30)
  872. Rec="A31"
  873. rec=rec+"000000000000"
  874. rec=rec+transval(ed("M3A",1,"4",65),12)
  875. rec=rec+transval(ed("M3A",1,"4",66),12)
  876. rec=rec+transval(ed("M3A",1,"4",67),12)
  877. rec=rec+transval(ed("M3A",1,"4",68),12)
  878. rec=rec+"000000000000"
  879. rec=rec+"000000000000"
  880. rec=rec+"000000000000"
  881. rec=rec+"000000000000"
  882. rec=rec+"000000000000"
  883. rec=rec+"000000000000"
  884. rec=rec+"000000000000"
  885. rec=rec+"000000000000"
  886. rec=rec+chr(13)+chr(10)    
  887. =FWRITE(FileHandle,rec)
  888. _traa=_traa+1
  889. _trdec=_trdec+1
  890. _trfic=_trfic+1
  891. *------------------------------------------------------------------------
  892. * A32  Registo -------- Detalhe do Anexo A(31)
  893. Rec="A32"
  894. rec=rec+"000000000000"
  895. rec=rec+"000000000000"
  896. rec=rec+"000000000000"
  897. rec=rec+"000000000000"
  898. rec=rec+transval(ed("M3A",1,"4",69),12)
  899. rec=rec+transval(ed("M3A",1,"4",70),12)
  900. rec=rec+transval(ed("M3A",1,"4",71),12)
  901. rec=rec+transval(ed("M3A",1,"4",72),12)
  902. rec=rec+"000000000000"
  903. rec=rec+"000000000000"
  904. rec=rec+"000000000000"
  905. rec=rec+"000000000000"
  906. rec=rec+REPLICATE(" ",12)+chr(13)+chr(10)    
  907. =FWRITE(FileHandle,rec)
  908. _traa=_traa+1
  909. _trdec=_trdec+1
  910. _trfic=_trfic+1
  911. *------------------------------------------------------------------------
  912. * A33  Registo -------- Detalhe do Anexo A(32)
  913. Rec="A33"
  914. rec=rec+"000000000000"
  915. rec=rec+"000000000000"
  916. rec=rec+"000000000000"
  917. rec=rec+"000000000000"
  918. rec=rec+"000000000000"
  919. rec=rec+"000000000000"
  920. rec=rec+"000000000000"
  921. rec=rec+"000000000000"
  922. rec=rec+transval(ed("M3A",1,"4",73),15)
  923. rec=rec+transval(ed("M3A",1,"4",74),15)
  924. rec=rec+REPLICATE(" ",30)+chr(13)+chr(10)    
  925. =FWRITE(FileHandle,rec)
  926. _traa=_traa+1
  927. _trdec=_trdec+1
  928. _trfic=_trfic+1
  929. *------------------------------------------------------------------------
  930. * A34  Registo -------- Detalhe do Anexo A(33)
  931. Rec="A34"
  932. rec=rec+transval(ed("M3A",1,"4",75),15)
  933. rec=rec+transval(ed("M3A",1,"4",76),15)
  934. rec=rec+"000000000000000"
  935. rec=rec+"000000000000000"
  936. rec=rec+"000000000000000"
  937. rec=rec+"000000000000000"
  938. rec=rec+"000000000000000"
  939. rec=rec+"000000000000000"
  940. rec=rec+"000000000000000"
  941. rec=rec+"000000000000000"
  942. rec=rec+replic(" ",6)+chr(13)+chr(10)    
  943. =FWRITE(FileHandle,rec)
  944. _traa=_traa+1
  945. _trdec=_trdec+1
  946. _trfic=_trfic+1
  947. *------------------------------------------------------------------------
  948. * A35  Registo -------- Detalhe do Anexo A(34)
  949. Rec="A35"
  950. rec=rec+"000000000000000"
  951. rec=rec+"000000000000000"
  952. rec=rec+"000000000000000"
  953. rec=rec+"000000000000000"
  954. rec=rec+replic(" ",96)+chr(13)+chr(10)    
  955. =FWRITE(FileHandle,rec)
  956. _traa=_traa+1
  957. _trdec=_trdec+1
  958. _trfic=_trfic+1
  959. *------------------------------------------------------------------------
  960. * A36  Registo -------- Detalhe do Anexo A(35)
  961. Rec="A36"
  962. rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",77))), "@l 99999999")
  963. rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",78))), "@l 99999999")
  964. rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",79))), "@l 99999999")
  965. rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",80))), "@l 99999999")
  966. rec=rec+replic("0",8)
  967. rec=rec+replic("0",8)
  968. rec=rec+replic("0",8)
  969. rec=rec+replic("0",8)
  970. rec=rec+replic("0",8)
  971. rec=rec+replic("0",8)
  972. rec=rec+replic("0",8)
  973. rec=rec+replic("0",8)
  974. rec=rec+replic("0",8)
  975. rec=rec+replic("0",8)
  976. rec=rec+replic("0",8)
  977. rec=rec+replic("0",8)
  978. rec=rec+replic(" ",28)+chr(13)+chr(10)    
  979. =FWRITE(FileHandle,rec)
  980. _traa=_traa+1
  981. _trdec=_trdec+1
  982. _trfic=_trfic+1
  983. *------------------------------------------------------------------------
  984. * A37  Registo -------- Detalhe do Anexo A(36)
  985. Rec="A37"
  986. rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",81))), "@l 99999999")
  987. rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",82))), "@l 99999999")
  988. rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",83))), "@l 99999999")
  989. rec=rec+TRANSFORM(VAL(DTOS(ed("M3A",1,"4",84))), "@l 99999999")
  990. rec=rec+replic("0",8)
  991. rec=rec+replic("0",8)
  992. rec=rec+replic("0",8)
  993. rec=rec+replic("0",8)
  994. rec=rec+replic("0",8)
  995. rec=rec+replic("0",8)
  996. rec=rec+replic("0",8)
  997. rec=rec+replic("0",8)
  998. rec=rec+replic("0",8)
  999. rec=rec+replic("0",8)
  1000. rec=rec+replic("0",8)
  1001. rec=rec+replic("0",8)
  1002. rec=rec+replic(" ",28)+chr(13)+chr(10)    
  1003. =FWRITE(FileHandle,rec)
  1004. _traa=_traa+1
  1005. _trdec=_trdec+1
  1006. _trfic=_trfic+1
  1007. *------------------------------------------------------------------------
  1008. * A38  Registo -------- Detalhe do Anexo A(37)
  1009. Rec="A38"
  1010. rec=rec+"00"
  1011. rec=rec+"   "
  1012. rec=rec+"000000000000"
  1013. rec=rec+"000000000"
  1014. rec=rec+"000"
  1015. rec=rec+"000000000000"
  1016. rec=rec+replic(" ",115)+chr(13)+chr(10)    
  1017. =FWRITE(FileHandle,rec)
  1018. _traa=_traa+1
  1019. _trdec=_trdec+1
  1020. _trfic=_trfic+1
  1021. *------------------------------------------------------------------------
  1022. * A39  Registo -------- Detalhe do Anexo A(38)
  1023. Rec="A39"
  1024. rec=rec+transval(ed("M3A",1,"5",1),12)
  1025. Rec=rec+TRANSFORM(ed("M3A",1,"5",3),"@L 9")
  1026. rec=rec+transval(ed("M3A",1,"5",2),12)
  1027. Rec=rec+TRANSFORM(ed("M3A",1,"5",4),"@L 9")
  1028. rec=rec+transval(ed("M3A",1,"5",5),12)
  1029. Rec=rec+TRANSFORM(ed("M3A",1,"5",7),"@L 9")
  1030. rec=rec+transval(ed("M3A",1,"5",6),12)
  1031. Rec=rec+TRANSFORM(ed("M3A",1,"5",8),"@L 9")
  1032. rec=rec+transval(ed("M3A",1,"6",1),12)
  1033. rec=rec+transval(ed("M3A",1,"6",2),12)
  1034. rec=rec+transval(ed("M3A",1,"6",3),12)
  1035. rec=rec+replic(" ",68)+chr(13)+chr(10)    
  1036. =FWRITE(FileHandle,rec)
  1037. _traa=_traa+1
  1038. _trdec=_trdec+1
  1039. _trfic=_trfic+1
  1040. *------------------------------------------------------------------------
  1041. * A40  Registo -------- Detalhe do Anexo A(39)
  1042. local lnind_ocur, lntot_inhas
  1043. lnind_ocur = 0
  1044. lntot_linhas = 0
  1045. for lnind_ocur = 1 to 5
  1046.     if !empty(ED("M3",1,"7",lnind_ocur))
  1047.         lntot_linhas = lntot_linhas + 1
  1048.         Rec="A40"
  1049.         rec=rec+transform(lnind_ocur, "@L 999")
  1050.         rec=rec+TRANSFORM(ed("M3A",1,"7",lnind_ocur),"@L 999999999")
  1051.         rec=rec+TRANSFORM(ed("M3A",1,"7",lnind_ocur + 5),"@L 999")
  1052.         rec=rec+padr(ed("M3A",1,"7",lnind_ocur + 10), 3, " ")
  1053.         rec=rec+transval(ed("M3A",1,"7",lnind_ocur + 15),12)
  1054.         rec=rec+transval(ed("M3A",1,"7",lnind_ocur + 20),12)
  1055.         rec=rec+transval(ed("M3A",1,"7",lnind_ocur + 26),12)
  1056.         rec=rec+transval(ed("M3A",1,"7",lnind_ocur + 31),12)
  1057.         rec=rec+replic(" ",90)+chr(13)+chr(10)    
  1058.         =FWRITE(FileHandle,rec)
  1059.         _traa=_traa+1
  1060.         _trdec=_trdec+1
  1061.         _trfic=_trfic+1
  1062.     endif
  1063. endfor
  1064. *------------------------------------------------------------------------
  1065. * A40  Registo -------- Trailer Anexo A
  1066. Rec="A41"
  1067. rec=rec+transform(_traa, "@l 999")
  1068. *!*    do case
  1069. *!*        case ! empty(ed("M3A",1,"3",1)) and ! empty(ed("M3A",1,"3",2)) and ! empty(ed("M3A",1,"4",1)) and ! empty(ed("M3A",1,"4",2))
  1070. *!*            indexcont=4
  1071. *!*        case ! empty(ed("M3A",1,"3",1)) and ! empty(ed("M3A",1,"3",2)) and ! empty(ed("M3A",1,"4",1))
  1072. *!*            indexcont=3
  1073. *!*        case ! empty(ed("M3A",1,"3",1)) and ! empty(ed("M3A",1,"3",2))    
  1074. *!*            indexcont=2
  1075. *!*        
  1076. *!*        otherwise
  1077. *!*        
  1078. *!*            indexcont=1
  1079. *!*    Endcase    
  1080. rec=rec+transval(ed("M3A",1,"4",73)+ed("M3A",1,"4",74)+ed("M3A",1,"4",75)+ed("M3A",1,"4",76),17)
  1081. rec=rec+"00"
  1082. rec=rec+"000000000000000"
  1083. rec=rec+transval(ed("M3A",1,"5",1)+ed("M3A",1,"5",2)+ed("M3A",1,"5",5)+ed("M3A",1,"5",6),13)
  1084. rec=rec+transform(lntot_linhas, "@l 999")
  1085. rec=rec+transval(ed("M3A",1,"7",16)+ed("M3A",1,"7",17)+ed("M3A",1,"7",18)+ed("M3A",1,"7",19)+ed("M3A",1,"7",20),15)
  1086. rec=rec+transval(ed("M3A",1,"7",21)+ed("M3A",1,"7",22)+ed("M3A",1,"7",23)+ed("M3A",1,"7",24)+ed("M3A",1,"7",25),15)
  1087. rec=rec+transval(ed("M3A",1,"7",27)+ed("M3A",1,"7",28)+ed("M3A",1,"7",29)+ed("M3A",1,"7",30)+ed("M3A",1,"7",31),15)
  1088. rec=rec+transval(ed("M3A",1,"7",32)+ed("M3A",1,"7",33)+ed("M3A",1,"7",34)+ed("M3A",1,"7",35)+ed("M3A",1,"7",36),15)
  1089. rec=rec+replic(" ",43)+chr(13)+chr(10)    
  1090. =FWRITE(FileHandle,rec)
  1091. _trdec=_trdec+1
  1092. _trfic=_trfic+1
  1093. Endif
  1094. *-------------------------------------------------------------------- Fim do Anexo A
  1095. * B01 Registo ----- Header do Anexo B
  1096. If ED("M3",1,"8",2)!=0
  1097. Rec="B01"
  1098. If ed("M3B",1,"3",1)=1
  1099.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1100.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1101. Endif
  1102. If ed("M3B",1,"3",1)=1
  1103.     rec=rec+"1"
  1104.     rec=rec+"2"    
  1105. Endif
  1106. Rec=rec+TRANSFORM(ed("M3B",1,"3",6),"@L 999999999")
  1107. Rec=rec+TRANSFORM(ed("M3B",1,"3",7),"@L 999999999")
  1108. Rec=rec+TRANSFORM(ed("M3B",1,"2",1),"@L 9999")
  1109. Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1110. Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1111. If ed("M3B",1,"1",1)=1
  1112.     rec=rec+"1"
  1113.     rec=rec+"2"    
  1114. Endif
  1115. If ed("M3B",1,"1",3)=1
  1116.     rec=rec+"3"
  1117.     rec=rec+"0"    
  1118. Endif
  1119. If ed("M3B",1,"1",4)=1
  1120.     rec=rec+"4"
  1121.     rec=rec+"0"    
  1122. Endif
  1123. IF empty(ed("M3B",1,"3",10))
  1124.     REC=REC+"    "
  1125.     Rec=rec+TRANSFORM(ed("M3B",1,"3",10),"@L 9999")
  1126. ENDIF
  1127. IF EMPTY(ed("M3B",1,"3",11))
  1128.     REC=REC+"     "
  1129.     Rec=rec+TRANSFORM(ed("M3B",1,"3",11),"@L 99999")
  1130. ENDIF
  1131. IF empty(ed("M3B",1,"3",12))
  1132.     REC=REC+"     "
  1133.     Rec=rec+TRANSFORM(ed("M3B",1,"3",12),"@L 99999")
  1134. Endif
  1135. If ed("M3B",1,"3",13)=1
  1136.     rec=rec+"13"
  1137.     rec=rec+"14"    
  1138. Endif
  1139. rec=rec+transval(ed("M3B",1,"4",401),12)
  1140. rec=rec+transval(ed("M3B",1,"4",402),12)
  1141. rec=rec+replic(" ",63)+chr(13)+chr(10)    
  1142. =FWRITE(FileHandle,rec)
  1143. _trdec=_trdec+1
  1144. _trfic=_trfic+1
  1145. * B02 Registo ----- Detalhe do Anexo B(1)
  1146. Rec="B02"
  1147. If ed("M3B",1,"3",1)=1
  1148.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1149.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1150. Endif
  1151. If ed("M3B",1,"3",1)=1
  1152.     rec=rec+"1"
  1153.     rec=rec+"2"    
  1154. Endif
  1155. rec=rec+transval(ed("M3B",1,"4",403),12)
  1156. rec=rec+transval(ed("M3B",1,"4",404),12)
  1157. rec=rec+transval(ed("M3B",1,"4",405),12)
  1158. rec=rec+transval(ed("M3B",1,"4",420),12)
  1159. rec=rec+transval(ed("M3B",1,"4",421),13)
  1160. rec=rec+transval(ed("M3B",1,"4",406),12)
  1161. rec=rec+transval(ed("M3B",1,"4",407),12)
  1162. rec=rec+transval(ed("M3B",1,"4",408),13)
  1163. rec=rec+transval(ed("M3B",1,"4",409),12)
  1164. rec=rec+transval(ed("M3B",1,"4",410),12)
  1165. rec=rec+transval(ed("M3B",1,"4",411),12)
  1166. rec=rec+REPLICATE(" ",12)+chr(13)+chr(10)    
  1167. =FWRITE(FileHandle,rec)
  1168. _trab=_trab+1
  1169. _trdec=_trdec+1
  1170. _trfic=_trfic+1
  1171. * B03 Registo ----- Detalhe do Anexo B(2)
  1172. Rec="B03"
  1173. If ed("M3B",1,"3",1)=1
  1174.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1175.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1176. Endif
  1177. If ed("M3B",1,"3",1)=1
  1178.     rec=rec+"1"
  1179.     rec=rec+"2"    
  1180. Endif
  1181. rec=rec+transval(ed("M3B",1,"4",412),13)
  1182. rec=rec+transval(ed("M3B",1,"4",413),12)
  1183. rec=rec+transval(ed("M3B",1,"4",414),12)
  1184. rec=rec+transval(ed("M3B",1,"4",415),13)
  1185. If ed("M3B",1,"4",1)=1
  1186.     rec=rec+"1"
  1187.     rec=rec+"2"    
  1188. Endif
  1189. If ed("M3B",1,"4",3)=1
  1190.     rec=rec+"3"
  1191.     rec=rec+"4"    
  1192. Endif
  1193. If ed("M3B",1,"4",5)=1
  1194.     rec=rec+"1"
  1195.     rec=rec+"2"    
  1196. Endif
  1197. rec=rec+TRANSFORM(ed("M3B",1,"4",418),"@L 999")
  1198. rec=rec+transval(ed("M3B",1,"4",416),12)
  1199. rec=rec+transval(ed("M3B",1,"4",417),12)
  1200. If ed("M3B",1,"4",7)=1
  1201.     rec=rec+"3"
  1202.     rec=rec+"4"    
  1203. Endif
  1204. rec=rec+transval(ed("M3B",1,"4",419),12)
  1205. rec=rec+transval(ed("M3B",1,"5",501),12)
  1206. rec=rec+transval(ed("M3B",2,"6",601),12)
  1207. rec=rec+transval(ed("M3B",2,"6",602),12)
  1208. rec=rec+transval(ed("M3B",2,"6",603),13)
  1209. rec=rec+replic(" ",4)+chr(13)+chr(10)    
  1210. =FWRITE(FileHandle,rec)
  1211. _trab=_trab+1
  1212. _trdec=_trdec+1
  1213. _trfic=_trfic+1
  1214. * B04 Registo ----- Detalhe do Anexo B(3)
  1215. Rec="B04"
  1216. If ed("M3B",1,"3",1)=1
  1217.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1218.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1219. Endif
  1220. If ed("M3B",1,"3",1)=1
  1221.     rec=rec+"1"
  1222.     rec=rec+"2"    
  1223. Endif
  1224. rec=rec+transval(ed("M3B",2,"7",701),13)
  1225. rec=rec+transval(ed("M3B",2,"7",702),13)
  1226. rec=rec+transval(ed("M3B",2,"7",703),13)
  1227. rec=rec+transval(ed("M3B",2,"7",704),13)
  1228. rec=rec+replic(" ",94)+chr(13)+chr(10)    
  1229. =FWRITE(FileHandle,rec)
  1230. _trab=_trab+1
  1231. _trdec=_trdec+1
  1232. _trfic=_trfic+1
  1233. * B05 Registo ----- Detalhe do Anexo B(4)
  1234. * 705 -> 716
  1235. for lnind = 705 to 716
  1236.     if !empty(ed("M3B",2,"7",lnind)) or !empty(ed("M3B",2,"7",lnind+12))
  1237.         Rec="B05"
  1238.         If ed("M3B",1,"3",1)=1
  1239.             Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1240.         Else
  1241.             Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1242.         Endif
  1243.         If ed("M3B",1,"3",1)=1
  1244.             rec=rec+"1"
  1245.         Else
  1246.             rec=rec+"2"    
  1247.         Endif
  1248.         rec=rec+transform(lnind, "@L 9999")
  1249.         Rec=rec+TRANSFORM(ed("M3B",2,"7",lnind),"@L 999999999")
  1250.         rec=rec+transval(ed("M3B",2,"7",lnind+12),13)
  1251.         rec=rec+replic(" ",120)+chr(13)+chr(10)    
  1252.         =FWRITE(FileHandle,rec)
  1253.         _trab=_trab+1
  1254.         _trdec=_trdec+1
  1255.         _trfic=_trfic+1
  1256.     endif
  1257. endfor
  1258. * B06 Registo ----- Detalhe do Anexo B(5)
  1259. Rec="B06"
  1260. If ed("M3B",1,"3",1)=1
  1261.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1262.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1263. Endif
  1264. If ed("M3B",1,"3",1)=1
  1265.     rec=rec+"1"
  1266.     rec=rec+"2"    
  1267. Endif
  1268. Rec=rec+TRANSFORM(ed("M3B",2,"8",801),"@L 999999999")
  1269. Rec=rec+TRANSFORM(ed("M3B",2,"8",802),"@L 9999")
  1270. Rec=rec+TRANSFORM(ed("M3B",2,"8",803),"@L 9999")
  1271. Rec=rec+TRANSFORM(ed("M3B",2,"8",804),"@L 9999")
  1272. Rec=rec+TRANSFORM(ed("M3B",2,"8",805),"@L 9999")
  1273. Rec=rec+TRANSFORM(ed("M3B",2,"8",806),"@L 9999")
  1274. Rec=rec+TRANSFORM(ed("M3B",2,"8",807),"@L 9999")
  1275. rec=rec+transval(ed("M3B",2,"8",808),12)
  1276. rec=rec+transval(ed("M3B",2,"8",809),12)
  1277. rec=rec+transval(ed("M3B",2,"8",810),12)
  1278. rec=rec+transval(ed("M3B",2,"8",811),12)
  1279. rec=rec+transval(ed("M3B",2,"8",812),12)
  1280. rec=rec+transval(ed("M3B",2,"8",813),12)
  1281. rec=rec+transval(ed("M3B",2,"8",814),12)
  1282. rec=rec+transval(ed("M3B",2,"8",815),12)
  1283. rec=rec+replic(" ",17)+chr(13)+chr(10)    
  1284. =FWRITE(FileHandle,rec)
  1285. _trab=_trab+1
  1286. _trdec=_trdec+1
  1287. _trfic=_trfic+1
  1288. * B07 Registo ----- Detalhe do Anexo B(6)
  1289. Rec="B07"
  1290. If ed("M3B",1,"3",1)=1
  1291.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1292.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1293. Endif
  1294. If ed("M3B",1,"3",1)=1
  1295.     rec=rec+"1"
  1296.     rec=rec+"2"    
  1297. Endif
  1298. rec=rec+transval(ed("M3B",2,"8",816),12)
  1299. rec=rec+transval(ed("M3B",2,"8",817),12)
  1300. rec=rec+transval(ed("M3B",2,"8",818),12)
  1301. rec=rec+transval(ed("M3B",2,"8",819),12)
  1302. rec=rec+transval(ed("M3B",2,"9",901),12)
  1303. rec=rec+transval(ed("M3B",2,"9",902),12)
  1304. rec=rec+transval(ed("M3B",2,"9",903),12)
  1305. rec=rec+transval(ed("M3B",2,"9",904),12)
  1306. rec=rec+transval(ed("M3B",2,"9",905),12)
  1307. rec=rec+transval(ed("M3B",2,"9",906),12)
  1308. rec=rec+transval(ed("M3B",2,"9",907),12)
  1309. rec=rec+replic(" ",14)+chr(13)+chr(10)    
  1310. =FWRITE(FileHandle,rec)
  1311. _trab=_trab+1
  1312. _trdec=_trdec+1
  1313. _trfic=_trfic+1
  1314. * B08 Registo ----- Detalhe do Anexo B(7)
  1315. Rec="B08"
  1316. If ed("M3B",1,"3",1)=1
  1317.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1318.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1319. Endif
  1320. If ed("M3B",1,"3",1)=1
  1321.     rec=rec+"1"
  1322.     rec=rec+"2"    
  1323. Endif
  1324. rec=rec+transval(ed("M3B",2,"9",908),12)
  1325. rec=rec+transval(ed("M3B",2,"9",909),15)
  1326. rec=rec+transval(ed("M3B",2,"9",910),12)
  1327. rec=rec+transval(ed("M3B",2,"9",911),12)
  1328. rec=rec+transval(ed("M3B",2,"9",912),12)
  1329. rec=rec+transval(ed("M3B",2,"9",913),12)
  1330. rec=rec+transval(ed("M3B",2,"9",914),12)
  1331. rec=rec+transval(ed("M3B",2,"9",915),12)
  1332. rec=rec+transval(ed("M3B",2,"9",916),12)
  1333. rec=rec+transval(ed("M3B",2,"9",917),12)
  1334. rec=rec+transval(ed("M3B",2,"9",918),15)
  1335. rec=rec+replic(" ",8)+chr(13)+chr(10)    
  1336. =FWRITE(FileHandle,rec)
  1337. _trab=_trab+1
  1338. _trdec=_trdec+1
  1339. _trfic=_trfic+1
  1340. *B09 Registo ----- Detalhe do Anexo B(8)
  1341. Rec="B09"
  1342. If ed("M3B",1,"3",1)=1
  1343.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1344.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1345. Endif
  1346. If ed("M3B",1,"3",1)=1
  1347.     rec=rec+"1"
  1348.     rec=rec+"2"    
  1349. Endif
  1350. rec=rec+transval(ed("M3B",2,"10",1001),12)
  1351. rec=rec+transval(ed("M3B",2,"10",1002),12)
  1352. rec=rec+transval(ed("M3B",2,"10",1003),13)
  1353. rec=rec+transval(ed("M3B",2,"11",1101),13)
  1354. rec=rec+transval(ed("M3B",2,"11",1102),13)
  1355. rec=rec+transval(ed("M3B",2,"11",1103),12)
  1356. rec=rec+transval(ed("M3B",2,"11",1104),12)
  1357. rec=rec+transval(ed("M3B",2,"11",1105),12)
  1358. rec=rec+transval(ed("M3B",2,"11",1106),12)
  1359. If ed("M3B",2,"12",1)=1
  1360.     rec=rec+"1"
  1361.     rec=rec+"2"    
  1362. Endif
  1363. rec=rec+TRANSFORM(year(ed("M3B",2,"12",3)),"@L 9999")+TRANSFORM(month(ed("M3B",2,"12",3)),"@L 99")+TRANSFORM(day(ed("M3B",2,"12",3)),"@L 99")
  1364. rec=rec+replic(" ",26)+chr(13)+chr(10)    
  1365. =FWRITE(FileHandle,rec)
  1366. _trab=_trab+1
  1367. _trdec=_trdec+1
  1368. _trfic=_trfic+1
  1369. *B10 Registo - Trailer do Anexo B
  1370. Rec="B10"
  1371. If ed("M3B",1,"3",1)=1
  1372.     Rec=rec+TRANSFORM(ed("M3B",1,"3",9),"@L 999999999")
  1373.     Rec=rec+TRANSFORM(ed("M3B",1,"3",8),"@L 999999999")
  1374. Endif
  1375. If ed("M3B",1,"3",1)=1
  1376.     rec=rec+"1"
  1377.     rec=rec+"2"    
  1378. Endif
  1379. rec=rec+transval(ed("M3B",1,"4",421)+ed("M3B",1,"4",408)+ed("M3B",1,"4",412)+ed("M3B",1,"4",415),15)
  1380. rec=rec+transval(ed("M3B",2,"8",808)+ed("M3B",2,"8",809)+ed("M3B",2,"8",810)+ed("M3B",2,"8",811)+ed("M3B",2,"8",812)+ed("M3B",2,"8",813)+ed("M3B",2,"8",814)+ed("M3B",2,"8",815)+ed("M3B",2,"8",816)+ed("M3B",2,"8",817)+ed("M3B",2,"8",818)+ed("M3B",2,"8",819),15)
  1381. rec=rec+transval(ed("M3B",2,"6",601)+ed("M3B",2,"6",602)+ ;
  1382.                  ed("M3B",2,"7",701)+ed("M3B",2,"7",702)+ed("M3B",2,"7",703)+ed("M3B",2,"7",704)+ ;
  1383.                  ed("M3B",2,"9",901)+ed("M3B",2,"9",902)+ed("M3B",2,"9",903)+ed("M3B",2,"9",904)+ed("M3B",2,"9",905)+ed("M3B",2,"9",906)+ed("M3B",2,"9",907)+ed("M3B",2,"9",908)+ ;
  1384.                  ed("M3B",2,"9",910)+ed("M3B",2,"9",911)+ed("M3B",2,"9",912)+ed("M3B",2,"9",913)+ed("M3B",2,"9",914)+ed("M3B",2,"9",915)+ed("M3B",2,"9",916)+ed("M3B",2,"9",917)+ ;
  1385.                  ed("M3B",2,"10",1001)+ed("M3B",2,"10",1002),16)
  1386. rec=rec+transform(_trab, "@l 9999")
  1387. rec=rec+replic(" ",96)+chr(13)+chr(10)    
  1388. =FWRITE(FileHandle,rec)
  1389. _trdec=_trdec+1
  1390. _trfic=_trfic+1
  1391. Endif
  1392. *--------------------------------------------------------------------- Fim do Anexo B
  1393. * C01 Registo ----- Header do Anexo C
  1394. If ED("M3",1,"8",3)!=0
  1395. Rec="C01"
  1396. If ed("M3C",1,"3",4)=1
  1397.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1398.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1399. Endif
  1400. If ed("M3C",1,"3",4)=1
  1401.     rec=rec+"1"
  1402.     rec=rec+"2"    
  1403. Endif
  1404. Rec=rec+TRANSFORM(ed("M3C",1,"3",1),"@L 999999999")
  1405. Rec=rec+TRANSFORM(ed("M3C",1,"3",2),"@L 999999999")
  1406. Rec=rec+TRANSFORM(ed("M3C",1,"2",1),"@L 9999")
  1407. Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1408. Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1409. If ed("M3C",1,"1",2)=1
  1410.     rec=rec+"1"
  1411.     rec=rec+"0"    
  1412. Endif
  1413. If ed("M3C",1,"1",1)=1
  1414.     rec=rec+"2"
  1415.     rec=rec+"0"    
  1416. Endif
  1417. IF empty(ed("M3C",1,"3",7))
  1418.     REC=REC+"    "
  1419.     Rec=rec+TRANSFORM(ed("M3C",1,"3",7),"@L 9999")
  1420. ENDIF
  1421. IF EMPTY(ed("M3C",1,"3",8))
  1422.     REC=REC+"     "
  1423.     Rec=rec+TRANSFORM(ed("M3C",1,"3",8),"@L 99999")
  1424. ENDIF
  1425. IF empty(ed("M3C",1,"3",9))
  1426.     REC=REC+"     "
  1427.     Rec=rec+TRANSFORM(ed("M3C",1,"3",9),"@L 99999")
  1428. Endif
  1429. If ed("M3C",1,"3",10)=1
  1430.     rec=rec+"11"
  1431.     rec=rec+"12"    
  1432. Endif
  1433. rec=rec+replic(" ",88)+chr(13)+chr(10)    
  1434. =FWRITE(FileHandle,rec)
  1435. _trdec=_trdec+1
  1436. _trfic=_trfic+1
  1437. * C02 Registo ----- Detalhe do Anexo C
  1438. Rec="C02"
  1439. If ed("M3C",1,"3",4)=1
  1440.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1441.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1442. Endif
  1443. If ed("M3C",1,"3",4)=1
  1444.     rec=rec+"1"
  1445.     rec=rec+"2"    
  1446. Endif
  1447. rec=rec+transval(ed("M3C",1,"4",401),13,1)
  1448. rec=rec+transval(ed("M3C",1,"4",402),12)
  1449. rec=rec+transval(ed("M3C",1,"4",403),12)
  1450. rec=rec+transval(ed("M3C",1,"4",404),14,1)
  1451. rec=rec+transval(ed("M3C",1,"4",405),12)
  1452. rec=rec+transval(ed("M3C",1,"4",406),12)
  1453. rec=rec+transval(ed("M3C",1,"4",407),12)
  1454. rec=rec+transval(ed("M3C",1,"4",408),12)
  1455. rec=rec+transval(ed("M3C",1,"4",409),12)
  1456. rec=rec+transval(ed("M3C",1,"4",410),12)
  1457. rec=rec+transval(ed("M3C",1,"4",411),12)
  1458. rec=rec+replic(" ",11)+chr(13)+chr(10)    
  1459. =FWRITE(FileHandle,rec)
  1460. _trac=_trac+1
  1461. _trdec=_trdec+1
  1462. _trfic=_trfic+1
  1463. * C03 Registo ----- Detalhe do Anexo C
  1464. Rec="C03"
  1465. If ed("M3C",1,"3",4)=1
  1466.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1467.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1468. Endif
  1469. If ed("M3C",1,"3",4)=1
  1470.     rec=rec+"1"
  1471.     rec=rec+"2"    
  1472. Endif
  1473. rec=rec+transval(ed("M3C",1,"4",412),12)
  1474. rec=rec+transval(ed("M3C",1,"4",413),12)
  1475. rec=rec+transval(ed("M3C",1,"4",414),12)
  1476. rec=rec+transval(ed("M3C",1,"4",415),12)
  1477. rec=rec+transval(ed("M3C",1,"4",440),12)
  1478. rec=rec+transval(ed("M3C",1,"4",441),12)
  1479. rec=rec+transval(ed("M3C",1,"4",416),12)
  1480. rec=rec+transval(ed("M3C",1,"4",417),12)
  1481. rec=rec+transval(ed("M3C",1,"4",418),12)
  1482. rec=rec+transval(ed("M3C",1,"4",419),12)
  1483. rec=rec+transval(ed("M3C",1,"4",420),12)
  1484. rec=rec+transval(ed("M3C",1,"4",437),12)
  1485. rec=rec+replic(" ",2)+chr(13)+chr(10)    
  1486. =FWRITE(FileHandle,rec)
  1487. _trac=_trac+1
  1488. _trdec=_trdec+1
  1489. _trfic=_trfic+1
  1490. * C04 Registo ----- Detalhe do Anexo C
  1491. Rec="C04"
  1492. If ed("M3C",1,"3",4)=1
  1493.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1494.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1495. Endif
  1496. If ed("M3C",1,"3",4)=1
  1497.     rec=rec+"1"
  1498.     rec=rec+"2"    
  1499. Endif
  1500. rec=rec+transval(ed("M3C",1,"4",438),12)
  1501. rec=rec+transval(ed("M3C",1,"4",421),12)
  1502. rec=rec+transval(ed("M3C",1,"4",422),15,1)
  1503. rec=rec+transval(ed("M3C",1,"4",423),12)
  1504. rec=rec+transval(ed("M3C",1,"4",424),12)
  1505. rec=rec+transval(ed("M3C",1,"4",425),12)
  1506. rec=rec+transval(ed("M3C",1,"4",426),12)
  1507. rec=rec+transval(ed("M3C",1,"4",427),12)
  1508. rec=rec+transval(ed("M3C",1,"4",428),12)
  1509. rec=rec+transval(ed("M3C",1,"4",429),12)
  1510. rec=rec+transval(ed("M3C",1,"4",430),12)
  1511. rec=rec+replic(" ",11)+chr(13)+chr(10)    
  1512. =FWRITE(FileHandle,rec)
  1513. _trac=_trac+1
  1514. _trdec=_trdec+1
  1515. _trfic=_trfic+1
  1516. * C05 Registo ----- Detalhe do Anexo C
  1517. Rec="C05"
  1518. If ed("M3C",1,"3",4)=1
  1519.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1520.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1521. Endif
  1522. If ed("M3C",1,"3",4)=1
  1523.     rec=rec+"1"
  1524.     rec=rec+"2"    
  1525. Endif
  1526. rec=rec+transval(ed("M3C",1,"4",431),12)
  1527. rec=rec+transval(ed("M3C",1,"4",432),12)
  1528. rec=rec+transval(ed("M3C",1,"4",442),12)
  1529. rec=rec+transval(ed("M3C",1,"4",433),12)
  1530. rec=rec+transval(ed("M3C",1,"4",434),14)
  1531. rec=rec+transval(ed("M3C",1,"4",435),14)
  1532. rec=rec+transval(ed("M3C",1,"4",436),14)
  1533. rec=rec+transval(ed("M3C",1,"4",443),12)
  1534. rec=rec+replic(" ",44)+chr(13)+chr(10)    
  1535. =FWRITE(FileHandle,rec)
  1536. _trac=_trac+1
  1537. _trdec=_trdec+1
  1538. _trfic=_trfic+1
  1539. * C06 Registo ----- Detalhe do Anexo C
  1540. Rec="C06"
  1541. If ed("M3C",1,"3",4)=1
  1542.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1543.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1544. Endif
  1545. If ed("M3C",1,"3",4)=1
  1546.     rec=rec+"1"
  1547.     rec=rec+"2"    
  1548. Endif
  1549. rec=rec+transval(ed("M3C",1,"5",501),14)
  1550. rec=rec+transval(ed("M3C",1,"5",502),14)
  1551. rec=rec+transval(ed("M3C",1,"5",505),14)
  1552. rec=rec+transval(ed("M3C",1,"5",503),14)
  1553. rec=rec+transval(ed("M3C",1,"5",504),14)
  1554. rec=rec+transval(ed("M3C",1,"5",506),14)
  1555. rec=rec+transval(ed("M3C",2,"6",601),12)
  1556. rec=rec+transval(ed("M3C",2,"6",602),12)
  1557. rec=rec+transval(ed("M3C",2,"6",603),12)
  1558. rec=rec+transval(ed("M3C",2,"6",604),12)
  1559. rec=rec+transval(ed("M3C",2,"6",605),13)
  1560. rec=rec+replic(" ",1)+chr(13)+chr(10)    
  1561. =FWRITE(FileHandle,rec)
  1562. _trac=_trac+1
  1563. _trdec=_trdec+1
  1564. _trfic=_trfic+1
  1565. * C07 Registo ----- Detalhe do Anexo C
  1566. Rec="C07"
  1567. If ed("M3C",1,"3",4)=1
  1568.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1569.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1570. Endif
  1571. If ed("M3C",1,"3",4)=1
  1572.     rec=rec+"1"
  1573.     rec=rec+"2"    
  1574. Endif
  1575. rec=rec+transval(ed("M3C",2,"6",606),12)
  1576. rec=rec+transval(ed("M3C",2,"6",607),12)
  1577. rec=rec+transval(ed("M3C",2,"6",608),12)
  1578. rec=rec+transval(ed("M3C",2,"6",609),12)
  1579. rec=rec+transval(ed("M3C",2,"6",610),13)
  1580. rec=rec+transval(ed("M3C",2,"6",611),12)
  1581. rec=rec+transval(ed("M3C",2,"6",612),12)
  1582. rec=rec+transval(ed("M3C",2,"6",613),12)
  1583. rec=rec+transval(ed("M3C",2,"6",614),12)
  1584. rec=rec+transval(ed("M3C",2,"6",615),13)
  1585. rec=rec+transval(ed("M3C",2,"6",616),12)
  1586. rec=rec+transval(ed("M3C",2,"7",701),12)
  1587. rec=rec+chr(13)+chr(10)    
  1588. =FWRITE(FileHandle,rec)
  1589. _trac=_trac+1
  1590. _trdec=_trdec+1
  1591. _trfic=_trfic+1
  1592. * C08 Registo ----- Detalhe do Anexo C
  1593. Rec="C08"
  1594. If ed("M3C",1,"3",4)=1
  1595.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1596.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1597. Endif
  1598. If ed("M3C",1,"3",4)=1
  1599.     rec=rec+"1"
  1600.     rec=rec+"2"    
  1601. Endif
  1602. rec=rec+transval(ed("M3C",2,"8",801),13)
  1603. rec=rec+transval(ed("M3C",2,"8",802),13)
  1604. rec=rec+transval(ed("M3C",2,"8",803),13)
  1605. rec=rec+transval(ed("M3C",2,"8",804),13)
  1606. rec=rec+transval(ed("M3C",2,"8",829),13)
  1607. rec=rec+replic(" ",81)+chr(13)+chr(10)    
  1608. =FWRITE(FileHandle,rec)
  1609. _trac=_trac+1
  1610. _trdec=_trdec+1
  1611. _trfic=_trfic+1
  1612. * C09 Registo ----- Detalhe do Anexo C
  1613. * 805 -> 816
  1614. for lnind = 805 to 816
  1615.     if !empty(ed("M3C",2,"8",lnind)) or !empty(ed("M3C",2,"8",lnind+12))
  1616.         Rec="C09"
  1617.         If ed("M3C",1,"3",4)=1
  1618.             Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1619.         Else
  1620.             Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1621.         Endif
  1622.         If ed("M3C",1,"3",4)=1
  1623.             rec=rec+"1"
  1624.         Else
  1625.             rec=rec+"2"    
  1626.         Endif
  1627.         rec=rec+Transform(lnind, "@L 9999")
  1628.         Rec=rec+TRANSFORM(ed("M3C",2,"8",lnind),"@L 999999999")
  1629.         rec=rec+transval(ed("M3C",2,"8",lnind+12),13)
  1630.         rec=rec+replic(" ",120)+chr(13)+chr(10)    
  1631.         =FWRITE(FileHandle,rec)
  1632.         _trac=_trac+1
  1633.         _trdec=_trdec+1
  1634.         _trfic=_trfic+1
  1635.     endif
  1636. endfor
  1637. * C10 Registo ----- Detalhe do Anexo C
  1638. Rec="C10"
  1639. If ed("M3C",1,"3",4)=1
  1640.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1641.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1642. Endif
  1643. If ed("M3C",1,"3",4)=1
  1644.     rec=rec+"1"
  1645.     rec=rec+"2"    
  1646. Endif
  1647. Rec=rec+TRANSFORM(ed("M3C",2,"9",901),"@L 999999999")
  1648. Rec=rec+TRANSFORM(ed("M3C",2,"9",902),"@L 9999")
  1649. Rec=rec+TRANSFORM(ed("M3C",2,"9",903),"@L 9999")
  1650. Rec=rec+TRANSFORM(ed("M3C",2,"9",904),"@L 9999")
  1651. Rec=rec+TRANSFORM(ed("M3C",2,"9",905),"@L 9999")
  1652. Rec=rec+TRANSFORM(ed("M3C",2,"9",906),"@L 9999")
  1653. Rec=rec+TRANSFORM(ed("M3C",2,"9",907),"@L 9999")
  1654. rec=rec+transval(ed("M3C",2,"9",908),12)
  1655. rec=rec+transval(ed("M3C",2,"9",909),12)
  1656. rec=rec+transval(ed("M3C",2,"9",910),12)
  1657. rec=rec+transval(ed("M3C",2,"9",911),12)
  1658. rec=rec+transval(ed("M3C",2,"9",912),12)
  1659. rec=rec+transval(ed("M3C",2,"9",913),12)
  1660. rec=rec+transval(ed("M3C",2,"9",914),12)
  1661. rec=rec+replic(" ",29)+chr(13)+chr(10)    
  1662. =FWRITE(FileHandle,rec)
  1663. _trac=_trac+1
  1664. _trdec=_trdec+1
  1665. _trfic=_trfic+1
  1666. * C11 Registo ----- Detalhe do Anexo C
  1667. Rec="C11"
  1668. If ed("M3C",1,"3",4)=1
  1669.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1670.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1671. Endif
  1672. If ed("M3C",1,"3",4)=1
  1673.     rec=rec+"1"
  1674.     rec=rec+"2"    
  1675. Endif
  1676. rec=rec+transval(ed("M3C",2,"9",915),12)
  1677. rec=rec+transval(ed("M3C",2,"9",916),12)
  1678. rec=rec+transval(ed("M3C",2,"9",917),12)
  1679. rec=rec+transval(ed("M3C",2,"9",918),12)
  1680. rec=rec+transval(ed("M3C",2,"9",919),12)
  1681. rec=rec+transval(ed("M3C",2,"10",1001),12)
  1682. rec=rec+transval(ed("M3C",2,"10",1002),12)
  1683. rec=rec+transval(ed("M3C",2,"10",1003),12)
  1684. rec=rec+transval(ed("M3C",2,"10",1004),12)
  1685. rec=rec+transval(ed("M3C",2,"10",1005),12)
  1686. rec=rec+transval(ed("M3C",2,"10",1006),13)
  1687. rec=rec+transval(ed("M3C",2,"11",1101),12)
  1688. rec=rec+replic(" ",1)+chr(13)+chr(10)    
  1689. =FWRITE(FileHandle,rec)
  1690. _trac=_trac+1
  1691. _trdec=_trdec+1
  1692. _trfic=_trfic+1
  1693. * C12 Registo ----- Detalhe do Anexo C
  1694. Rec="C12"
  1695. If ed("M3C",1,"3",4)=1
  1696.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1697.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1698. Endif
  1699. If ed("M3C",1,"3",4)=1
  1700.     rec=rec+"1"
  1701.     rec=rec+"2"    
  1702. Endif
  1703. rec=rec+transval(ed("M3C",2,"12",1201),12)
  1704. rec=rec+transval(ed("M3C",2,"12",1202),12)
  1705. rec=rec+transval(ed("M3C",2,"12",1203),12)
  1706. rec=rec+transval(ed("M3C",2,"12",1204),12)
  1707. rec=rec+transval(ed("M3C",2,"12",1205),12)
  1708. rec=rec+transval(ed("M3C",2,"12",1206),12)
  1709. rec=rec+replic(" ",74)+chr(13)+chr(10)    
  1710. =FWRITE(FileHandle,rec)
  1711. _trac=_trac+1
  1712. _trdec=_trdec+1
  1713. _trfic=_trfic+1
  1714. * C13 Registo ----- Detalhe do Anexo C
  1715. Rec="C13"
  1716. If ed("M3C",1,"3",4)=1
  1717.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1718.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1719. Endif
  1720. If ed("M3C",1,"3",4)=1
  1721.     rec=rec+"1"
  1722.     rec=rec+"2"    
  1723. Endif
  1724. rec=rec+transval(ed("M3C",2,"13",1301),12)
  1725. rec=rec+transval(ed("M3C",2,"13",1302),12)
  1726. rec=rec+transval(ed("M3C",2,"13",1303),12)
  1727. rec=rec+transval(ed("M3C",2,"13",1304),12)
  1728. rec=rec+transval(ed("M3C",2,"13",1305),12)
  1729. rec=rec+transval(ed("M3C",2,"13",1306),12)
  1730. rec=rec+replic(" ",74)+chr(13)+chr(10)    
  1731. =FWRITE(FileHandle,rec)
  1732. _trac=_trac+1
  1733. _trdec=_trdec+1
  1734. _trfic=_trfic+1
  1735. * C14 Registo ----- Detalhe do Anexo C
  1736. Rec="C14"
  1737. If ed("M3C",1,"3",4)=1
  1738.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1739.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1740. Endif
  1741. If ed("M3C",1,"3",4)=1
  1742.     rec=rec+"1"
  1743.     rec=rec+"2"    
  1744. Endif
  1745. rec=rec+transval(ed("M3C",2,"13",1307),12)
  1746. rec=rec+transval(ed("M3C",2,"13",1308),12)
  1747. rec=rec+transval(ed("M3C",2,"13",1309),12)
  1748. rec=rec+transval(ed("M3C",2,"13",1310),12)
  1749. rec=rec+transval(ed("M3C",2,"13",1311),12)
  1750. rec=rec+transval(ed("M3C",2,"13",1312),12)
  1751. If ed("M3C",2,"14",1)=1
  1752.     rec=rec+"1"
  1753.     If ed("M3C",2,"14",2)=1
  1754.         rec=rec+"2"
  1755.     else
  1756.         rec=rec+"0"
  1757.     endif
  1758. Endif
  1759. Rec=rec+TRANSFORM(ed("M3C",2,"14",1401),"@L 99")
  1760. If ed("M3C",2,"14",3)=1
  1761.     rec=rec+"3"
  1762.     If ed("M3C",2,"14",4)=1
  1763.         rec=rec+"4"
  1764.     else
  1765.         rec=rec+"0"
  1766.     endif
  1767. Endif
  1768. rec=rec+transval(ed("M3C",2,"14",1402),12)
  1769. If ed("M3C",2,"15",1)=1
  1770.     rec=rec+"1"
  1771.     rec=rec+"2"    
  1772. Endif
  1773. rec=rec+TRANSFORM(year(ed("M3C",2,"15",3)),"@L 9999")+TRANSFORM(month(ed("M3C",2,"15",3)),"@L 99")+TRANSFORM(day(ed("M3C",2,"15",3)),"@L 99")
  1774. Rec=rec+TRANSFORM(ed("M3C",2,"16",1601),"@L 999999999")
  1775. rec=rec+replic(" ",40)+chr(13)+chr(10)    
  1776. =FWRITE(FileHandle,rec)
  1777. _trac=_trac+1
  1778. _trdec=_trdec+1
  1779. _trfic=_trfic+1
  1780. * C15 Registo ----- Trailer do Anexo C
  1781. Rec="C15"
  1782. If ed("M3C",1,"3",4)=1
  1783.     Rec=rec+TRANSFORM(ed("M3C",1,"3",6),"@L 999999999")
  1784.     Rec=rec+TRANSFORM(ed("M3C",1,"3",3),"@L 999999999")
  1785. Endif
  1786. If ed("M3C",1,"3",4)=1
  1787.     rec=rec+"1"
  1788.     rec=rec+"2"    
  1789. Endif
  1790. rec=rec+transval(ed("M3C",1,"4",404)+ed("M3C",1,"4",422)+ed("M3C",1,"4",434),16,1)
  1791. rec=rec+transval(ed("M3C",2,"6",605)+ed("M3C",2,"6",610)+ed("M3C",2,"6",615),15)
  1792. rec=rec+transval(ed("M3C",1,"5",501)+ed("M3C",1,"5",502)+ed("M3C",1,"5",503)+ed("M3C",1,"5",504)+ed("M3C",1,"5",505)+ed("M3C",1,"5",506),15)
  1793. rec=rec+transval(ed("M3C",2,"9",908)+ed("M3C",2,"9",909)+ed("M3C",2,"9",910)+ed("M3C",2,"9",911)+ed("M3C",2,"9",912)+ed("M3C",2,"9",913),15)
  1794. rec=rec+transval(ed("M3C",2,"9",914)+ed("M3C",2,"9",915)+ed("M3C",2,"9",916)+ed("M3C",2,"9",917)+ed("M3C",2,"9",918)+ed("M3C",2,"9",919),15)
  1795. rec=rec+transval(ed("M3C",2,"12",1201)+ed("M3C",2,"12",1202)+ed("M3C",2,"12",1203)+ed("M3C",2,"12",1204)+ed("M3C",2,"12",1205)+ed("M3C",2,"12",1206),15)
  1796. rec=rec+transval(ed("M3C",2,"13",1301)+ed("M3C",2,"13",1302)+ed("M3C",2,"13",1303)+ed("M3C",2,"13",1304)+ed("M3C",2,"13",1305)+ed("M3C",2,"13",1306);
  1797.                 +ed("M3C",2,"13",1307)+ed("M3C",2,"13",1308)+ed("M3C",2,"13",1309)+ed("M3C",2,"13",1310)+ed("M3C",2,"13",1311)+ed("M3C",2,"13",1312),15)
  1798. rec=rec+transform(_trac, "@l 9999")
  1799. rec=rec+replic(" ",36)+chr(13)+chr(10)    
  1800. =FWRITE(FileHandle,rec)
  1801. _trac=_trac+1
  1802. _trdec=_trdec+1
  1803. _trfic=_trfic+1
  1804. Endif
  1805. *--------------------------------------------------------------------- Fim do anexo C
  1806. *----------------------------------------------------------------------
  1807. * 099 Registo Trailer da Declara
  1808. rec="099"
  1809. rec=rec+transform(_trdec, "@l 9999")
  1810. rec=rec+replic(" ",152)+chr(13)+chr(10)    
  1811. =FWRITE(FileHandle,rec)
  1812. _trfic=_trfic+1
  1813. *-----------------------------------------------------------------------
  1814. * 999
  1815.  Registo Trailer da Declara
  1816. rec="999"
  1817. rec=rec+transform(_trfic, "@l 9999")
  1818. rec=rec+replic(" ",152)+chr(13)+chr(10)    
  1819. =FWRITE(FileHandle,rec)
  1820. *--------------------------------
  1821. =fclose(filehandle)
  1822. =Messagebox("Cria
  1823. o do Ficheiro efectuada ..",0+64,"")
  1824. ENDPROC
  1825. PROCEDURE filecreate1
  1826. ***** Crea
  1827. o ficheiro para modelo 22
  1828. lparam _ana, _anb, _anc, _and, _ane
  1829. _trm22=0
  1830. _trana=0
  1831. _tranc=0
  1832. _trand=0
  1833. _trdec=0
  1834. _trfic=0
  1835. _trane=0
  1836. if !file(_m22filename)
  1837.     filehandle=fcreate(_m22filename)
  1838.     filehandle=fopen(_m22filename,2)
  1839. endif
  1840.  Registo
  1841. rec="001ASCII17"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",153)+chr(13)+chr(10)
  1842. =FWRITE(FileHandle,rec)
  1843.  Registo
  1844. rec="002Mod.22"+_pnipc+alltrim(str(year(_pperi)))+transform(month(_pperi),"@l 99")+transform(day(_pperi),"@l 99")+alltrim(str(year(_ppers)))+transform(month(_ppers),"@l 99")+transform(day(_ppers),"@l 99")+alltrim(str(_pexerc))+"EUR"+replic(" ",130)+chr(13)+chr(10)
  1845. =FWRITE(FileHandle,rec)
  1846. _trfic=_trfic+1
  1847.  Registo
  1848. rec="003"
  1849. rec=rec+left(_pcodrep,4)
  1850. rec=rec+alltrim(str(_ptipos))
  1851. do case 
  1852.     case _pregimirc=0
  1853.         rec=rec+"0000000"    
  1854.     case _pregimirc=1
  1855.         rec=rec+"1000000"    
  1856.     case _pregimirc=2
  1857.         rec=rec+"0300000"    
  1858.     case _pregimirc=3
  1859.         rec=rec+"0040000"    
  1860.     case _pregimirc=4
  1861.         rec=rec+"0005000"    
  1862.     case _pregimirc=5
  1863.         rec=rec+"0000600"    
  1864.     case _pregimirc=6
  1865.         rec=rec+"0000070"    
  1866.     case _pregimirc=7
  1867.         rec=rec+"0000008"    
  1868. endcase
  1869. rec=rec+transform(_pnipcsd, "@l 999999999")
  1870. IF _ptaxaopc=1
  1871.     rec=rec+"1"
  1872. ELSE 
  1873.     rec=rec+"0"
  1874. ENDIF
  1875. IF _PSITUA=1
  1876.     REC=REC+"1"
  1877.     REC=REC+"0"
  1878. ENDIF
  1879. rec=rec+alltrim(str(_ptipodec))
  1880. rec=rec+transform(year(_pdatasubst),"@l 9999")+transform(month(_pdatasubst),"@l 99")+transform(day(_pdatasubst),"@l 99")
  1881. *rec=rec+alltrim(str(_presdec))
  1882. rec=rec+stuff("00000",_pdescesp,1,alltrim(str(_pdescesp)))+iif(_pdecini=0,"0","7")
  1883. rec=rec+transform(year(_pdataces),"@l 9999")+transform(month(_pdataces),"@l 99")+transform(day(_pdataces),"@l 99")
  1884. rec=rec+transform(year(_pdatatrans),"@l 9999")+transform(month(_pdatatrans),"@l 99")+transform(day(_pdatatrans),"@l 99")
  1885. rec=rec+alltrim(str(_panexoa))
  1886. rec=rec+alltrim(str(iif(_panexob=0,0,2)))
  1887. rec=rec+alltrim(str(iif(_panexoc=0,0,3)))
  1888. rec=rec+alltrim(str(iif(_panexod=0,0,4)))
  1889. rec=rec+_pniflegal
  1890. rec=rec+_pniftoc    
  1891. rec=rec+ALLTRIM(STR(_ppme))
  1892. rec=rec+ALLTRIM(STR(_ptransf))
  1893. rec=rec+alltrim(str(iif(_panexoe=0,0,5)))
  1894. rec=rec+replic(" ",89)+chr(13)+chr(10)    
  1895. =FWRITE(FileHandle,rec)
  1896. _trdec=_trdec+1
  1897. _trfic=_trfic+1
  1898.  Registo
  1899. rec="004"
  1900. *!*    rec=rec+transval(ed("M22",1,"7",201),13,1)
  1901. *!*    rec=rec+transval(ed("M22",1,"7",202),12)
  1902. *!*    rec=rec+transval(ed("M22",1,"7",203),12)
  1903. *!*    rec=rec+transval(ed("M22",1,"7",204),15,1)
  1904. *!*    rec=rec+transval(ed("M22",1,"7",205),12)
  1905. *!*    rec=rec+transval(ed("M22",1,"7",206),12)
  1906. *!*    rec=rec+transval(ed("M22",1,"7",207),12)
  1907. *!*    rec=rec+transval(ed("M22",1,"7",208),12)
  1908. *!*    rec=rec+transval(ed("M22",1,"7",209),12)
  1909. *!*    rec=rec+transval(ed("M22",1,"7",210),12)
  1910. *!*    rec=rec+transval(ed("M22",1,"7",211),12)
  1911. *!*    rec=rec+transval(ed("M22",1,"7",212),12)
  1912. *!*    rec=rec+replic(" ",21)+chr(13)+chr(10)    
  1913. rec=rec+transval(0,13,1)
  1914. rec=rec+transval(0,12)
  1915. rec=rec+transval(0,12)
  1916. rec=rec+transval(0,15,1)
  1917. rec=rec+transval(0,12)
  1918. rec=rec+transval(0,12)
  1919. rec=rec+transval(0,12)
  1920. rec=rec+transval(0,12)
  1921. rec=rec+transval(0,12)
  1922. rec=rec+transval(0,12)
  1923. rec=rec+transval(0,12)
  1924. rec=rec+transval(0,12)
  1925. rec=rec+replic(" ",20)+chr(13)+chr(10)    
  1926. =FWRITE(FileHandle,rec)
  1927. _trm22=_trm22+1
  1928. _trdec=_trdec+1
  1929. _trfic=_trfic+1
  1930.  Registo
  1931.     rec="005"
  1932. *!*    rec=rec+transval(ed("M22",1,"7",213),12)
  1933. *!*    rec=rec+transval(ed("M22",1,"7",214),12)
  1934. *!*    rec=rec+transval(ed("M22",1,"7",215),12)
  1935. *!*    rec=rec+transval(ed("M22",1,"7",216),12)
  1936. *!*    rec=rec+transval(ed("M22",1,"7",217),12)
  1937. *!*    rec=rec+transval(ed("M22",1,"7",218),12)
  1938. *!*    rec=rec+transval(ed("M22",1,"7",220),12)
  1939. *!*    rec=rec+transval(ed("M22",1,"7",222),12)
  1940. *!*    rec=rec+transval(ed("M22",1,"7",223),12)
  1941. *!*    rec=rec+transval(ed("M22",1,"7",224),12)
  1942. *!*    rec=rec+transval(ed("M22",1,"7",251),12)
  1943. *!*    rec=rec+transval(ed("M22",1,"7",252),12)
  1944. *!*    rec=rec+transval(ed("M22",1,"7",253),12)
  1945. *!*    rec=rec+transval(ed("M22",1,"7",254),12)
  1946. *!*    rec=rec+replic(" ",1)+chr(13)+chr(10)    
  1947. rec=rec+transval(0,12)
  1948. rec=rec+transval(0,12)
  1949. rec=rec+transval(0,12)
  1950. rec=rec+transval(0,12)
  1951. rec=rec+transval(0,12)
  1952. rec=rec+transval(0,12)
  1953. rec=rec+transval(0,12)
  1954. rec=rec+transval(0,12)
  1955. rec=rec+transval(0,12)
  1956. rec=rec+transval(0,12)
  1957. rec=rec+transval(0,12)
  1958. rec=rec+transval(0,12)
  1959. rec=rec+transval(0,12)
  1960. rec=rec+transval(0,12)
  1961. rec=rec+chr(13)+chr(10)    
  1962. =FWRITE(FileHandle,rec)
  1963. _trm22=_trm22+1
  1964. _trdec=_trdec+1
  1965. _trfic=_trfic+1
  1966.  Registo
  1967.     rec="006"
  1968. *!*    rec=rec+transval(ed("M22",1,"7",255),12)
  1969. *!*    rec=rec+transval(ed("M22",1,"7",256),12)
  1970. *!*    rec=rec+transval(ed("M22",1,"7",257),12)
  1971. *!*    rec=rec+transval(ed("M22",1,"7",258),12)
  1972. *!*    rec=rec+transval(ed("M22",1,"7",259),12)
  1973. *!*    rec=rec+transval(ed("M22",1,"7",270),12)
  1974. *!*    rec=rec+transval(ed("M22",1,"7",271),12)
  1975. *!*    rec=rec+transval(ed("M22",1,"7",225),12)
  1976. *!*    rec=rec+transval(ed("M22",1,"7",226),15,1)
  1977. *!*    rec=rec+transval(ed("M22",1,"7",227),12)
  1978. *!*    rec=rec+transval(ed("M22",1,"7",228),12)
  1979. *!*    rec=rec+transval(ed("M22",1,"7",229),12)
  1980. *!*    rec=rec+transval(ed("M22",1,"7",230),12)
  1981. *!*    rec=rec+replic(" ",10)+chr(13)+chr(10)
  1982. rec=rec+transval(0,12)
  1983. rec=rec+transval(0,12)
  1984. rec=rec+transval(0,12)
  1985. rec=rec+transval(0,12)
  1986. rec=rec+transval(0,12)
  1987. rec=rec+transval(0,12)
  1988. rec=rec+transval(0,12)
  1989. rec=rec+transval(0,12)
  1990. rec=rec+transval(0,15,1)
  1991. rec=rec+transval(0,12)
  1992. rec=rec+transval(0,12)
  1993. rec=rec+transval(0,12)
  1994. rec=rec+transval(0,12)
  1995. rec=rec+replic(" ",9)+chr(13)+chr(10)
  1996. =FWRITE(FileHandle,rec)
  1997. _trm22=_trm22+1
  1998. _trdec=_trdec+1
  1999. _trfic=_trfic+1
  2000.  Registo
  2001.     rec="007"
  2002. *!*    rec=rec+transval(ed("M22",1,"7",231),12)
  2003. *!*    rec=rec+transval(ed("M22",1,"7",232),12)
  2004. *!*    rec=rec+transval(ed("M22",1,"7",233),12)
  2005. *!*    rec=rec+transval(ed("M22",1,"7",234),12)
  2006. *!*    rec=rec+transval(ed("M22",1,"7",235),12)
  2007. *!*    rec=rec+transval(ed("M22",1,"7",236),12)
  2008. *!*    rec=rec+transval(ed("M22",1,"7",272),12)
  2009. *!*    rec=rec+transval(ed("M22",1,"7",273),12)
  2010. *!*    rec=rec+transval(ed("M22",1,"7",237),12)
  2011. *!*    rec=rec+transval(ed("M22",1,"7",277),12)
  2012. *!*    rec=rec+transval(ed("M22",1,"7",238),14)
  2013. *!*    rec=rec+transval(ed("M22",1,"7",239),14)
  2014. *!*    IF !EMPTY(ed("M22",1,"7",240))
  2015. *!*        rec=rec+transval(ed("M22",1,"7",240),14)
  2016. *!*    ELSE
  2017. *!*        rec=rec+replic(" ",14)
  2018. *!*    ENDIF
  2019. *!*    rec=rec+replic(" ",7)+chr(13)+chr(10)    
  2020. rec=rec+transval(0,12)
  2021. rec=rec+transval(0,12)
  2022. rec=rec+transval(0,12)
  2023. rec=rec+transval(0,12)
  2024. rec=rec+transval(0,12)
  2025. rec=rec+transval(0,12)
  2026. rec=rec+transval(0,12)
  2027. rec=rec+transval(0,12)
  2028. rec=rec+transval(0,12)
  2029. rec=rec+transval(0,12)
  2030. rec=rec+transval(0,14)
  2031. rec=rec+transval(0,14)
  2032. rec=rec+replic(" ",14)
  2033. rec=rec+replic(" ",6)+chr(13)+chr(10)    
  2034. =FWRITE(FileHandle,rec)
  2035. _trm22=_trm22+1
  2036. _trdec=_trdec+1
  2037. _trfic=_trfic+1
  2038.  Registo
  2039. rec="008"
  2040. rec=rec+transf(ed("M22",1,"8",242), "@L 9")
  2041. *!*    rec=rec+transf(ed("M22",1,"8",243), "@L 9")
  2042. rec=rec+transf(ed("M22",1,"8",245), "@L 9")
  2043. rec=rec+transf(ed("M22",1,"8",248), "@L 9")
  2044. rec=rec+transf(ed("M22",1,"8",260), "@L 9")
  2045. *!*    rec=rec+transf(ed("M22",1,"8",261), "@L 9")
  2046. rec=rec+transf(ed("M22",1,"8",247), "@L 9")
  2047. rec=rec+transf(ed("M22",1,"8",246), "@L 9")
  2048. rec=rec+transf(ed("M22",1,"8",249), "@L 9")
  2049. rec=rec+transf(ed("M22",1,"8",262), "@L 9")
  2050. rec=rec+transf(ed("M22",1,"8",263), "@L 9")
  2051. rec=rec+transf(ed("M22",1,"8",264), "@L 9")
  2052. rec=rec+transf(ed("M22",1,"8",265), "@L 9")
  2053. rec=rec+transval(ed("M22",1,"9",301),12)
  2054. IF !EMPTY(ed("M22",1,"9",302))
  2055.     rec=rec+transval(ed("M22",1,"9",302),12)
  2056.     REC=REC+replic(" ",12)    
  2057. ENDIF
  2058. IF EMPTY(ed("M22",1,"9",303))
  2059.     rec=rec+REPLICATE(" ",12)
  2060. else    
  2061.     rec=rec+transval(ed("M22",1,"9",303),12)
  2062. endif
  2063. *!*    rec=rec+transval(ed("M22",1,"9",304),12)
  2064. *!*    rec=rec+transval(ed("M22",1,"9",305),12)
  2065. *!*    rec=rec+transval(ed("M22",1,"9",306),12)
  2066. *!*    rec=rec+transval(ed("M22",1,"9",307),12)
  2067. *!*    rec=rec+transval(ed("M22",1,"9",308),12)
  2068. rec=rec+transval(ed("M22",1,"9",309),12)
  2069. rec=rec+transval(ed("M22",1,"9",310),12)
  2070. IF !EMPTY(ed("M22",1,"9",311))
  2071.     rec=rec+transval(ed("M22",1,"9",311),12)
  2072.     REC=REC+replic(" ",12)    
  2073. ENDIF
  2074. rec=rec+transval(ed("M22",1,"9",312),12)
  2075. IF !EMPTY(ed("M22",1,"9",313))
  2076.     rec=rec+transval(ed("M22",1,"9",313),12)
  2077.     REC=REC+replic(" ",12)    
  2078. ENDIF
  2079. rec=rec+transf(ed("M22",1,"8",266), "@L 9")
  2080. rec=rec+replic(" ",60)+chr(13)+chr(10)    
  2081. =FWRITE(FileHandle,rec)
  2082. _trm22=_trm22+1
  2083. _trdec=_trdec+1
  2084. _trfic=_trfic+1
  2085.  Registo
  2086. rec="009"
  2087. rec=rec+transval(ed("M22",1,"9",314),12)
  2088. *!*    rec=rec+transval(ed("M22",1,"9",315),12)
  2089. *!*    rec=rec+transval(ed("M22",1,"9",316),12)
  2090. *!*    rec=rec+transval(ed("M22",1,"9",317),12)
  2091. *!*    rec=rec+transval(ed("M22",1,"9",318),12)
  2092. *!*    rec=rec+transval(ed("M22",1,"9",319),12)
  2093. rec=rec+transval(ed("M22",1,"9",320),12)
  2094. rec=rec+transval(ed("M22",1,"9",321),12)
  2095. IF !EMPTY(ed("M22",1,"9",322))
  2096.     rec=rec+transval(ed("M22",1,"9",322),12)
  2097.     REC=REC+replic(" ",12)    
  2098. ENDIF
  2099. rec=rec+transval(ed("M22",1,"9",323),12)
  2100. IF !EMPTY(ed("M22",1,"9",324))
  2101.     rec=rec+transval(ed("M22",1,"9",324),12)
  2102.     REC=REC+replic(" ",12)    
  2103. ENDIF
  2104. rec=rec+transval(ed("M22",1,"9",325),12)
  2105. *!*    rec=rec+transval(ed("M22",1,"9",326),12)
  2106. *!*    rec=rec+transval(ed("M22",1,"9",327),12)
  2107. rec=rec+replic(" ",84)+chr(13)+chr(10)    
  2108. =FWRITE(FileHandle,rec)
  2109. _trm22=_trm22+1
  2110. _trdec=_trdec+1
  2111. _trfic=_trfic+1
  2112.  Registo
  2113. rec="010"
  2114. *!*    rec=rec+transval(ed("M22",1,"9",328),12)
  2115. *!*    rec=rec+transval(ed("M22",1,"9",329),12)
  2116. *!*    rec=rec+transval(ed("M22",1,"9",330),12)
  2117. rec=rec+transval(ed("M22",1,"9",331),12)
  2118. rec=rec+transval(ed("M22",1,"9",332),12)
  2119. IF !EMPTY(ed("M22",1,"9",333))
  2120.     rec=rec+transval(ed("M22",1,"9",333),12)
  2121.     REC=REC+replic(" ",12)    
  2122. ENDIF
  2123. rec=rec+transval(ed("M22",1,"9",346),14)
  2124. rec=rec+transval(ed("M22",1,"9",380),13,1)
  2125. rec=rec+transval(ed("M22",1,"9",381),12)
  2126. rec=rec+transval(ed("M22",1,"9",382),13,1)
  2127. IF !EMPTY(ed("M22",1,"11",410))
  2128.     rec=rec+transval(ed("M22",1,"11",410),14)
  2129.     REC=REC+replic(" ",14)    
  2130. ENDIF
  2131. rec=rec+transval(ed("M22",1,"11",411),14)
  2132. rec=rec+transval(ed("M22",1,"11",422),12)
  2133. rec=rec+transval(ed("M22",1,"11",424),12)
  2134. rec=rec+replic(" ",28)+chr(13)+chr(10)    
  2135. =FWRITE(FileHandle,rec)
  2136. _trm22=_trm22+1
  2137. _trdec=_trdec+1
  2138. _trfic=_trfic+1
  2139.  Registo
  2140. rec="011"
  2141. *!*    rec=rec+transval(ed("M22",1,"11",413),12)
  2142. rec=rec+transval(ed("M22",1,"11",414),12)
  2143. rec=rec+transval(ed("M22",1,"11",415),12)
  2144. rec=rec+transval(ed("M22",1,"11",416),12)
  2145. rec=rec+transval(ed("M22",1,"10",347),12)
  2146. _t=transf(Ed("M22",1,"10",348),"@l 99.9")
  2147. _t=stuff(_t,3,1,"")
  2148. rec=rec+_t
  2149. rec=rec+transval(ed("M22",1,"10",349),12)
  2150. rec=rec+transval(ed("M22",1,"10",350),12)
  2151. rec=rec+transval(ed("M22",1,"10",370),12)
  2152. rec=rec+transval(ed("M22",1,"10",351),14)
  2153. rec=rec+transval(ed("M22",1,"10",353),12)
  2154. rec=rec+transval(ed("M22",1,"10",355),12)
  2155. rec=rec+transval(ed("M22",1,"10",3661),12)
  2156. rec=rec+transval(ed("M22",1,"10",3662),12)
  2157. rec=rec+replic(" ",19)+chr(13)+chr(10)    
  2158. =FWRITE(FileHandle,rec)
  2159. _trm22=_trm22+1
  2160. _trdec=_trdec+1
  2161. _trfic=_trfic+1
  2162.  Registo
  2163. rec="012"
  2164. rec=rec+transval(ed("M22",1,"10",356),12)
  2165. rec=rec+transval(ed("M22",1,"10",357),14)
  2166. rec=rec+transval(ed("M22",1,"10",358),14)
  2167. rec=rec+transval(ed("M22",1,"10",371),14)
  2168. rec=rec+transval(ed("M22",1,"10",359),12)
  2169. rec=rec+transval(ed("M22",1,"10",360),12)
  2170. rec=rec+transval(ed("M22",1,"10",361),14)
  2171. rec=rec+transval(ed("M22",1,"10",362),14)
  2172. rec=rec+transval(ed("M22",1,"10",363),12)
  2173. rec=rec+transval(ed("M22",1,"10",364),12)
  2174. rec=rec+transval(ed("M22",1,"10",365),12)
  2175. rec=rec+transval(ed("M22",1,"10",366),12)
  2176. rec=rec+transval(ed("M22",1,"10",369),12)
  2177. rec=rec+replic(" ",2)+chr(13)+chr(10)    
  2178. =FWRITE(FileHandle,rec)
  2179. _trm22=_trm22+1
  2180. _trdec=_trdec+1
  2181. _trfic=_trfic+1
  2182.  Registo
  2183. *if _panexob=1
  2184.     rec="013"
  2185.     rec=rec+transval(ed("M22",1,"10",367),14)
  2186.     rec=rec+transval(ed("M22",1,"10",368),14)
  2187.     IF EMPTY(ed("M22",1,"9",400))
  2188.         rec=rec+REPLICATE(" ",12)
  2189.     else    
  2190.         rec=rec+transval(ed("M22",1,"9",400),12)
  2191.     endif
  2192. *    rec=rec+iif(empty(ed("M22",1,"9",400)), "            ", padl(ed("M22",1,"9",400)*100, 12, " "))
  2193.     rec=rec+transval(ed("M22",1,"9",401),12)
  2194. *!*        rec=rec+transval(ed("M22",1,"9",402),12)
  2195. *!*        rec=rec+transval(ed("M22",1,"9",403),12)
  2196. *!*        rec=rec+transval(ed("M22",1,"9",404),12)
  2197. *!*        rec=rec+transval(ed("M22",1,"9",405),12)
  2198. *!*        rec=rec+transval(ed("M22",1,"9",406),12)
  2199.     rec=rec+transval(ed("M22",1,"9",407),12)
  2200.     rec=rec+transval(ed("M22",1,"9",408),12)
  2201.     rec=rec+transval(ed("M22",1,"9",409),12)
  2202. *!*        rec=rec+transval(ed("M22",1,"9",395),12)
  2203.     rec=rec+transval(ed("M22",1,"9",3971)+ed("M22",1,"9",3972),15)
  2204.     rec=rec+replic(" ",65)+chr(13)+chr(10)    
  2205.     =FWRITE(FileHandle,rec)
  2206.     _trm22=_trm22+1
  2207.     _trdec=_trdec+1
  2208.     _trfic=_trfic+1
  2209. *endif
  2210.  Registo
  2211. rec="014"
  2212. *!*    rec=rec+transval(ed("M22",1,"7",274),12)
  2213. *!*    rec=rec+transval(ed("M22",1,"7",275),12)
  2214. *!*    rec=rec+transval(ed("M22",1,"7",276),12)
  2215. rec=rec+transval(0,12)
  2216. rec=rec+transval(0,12)
  2217. rec=rec+transval(0,12)
  2218. rec=rec+transval(ed("M22",1,"10",372),12)
  2219. rec=rec+transval(ed("M22",1,"11",420),12)
  2220. rec=rec+transval(ed("M22",1,"11",421),12)
  2221. *rec=rec+transval(ed("M22",1,"11",419),12)
  2222. rec=rec+transval(ed("M22",1,"10",3470),12)
  2223. rec=rec+replic(" ",84)+chr(13)+chr(10)    
  2224. =FWRITE(FileHandle,rec)
  2225. _trm22=_trm22+1
  2226. _trdec=_trdec+1
  2227. _trfic=_trfic+1
  2228.  Registo
  2229. rec="015"
  2230. rec=rec+transval(ed("M22",1,"9",383),12)
  2231. rec=rec+transval(ed("M22",1,"9",384),12)
  2232. rec=rec+transval(ed("M22",1,"9",385),12)
  2233. rec=rec+transval(ed("M22",1,"9",386),12)
  2234. rec=rec+transval(ed("M22",1,"9",387),12)
  2235. rec=rec+transval(ed("M22",1,"9",388),12)
  2236. rec=rec+transval(ed("M22",1,"9",389),12)
  2237. rec=rec+transval(ed("M22",1,"9",390),12)
  2238. rec=rec+transval(ed("M22",1,"9",391),12)
  2239. rec=rec+transval(ed("M22",1,"9",392),12)
  2240. rec=rec+transval(ed("M22",1,"9",393),12)
  2241. rec=rec+transval(ed("M22",1,"9",394),12)
  2242. rec=rec+transval(ed("M22",1,"11",417),12)
  2243. rec=rec+transform(year(ed("M22",1,"11",418)),"@l 9999")+transform(month(ed("M22",1,"11",418)),"@l 99")+transform(day(ed("M22",1,"11",418)),"@l 99")
  2244. rec=rec+replic(" ",4)+chr(13)+chr(10)    
  2245. =FWRITE(FileHandle,rec)
  2246. _trm22=_trm22+1
  2247. _trdec=_trdec+1
  2248. _trfic=_trfic+1
  2249. *--------Novos registos do quadro 7 a partir de 2011
  2250.  Registo
  2251. rec="016"
  2252. rec=rec+transval(ed("M22",1,"7",701),13,1)
  2253. rec=rec+transval(ed("M22",1,"7",702),12)
  2254. rec=rec+transval(ed("M22",1,"7",703),12)
  2255. rec=rec+transval(ed("M22",1,"7",704),12)
  2256. rec=rec+transval(ed("M22",1,"7",705),12)
  2257. rec=rec+transval(ed("M22",1,"7",706),12)
  2258. rec=rec+transval(ed("M22",1,"7",707),12)
  2259. rec=rec+transval(ed("M22",1,"7",708),15,1)
  2260. rec=rec+transval(ed("M22",1,"7",709),12)
  2261. rec=rec+transval(ed("M22",1,"7",710),12)
  2262. rec=rec+transval(ed("M22",1,"7",711),12)
  2263. rec=rec+transval(ed("M22",1,"7",712),12)
  2264. rec=rec+transval(ed("M22",1,"7",713),12)
  2265. rec=rec+replic(" ",8)+chr(13)+chr(10)    
  2266. =FWRITE(FileHandle,rec)
  2267. _trm22=_trm22+1
  2268. _trdec=_trdec+1
  2269. _trfic=_trfic+1
  2270.  Registo
  2271. rec="017"
  2272. rec=rec+transval(ed("M22",1,"7",714),12)
  2273. rec=rec+transval(ed("M22",1,"7",715),12)
  2274. rec=rec+transval(ed("M22",1,"7",716),12)
  2275. rec=rec+transval(ed("M22",1,"7",717),12)
  2276. rec=rec+transval(ed("M22",1,"7",718),12)
  2277. rec=rec+transval(ed("M22",1,"7",719),12)
  2278. rec=rec+transval(ed("M22",1,"7",720),12)
  2279. rec=rec+transval(ed("M22",1,"7",721),12)
  2280. rec=rec+transval(ed("M22",1,"7",722),12)
  2281. rec=rec+transval(ed("M22",1,"7",723),12)
  2282. rec=rec+transval(ed("M22",1,"7",724),12)
  2283. rec=rec+transval(ed("M22",1,"7",725),12)
  2284. rec=rec+transval(ed("M22",1,"7",726),12)
  2285. rec=rec+transval(ed("M22",1,"7",727),12)
  2286. rec=rec+chr(13)+chr(10)    
  2287. =FWRITE(FileHandle,rec)
  2288. _trm22=_trm22+1
  2289. _trdec=_trdec+1
  2290. _trfic=_trfic+1
  2291.  Registo
  2292. rec="018"
  2293. rec=rec+transval(ed("M22",1,"7",728),12)
  2294. rec=rec+transval(ed("M22",1,"7",729),12)
  2295. rec=rec+transval(ed("M22",1,"7",730),12)
  2296. rec=rec+transval(ed("M22",1,"7",731),12)
  2297. rec=rec+transval(ed("M22",1,"7",732),12)
  2298. rec=rec+transval(ed("M22",1,"7",733),12)
  2299. rec=rec+transval(ed("M22",1,"7",734),12)
  2300. rec=rec+transval(ed("M22",1,"7",735),12)
  2301. rec=rec+transval(ed("M22",1,"7",736),12)
  2302. rec=rec+transval(ed("M22",1,"7",737),12)
  2303. rec=rec+transval(ed("M22",1,"7",738),12)
  2304. rec=rec+transval(ed("M22",1,"7",739),12)
  2305. rec=rec+transval(ed("M22",1,"7",740),12)
  2306. rec=rec+transval(ed("M22",1,"7",741),12)
  2307. rec=rec+chr(13)+chr(10)    
  2308. =FWRITE(FileHandle,rec)
  2309. _trm22=_trm22+1
  2310. _trdec=_trdec+1
  2311. _trfic=_trfic+1
  2312.  Registo
  2313. rec="019"
  2314. rec=rec+transval(ed("M22",1,"7",742),12)
  2315. rec=rec+transval(ed("M22",1,"7",743),12)
  2316. rec=rec+transval(ed("M22",1,"7",744),12)
  2317. rec=rec+transval(ed("M22",1,"7",745),12)
  2318. rec=rec+transval(ed("M22",1,"7",746),12)
  2319. rec=rec+transval(ed("M22",1,"7",747),12)
  2320. rec=rec+transval(ed("M22",1,"7",748),12)
  2321. rec=rec+transval(ed("M22",1,"7",749),12)
  2322. rec=rec+transval(ed("M22",1,"7",750),12)
  2323. rec=rec+transval(ed("M22",1,"7",751),12)
  2324. rec=rec+transval(ed("M22",1,"7",752),12)
  2325. rec=rec+transval(ed("M22",1,"7",753),15,1)
  2326. rec=rec+transval(ed("M22",1,"7",779),12)
  2327. rec=rec+replic(" ",9)+chr(13)+chr(10)    
  2328. =FWRITE(FileHandle,rec)
  2329. _trm22=_trm22+1
  2330. _trdec=_trdec+1
  2331. _trfic=_trfic+1
  2332.  Registo
  2333. rec="020"
  2334. rec=rec+transval(ed("M22",1,"7",754),12)
  2335. rec=rec+transval(ed("M22",1,"7",755),12)
  2336. rec=rec+transval(ed("M22",1,"7",756),12)
  2337. rec=rec+transval(ed("M22",1,"7",757),12)
  2338. rec=rec+transval(ed("M22",1,"7",758),12)
  2339. rec=rec+transval(ed("M22",1,"7",759),12)
  2340. rec=rec+transval(ed("M22",1,"7",760),12)
  2341. rec=rec+transval(ed("M22",1,"7",761),12)
  2342. rec=rec+transval(ed("M22",1,"7",762),12)
  2343. rec=rec+transval(ed("M22",1,"7",763),12)
  2344. rec=rec+transval(ed("M22",1,"7",764),12)
  2345. rec=rec+transval(ed("M22",1,"7",765),12)
  2346. rec=rec+transval(ed("M22",1,"7",766),12)
  2347. rec=rec+transval(ed("M22",1,"7",767),12)
  2348. rec=rec+chr(13)+chr(10)    
  2349. =FWRITE(FileHandle,rec)
  2350. _trm22=_trm22+1
  2351. _trdec=_trdec+1
  2352. _trfic=_trfic+1
  2353.  Registo
  2354. rec="021"
  2355. rec=rec+transval(ed("M22",1,"7",768),12)
  2356. rec=rec+transval(ed("M22",1,"7",769),12)
  2357. rec=rec+transval(ed("M22",1,"7",770),12)
  2358. rec=rec+transval(ed("M22",1,"7",771),12)
  2359. rec=rec+transval(ed("M22",1,"7",772),12)
  2360. rec=rec+transval(ed("M22",1,"7",773),12)
  2361. rec=rec+transval(ed("M22",1,"7",774),12)
  2362. rec=rec+transval(ed("M22",1,"7",775),12)
  2363. rec=rec+transval(ed("M22",1,"7",776),14)
  2364. rec=rec+transval(ed("M22",1,"7",777),14)
  2365. rec=rec+transval(ed("M22",1,"7",778),14)
  2366. *!*    rec=rec+transform(year(ed("M22",1,"8",266)),"@l 9999")+transform(month(ed("M22",1,"8",266)),"@l 99")+transform(day(ed("M22",1,"8",266)),"@l 99")
  2367. *!*    IF EMPTY(ed("M22",1,"8",267))
  2368. *!*        rec=rec+"     "
  2369. *!*    ELSE
  2370. *!*        rec=rec+transf(ed("M22",1,"8",267), "@l 99999")
  2371. *!*    ENDIF
  2372. *!*    IF EMPTY(ed("M22",1,"8",268))
  2373. *!*        REC=REC+REPLICATE(" ",14)
  2374. *!*    ELSE    
  2375. *!*        rec=rec+transval(ed("M22",1,"8",268),14)
  2376. *!*    ENDIF
  2377. rec=rec+transval(ed("M22",1,"7",780),12)
  2378. rec=rec+transval(ed("M22",1,"7",781),12)
  2379. rec=rec+replic(" ",6)+chr(13)+chr(10)    
  2380. =FWRITE(FileHandle,rec)
  2381. _trm22=_trm22+1
  2382. _trdec=_trdec+1
  2383. _trfic=_trfic+1
  2384.  Registo
  2385. rec="022"
  2386. rec=rec+transval(ed("M22",1,"10",373),12)
  2387. rec=rec+transval(ed("M22",1,"10",374),12)
  2388. IF ED("M22",1,"11",423)=1
  2389.     REC=rec+"1"
  2390.     REC=REC+"0"
  2391. ENDIF
  2392. rec=rec+replic(" ",143)+chr(13)+chr(10)    
  2393. =FWRITE(FileHandle,rec)
  2394. _trm22=_trm22+1
  2395. _trdec=_trdec+1
  2396. _trfic=_trfic+1
  2397. *-----------------------------------------------------
  2398.  Registo
  2399.      t_q12=0
  2400.     IF !EMPTY(ed("M22",1,"12",1))
  2401.         t_q12=1
  2402.         rec="023"
  2403.         rec=rec+transform(1, "@l 99999")
  2404.         rec=rec+transform(ed("M22",1,"12",1), "@l 999999999")
  2405.         rec=rec+transval(ed("M22",1,"12",2),12)
  2406.         rec=rec+replic(" ",142)+chr(13)+chr(10)    
  2407.         =FWRITE(FileHandle,rec)
  2408.         _trm22=_trm22+1
  2409.         _trdec=_trdec+1
  2410.         _trfic=_trfic+1
  2411.     Endif    
  2412. *!*        IF !EMPTY(ed("M22",1,"12",3))
  2413. *!*            
  2414. *!*            t_q12=2
  2415. *!*            rec="16"
  2416. *!*            rec=rec+transform(1, "@l 99999")
  2417. *!*            rec=rec+transform(ed("M22",1,"12",3), "@l 999999999")
  2418. *!*            rec=rec+transval(ed("M22",1,"12",4),12)
  2419. *!*            
  2420. *!*            rec=rec+replic(" ",143)+chr(13)+chr(10)    
  2421. *!*            =FWRITE(FileHandle,rec)
  2422. *!*            _trm22=_trm22+1
  2423. *!*            _trdec=_trdec+1
  2424. *!*            _trfic=_trfic+1
  2425. *!*        Endif    
  2426. *!*    =FWRITE(FileHandle,rec)
  2427. *!*    _trm22=_trm22+1
  2428. *!*    _trdec=_trdec+1
  2429. *!*    _trfic=_trfic+1
  2430.  Registo
  2431.     t_reg17=0
  2432.     IF !EMPTY(ed("M22",1,"9",396))
  2433.         t_reg17=1
  2434.         rec="024"
  2435.         rec=rec+transform(1, "@l 99999")
  2436.         rec=rec+transval(ed("M22",1,"9",396),12)
  2437.         rec=rec+transform(ed("M22",1,"9",8), "@l 999999999")
  2438.         rec=rec+replic(" ",142)+chr(13)+chr(10)    
  2439.         =FWRITE(FileHandle,rec)
  2440.         _trm22=_trm22+1
  2441.         _trdec=_trdec+1
  2442.         _trfic=_trfic+1
  2443.     Endif    
  2444.  Registo
  2445.     t_reg18=0
  2446.     IF !EMPTY(ed("M22",1,"9",3971))
  2447.         t_reg18=1
  2448.         rec="025"
  2449.         rec=rec+transform(1, "@l 99999")
  2450.         rec=rec+transval(ed("M22",1,"9",3971),12)
  2451.         rec=rec+transform(ed("M22",1,"9",9), "@l 999999999")
  2452.         rec=rec+replic(" ",142)+chr(13)+chr(10)    
  2453.         =FWRITE(FileHandle,rec)
  2454.         _trm22=_trm22+1
  2455.         _trdec=_trdec+1
  2456.         _trfic=_trfic+1
  2457.     Endif    
  2458.  Registo
  2459.     t_reg19=0
  2460.     IF !EMPTY(ed("M22",1,"9",3972))
  2461.         t_reg19=1
  2462.         rec="026"
  2463.         rec=rec+transform(1, "@l 99999")
  2464.         rec=rec+transval(ed("M22",1,"9",3972),12)
  2465.         rec=rec+transform(ed("M22",1,"9",10), "@l 999999999")
  2466.         rec=rec+replic(" ",142)+chr(13)+chr(10)    
  2467.         =FWRITE(FileHandle,rec)
  2468.         _trm22=_trm22+1
  2469.         _trdec=_trdec+1
  2470.         _trfic=_trfic+1
  2471.     Endif    
  2472.  Registo
  2473. rec="027"
  2474. rec=rec+transval(ed("M22",1,"7",782),12)
  2475. rec=rec+transval(ed("M22",1,"7",783),12)
  2476. rec=rec+transval(ed("M22",1,"7",784),12)
  2477. rec=rec+transval(ed("M22",1,"7",785),12)
  2478. rec=rec+transval(ed("M22",1,"7",786),12)
  2479. rec=rec+transval(ed("M22",1,"7",787),12)
  2480. rec=rec+transval(ed("M22",1,"7",788),12)
  2481. rec=rec+transval(ed("M22",1,"7",789),12)
  2482. rec=rec+transval(ed("M22",1,"7",790),12)
  2483. rec=rec+transval(ed("M22",1,"7",791),12)
  2484. rec=rec+transval(ed("M22",1,"7",792),12)
  2485. rec=rec+transval(ed("M22",1,"7",793),12)
  2486. rec=rec+transval(ed("M22",1,"7",794),12)
  2487. rec=rec+transval(ed("M22",1,"7",795),12)
  2488. rec=rec+chr(13)+chr(10)    
  2489. =FWRITE(FileHandle,rec)
  2490. _trm22=_trm22+1
  2491. _trdec=_trdec+1
  2492. _trfic=_trfic+1
  2493.  Registo
  2494. rec="028"
  2495. rec=rec+transval(ed("M22",1,"7",796),12)
  2496. rec=rec+transval(ed("M22",1,"9",395),12)
  2497. rec=rec+transval(ed("M22",1,"9",399),12)
  2498. rec=rec+transval(ed("M22",1,"10",378),14)
  2499. rec=rec+transval(ed("M22",1,"10",375),12)
  2500. rec=rec+transval(ed("M22",1,"10",379),12)
  2501. rec=rec+ALLTRIM(STR(ed("M22",1,"10",1)))
  2502. rec=rec+transval(ed("M22",1,"10",3771),12)
  2503. rec=rec+transval(ed("M22",1,"10",3772),12)
  2504. rec=rec+transval(ed("M22",1,"10",377),12)
  2505. rec=rec+transval(ed("M22",1,"10",430),12)
  2506. rec=rec+transval(ed("M22",1,"10",431),12)
  2507. rec=rec+transval(ed("M22",1,"13",425),12)
  2508. rec=rec+transval(ed("M22",1,"13",426),12)
  2509. rec=rec+REPLICATE(" ",9)+chr(13)+chr(10)    
  2510. =FWRITE(FileHandle,rec)
  2511. _trm22=_trm22+1
  2512. _trdec=_trdec+1
  2513. _trfic=_trfic+1
  2514.  Registo
  2515.     t_reg19=0
  2516.     IF !EMPTY(ed("M22",1,"9",398))
  2517.         t_reg19=1
  2518.         rec="029"
  2519.         rec=rec+transform(1, "@l 99999")
  2520.         rec=rec+transval(ed("M22",1,"9",398),12)
  2521.         rec=rec+transform(ed("M22",1,"9",11), "@l 999999999")
  2522.         rec=rec+replic(" ",142)+chr(13)+chr(10)    
  2523.         =FWRITE(FileHandle,rec)
  2524.         _trm22=_trm22+1
  2525.         _trdec=_trdec+1
  2526.         _trfic=_trfic+1
  2527.     ENDIF
  2528.  Registo
  2529. rec="030"
  2530. rec=rec+transval(ed("M22",1,"13",427),12)
  2531. rec=rec+transval(ed("M22",1,"13",428),12)
  2532. rec=rec+transval(ed("M22",1,"14",32),12)
  2533. rec=rec+transval(ed("M22",1,"14",62),14)
  2534. rec=rec+transval(ed("M22",1,"14",72),12)
  2535. rec=rec+transval(ed("M22",1,"14",82),12)
  2536. rec=rec+transval(ed("M22",1,"14",33),10)
  2537. rec=rec+transval(ed("M22",1,"14",63),12)
  2538. rec=rec+transval(ed("M22",1,"14",73),12)
  2539. rec=rec+transval(ed("M22",1,"14",83),12)
  2540. rec=rec+transval(ed("M22",1,"14",34),12)
  2541. rec=rec+transval(ed("M22",1,"14",64),12)
  2542. rec=rec+transval(ed("M22",1,"14",74),12)
  2543. rec=rec+transval(ed("M22",1,"14",84),12)
  2544. rec=rec+chr(13)+chr(10)    
  2545. =FWRITE(FileHandle,rec)
  2546. _trm22=_trm22+1
  2547. _trdec=_trdec+1
  2548. _trfic=_trfic+1
  2549.  Registo
  2550. rec="031"
  2551.     t_reg20=0
  2552.     IF !EMPTY(ed("M22",1,"14",1))
  2553.         t_reg20=1
  2554.         rec="031"
  2555.         rec=rec+transform(1, "@l 99999")
  2556.         rec=rec+transform(ed("M22",1,"14",1), "@l 999")
  2557.         rec=rec+ALLTRIM(ed("M22",1,"14",2))+REPLICATE(" ",30-LEN(ALLTRIM(ed("M22",1,"14",2))))
  2558.         rec=rec+transval(ed("M22",1,"14",31),12)        
  2559.         rec=rec+transval(ed("M22",1,"14",41),12)        
  2560.         rec=rec+transval(ed("M22",1,"14",51),12)        
  2561.         rec=rec+transval(ed("M22",1,"14",61),12)
  2562.         rec=rec+transval(ed("M22",1,"14",71),12)
  2563.         rec=rec+transval(ed("M22",1,"14",81),12)                        
  2564.         rec=rec+replic(" ",58)+chr(13)+chr(10)    
  2565.         =FWRITE(FileHandle,rec)
  2566.         _trm22=_trm22+1
  2567.         _trdec=_trdec+1
  2568.         _trfic=_trfic+1
  2569.     ENDIF
  2570.  Registo
  2571. rec="099"
  2572. rec=rec+transf(_trm22, "@l 999999")
  2573. rec=rec+transf(t_q12, "@l 99999")
  2574. rec=rec+transf(t_reg17, "@l 99999")
  2575. rec=rec+transf(t_reg18, "@l 99999")
  2576. rec=rec+transf(t_reg19, "@l 99999")
  2577. rec=rec+transval(ed("M22",1,"9",346)+ed("M22",1,"10",367)+ed("M22",1,"10",368),15,1)
  2578. rec=rec+replic(" ",127)+chr(13)+chr(10)    
  2579. =FWRITE(FileHandle,rec)
  2580. _trdec=_trdec+1
  2581. _trfic=_trfic+1
  2582. *--------- Existindo apresenta
  2583. o do anexo a
  2584. If _panexoa=1
  2585. * 101
  2586.  Registo
  2587. rec="101"    
  2588. rec=rec+_pnipc
  2589. rec=rec+alltrim(str(_pexerc))
  2590. rec=rec+replic(" ",155)+chr(13)+chr(10)    
  2591. =FWRITE(FileHandle,rec)
  2592. _trdec=_trdec+1
  2593. _trfic=_trfic+1
  2594. * 102
  2595.  Registo ( Repete tantas vezes linhas do quadro 4 preenchidas )
  2596. rec="102"
  2597. For Ctlinha=1 to 19
  2598.     if !empty(ed("M22A",1,"4",ctlinha))
  2599.         rec="102"
  2600.         rec=rec+transf(ctlinha, "@l 999")
  2601.         rec=rec+transf(ED("M22A",1,"41",ctlinha), "@l 9999")
  2602.         IF !EMPTY(ed("M22A",1,"42",ctlinha))
  2603.             rec=rec+transval(ed("M22A",1,"42",ctlinha),12)
  2604.         ELSE
  2605.             rec=rec+REPLICATE(" ", 12)
  2606.         ENDIF
  2607.         IF !EMPTY(ed("M22A",1,"43",ctlinha))    
  2608.             rec=rec+transval(ed("M22A",1,"43",ctlinha),4)
  2609.         ELSE
  2610.             rec=rec+REPLICATE(" ", 4)
  2611.         Endif
  2612.         IF !EMPTY(ed("M22A",1,"44",ctlinha))
  2613.             rec=rec+transval(ed("M22A",1,"44",ctlinha),12)
  2614.         ELSE
  2615.             rec=rec+REPLICATE(" ", 12)
  2616.         ENDIF
  2617.         rec=rec+replic(" ",133)+chr(13)+chr(10)    
  2618.         =FWRITE(FileHandle,rec)
  2619.         _trdec=_trdec+1
  2620.         _trfic=_trfic+1
  2621.         _trana=_trana+1
  2622.     endif
  2623. next ctlinha
  2624. * 199
  2625.  Registo 
  2626. Rec="199"
  2627. rec=rec+transf(_trana, "@l 999")
  2628. rec=rec+transval(ed("M22A",1,"5",1),12)
  2629. rec=rec+transval(ed("M22A",1,"5",2),12)
  2630. rec=rec+transval(ed("M22A",1,"5",3),4)
  2631. rec=rec+transval(ed("M22A",1,"6",1),12)
  2632. IF EMPTY(ed("M22A",1,"6",2))
  2633.     rec=rec+transval(ed("M22A",1,"6",2),4)
  2634.     rec=rec+REPLICATE(" ", 4)
  2635. ENDIF
  2636. rec=rec+transval(ed("M22A",1,"6",3),12)
  2637. rec=rec+replic(" ",109)+chr(13)+chr(10)    
  2638. =FWRITE(FileHandle,rec)
  2639. _trdec=_trdec+1
  2640. _trfic=_trfic+1
  2641. Endif
  2642. *----------------------------------------------------------
  2643. * No caso em que 
  2644.  utilizado o anexo B
  2645. *----------------------------------------------------------
  2646. If _panexob=1
  2647. * 201
  2648.  Registo     
  2649. rec="201"
  2650. rec=rec+_pnipc
  2651. rec=rec+alltrim(str(_pexerc))
  2652. rec=rec+replic(" ",155)+chr(13)+chr(10)    
  2653. =FWRITE(FileHandle,rec)
  2654. _trdec=_trdec+1
  2655. _trfic=_trfic+1
  2656.  Registo
  2657. rec="202"
  2658. rec=rec+transval(ed("M22B",1,"3",1),12)
  2659. rec=rec+transval(ed("M22B",1,"3",2),12)
  2660. rec=rec+transval(ed("M22B",1,"3",3),12)
  2661. rec=rec+transval(ed("M22B",1,"3",4),12)
  2662. rec=rec+transval(ed("M22B",1,"3",5),12)
  2663. rec=rec+transval(ed("M22B",1,"3",6),12)
  2664. rec=rec+transval(ed("M22B",1,"3",7),12)
  2665. rec=rec+transval(ed("M22B",1,"3",8),12)
  2666. rec=rec+transval(ed("M22B",1,"3",9),12)
  2667. rec=rec+transval(ed("M22B",1,"3",10),12)
  2668. rec=rec+transval(ed("M22B",1,"3",11),14)
  2669. rec=rec+transval(ed("M22B",1,"3",12),14)
  2670. rec=rec+replic(" ",20)+chr(13)+chr(10)    
  2671. =FWRITE(FileHandle,rec)
  2672. _trdec=_trdec+1
  2673. _trfic=_trfic+1
  2674. * 203
  2675.  Registo
  2676. rec="203"
  2677. rec=rec+transval(ed("M22B",1,"3",13),12)
  2678. rec=rec+transval(ed("M22B",1,"3",14),12)
  2679. rec=rec+transval(ed("M22B",1,"3",15),12)
  2680. rec=rec+transval(ed("M22B",1,"3",16),12)
  2681. rec=rec+transval(ed("M22B",1,"3",17),12)
  2682. rec=rec+transval(ed("M22B",1,"3",18),12)
  2683. rec=rec+replic(" ",96)+chr(13)+chr(10)    
  2684. =FWRITE(FileHandle,rec)
  2685. _trdec=_trdec+1
  2686. _trfic=_trfic+1
  2687. * 299
  2688.  Registo
  2689. rec="299"
  2690. rec=rec+transval(ed("M22B",1,"3",11)+ed("M22B",1,"3",12),14)
  2691. rec=rec+replic(" ",154)+chr(13)+chr(10)    
  2692. =FWRITE(FileHandle,rec)
  2693. _trdec=_trdec+1
  2694. _trfic=_trfic+1
  2695. Endif
  2696. *--------------------------------------------------------------
  2697. * Existindo anexo C
  2698. *--------------------------------------------------------------
  2699. If _panexoc=1
  2700. * 301
  2701.  Registo     
  2702. rec="301"
  2703. rec=rec+_pnipc
  2704. rec=rec+alltrim(str(_pexerc))
  2705. rec=rec+replic(" ",155)+chr(13)+chr(10)    
  2706. =FWRITE(FileHandle,rec)
  2707. _trdec=_trdec+1
  2708. _trfic=_trfic+1
  2709. * 302
  2710.  Registo
  2711. rec="302"
  2712. rec=rec+transval(ed("M22C",1,"3",1),14)
  2713. rec=rec+transval(ed("M22C",1,"3",2),12)
  2714. rec=rec+transval(ed("M22C",1,"3",3),12)
  2715. rec=rec+transval(ed("M22C",1,"3",4),3)
  2716. rec=rec+transval(ed("M22C",1,"3",5),3)
  2717. rec=rec+transval(ed("M22C",1,"4",6),12)
  2718. rec=rec+transval(ed("M22C",1,"5",11),12)
  2719. rec=rec+transval(ed("M22C",1,"4",7),12)
  2720. rec=rec+transval(ed("M22C",1,"5",21),3) && att
  2721. rec=rec+transval(ed("M22C",1,"5",12),12)
  2722. rec=rec+transval(ed("M22C",1,"4",9),12)
  2723. rec=rec+transval(ed("M22C",1,"4",8),12)
  2724. rec=rec+transval(ed("M22C",1,"4",10),12)
  2725. rec=rec+transval(ed("M22C",1,"5",13),12)
  2726. rec=rec+transval(ed("M22C",1,"5",14),12)
  2727. rec=rec+transval(ed("M22C",1,"5",15),12)
  2728. rec=rec+replic(" ",1)+chr(13)+chr(10)    
  2729. =FWRITE(FileHandle,rec)
  2730. _trdec=_trdec+1
  2731. _trfic=_trfic+1
  2732. _tranc=_tranc+1
  2733. * 303
  2734.  Registo
  2735. rec="303"
  2736. rec=rec+transval(ed("M22C",1,"6",16),12)
  2737. rec=rec+transval(ed("M22C",1,"6",17),12)
  2738. rec=rec+transval(ed("M22C",1,"6",18),12)
  2739. rec=rec+transval(ed("M22C",1,"6",19),12)
  2740. rec=rec+transval(ed("M22C",1,"6",20),12)
  2741. rec=rec+transval(0,12)
  2742. rec=rec+transval(0,12)
  2743. rec=rec+transval(0,12)
  2744. rec=rec+transval(0,12)
  2745. rec=rec+transval(0,12)
  2746. rec=rec+transval(0,12)
  2747. rec=rec+transval(0,12)
  2748. rec=rec+transval(0,12)
  2749. rec=rec+transval(0,3)
  2750. rec=rec+replic(" ",9)+chr(13)+chr(10)    
  2751. =FWRITE(FileHandle,rec)
  2752. _trdec=_trdec+1
  2753. _trfic=_trfic+1
  2754. _tranc=_tranc+1
  2755. *------------------------------------------------------------------------------
  2756. * 399
  2757.  Registo
  2758. rec="399"
  2759. rec=rec+transval(ed("M22C",1,"3",1)+ed("M22C",1,"3",2)+ed("M22C",1,"3",3),15)
  2760. rec=rec+replic(" ",153)+chr(13)+chr(10)    
  2761. =FWRITE(FileHandle,rec)
  2762. _trdec=_trdec+1
  2763. _trfic=_trfic+1
  2764. endif
  2765. *--------------------------------------------------------------
  2766. * Existindo anexo D
  2767. *--------------------------------------------------------------
  2768. If _panexod=1
  2769.  Registo     
  2770. rec="50"
  2771. rec=rec+_pnipc
  2772. rec=rec+alltrim(str(_pexerc))
  2773. rec=rec+replic(" ",156)+chr(13)+chr(10)    
  2774. =FWRITE(FileHandle,rec)
  2775. _trdec=_trdec+1
  2776. _trfic=_trfic+1
  2777. _trand=_trand+1
  2778.  Registo     
  2779. rec="51"
  2780. rec=rec+transval(ed("M22D",1,"3",301),12)
  2781. rec=rec+transval(ed("M22D",1,"3",302),12)
  2782. rec=rec+transval(ed("M22D",1,"3",303),12)
  2783. rec=rec+transval(ed("M22D",1,"3",304),12)
  2784. rec=rec+transval(ed("M22D",1,"3",305),12)
  2785. rec=rec+transval(ed("M22D",1,"3",306),12)
  2786. rec=rec+transval(ed("M22D",1,"3",307),12)
  2787. rec=rec+transval(ed("M22D",1,"3",308),12)
  2788. rec=rec+transval(ed("M22D",1,"3",309),12)
  2789. rec=rec+transval(ed("M22D",1,"3",310),12)
  2790. rec=rec+transval(ed("M22D",1,"3",311),12)
  2791. rec=rec+transval(ed("M22D",1,"3",312),12)
  2792. rec=rec+IIF(ed("M22D",1,"3",3040)=0,"   ",transform(ed("M22D",1,"3",3040), "@l 999"))
  2793. rec=rec+IIF(ed("M22D",1,"3",3120)=0,"   ",transform(ed("M22D",1,"3",3120), "@l 999"))
  2794. rec=rec+transval(ed("M22D",1,"3",313),12)
  2795. rec=rec+replic(" ",7)+chr(13)+chr(10)    
  2796. =FWRITE(FileHandle,rec)
  2797. _trdec=_trdec+1
  2798. _trfic=_trfic+1
  2799. _trand=_trand+1
  2800.  Registo     
  2801. rec="52"
  2802. rec=rec+transval(ed("M22D",1,"4",401),12)
  2803. rec=rec+transval(ed("M22D",1,"4",402),12)
  2804. rec=rec+transval(ed("M22D",1,"4",403),12)
  2805. rec=rec+transval(ed("M22D",1,"4",404),12)
  2806. rec=rec+transval(ed("M22D",1,"4",405),12)
  2807. rec=rec+transval(ed("M22D",1,"4",406),12)
  2808. rec=rec+transval(ed("M22D",1,"4",407),12)
  2809. rec=rec+transval(ed("M22D",1,"4",408),12)
  2810. rec=rec+transval(ed("M22D",1,"4",409),12)
  2811. rec=rec+transval(ed("M22D",1,"4",410),12)
  2812. rec=rec+transval(ed("M22D",1,"4",412),12)
  2813. rec=rec+transval(ed("M22D",1,"4",413),12)
  2814. rec=rec+transval(ed("M22D",1,"4",411),13)
  2815. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  2816. =FWRITE(FileHandle,rec)
  2817. _trdec=_trdec+1
  2818. _trfic=_trfic+1
  2819. _trand=_trand+1
  2820.  Registo     
  2821. rec="53"
  2822. rec=rec+transval(ed("M22D",1,"5",501),12)
  2823. rec=rec+transval(ed("M22D",1,"5",502),12)
  2824. rec=rec+transform(year(ed("M22D",1,"6",601)),"@l 9999")+transform(month(ed("M22D",1,"6",601)),"@l 99")+transform(day(ed("M22D",1,"6",601)),"@l 99")
  2825. rec=rec+transform(ed("M22D",1,"6",602), "@l 99999")
  2826. rec=rec+transval(ed("M22D",1,"6",603),14)
  2827. *---- MUDA PAGINA
  2828. rec=rec+transval(ed("M22D",2,"7",701),12)
  2829. rec=rec+transval(ed("M22D",2,"7",702),12)
  2830. rec=rec+transval(ed("M22D",2,"7",703),12)
  2831. rec=rec+transval(ed("M22D",2,"7",704),12)
  2832. rec=rec+transval(ed("M22D",2,"7",705),12)
  2833. rec=rec+transval(ed("M22D",2,"7",706),12)
  2834. rec=rec+transval(ed("M22D",2,"7",707),12)
  2835. rec=rec+transval(ed("M22D",2,"7",708),12)
  2836. rec=rec+transval(ed("M22D",1,"3",314),12)
  2837. rec=rec+IIF(ed("M22D",1,"3",3140)=0,"   ",transform(ed("M22D",1,"3",3140), "@l 999"))
  2838. rec=rec+replic(" ",7)+chr(13)+chr(10)    
  2839. =FWRITE(FileHandle,rec)
  2840. _trdec=_trdec+1
  2841. _trfic=_trfic+1
  2842. _trand=_trand+1
  2843.  Registo     
  2844. rec="54"
  2845. rec=rec+transval(ed("M22D",2,"7",709),12)
  2846. rec=rec+transval(ed("M22D",2,"7",710),12)
  2847. rec=rec+transval(ed("M22D",2,"7",711),12)
  2848. rec=rec+transval(ed("M22D",2,"7",712),12)
  2849. rec=rec+transval(ed("M22D",2,"7",713),12)
  2850. rec=rec+transval(ed("M22D",2,"7",714),12)
  2851. rec=rec+transval(ed("M22D",2,"7",715),12)
  2852. rec=rec+transval(ed("M22D",2,"7",716),12)
  2853. rec=rec+transval(ed("M22D",2,"7",717),12)
  2854. rec=rec+transval(ed("M22D",2,"7",718),12)
  2855. rec=rec+transval(ed("M22D",2,"7",719),12)
  2856. rec=rec+transval(ed("M22D",2,"7",720),12)
  2857. rec=rec+transval(ed("M22D",2,"7",721),14)
  2858. rec=rec+replic(" ",11)+chr(13)+chr(10)    
  2859. =FWRITE(FileHandle,rec)
  2860. _trdec=_trdec+1
  2861. _trfic=_trfic+1
  2862. _trand=_trand+1
  2863.  Registo     
  2864. rec="55"
  2865. if !EMPTY(ed("M22D",2,"8",801))
  2866.     rec=rec+"01"
  2867.     rec=rec+transform(1, "@l 99999")
  2868.     rec=rec+transform(ed("M22D",2,"8",801), "@l 99")
  2869.     rec=rec+transform(ed("M22D",2,"8",802), "@l 999999999")
  2870.     rec=rec+transval(ed("M22D",2,"8",803),12)
  2871.     rec=rec+"000000000000000000000000000000"
  2872. ENDIF
  2873. rec=rec+replic(" ",141)+chr(13)+chr(10)    
  2874. =FWRITE(FileHandle,rec)
  2875. _trdec=_trdec+1
  2876. _trfic=_trfic+1
  2877. _trand=_trand+1
  2878.  Registo     
  2879. rec="56"
  2880. rec=rec+transform(ed("M22D",2,"9",907), "@l 9999")
  2881. rec=rec+transval(ed("M22D",2,"9",901),12)
  2882. rec=rec+transform(ed("M22D",2,"9",908), "@l 9999")
  2883. rec=rec+transval(ed("M22D",2,"9",902),12)
  2884. rec=rec+transval(ed("M22D",2,"9",903),12)
  2885. rec=rec+transval(ed("M22D",2,"9",907),12)
  2886. rec=rec+transval(ed("M22D",2,"9",905),13)
  2887. rec=rec+transval(ed("M22D",2,"9",906),12)
  2888. DO case
  2889.   CASE !EMPTY(ed("M22D",2,"10",1))
  2890.         rec=rec+"1"
  2891.   CASE !EMPTY(ed("M22D",2,"10",2))
  2892.         rec=rec+"2"
  2893.   OTHERWISE
  2894.           rec=rec+"0"
  2895. ENDCASE
  2896. rec=rec+transval(ed("M22D",2,"10",1001),12)
  2897. rec=rec+transval(ed("M22D",2,"10",1002),12)
  2898. rec=rec+transval(ed("M22D",2,"10",1003),12)
  2899. rec=rec+transval(ed("M22D",2,"10",1004),12)
  2900. rec=rec+transval(ed("M22D",2,"10",1005),12)
  2901. rec=rec+transval(ed("M22D",2,"10",1006),4)
  2902. rec=rec+transval(ed("M22D",2,"10",1007),12)          
  2903. rec=rec+replic(" ",11)+chr(13)+chr(10)    
  2904. =FWRITE(FileHandle,rec)
  2905. _trdec=_trdec+1
  2906. _trfic=_trfic+1
  2907. _trand=_trand+1
  2908.  Registo     
  2909. rec="57"
  2910. rec=rec+transval(ed("M22D",2,"10",1008),12)
  2911. rec=rec+transval(ed("M22D",2,"10",1009),4)
  2912. rec=rec+transval(ed("M22D",2,"10",1010),12)          
  2913. rec=rec+transval(ed("M22D",2,"10",1011),12)          
  2914. rec=rec+transval(ed("M22D",2,"10",1012),12)          
  2915. rec=rec+transval(ed("M22D",2,"10",1013),13)          
  2916. rec=rec+transval(ed("M22D",2,"10",1014),4)
  2917. rec=rec+transval(ed("M22D",2,"10",1015),4)
  2918. rec=rec+transval(ed("M22D",2,"10",1016),12)          
  2919. rec=rec+replic(" ",84)+chr(13)+chr(10)    
  2920. =FWRITE(FileHandle,rec)
  2921. _trdec=_trdec+1
  2922. _trfic=_trfic+1
  2923. _trand=_trand+1
  2924.  Registo
  2925. Rec="58"
  2926. rec=rec+transval(ed("M22D",1,"3",315),12)
  2927. rec=rec+IIF(ed("M22D",1,"3",3150)=0,"   ",transform(ed("M22D",1,"3",3150), "@l 999"))
  2928. rec=rec+IIF(ed("M22D",1,"4",4100)=0,"   ",transform(ed("M22D",1,"4",4100), "@l 999"))
  2929. rec=rec+transval(ed("M22D",2,"7",722),12)
  2930. rec=rec+transval(ed("M22D",2,"7",723),12)
  2931. rec=rec+transval(ed("M22D",2,"7",724),12)
  2932. rec=rec+transval(ed("M22D",2,"7",725),12)
  2933. rec=rec+replic(" ",103)+chr(13)+chr(10)    
  2934. =FWRITE(FileHandle,rec)
  2935. _trdec=_trdec+1
  2936. _trfic=_trfic+1
  2937. _trand=_trand+1
  2938.  Registo     
  2939. rec="59"
  2940. rec=rec+TRANSFORM(_trand, "@l 999999")
  2941. rec=rec+replic(" ",163)+chr(13)+chr(10)    
  2942. =FWRITE(FileHandle,rec)
  2943. _trdec=_trdec+1
  2944. _trfic=_trfic+1
  2945. ENDIF
  2946. *----------------------------------------------------------
  2947. * No caso em que 
  2948.  utilizado o anexo E
  2949. *----------------------------------------------------------
  2950. If _panexoe=1
  2951. * 501
  2952.  Registo     
  2953. rec="501"
  2954. rec=rec+_pnipc
  2955. rec=rec+alltrim(str(_pexerc))
  2956. rec=rec+replic(" ",155)+chr(13)+chr(10)    
  2957. =FWRITE(FileHandle,rec)
  2958. _trdec=_trdec+1
  2959. _trfic=_trfic+1
  2960. _trane=_trane+1
  2961. * 502
  2962.  Registo
  2963. rec="502"
  2964. rec=rec+transval(ed("M22E",1,"3",1),12)
  2965. rec=rec+transval(ed("M22E",1,"3",2),12)
  2966. rec=rec+transval(ed("M22E",1,"3",3),12)
  2967. rec=rec+transval(ed("M22E",1,"3",4),12)
  2968. rec=rec+transval(ed("M22E",1,"3",5),12)
  2969. rec=rec+transval(ed("M22E",1,"3",7),12)
  2970. rec=rec+transval(ed("M22E",1,"3",8),12)
  2971. rec=rec+transval(ed("M22E",1,"3",9),12)
  2972. rec=rec+transval(ed("M22E",1,"3",10),12)
  2973. rec=rec+transval(ed("M22E",1,"3",11),12)
  2974. rec=rec+transval(ed("M22E",1,"3",12),12)
  2975. rec=rec+transval(ed("M22E",1,"3",13),12)
  2976. rec=rec+transval(ed("M22E",1,"3",14),12)
  2977. rec=rec+transval(ed("M22E",1,"3",15),12)
  2978. rec=rec+chr(13)+chr(10)    
  2979. =FWRITE(FileHandle,rec)
  2980. _trdec=_trdec+1
  2981. _trfic=_trfic+1
  2982. _trane=_trane+1
  2983. * 503
  2984.  Registo
  2985. rec="503"
  2986. rec=rec+transval(ed("M22E",1,"3",16),12)
  2987. rec=rec+transval(ed("M22E",1,"3",17),12)
  2988. rec=rec+transval(ed("M22E",1,"3",18),12)
  2989. rec=rec+transval(ed("M22E",1,"3",19),12)
  2990. rec=rec+transval(ed("M22E",1,"3",20),12)
  2991. rec=rec+transval(ed("M22E",1,"3",22),12)
  2992. rec=rec+transval(ed("M22E",1,"3",23),12)
  2993. rec=rec+transval(ed("M22E",1,"3",24),12)
  2994. rec=rec+transval(ed("M22E",1,"3",25),12)
  2995. rec=rec+transval(ed("M22E",1,"3",26),12)
  2996. rec=rec+transval(ed("M22E",1,"3",27),12)
  2997. rec=rec+transval(ed("M22E",1,"3",28),12)
  2998. rec=rec+transval(ed("M22E",1,"3",29),12)
  2999. rec=rec+transval(ed("M22E",1,"3",30),12)
  3000. rec=rec+chr(13)+chr(10)    
  3001. =FWRITE(FileHandle,rec)
  3002. _trdec=_trdec+1
  3003. _trfic=_trfic+1
  3004. _trane=_trane+1
  3005. * 504
  3006.  Registo
  3007. rec="504"
  3008. IF !EMPTY(ed("M22E",1,"3",6))
  3009.     REC="504"
  3010.     REC=REC+"00001"
  3011.     rec=rec+transval(ed("M22E",1,"3",6),12)
  3012.     rec=rec+transf(Ed("M22E",1,"3",98)*100,"@l 999")
  3013.     rec=rec+transval(ed("M22E",1,"3",21),12)
  3014.     rec=rec+REPLICATE(" ",136)+chr(13)+chr(10)    
  3015.     =FWRITE(FileHandle,rec)
  3016.     _trdec=_trdec+1
  3017.     _trfic=_trfic+1
  3018.     _trane=_trane+1
  3019. ENDIF
  3020. IF !EMPTY(ed("M22E",1,"3",61))
  3021.     REC="504"
  3022.     REC=REC+"00002"
  3023.     rec=rec+transval(ed("M22E",1,"3",61),12)
  3024.     rec=rec+transf(Ed("M22E",1,"3",99)*100,"@l 999")
  3025.     rec=rec+transval(ed("M22E",1,"3",211),12)
  3026.     rec=rec+REPLICATE(" ",136)+chr(13)+chr(10)    
  3027.     =FWRITE(FileHandle,rec)
  3028.     _trdec=_trdec+1
  3029.     _trfic=_trfic+1
  3030.     _trane=_trane+1
  3031. ENDIF
  3032. * 505
  3033.  Registo
  3034. rec="505"
  3035. rec=rec+transval(ed("M22E",1,"3",40),14)
  3036. rec=rec+transval(ed("M22E",1,"3",41),14)
  3037. rec=rec+transval(ed("M22E",1,"3",31),12)
  3038. rec=rec+transval(ed("M22E",1,"3",42),14)
  3039. rec=rec+transform(year(ed("M22E",1,"4",43)),"@l 9999")+transform(month(ed("M22E",1,"4",43)),"@l 99")+transform(day(ed("M22E",1,"4",43)),"@l 99")
  3040. rec=rec+REPLICATE(" ",106)+chr(13)+chr(10)    
  3041. =FWRITE(FileHandle,rec)
  3042. _trdec=_trdec+1
  3043. _trfic=_trfic+1
  3044. _trane=_trane+1
  3045. * 599
  3046.  Registo
  3047. rec="599"
  3048. rec=rec+transf(_trane, "@l 999999")
  3049. rec=rec+transval(ed("M22E",1,"3",6)+ed("M22E",1,"3",61),14)
  3050. rec=rec+transval(ed("M22E",1,"3",21)+ed("M22E",1,"3",211),14)
  3051. rec=rec+REPLICATE(" ",134)+chr(13)+chr(10)    
  3052. =FWRITE(FileHandle,rec)
  3053. _trdec=_trdec+1
  3054. _trfic=_trfic+1
  3055. Endif
  3056. * -------- fim anexo E
  3057. *---------------------------------------------------------------
  3058.  Registo
  3059. rec="888"
  3060. rec=rec+transf(_trdec, "@l 9999999")
  3061. rec=rec+replic(" ",161)+chr(13)+chr(10)    
  3062. =FWRITE(FileHandle,rec)
  3063. _trfic=_trfic+1
  3064.  Registo
  3065. rec="999"
  3066. rec=rec+transf(_trfic, "@l 9999999")
  3067. rec=rec+replic(" ",161)+chr(13)+chr(10)    
  3068. =FWRITE(FileHandle,rec)
  3069. *--------------------------------
  3070. =fclose(filehandle)
  3071. =Messagebox("Cria
  3072. o do Ficheiro efectuada ..",0+64,"")
  3073. ENDPROC
  3074. PROCEDURE saftfilecreate
  3075. PARAMETERS _saftfilename
  3076. * XML
  3077. *----
  3078. PRIVATE lcxml
  3079. lcxml = ""
  3080. local lctrab, lntot_docs, lntotal_deb, lntotal_crd, crlf, lctransaction_type, lcdesc_first, lcdesc_last, lcdesc_final, lcdesc_doc, lcnif_sem_pais
  3081. lctrab = ""
  3082. lntot_docs = 0
  3083. lntotal_deb = 0.00
  3084. lntotal_crd = 0.00
  3085. crlf = chr(13) + chr(10)
  3086. lctransaction_type = "N"
  3087. lcdesc_first = ""
  3088. lcdesc_last = ""
  3089. lcdesc_final = ""
  3090. lcdesc_doc = ""
  3091. lnmes_inicio_contab = empresa.inicon
  3092. lcnif_sem_pais = ""
  3093. IF FILE(_saftfilename)
  3094.     if messagebox("O ficheiro indicado j
  3095.  existe" + chr(13) + chr(13) + "Deseja sobrepor?",4+32,"Aten
  3096. o...") != 6    
  3097.         RETURN
  3098.     ELSE
  3099.         WAIT WINDOW "Cria
  3100. o do ficheiro em curso, Aguarde ..." nowait
  3101.     ENDIF
  3102. endif
  3103. lcxml = opentag('?xml version="1.0" encoding="windows-1252"?',1)
  3104. lcxml = lcxml + opentag('AuditFile xmlns="urn:OECD:StandardAuditFile-Tax:PT_1.02_01"',1)
  3105. *lcxml = lcxml + opentag('AuditFile xmlns="urn:OECD:StandardAuditFile-Tax:PT_1.02_01" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"',1)
  3106. =xseek(upper(p_codemp), "empresa", "key_1")
  3107. * HEADER -------------------------------------------------------------------------------------------------------------------
  3108. WAIT WINDOW "Cria
  3109. o do ficheiro em curso (Header), Aguarde ..." nowait
  3110. lcxml = lcxml + opentag("Header",1)
  3111. lcxml = lcxml + openclosetag("AuditFileVersion", "1.02_01")
  3112. *lcxml = lcxml + openclosetag("CompanyID",ALLTRIM(thisform.limpa_char(thisform.concatenar(empresa.matricula), 1)))
  3113. lcxml = lcxml + openclosetag("CompanyID", IIF(EMPTY(empresa.matricula), empresa.nif, ALLTRIM(thisform.limpa_char(empresa.matricula, 1))))
  3114. lcxml = lcxml + openclosetag("TaxRegistrationNumber",empresa.NIF)
  3115. lcxml = lcxml + openclosetag("TaxAccountingBasis","C")
  3116. lcxml = lcxml + openclosetag("CompanyName",ALLTRIM(thisform.limpa_char(empresa.firma)))
  3117. lcxml = lcxml + opentag("CompanyAddress",1)
  3118. *!*    lcxml = lcxml + openclosetag("BuildingNumber",ALLTRIM(empresa.numero))
  3119. *!*    lcxml = lcxml + openclosetag("StreetName",ALLTRIM(empresa.morada))
  3120. lcxml = lcxml + openclosetag("AddressDetail",ALLTRIM(thisform.limpa_char(empresa.morada))+", "+ALLTRIM(thisform.limpa_char(empresa.numero))+", "+ALLTRIM(thisform.limpa_char(empresa.andar)))
  3121. lcxml = lcxml + openclosetag("City",ALLTRIM(thisform.limpa_char(empresa.localidade)))
  3122. lcxml = lcxml + openclosetag("PostalCode",ALLTRIM(thisform.limpa_char(left(empresa.Cpostal, 8))))
  3123. lcxml = lcxml + openclosetag("Country","PT")
  3124. lcxml = lcxml + closetag("CompanyAddress",1)
  3125. lcxml = lcxml + openclosetag("FiscalYear",TRANSFORM(p_anoproc,"@l 9999"))
  3126. lcxml = lcxml + openclosetag("StartDate",TRANSFORM(p_anoproc,"@l 9999")+"-01-01")
  3127. lcxml = lcxml + openclosetag("EndDate",TRANSFORM(p_anoproc,"@l 9999")+"-12-31")
  3128. lcxml = lcxml + openclosetag("CurrencyCode","EUR")
  3129. lcxml = lcxml + openclosetag("DateCreated",TRANSFORM(YEAR(DATE()),"@l 9999")+"-"+TRANSFORM(month(DATE()),"@l 99")+"-"+TRANSFORM(day(DATE()),"@l 99"))
  3130. lcxml = lcxml + openclosetag("TaxEntity","Sede")
  3131. lcxml = lcxml + openclosetag("ProductCompanyTaxID","504899147")
  3132. lcxml = lcxml + openclosetag("SoftwareCertificateNumber","0")
  3133. lcxml = lcxml + openclosetag("ProductID","QP Contabilidade/QUERYPRO")
  3134. lcxml = lcxml + openclosetag("ProductVersion",ALLTRIM(p_versao))
  3135. IF !EMPTY(empresa.tel1)
  3136.     lcxml = lcxml + openclosetag("Telephone",ALLTRIM(empresa.tel1))
  3137. ENDIF
  3138. IF !EMPTY(empresa.fax)
  3139.     lcxml = lcxml + openclosetag("Fax",ALLTRIM(empresa.fax))
  3140. ENDIF
  3141. IF !EMPTY(empresa.email)
  3142.     lcxml = lcxml + openclosetag("Email",ALLTRIM(empresa.email))
  3143. ENDIF
  3144. lcxml = lcxml + closetag("Header",1)
  3145. strtofile(lcxml, _saftfilename)
  3146. lcxml=""
  3147. * FIM HEADER --------------------------------------------------------------------------------------------------------------
  3148. * Inicio dos ficheiros Masters --------------------------------------------------------------------------------------------
  3149. lcxml = opentag("MasterFiles",1)
  3150. strtofile(lcxml, _saftfilename,1)
  3151. * GeneralLedger ------------------------------------------------------------------------------------------------------------
  3152. WAIT WINDOW "Cria
  3153. o do ficheiro em curso (General Ledger), Aguarde ..." nowait
  3154. SELECT    conta as accountID,;
  3155.         desc as accountdescription, ; 
  3156.         d00 as OpeningDebitBalance, ;
  3157.         c00 as OpeningCreditBalance, ;
  3158.         d14 as ClosingDebitBalance, ;
  3159.         c14 as ClosingCreditBalance, ;
  3160.         thisform.tipo(conta, tipo) as CategoriaTipo, ;
  3161.         conta_gs as GrauSuperior ;
  3162. FROM plano ;
  3163. where between(left(conta,1), "1", "8") ;
  3164. order BY accountID ;
  3165. INTO CURSOR GeneralLedger
  3166. * Deteta contas sem descri
  3167. SELECT accountID as accountID FROM GeneralLedger WHERE EMPTY(accountdescription) INTO CURSOR cs_erro_01
  3168. GO top
  3169. IF RECCOUNT() > 0
  3170.     DO FORM frmerro01
  3171.     SELECT GeneralLedger
  3172.     SELECT cs_erro_01
  3173.     RETURN .f.
  3174. ENDIF
  3175. SELECT cs_erro_01
  3176. *where conta >= "11" ;
  3177. SELECT GeneralLedger
  3178. GO top
  3179. DO WHILE !EOF()
  3180.     lcxml = opentag("GeneralLedger",1)
  3181.     lcxml = lcxml + openclosetag("AccountID",ALLTRIM(GeneralLedger.AccountID))
  3182.     lcxml = lcxml + openclosetag("AccountDescription",ALLTRIM(thisform.limpa_char(GeneralLedger.AccountDescription)))
  3183.     lcxml = lcxml + openclosetag("OpeningDebitBalance",transf(GeneralLedger.OpeningDebitBalance,"@l 999999999999.99"))
  3184.     lcxml = lcxml + openclosetag("OpeningCreditBalance",transf(GeneralLedger.OpeningCreditBalance,"@l 999999999999.99"))
  3185.     lcxml = lcxml + openclosetag("ClosingDebitBalance",transf(GeneralLedger.OpeningCreditBalance,"@l 999999999999.99"))
  3186.     lcxml = lcxml + openclosetag("ClosingCreditBalance",transf(GeneralLedger.OpeningCreditBalance,"@l 999999999999.99"))
  3187.     lcxml = lcxml + openclosetag("GroupingCategory",GeneralLedger.CategoriaTipo)
  3188.     IF ALLTRIM(GeneralLedger.CategoriaTipo) # "GR"
  3189.         lcxml = lcxml + openclosetag("GroupingCode",ALLTRIM(GeneralLedger.GrauSuperior))
  3190.     endif
  3191.     lcxml = lcxml + closetag("GeneralLedger",1)
  3192.     strtofile(lcxml, _saftfilename,1)    
  3193.     skip
  3194. ENDDO
  3195. * FIM GeneralLedger-----------------------------------------------------------------------------------------------------------
  3196. * Customer -------------------------------------------------------------------------------------------------------------------- 
  3197. WAIT WINDOW "Cria
  3198. o do ficheiro em curso (Customer), Aguarde ..." nowait
  3199. *!*    * Lista de contas 27, mas que afetam recapitulativos de clientes (
  3200.  necess
  3201. rio incorpora-las no plano Customer)
  3202. *!*    SELECT  l_contad as conta_27 ;
  3203. *!*            from lanca ;
  3204. *!*            where l_mapar and ;
  3205. *!*                  LEFT(l_contad, 2) = "27" AND;
  3206. *!*                  l_tmapar = "C" ;
  3207. *!*            UNION ;
  3208. *!*                 select l_contac as conta_27 ;
  3209. *!*                     from lanca ;
  3210. *!*                     where l_mapar and ;
  3211. *!*                              LEFT(l_contac, 2) = "27" AND;
  3212. *!*                           l_tmapar = "C" ;
  3213. *!*            order by conta_27 ;
  3214. *!*            into CURSOR cs_customer_27
  3215. SELECT    plano.conta as CustomerID,;
  3216.         thisform.nif_sem_pais(plano.nif) as CustomerTaxID,;
  3217.         plano.desc as CompanyName,;
  3218.         iif(empty(plano.morada), "Desconhecido", plano.morada) as addressDetail,;
  3219.         iif(empty(plano.local), "Desconhecido", plano.local) as City,;
  3220.         iif(empty(plano.codpos), "Desconhecido", plano.codpos) as PostalCode,;
  3221.         plano.tel as tel, ;
  3222.         plano.fax as fax, ;
  3223.         plano.email as email, ;
  3224.         thisform.get_pais_do_nif(nif) as Country, ;
  3225.         0 as sem_conta ;
  3226.         FROM plano ;
  3227.         WHERE plano.tipo="M" AND (LEFT(conta,2)="21" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278") ;        
  3228.         ORDER BY CustomerID ;
  3229.         INTO CURSOR Customer readwrite
  3230. * Lista de nif's do plano p/ utilizar em movimentos que n
  3231. o passaram por conta de terceiro, mas esta existe no plano
  3232. SELECT    nif as nif, ;
  3233.         conta as conta ;
  3234.         FROM plano;
  3235.         WHERE tipo="M" AND (LEFT(conta,2)="22" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278") ;        
  3236.         ORDER BY nif;
  3237.         INTO CURSOR Customer_2
  3238. INDEX ON nif TAG key_1
  3239. * Deteta contas cliente sem NIF
  3240. SELECT CustomerID as contaID, CompanyName as CompanyName FROM Customer ;
  3241.        WHERE EMPTY(CustomerTaxID) OR UPPER(CustomerTaxID) = "DESCONHECIDO" ;
  3242.        INTO CURSOR cs_erro_02
  3243. GO top
  3244. IF RECCOUNT() > 0
  3245.     PUBLIC p_contassemnif
  3246.     p_contassemnif = 0
  3247.     DO FORM frmerro02 WITH "Clientes"
  3248.     IF p_contassemnif = 9
  3249.         SELECT GeneralLedger
  3250.         USE
  3251.         SELECT Customer
  3252.         use
  3253.         SELECT cs_erro_02
  3254.         USE
  3255.         RETURN .f.
  3256.     ENDIF
  3257.     RELEASE p_contassemnif
  3258. ENDIF
  3259. SELECT cs_erro_02
  3260. * Seleciona NIFs Cliente dos movim., dos quais n
  3261. o exite conta (Lan
  3262. amentos diretos em caixa/bancos, mas que afetaram recapitulativos)
  3263. *!*    SELECT l_nif ;
  3264. *!*           from lanca ;
  3265. *!*           WHERE !EMPTY(l_nif) AND ;
  3266. *!*                    l_tmapar = "C" AND ;
  3267. *!*           l_nif NOT in (select nif FROM plano WHERE tipo="M" AND LEFT(conta,2)="21") ;
  3268. *!*           GROUP BY l_nif ;
  3269. *!*           INTO CURSOR cs_nifs_caixa
  3270. SELECT l_nif ;
  3271.        from lanca ;
  3272.        WHERE !EMPTY(l_nif) AND ;
  3273.                 l_tmapar = "C" AND ;
  3274.        l_nif NOT in (select nif FROM plano WHERE tipo="M" AND LEFT(conta,2)="21") ;
  3275.        GROUP BY l_nif ;
  3276.        INTO CURSOR cs_nifs_caixa
  3277. SELECT cs_nifs_caixa
  3278. IF RECCOUNT() > 0
  3279.     GO top
  3280.     SCAN
  3281.         lcnif_sem_pais = thisform.nif_sem_pais(cs_nifs_caixa.l_nif)
  3282.         INSERT INTO Customer (CustomerID, CustomerTaxID, CompanyName, addressDetail, City, PostalCode, tel, fax, email, Country, ;
  3283.                     sem_conta) VALUES ("__C" + lcnif_sem_pais, lcnif_sem_pais, "NIF " + lcnif_sem_pais + " (Nome nao fornecido)", ;
  3284.                     "Desconhecido", "Desconhecido", "Desconhecido", "", "", "", thisform.get_pais_do_nif(cs_nifs_caixa.l_nif), 1)
  3285.     ENDSCAN
  3286. ENDIF
  3287. SELECT cs_nifs_caixa
  3288. SELECT Customer
  3289. GO top
  3290. DO WHILE !EOF()
  3291.     lcxml = opentag("Customer",1)
  3292.     lcxml = lcxml + openclosetag("CustomerID",ALLTRIM(Customer.CustomerID))
  3293.     lcxml = lcxml + openclosetag("AccountID",IIF(LEFT(Customer.CustomerID,2)="__","Desconhecido",ALLTRIM(Customer.CustomerID)))
  3294.     lcxml = lcxml + openclosetag("CustomerTaxID",ALLTRIM(Customer.CustomerTaxID))
  3295.     lcxml = lcxml + openclosetag("CompanyName",ALLTRIM(thisform.limpa_char(Customer.CompanyName)))
  3296.     lcxml = lcxml + opentag("BillingAddress",1)
  3297.     lcxml = lcxml + openclosetag("AddressDetail",ALLTRIM(thisform.limpa_char(Customer.addressDetail)))
  3298.     lcxml = lcxml + openclosetag("City",ALLTRIM(thisform.limpa_char(Customer.City)))
  3299.     lcxml = lcxml + openclosetag("PostalCode",ALLTRIM(thisform.limpa_char(Customer.PostalCode)))
  3300.     lcxml = lcxml + openclosetag("Country",ALLTRIM(thisform.limpa_char(Customer.Country)))
  3301.     lcxml = lcxml + closetag("BillingAddress",1)
  3302.     if !empty(Customer.tel)
  3303.         lcxml = lcxml + openclosetag("Telephone",ALLTRIM(Customer.tel))
  3304.     endif
  3305.     if !empty(Customer.fax)
  3306.         lcxml = lcxml + openclosetag("Fax",ALLTRIM(Customer.fax))
  3307.     endif
  3308.     if !empty(Customer.email)
  3309.         lcxml = lcxml + openclosetag("Email",ALLTRIM(Customer.email))
  3310.     endif
  3311.     lcxml = lcxml + openclosetag("SelfBillingIndicator","0")
  3312.     lcxml = lcxml + closetag("Customer",1)
  3313.     strtofile(lcxml, _saftfilename,1)    
  3314.     skip
  3315. Enddo
  3316. * FIM Customer -----------------------------------------------------------------------------------------------------------------
  3317. * Suppplier ---------------------------------------------------------------------------------------------------------------------
  3318. WAIT WINDOW "Cria
  3319. o do ficheiro em curso (Supplier), Aguarde ..." nowait
  3320. SELECT    plano.conta as SupplierID,;
  3321.         thisform.nif_sem_pais(plano.nif) as SupplierTaxID,;
  3322.         plano.desc as CompanyName,;
  3323.         iif(empty(plano.morada), "Desconhecido", plano.morada) as addressDetail,;
  3324.         iif(empty(plano.local), "Desconhecido", plano.local)  as City,;
  3325.         iif(empty(plano.codpos), "Desconhecido", plano.codpos) as PostalCode,;
  3326.         plano.tel as tel, ;
  3327.         plano.fax as fax, ;
  3328.         plano.email as email, ;
  3329.         thisform.get_pais_do_nif(nif) as Country, ;
  3330.         0 as sem_conta ;
  3331.         FROM plano;
  3332.         WHERE plano.tipo="M" AND (LEFT(conta,2)="22" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278");        
  3333.         ORDER BY supplierID ;                
  3334.         INTO CURSOR Supplier readwrite
  3335. * Lista de nif's do plano p/ utilizar em movimentos que n
  3336. o passaramm por conta de terceiro, mas esta existe no plano
  3337. SELECT    nif as nif,;
  3338.         conta as conta ;
  3339.         FROM plano;
  3340.         WHERE tipo="M" AND (LEFT(conta,2)="22" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278");        
  3341.         ORDER BY nif ;                
  3342.         INTO CURSOR Supplier_2 readwrite
  3343. INDEX ON nif TAG key_1
  3344. * Deteta contas fornecedor sem NIF
  3345. SELECT SupplierID as contaID, CompanyName as CompanyName FROM Supplier ;
  3346.        WHERE EMPTY(SupplierTaxID) OR UPPER(SupplierTaxID) = "DESCONHECIDO" ;
  3347.        INTO CURSOR cs_erro_02
  3348. GO top
  3349. IF RECCOUNT() > 0
  3350.     PUBLIC p_contassemnif
  3351.     p_contassemnif = 0
  3352.     DO FORM frmerro02 WITH "Fornecedores"
  3353.     IF p_contassemnif = 9
  3354.         SELECT GeneralLedger
  3355.         USE
  3356.         SELECT Customer
  3357.         use
  3358.         SELECT Supplier
  3359.         use
  3360.         SELECT cs_erro_02
  3361.         USE
  3362.         RETURN .f.
  3363.     ENDIF
  3364.     RELEASE p_contassemnif
  3365. ENDIF
  3366. SELECT cs_erro_02
  3367. * Seleciona NIFs Fornecedor dos movim., dos quais n
  3368. o exite conta (Lan
  3369. amentos diretos em caixa/bancos, mas que afetaram recapitulativos)
  3370. SELECT l_nif ;
  3371.        from lanca ;
  3372.        WHERE !EMPTY(l_nif) AND ;
  3373.                 l_tmapar = "F" AND ;
  3374.        l_nif NOT in (select nif FROM plano WHERE tipo="M" AND (LEFT(conta,2)="22" OR substr(conta,1,3)="271" OR substr(conta,1,3)="278")) ;
  3375.        GROUP BY l_nif ;
  3376.        INTO CURSOR cs_nifs_caixa
  3377. SELECT cs_nifs_caixa
  3378. IF RECCOUNT() > 0
  3379.     GO top
  3380.     SCAN
  3381.         lcnif_sem_pais = thisform.nif_sem_pais(cs_nifs_caixa.l_nif)
  3382.         INSERT INTO Supplier (SupplierID, SupplierTaxID, CompanyName, addressDetail, City, PostalCode, tel, fax, email, Country, ;
  3383.                     sem_conta) VALUES ("__F" + lcnif_sem_pais, lcnif_sem_pais, "NIF " + lcnif_sem_pais + " (Nome nao fornecido)", ;
  3384.                     "Desconhecido", "Desconhecido", "Desconhecido", "", "", "", thisform.get_pais_do_nif(cs_nifs_caixa.l_nif), 1)
  3385.     ENDSCAN
  3386. ENDIF
  3387. SELECT cs_nifs_caixa
  3388. SELECT Supplier
  3389. GO top
  3390. DO WHILE !EOF()
  3391.     lcxml = opentag("Supplier",1)
  3392.     lcxml = lcxml + openclosetag("SupplierID",ALLTRIM(Supplier.SupplierID))
  3393.     lcxml = lcxml + openclosetag("AccountID",IIF(LEFT(Supplier.SupplierID,2)="__","Desconhecido",ALLTRIM(Supplier.SupplierID)))
  3394.     lcxml = lcxml + openclosetag("SupplierTaxID",ALLTRIM(Supplier.SupplierTaxID))
  3395.     lcxml = lcxml + openclosetag("CompanyName",ALLTRIM(thisform.limpa_char(Supplier.CompanyName)))
  3396.     lcxml = lcxml + opentag("BillingAddress",1)
  3397.     lcxml = lcxml + openclosetag("AddressDetail",ALLTRIM(thisform.limpa_char(Supplier.addressDetail)))
  3398.     lcxml = lcxml + openclosetag("City",ALLTRIM(thisform.limpa_char(Supplier.City)))
  3399.     lcxml = lcxml + openclosetag("PostalCode",ALLTRIM(thisform.limpa_char(Supplier.PostalCode)))
  3400.     lcxml = lcxml + openclosetag("Country",ALLTRIM(thisform.limpa_char(Supplier.Country)))
  3401.     lcxml = lcxml + closetag("BillingAddress",1)
  3402.     if !empty(Supplier.tel)
  3403.         lcxml = lcxml + openclosetag("Telephone",ALLTRIM(Supplier.tel))
  3404.     endif
  3405.     if !empty(Supplier.fax)
  3406.         lcxml = lcxml + openclosetag("Fax",ALLTRIM(Supplier.fax))
  3407.     endif
  3408.     if !empty(Supplier.email)
  3409.         lcxml = lcxml + openclosetag("Email",ALLTRIM(Supplier.email))
  3410.     endif
  3411.     lcxml = lcxml + openclosetag("SelfBillingIndicator","0")
  3412.     lcxml = lcxml + closetag("Supplier",1)
  3413.     strtofile(lcxml, _saftfilename,1)    
  3414.     skip
  3415. Enddo
  3416. * FIM Supplier ------------------------------------------------------------------------------------------------------------------
  3417. * Inicio do Taxatable ----------------------------------------------------------------------------------------------------------  
  3418. STORE 0.00 TO ptaxa_red, ptaxa_nor,  ptaxa_int
  3419. =SET_PARMS("TAXASIVA")
  3420. lcxml = opentag("TaxTable",1)
  3421. strtofile(lcxml, _saftfilename,1)
  3422. lcxml = opentag("TaxTableEntry",1)
  3423. lcxml = lcxml + openclosetag("TaxType","IVA")
  3424. lcxml = lcxml + openclosetag("TaxCountryRegion","PT")
  3425. lcxml = lcxml + openclosetag("TaxCode","RED")
  3426. lcxml = lcxml + openclosetag("Description","Taxa Reduzida")
  3427. lcxml = lcxml + openclosetag("TaxPercentage",TRANSFORM(ptaxa_red, "@l 999.99"))
  3428. lcxml = lcxml + closetag("TaxTableEntry",1)
  3429. strtofile(lcxml, _saftfilename,1)
  3430. lcxml = opentag("TaxTableEntry",1)
  3431. lcxml = lcxml + openclosetag("TaxType","IVA")
  3432. lcxml = lcxml + openclosetag("TaxCountryRegion","PT")
  3433. lcxml = lcxml + openclosetag("TaxCode","INT")
  3434. lcxml = lcxml + openclosetag("Description","Taxa Intermedia")
  3435. lcxml = lcxml + openclosetag("TaxPercentage",TRANSFORM(ptaxa_int, "@l 999.99"))
  3436. lcxml = lcxml + closetag("TaxTableEntry",1)
  3437. strtofile(lcxml, _saftfilename,1)
  3438. lcxml = opentag("TaxTableEntry",1)
  3439. lcxml = lcxml + openclosetag("TaxType","IVA")
  3440. lcxml = lcxml + openclosetag("TaxCountryRegion","PT")
  3441. lcxml = lcxml + openclosetag("TaxCode","NOR")
  3442. lcxml = lcxml + openclosetag("Description","Taxa Normal")
  3443. lcxml = lcxml + openclosetag("TaxPercentage",TRANSFORM(ptaxa_nor, "@l 999.99"))
  3444. lcxml = lcxml + closetag("TaxTableEntry",1)
  3445. strtofile(lcxml, _saftfilename,1)
  3446. lcxml = opentag("TaxTableEntry",1)
  3447. lcxml = lcxml + openclosetag("TaxType","IVA")
  3448. lcxml = lcxml + openclosetag("TaxCountryRegion","PT")
  3449. lcxml = lcxml + openclosetag("TaxCode","ISE")
  3450. lcxml = lcxml + openclosetag("Description","Isenta")
  3451. lcxml = lcxml + openclosetag("TaxPercentage", "000.00")
  3452. lcxml = lcxml + closetag("TaxTableEntry",1)
  3453. strtofile(lcxml, _saftfilename,1)
  3454. * Fim do Taxtable
  3455. lcxml = closetag("TaxTable",1)
  3456. strtofile(lcxml, _saftfilename,1)
  3457. *-------------------------------------------------------------------------------------------------------------------------------
  3458. *Fim dos ficheiros Masters------------------------------------------------------------------------------------------------------
  3459. lcxml = closetag("MasterFiles",1)
  3460. strtofile(lcxml, _saftfilename,1)
  3461. *INICIO do GeneralLedgerEntries ------------------------------------------------------------------------------------------------
  3462. WAIT WINDOW "Cria
  3463. o do ficheiro em curso (General Ledger Entries), Aguarde ..." nowait
  3464. * Total a Debito e a Credito
  3465. select sum(iif(!empty(l_contad) AND BETWEEN(LEFT(l_contad, 1), "1", "8"), l_valor, 0.00)) as g_debito,;
  3466.        sum(iif(!empty(l_contac) AND BETWEEN(LEFT(l_contac, 1), "1", "8"), l_valor, 0.00)) as g_credito;
  3467.        from lanca;
  3468.        where between(l_mes,01,15) ;
  3469.        into cursor cs_total
  3470. lntot_deb = cs_total.g_debito
  3471. lntot_crd = cs_total.g_credito
  3472. select cs_total
  3473. *    transform(l_diario, "@L 99")+transform(l_mes, "@L 99")+transform(l_docu, "@L 999999") as TransactionID, ;
  3474. *    transform(l_diario, "@L 99")+transform(l_mes, "@L 99")+transform(l_docu, "@L 999999")+transform(l_linha, "@L 9999")+"1" as RecordID, ;
  3475. * cs_linhas
  3476. select transform(l_linha, "@L 9999")+"1" as RecordID, ;
  3477.     transform(p_anoproc, "@L 9999")+"-"+transform(l_mes, "@L 99")+"-"+transform(l_dia, "@L 99")+" "+transform(l_diario, "@L 99")+" "+transform(l_docu, "@L 999999") as TransactionID, ;
  3478.     l_diario as l_diario, ;
  3479.     l_docu as l_docu, ;
  3480.     l_mes as l_mes, ;
  3481.     l_dia as l_dia, ;
  3482.     l_mapar as l_mapar, ;
  3483.     l_tmapar as l_tmapar, ;
  3484.     l_contad as AccoundID, ;
  3485.     l_datahora as SystemEntryDate, ;
  3486.     l_desc as Description, ;
  3487.     IIF("#RG" $ UPPER(l_desc), 1, 0) as Regulariz, ;
  3488.     l_nif as nif, ;
  3489.     l_valor as DebitAmount, ;
  3490.     0.00 as CreditAmount ;
  3491.     from lanca ;
  3492.     where between(l_mes, 1, 15) and ;
  3493.           !empty(l_contad) AND BETWEEN(LEFT(l_contad, 1), "1", "8") ;
  3494.     union all ;
  3495.           select transform(l_linha, "@L 9999")+"2" as RecordID, ;
  3496.               transform(p_anoproc, "@L 9999")+"-"+transform(l_mes, "@L 99")+"-"+transform(l_dia, "@L 99")+" "+transform(l_diario, "@L 99")+" "+transform(l_docu, "@L 999999") as TransactionID, ;
  3497.               l_diario as l_diario, ;
  3498.               l_docu as l_docu, ;
  3499.               l_mes as l_mes, ;
  3500.               l_dia as l_dia, ;
  3501.               l_mapar as l_mapar, ;
  3502.               l_tmapar as l_tmapar, ;
  3503.               l_contac as AccountID, ;
  3504.               l_datahora as SystemEntryDate, ;
  3505.               l_desc as Description, ;
  3506.                IIF("#RG" $ UPPER(l_desc), 1, 0) as Regulariz, ;
  3507.                l_nif as nif, ;
  3508.               0.00 as DebitAmount, ;
  3509.               l_valor as CreditAmount ;
  3510.                 from lanca ;
  3511.                where between(l_mes, 1, 15) and ;
  3512.                         !empty(l_contac)  AND BETWEEN(LEFT(l_contac, 1), "1", "8") ;
  3513.     order by TransactionID, RecordID ;
  3514.     into cursor cs_linhas
  3515. index on TransactionID tag key_1
  3516. *    l_util as l_util, ;
  3517. *          !empty(l_contad) AND l_contad >= "11" ;
  3518. *               l_util as l_util, ;
  3519. *                        !empty(l_contac) AND l_contac >= "11" ;
  3520. * cs_desc_documentos
  3521. *!*    select TransactionID as TransactionID, ;
  3522. *!*        SPACE(60) as Description ;
  3523. *!*        from cs_linhas ;
  3524. *!*        group by TransactionID  ;
  3525. *!*        into cursor cs_desc_documentos readwrite
  3526. *!*        
  3527. *!*    INDEX ON TransactionID TAG key_1
  3528. *!*    GO top
  3529. *!*    SCAN
  3530. *!*        lcdesc_first = ""
  3531. *!*        lcdesc_last = ""
  3532. *!*        lcdesc_final = ""
  3533. *!*        SELECT cs_linhas
  3534. *!*        SET FILTER TO TransactionID = cs_desc_documentos.TransactionID
  3535. *!*        GO top
  3536. *!*        lcdesc_first = ALLTRIM(cs_linhas.Description)
  3537. *!*        GO bottom
  3538. *!*        lcdesc_last = ALLTRIM(cs_linhas.Description)
  3539. *!*        IF lcdesc_first = lcdesc_last
  3540. *!*            lcdesc_final = lcdesc_first
  3541. *!*        ELSE
  3542. *!*            lcdesc_final = lcdesc_first + ", " + lcdesc_last
  3543. *!*        ENDIF
  3544. *!*        SET FILTER TO
  3545. *!*        SELECT cs_desc_documentos
  3546. *!*        replace Description WITH lcdesc_final
  3547. *!*    ENDSCAN
  3548. *!*        iif(l_tmapar = "C", IIF(left(AccountID, 1) = "2", AccountID, "__C" + thisform.nif_sem_pais(nif)), "                ") as cliente, ;
  3549. *!*        iif(l_tmapar = "F", IIF(left(AccountID, 1) = "2", AccountID, "__F" + thisform.nif_sem_pais(nif)), "                ") as fornecedor ;
  3550. * cs_documento_com_terceiro (Recapitulativos)
  3551. select TransactionID as TransactionID, ;
  3552.     iif(l_tmapar = "C", IIF(left(AccountID, 1) = "2", AccountID, this.get_conta_do_nif_c(nif)), "                ") as cliente, ;
  3553.     iif(l_tmapar = "F", IIF(left(AccountID, 1) = "2", AccountID, this.get_conta_do_nif_f(nif)), "                ") as fornecedor ;
  3554.     from cs_linhas ;
  3555.     where !empty(AccountID) and ;
  3556.           l_mapar and ;
  3557.           (left(AccountID, 1) = "2" OR !EMPTY(nif)) ;
  3558.     into cursor cs_documento_com_terceiro_recapitul
  3559. SELECT Customer_2
  3560. SELECT Supplier_2
  3561. * cs_documento_com_terceiro (N
  3562. o residentes)
  3563. select TransactionID as TransactionID, ;
  3564.     iif(LEFT(a.AccountID, 2) = "21", AccountID, "                ") as cliente, ;
  3565.     iif(LEFT(a.AccountID, 2) # "21", AccountID, "                ") as fornecedor ;
  3566.     from cs_linhas a, plano b ;
  3567.     where a.AccountID = b.conta and ;
  3568.           !empty(a.AccountID) and ;
  3569.           !l_mapar and ;
  3570.           left(AccountID, 1) = "2" AND ;
  3571.           isalpha(b.nif) AND ;
  3572.           UPPER(LEFT(b.nif, 2)) # "PT" ;
  3573.     into cursor cs_documento_com_terceiro_nresid
  3574. * cs_documento_com_terceiro (final)
  3575. SELECT TransactionID as TransactionID, ;
  3576.     cliente as cliente, ;
  3577.     fornecedor as fornecedor ;
  3578.     FROM cs_documento_com_terceiro_recapitul ;
  3579.   UNION ALL ;
  3580.           select TransactionID as TransactionID, ;
  3581.             cliente as cliente, ;
  3582.             fornecedor as fornecedor ;
  3583.             FROM cs_documento_com_terceiro_nresid ;
  3584.     INTO CURSOR cs_documento_com_terceiro
  3585. SELECT cs_documento_com_terceiro_recapitul
  3586. SELECT cs_documento_com_terceiro_nresid
  3587. * cs_documento
  3588. select a.TransactionID as TransactionID, ;
  3589.     transform(a.l_mes, "@L 99") as Period, ;
  3590.     transform(p_anoproc, "@L 9999") + "-" + IIF(a.l_mes > 12, "12-31", transform(a.l_mes, "@L 99") + "-" + transform(a.l_dia, "@L 99")) as TransactionDate, ;
  3591.     sum(a.Regulariz) as Regulariz, ;
  3592.     a.l_diario as l_diario, ;
  3593.     a.l_docu as l_docu, ;
  3594.     a.Description as Description, ;
  3595.     min(a.SystemEntryDate) as GLPostingDate, ;
  3596.     b.cliente as CustomerID, ;
  3597.     b.fornecedor as SupplierID ;
  3598.     from cs_linhas a left outer join cs_documento_com_terceiro b on a.TransactionID = b.TransactionID ;
  3599.     order by a.TransactionID, GLPostingDate ;
  3600.     group by a.TransactionID ;
  3601.     into cursor cs_documento
  3602. *    index on TransactionID tag key_1
  3603. *    a.l_util as Util 
  3604.     lntot_docs = reccount()
  3605. select cs_documento_com_terceiro
  3606. *!*    select cs_desc_documentos
  3607. *!*    use
  3608. * cs_diarios
  3609. select a.TransactionID as TransactionID, ;
  3610.     a.l_diario as codigo, ;
  3611.     b.descricao as descricao ;
  3612.     from cs_linhas a, diario b ;
  3613.          where a.l_diario = b.codigo ;
  3614.     order by TransactionID ;
  3615.     group by l_diario into cursor cs_diarios
  3616. lcxml = ""
  3617. lcxml = lcxml + opentag("GeneralLedgerEntries", 1)
  3618. lcxml = lcxml + openclosetag("NumberOfEntries", alltrim(str(lntot_docs)))
  3619. lcxml = lcxml + openclosetag("TotalDebit", transform(lntot_deb, "@L 99999999999.99"))
  3620. lcxml = lcxml + openclosetag("TotalCredit", transform(lntot_crd, "@L 99999999999.99"))
  3621. strtofile(lcxml, _saftfilename, 1)
  3622. lcxml = ""
  3623. * Diarios
  3624. select cs_diarios
  3625. go top
  3626.     lcxml = lcxml + opentag("Journal", 1)
  3627.     lcxml = lcxml + openclosetag("JournalID", transform(cs_diarios.codigo, "@L 99"))
  3628.     lcxml = lcxml + openclosetag("Description", alltrim(thisform.limpa_char(cs_diarios.descricao)))
  3629.     strtofile(lcxml, _saftfilename, 1)
  3630.     lcxml = ""
  3631.     * Transaction
  3632.     select cs_documento
  3633.     go top
  3634.     scan for l_diario = cs_diarios.codigo
  3635.         lcxml = lcxml + opentag("Transaction", 1)
  3636.         lcdesc_doc = "Doc. contabilistico " + ALLTRIM(STR(l_docu)) + ;
  3637.                      ", mes " + ALLTRIM(mtoe(VAL(cs_documento.Period), lnmes_inicio_contab)) + ;
  3638.                      ", diario " + thisform.limpa_char(ALLTRIM(cs_diarios.descricao))
  3639.         lcxml = lcxml + openclosetag("TransactionID", cs_documento.TransactionID)
  3640.         lcxml = lcxml + openclosetag("Period", cs_documento.Period)
  3641.         lcxml = lcxml + openclosetag("TransactionDate", cs_documento.TransactionDate)
  3642. *        lcxml = lcxml + openclosetag("SourceID", ALLTRIM(cs_documento.Util))
  3643.         lcxml = lcxml + openclosetag("SourceID", ALLTRIM(p_login))
  3644. *        lcxml = lcxml + openclosetag("Description", IIF(EMPTY(cs_documento.Description), "Desconhacido", alltrim(thisform.limpa_char(cs_documento.Description))))
  3645.         lcxml = lcxml + openclosetag("Description", lcdesc_doc)
  3646.         lcxml = lcxml + openclosetag("DocArchivalNumber", transform(l_docu, "@L 999999"))
  3647.         lctransaction_type = IIF(cs_documento.Period = "13", "J", IIF(cs_documento.Period = "14", "A", IIF(cs_documento.Regulariz > 0, "R", "N")))
  3648.         lcxml = lcxml + openclosetag("TransactionType", lctransaction_type)
  3649.         lctrab = ""
  3650.         if empty(cs_documento.GLPostingDate)
  3651.             lctrab = cs_documento.TransactionDate + "T00:00:00"
  3652.         else
  3653.             lctrab = transform(year(cs_documento.GLPostingDate), "@L 9999") + "-" + ;
  3654.                      transform(month(cs_documento.GLPostingDate), "@L 99") + "-" + ;
  3655.                      transform(day(cs_documento.GLPostingDate), "@L 99") + "T" + ;
  3656.                      transform(hour(cs_documento.GLPostingDate), "@L 99") + ":" + ;
  3657.                      transform(minute(cs_documento.GLPostingDate), "@L 99") + ":" + ;
  3658.                      transform(sec(cs_documento.GLPostingDate), "@L 99")
  3659.         endif
  3660.         lcxml = lcxml + openclosetag("GLPostingDate", lctrab)
  3661.         if isnull(cs_documento.CustomerID) or empty(cs_documento.CustomerID)
  3662.         else
  3663.             lcxml = lcxml + openclosetag("CustomerID", ALLTRIM(cs_documento.CustomerID))
  3664.         endif
  3665.         if isnull(cs_documento.SupplierID) or empty(cs_documento.SupplierID)
  3666.         else
  3667.             lcxml = lcxml + openclosetag("SupplierID", alltrim(cs_documento.SupplierID))
  3668.         endif
  3669.         * Linhas
  3670.         select cs_linhas
  3671.         scan for TransactionID = cs_documento.TransactionID
  3672.             lcxml = lcxml + opentag("Line", 1)
  3673.             lcxml = lcxml + openclosetag("RecordID", cs_linhas.RecordID)
  3674.             lcxml = lcxml + openclosetag("AccountID", alltrim(cs_linhas.AccountID))
  3675.             lctrab = ""
  3676.             if empty(cs_linhas.SystemEntryDate)
  3677.                 lctrab = cs_documento.TransactionDate + "T00:00:00"
  3678.             else
  3679.                 lctrab = transform(year(cs_linhas.SystemEntryDate), "@L 9999") + "-" + ;
  3680.                          transform(month(cs_linhas.SystemEntryDate), "@L 99") + "-" + ;
  3681.                          transform(day(cs_linhas.SystemEntryDate), "@L 99") + "T" + ;
  3682.                          transform(hour(cs_linhas.SystemEntryDate), "@L 99") + ":" + ;
  3683.                          transform(minute(cs_linhas.SystemEntryDate), "@L 99") + ":" + ;
  3684.                          transform(sec(cs_linhas.SystemEntryDate), "@L 99")
  3685.             endif
  3686.             lcxml = lcxml + openclosetag("SystemEntryDate", lctrab)
  3687.             lcxml = lcxml + openclosetag("Description", IIF(EMPTY(cs_linhas.Description), "Desconhecido", alltrim(thisform.limpa_char(cs_linhas.Description))))
  3688.             if cs_linhas.DebitAmount = 0
  3689.                 lcxml = lcxml + openclosetag("CreditAmount", transform(cs_linhas.CreditAmount, "@L 9999999999.99"))
  3690.             else
  3691.                 lcxml = lcxml + openclosetag("DebitAmount", transform(cs_linhas.DebitAmount, "@L 9999999999.99"))
  3692.             endif
  3693.             lcxml = lcxml + closetag("Line", 1)
  3694.         endscan
  3695.         select cs_documento
  3696.         lcxml = lcxml + closetag("Transaction", 1)
  3697.         strtofile(lcxml, _saftfilename, 1)
  3698.         lcxml = ""
  3699.     endscan
  3700.     select cs_diarios
  3701.     lcxml = lcxml + closetag("Journal", 1)
  3702.     strtofile(lcxml, _saftfilename, 1)
  3703.     lcxml = ""
  3704. endscan
  3705. lcxml = lcxml + closetag("GeneralLedgerEntries", 1)
  3706. strtofile(lcxml, _saftfilename, 1)
  3707. lcxml = ""
  3708. select cs_diarios
  3709. select cs_documento
  3710. select cs_linhas
  3711. *Fim do GeneralLedgerEntries ---------------------------------------------------------------------------------------------------
  3712. *Fim do Ficheiro de auditoria--------------------------------------------------------------------------------------------------
  3713. lcxml = closetag("AuditFile",1) 
  3714. strtofile(lcxml, _saftfilename,1)
  3715. wait window "Grava
  3716. o concluida." timeout 0.5
  3717. ENDPROC
  3718. PROCEDURE limpa_char
  3719. lparam _string, _opc
  3720. local lcstring, lcret, lnopc
  3721. IF PARAMETERS() < 2
  3722.     lnopc = 0
  3723.     lnopc = 1
  3724. ENDIF
  3725. lcstring = _string
  3726. lcret = ""
  3727. lcret = strtran(lcstring, "&", "E")
  3728. lcret = strtran(lcret, ">", "")
  3729. lcret = strtran(lcret, "<", "")
  3730. lcret = strtran(lcret, "#", "")
  3731. lcret = strtran(lcret, "/", "")
  3732. lcret = strtran(lcret, "\", "")
  3733. lcret = strtran(lcret, "
  3734. ", "")
  3735. lcret = strtran(lcret, "
  3736. ", "")
  3737. lcret = strtran(lcret, ".", "")
  3738. IF lnopc = 1
  3739.     lcret = strtran(lcret, "-", "")
  3740. endif
  3741. lcret = strtran(lcret, chr(144), chr(69))
  3742. return lcret
  3743. ENDPROC
  3744. PROCEDURE concatenar
  3745. lparam _string
  3746. local lcret, lcstring, lnind, lctrab, lnpos
  3747. lcstring = alltrim(_string)
  3748. lcret = ""
  3749. lnind = 1
  3750. lctrab = ""
  3751. lnpos = 0
  3752. lcstring = strtran(lcstring, " ", "")
  3753. lcstring = strtran(lcstring, ".", "")
  3754. for lnind = 1 to len(lcstring)
  3755.     lctrab = substr(lcstring, lnind, 1)
  3756.     if lctrab $ ("0123456789")
  3757.         lnpos = lnind
  3758.         exit
  3759.     endif
  3760. endfor
  3761. lcret = left(lcstring, lnpos-1) + " " + substr(lcstring, lnpos)
  3762. return lcret
  3763. ENDPROC
  3764. PROCEDURE decrecapfilecreate
  3765. **** Crea
  3766. o ficheiro declara
  3767. o recapitulativa do Iva (Op. intracomunitaria)
  3768. PARAMETERS _decrecapfilename
  3769. _trfic=0
  3770. _trdec=0
  3771. _trrec=0
  3772. if !file(_decrecapfilename)
  3773.     filehandle=fcreate(_decrecapfilename)
  3774.     filehandle=fopen(_decrecapfilename,2)
  3775. endif
  3776.  Registo
  3777. rec="01ASCII01"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",117)+chr(13)+chr(10)
  3778. =FWRITE(FileHandle,rec)
  3779.  Registo
  3780. rec="02DRECA"+p_nif
  3781. rec=rec+TRANSFORM(p_anoproc, "@l 9999")
  3782. DO case
  3783.     CASE !EMPTY(_mensal)
  3784.         rec=rec+PADR(alltrim(_mensal),3," ")
  3785.     OTHERWISE
  3786.         rec=rec+alltrim(_trimestral)
  3787. ENDCASE
  3788. IF !EMPTY(_mesincinf)
  3789.     rec=rec+ALLTRIM(_mesincinf)
  3790. ELSE 
  3791.     rec=rec+"  "
  3792. ENDIF
  3793. IF !EMPTY(_mesincsup)    
  3794.     rec=rec+ALLTRIM(_mesincsup)
  3795.     rec=rec+"  "
  3796. Endif
  3797. rec=rec+repli(" ",107)+chr(13)+chr(10)
  3798. =FWRITE(FileHandle,rec)
  3799. _trfic=_trfic+1
  3800.  Registo
  3801. Rec="03"
  3802. DO case
  3803.     CASE EMPTY(_11)
  3804.         rec=rec+"2"
  3805.     OTHERWISE
  3806.         rec=rec+"1"
  3807. ENDCASE
  3808. DO CASE 
  3809.     CASE _1a=0 AND _1b=0
  3810.             rec=rec+"0"
  3811.     CASE _1a=1
  3812.             rec=rec+"1"        
  3813.     CASE _1b=1
  3814.             rec=rec+"2"
  3815. ENDCASE
  3816. DO case
  3817.     CASE _21=0
  3818.         rec=rec+"0"
  3819.     OTHERWISE
  3820.         rec=rec+"1"
  3821. ENDCASE
  3822. DO case
  3823.     CASE _21a=1
  3824.         rec=rec+"1"
  3825.     otherwise
  3826.         rec=rec+"2"
  3827. ENDCASE
  3828. DO case
  3829.     CASE _22=1
  3830.         rec=rec+"1"
  3831.     OTHERWISE
  3832.         rec=rec+"0"
  3833. ENDCASE
  3834. DO case
  3835.     CASE _23=1
  3836.         rec=rec+"1"
  3837.     otherwise
  3838.         rec=rec+"0"
  3839. ENDCASE
  3840. rec=rec+repli(" ",126)+chr(13)+chr(10)
  3841. =FWRITE(FileHandle,rec)
  3842. _trfic=_trfic+1
  3843. _trdec=_trdec+1
  3844. *--------------------------------------------------------------------------
  3845.  Registo
  3846. SELECT OPINTRA 
  3847. GO TOP
  3848. insrec=0
  3849. DO WHILE !EOF()
  3850.     insrec=insrec+1
  3851.     Rec="04"
  3852.     Rec=rec+TRANSFORM(insrec, "@l 99999")
  3853.     rec=rec+left(opintra._prefixo,2)
  3854.     rec=rec+PADR(ALLTRIM(opintra._nif),12," ")
  3855.     rec=rec+transval(opintra._valor,13,1)
  3856.     rec=rec+ALLTRIM(STR(opintra._tipooper))
  3857.     rec=rec+repli(" ",99)+chr(13)+chr(10)
  3858.     =FWRITE(FileHandle,rec)
  3859.     _trfic=_trfic+1
  3860.     _trdec=_trdec+1
  3861.     _trrec=_trrec+1
  3862.     skip
  3863. Enddo
  3864. * -------------------------------------------------------------------------
  3865. * 09 Trailer declara
  3866. o recapitulativa
  3867. Rec="09"
  3868. rec=rec+TRANSFORM(_trrec, "@l 99999")
  3869. rec=rec+TRANSFORM(_pniftoc, "@l 999999999")
  3870. rec=rec+transval(_tot1,13,1)
  3871. rec=rec+transval(_tot2,13,1)
  3872. rec=rec+transval(_tot3,13,1)
  3873. rec=rec+transval(_tot4,13,1)
  3874. rec=rec+repli(" ",66)+chr(13)+chr(10)
  3875. =FWRITE(FileHandle,rec)
  3876. _trfic=_trfic+1
  3877. _trdec=_trdec+1
  3878. *--------------------------------------------------------------------------
  3879. * 89 Registo Trailer da Declara
  3880. rec="89"
  3881. rec=rec+transform(_trdec, "@l 999999999")
  3882. rec=rec+replic(" ",123)+chr(13)+chr(10)    
  3883. =FWRITE(FileHandle,rec)
  3884. _trfic=_trfic+1
  3885. *-----------------------------------------------------------------------
  3886.  Registo Trailer do ficheiro
  3887. rec="99"
  3888. rec=rec+transform(_trfic, "@l 999999999")
  3889. rec=rec+replic(" ",123)+chr(13)+chr(10)    
  3890. =FWRITE(FileHandle,rec)
  3891. *--------------------------------
  3892. =fclose(filehandle)
  3893. =Messagebox("Cria
  3894. o do Ficheiro efectuada ..",0+64,"")
  3895. RETURN
  3896. ENDPROC
  3897. PROCEDURE decivafilecreate
  3898. lparam _ana, _anb
  3899. _triva=0
  3900. _trdec=0
  3901. _trfic=0
  3902. _tranc=0
  3903. _trana=0
  3904. _tranm=0
  3905. _trani=0
  3906. _tranf=0
  3907. if !file(_ivafilename)
  3908.     filehandle=fcreate(_ivafilename)
  3909.     filehandle=fopen(_ivafilename,2)
  3910. endif
  3911.  Registo
  3912. rec="01ASCII04"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",117)+chr(13)+chr(10)
  3913. =FWRITE(FileHandle,rec)
  3914.  Registo
  3915. rec="02DPIVA"+P_NIF
  3916. * dentro ou fora do prazo
  3917. IF _cprazo=1
  3918.     rec=rec+"1"
  3919.     rec=rec+"2"
  3920. ENDIF
  3921. rec=rec+replic(" ",117)+chr(13)+chr(10)
  3922. =FWRITE(FileHandle,rec)
  3923. _trfic=_trfic+1
  3924.  Registo
  3925. rec="03"
  3926. DO CASE 
  3927.     CASE _copc=1
  3928.         rec=rec+"1"
  3929.     CASE _copa=1
  3930.         rec=rec+"2"
  3931.     CASE _copm=1
  3932.         rec=rec+"3"
  3933.     OTHERWISE
  3934.         rec=rec+"0"            
  3935. Endcase    
  3936. Do case
  3937.     case _canexoc=0 and _canexoa=0 and _canexom=0
  3938.         rec=rec+"000"
  3939.     case _canexoc!=0 and _canexoa=0 and _canexom=0
  3940.         rec=rec+"100"
  3941.     case _canexoa!=0 and _canexoc=0  and _canexom=0
  3942.         rec=rec+"020"
  3943.     case _canexom!=0 and _canexoc=0 and _canexoa=0 
  3944.         rec=rec+"003"
  3945.     case _canexoc!=0 and _canexoa!=0 and _canexom=0
  3946.         rec=rec+"120"
  3947.     case _canexoc=0 and _canexoa!=0 and _canexom!=0
  3948.         rec=rec+"023"
  3949.     case _canexoc!=0 and _canexoa=0 and _canexom!=0    
  3950.         rec=rec+"103"
  3951.         
  3952. Endcase
  3953. If _copimob=0
  3954.     rec=rec+"0"
  3955.     rec=rec+"0"
  3956. Endif
  3957. If _cintrac=0
  3958.     rec=rec+"0"
  3959.     rec=rec+"5"
  3960. Endif
  3961. ** Rela
  3962. o de Clientes
  3963. rec=rec+ALLTRIM(STR(_nrrelcli))
  3964. ** Rela
  3965. o de fornecedores
  3966. rec=rec+ALLTRIM(STR(_nrrelfor))
  3967. ** Rela
  3968. o de dos sujeitos passivos que respeitam as regulariza
  3969. rec=rec+ALLTRIM(STR(_nrrelsuj))
  3970. ** inexistencia de opera
  3971. If _cnaoop=0
  3972.     rec=rec+"0"
  3973.     rec=rec+"1"
  3974. Endif
  3975. rec=rec+alltrim(str(p_anoproc))
  3976. if _cmensal=1
  3977.     rec=rec+transf(month(_cperiods), "@l 99")+" "
  3978.     rec=rec+transf(month(_cperiods), "@l 99")+"T"
  3979. Endif
  3980. rec=rec+replic(" ",115)+chr(13)+chr(10)    
  3981. =FWRITE(FileHandle,rec)
  3982. _trdec=_trdec+1
  3983. _trfic=_trfic+1
  3984.  Registo
  3985. rec="04"
  3986. rec=rec+transval(campo(1),12)
  3987. rec=rec+transval(campo(5),12)
  3988. rec=rec+transval(campo(3),12)
  3989. rec=rec+transval(round(campo(7),0),12)
  3990. rec=rec+transval(campo(8),12)
  3991. rec=rec+transval(campo(9),12)
  3992. rec=rec+transval(campo(10),12)
  3993. rec=rec+transval(campo(90),12)
  3994. rec=rec+replic(" ",36)+chr(13)+chr(10)    
  3995. =FWRITE(FileHandle,rec)
  3996. _triva=_triva+1
  3997. _trdec=_trdec+1
  3998. _trfic=_trfic+1
  3999.  Registo
  4000. rec="05"
  4001. rec=rec+transval(campo(20),12)
  4002. rec=rec+transval(campo(21),12)
  4003. rec=rec+transval(campo(23),12)
  4004. rec=rec+transval(campo(22),12)
  4005. rec=rec+transval(campo(24),12)
  4006. rec=rec+transval(campo(40),12)
  4007. rec=rec+transval(campo(61),12)
  4008. rec=rec+transval(campo(65),12)
  4009. rec=rec+transval(campo(67),12)
  4010. rec=rec+transval(campo(81),12)
  4011. rec=rec+transval(campo(91),12)+chr(13)+chr(10)    
  4012. =FWRITE(FileHandle,rec)
  4013. _triva=_triva+1
  4014. _trdec=_trdec+1
  4015. _trfic=_trfic+1
  4016.  Registo
  4017. rec="06"
  4018. rec=rec+transval(campo(2),12)
  4019. rec=rec+transval(campo(6),12)
  4020. rec=rec+transval(campo(4),12)
  4021. rec=rec+transval(campo(11),12)
  4022. rec=rec+transval(campo(41),12)
  4023. rec=rec+transval(campo(66),12)
  4024. rec=rec+transval(campo(68),12)
  4025. rec=rec+transval(campo(92),12)
  4026. rec=rec+transval(campo(93),12)
  4027. rec=rec+transval(campo(94),12)
  4028. rec=rec+transval(campo(95),12)+chr(13)+chr(10)    
  4029. =FWRITE(FileHandle,rec)
  4030. _triva=_triva+1
  4031. _trdec=_trdec+1
  4032. _trfic=_trfic+1
  4033.  Registo
  4034. rec="07"
  4035. rec=rec+transval(campo(96),12)
  4036. rec=rec+transval(0.00,12)
  4037. rec=rec+transval(0.00,12)
  4038. DO CASE 
  4039.     CASE _cinvert=1
  4040.             rec=rec+"10"
  4041.     CASE _cinvert=2
  4042.             rec=rec+"02"
  4043.     OTHERWISE
  4044.             rec=rec+"00"
  4045. ENDCASE
  4046. rec=rec+transval(0.00,12)
  4047. rec=rec+"0"
  4048. rec=rec+"00000000"
  4049. rec=rec+"0"
  4050. rec=rec+"00000000"
  4051. rec=rec+replic(" ",64)+chr(13)+chr(10)    
  4052. =FWRITE(FileHandle,rec)
  4053. _triva=_triva+1
  4054. _trdec=_trdec+1
  4055. _trfic=_trfic+1
  4056.  Registo (novo registo a partir de 2010)
  4057. rec="30"
  4058. rec=rec+transval(campo(12),12)
  4059. rec=rec+transval(campo(14),12)
  4060. rec=rec+transval(campo(15),12)
  4061. rec=rec+transval(campo(16),12)
  4062. rec=rec+transval(campo(13),12)
  4063. rec=rec+transval(campo(17),12)
  4064. rec=rec+replic(" ",60)+chr(13)+chr(10)    
  4065. =FWRITE(FileHandle,rec)
  4066. _triva=_triva+1
  4067. _trdec=_trdec+1
  4068. _trfic=_trfic+1
  4069.  Registo (novo registo a partir de 2010)
  4070. rec="31"
  4071. rec=rec+transval(campo(97),12)
  4072. rec=rec+transval(campo(98),12)
  4073. rec=rec+transval(campo(99),12)
  4074. rec=rec+transval(campo(100),12)
  4075. rec=rec+transval(campo(101),12)
  4076. rec=rec+transval(campo(102),12)
  4077. rec=rec+transval(campo(103),12)
  4078. rec=rec+transval(campo(104),12)
  4079. rec=rec+transval(campo(105),12)
  4080. rec=rec+replic(" ",24)+chr(13)+chr(10)    
  4081. =FWRITE(FileHandle,rec)
  4082. _triva=_triva+1
  4083. _trdec=_trdec+1
  4084. _trfic=_trfic+1
  4085.  Registo
  4086. rec="08"
  4087. rec=rec+transf(_triva, "@l 999")
  4088. rec=rec+TRANSFORM(VAL(_pniftoc), "@L 999999999")
  4089. rec=rec+transval(campo(90)+campo(91)+campo(92)+campo(93)+campo(94)+campo(95)+campo(96),13)
  4090. rec=rec+replic(" ",107)+chr(13)+chr(10)    
  4091. =FWRITE(FileHandle,rec)
  4092. _trdec=_trdec+1
  4093. _trfic=_trfic+1
  4094. *--------------------------------------------------------------------------- ANEXO A
  4095. If _copa=1
  4096.     Wait window "Aguarde apuramento do anexo para os a
  4097. ores" nowait
  4098.     c020a1_f.prepanexoacores
  4099.  Registo
  4100.     rec="09"
  4101.     rec=rec+"2"
  4102.     rec=rec+p_nif
  4103.     rec=rec+transf(p_anoproc, "@l 9999")    
  4104.     if _cmensal=1
  4105.         rec=rec+transf(month(_cperiods), "@l 99")+" "
  4106.     else
  4107.         rec=rec+transf(month(_cperiods), "@l 99")+"T"
  4108.     Endif
  4109.     rec=rec+replic(" ",115)+chr(13)+chr(10)    
  4110.     =FWRITE(FileHandle,rec)
  4111.     _trdec=_trdec+1
  4112.     _trfic=_trfic+1
  4113. *!*        * 9
  4114.  Registo ---- Repetido no ficheiro base
  4115. *!*        rec="09"
  4116. *!*        rec=rec+"2"
  4117. *!*        rec=rec+p_nif
  4118. *!*        rec=rec+transf(p_anoproc, "@l 9999")    
  4119. *!*        
  4120. *!*        if _cmensal=1
  4121. *!*            rec=rec+transf(month(_cperiods), "@l 99")+" "
  4122. *!*        else
  4123. *!*            rec=rec+transf(month(_cperiods), "@l 99")+"T"
  4124. *!*        Endif
  4125. *!*        rec=rec+replic(" ",115)+chr(13)+chr(10)    
  4126. *!*        =FWRITE(FileHandle,rec)
  4127. *!*        _trana=_trana+1
  4128. *!*        _trdec=_trdec+1
  4129. *!*        _trfic=_trfic+1
  4130.     * 10
  4131.  Registo
  4132.     rec="10"
  4133.     rec=rec+"2"
  4134.     rec=rec+transval(campo(1),12)
  4135.     rec=rec+transval(campo(5),12)
  4136.     rec=rec+transval(campo(3),12)
  4137.     rec=rec+transval(campo(7),12)
  4138.     rec=rec+transval(campo(8),12)
  4139.     rec=rec+transval(campo(9),12)
  4140.     rec=rec+transval(campo(10),12)
  4141.     rec=rec+transval(campo(62),12)
  4142.     rec=rec+replic(" ",35)+chr(13)+chr(10)    
  4143.     =FWRITE(FileHandle,rec)
  4144.     _trana=_trana+1
  4145.     _trdec=_trdec+1
  4146.     _trfic=_trfic+1
  4147.     * 11
  4148.  Registo
  4149.     rec="11"
  4150.     rec=rec+"2"    
  4151.     rec=rec+transval(campo(20),12)
  4152.     rec=rec+transval(campo(21),12)
  4153.     rec=rec+transval(campo(23),12)
  4154.     rec=rec+transval(campo(22),12)
  4155.     rec=rec+transval(campo(24),12)
  4156.     rec=rec+transval(campo(63),12)
  4157.     rec=rec+transval(campo(2),12)
  4158.     rec=rec+transval(campo(6),12)
  4159.     rec=rec+transval(campo(4),12)
  4160.     rec=rec+transval(campo(11),12)
  4161.     rec=rec+replic(" ",11)+chr(13)+chr(10)    
  4162.     =FWRITE(FileHandle,rec)
  4163.     _trana=_trana+1
  4164.     _trdec=_trdec+1
  4165.     _trfic=_trfic+1
  4166.     * 12
  4167.  Registo
  4168.     rec="12"
  4169.     rec=rec+"2"    
  4170.     rec=rec+transval(campo(64),12)
  4171.     rec=rec+"0"
  4172.     rec=rec+"0"
  4173.     rec=rec+transval(0,12)
  4174.     rec=rec+replic(" ",105)+chr(13)+chr(10)    
  4175.     =FWRITE(FileHandle,rec)
  4176.     _trana=_trana+1
  4177.     _trdec=_trdec+1
  4178.     _trfic=_trfic+1
  4179.     * 32
  4180.  Registo (Novo a partor de 2010)
  4181.     Rec="32"
  4182.     rec=rec+"2" 
  4183.     rec=rec+transval(campo(12),12)
  4184.     rec=rec+transval(campo(14),12)
  4185.     rec=rec+transval(campo(15),12)
  4186.     rec=rec+transval(campo(16),12)
  4187.     rec=rec+transval(campo(13),12)
  4188.     rec=rec+transval(campo(17),12)
  4189.     rec=rec+replic(" ",59)+chr(13)+chr(10)    
  4190.     =FWRITE(FileHandle,rec)
  4191.     _triva=_triva+1
  4192.     _trdec=_trdec+1
  4193.     _trfic=_trfic+1
  4194.     * 33
  4195.  Registo (Novo a partir de 2010)
  4196.     Rec="33"
  4197.     rec=rec+"2" 
  4198.     rec=rec+transval(campo(65),12)
  4199.     rec=rec+transval(campo(66),12)
  4200.     rec=rec+transval(campo(67),12)
  4201.     rec=rec+transval(campo(68),12)
  4202.     rec=rec+transval(campo(69),12)
  4203.     rec=rec+transval(campo(70),12)
  4204.     rec=rec+transval(campo(71),12)
  4205.     rec=rec+transval(campo(72),12)
  4206.     rec=rec+transval(campo(73),12)
  4207.     rec=rec+replic(" ",23)+chr(13)+chr(10)    
  4208.     =FWRITE(FileHandle,rec)
  4209.     _triva=_triva+1
  4210.     _trdec=_trdec+1
  4211.     _trfic=_trfic+1
  4212.     * 13
  4213.  Registo
  4214.     rec="13"
  4215.     rec=rec+"2"
  4216.     rec=REC+TRANSF(_TRANA, "@L 999")
  4217.     rec=rec+transval(campo(62)+campo(63)+campo(64),13)        
  4218.     rec=rec+replic(" ",115)+chr(13)+chr(10)    
  4219.     =FWRITE(FileHandle,rec)
  4220.     _trdec=_trdec+1
  4221.     _trfic=_trfic+1    
  4222.     wait clear
  4223. Endif
  4224. *-------------------------------------------------------------------------- ANEXO MADEIRA
  4225. If _copm=1
  4226.     Wait window "Aguarde apuramento do anexo para a madeira" nowait
  4227.     c020a1_f.prepanexomadeira
  4228.  Registo
  4229.     rec="09"
  4230.     rec=rec+"3"
  4231.     rec=rec+p_nif
  4232.     rec=rec+transf(p_anoproc, "@l 9999")    
  4233.     if _cmensal=1
  4234.         rec=rec+transf(month(_cperiods), "@l 99")+" "
  4235.     else
  4236.         rec=rec+transf(month(_cperiods), "@l 99")+"T"
  4237.     Endif
  4238.     rec=rec+replic(" ",115)+chr(13)+chr(10)    
  4239.     =FWRITE(FileHandle,rec)
  4240.     _trdec=_trdec+1
  4241.     _trfic=_trfic+1
  4242. *!*        * 9
  4243.  Registo ---- Repetido no ficheiro base
  4244. *!*        rec="09"
  4245. *!*        rec=rec+"3"
  4246. *!*        rec=rec+p_nif
  4247. *!*        rec=rec+transf(p_anoproc, "@l 9999")    
  4248. *!*        
  4249. *!*        if _cmensal=1
  4250. *!*            rec=rec+transf(month(_cperiods), "@l 99")+" "
  4251. *!*        else
  4252. *!*            rec=rec+transf(month(_cperiods), "@l 99")+"T"
  4253. *!*        Endif
  4254. *!*        rec=rec+replic(" ",115)+chr(13)+chr(10)    
  4255. *!*        =FWRITE(FileHandle,rec)
  4256. *!*        _tranm=_tranm+1
  4257. *!*        _trdec=_trdec+1
  4258. *!*        _trfic=_trfic+1
  4259.     * 10
  4260.  Registo
  4261.     rec="10"
  4262.     rec=rec+"3"
  4263.     rec=rec+transval(campo(1),12)
  4264.     rec=rec+transval(campo(5),12)
  4265.     rec=rec+transval(campo(3),12)
  4266.     rec=rec+transval(campo(7),12)
  4267.     rec=rec+transval(campo(8),12)
  4268.     rec=rec+transval(campo(9),12)
  4269.     rec=rec+transval(campo(10),12)
  4270.     rec=rec+transval(campo(62),12)
  4271.     rec=rec+replic(" ",35)+chr(13)+chr(10)    
  4272.     =FWRITE(FileHandle,rec)
  4273.     _tranm=_tranm+1
  4274.     _trdec=_trdec+1
  4275.     _trfic=_trfic+1
  4276.     * 11
  4277.  Registo
  4278.     rec="11"
  4279.     rec=rec+"3"    
  4280.     rec=rec+transval(campo(20),12)
  4281.     rec=rec+transval(campo(21),12)
  4282.     rec=rec+transval(campo(23),12)
  4283.     rec=rec+transval(campo(22),12)
  4284.     rec=rec+transval(campo(24),12)
  4285.     rec=rec+transval(campo(63),12)
  4286.     rec=rec+transval(campo(2),12)
  4287.     rec=rec+transval(campo(6),12)
  4288.     rec=rec+transval(campo(4),12)
  4289.     rec=rec+transval(campo(11),12)
  4290.     rec=rec+replic(" ",11)+chr(13)+chr(10)    
  4291.     =FWRITE(FileHandle,rec)
  4292.     _tranm=_tranm+1
  4293.     _trdec=_trdec+1
  4294.     _trfic=_trfic+1
  4295.     * 12
  4296.  Registo
  4297.     rec="12"
  4298.     rec=rec+"3"    
  4299.     rec=rec+transval(campo(64),12)
  4300.     rec=rec+"0"
  4301.     rec=rec+"2"
  4302.     rec=rec+transval(0,12)
  4303.     rec=rec+replic(" ",105)+chr(13)+chr(10)    
  4304.     =FWRITE(FileHandle,rec)
  4305.     _tranm=_tranm+1
  4306.     _trdec=_trdec+1
  4307.     _trfic=_trfic+1
  4308.     * 32
  4309.  Registo (Novo a partor de 2010)
  4310.     Rec="32"
  4311.     rec=rec+"2" 
  4312.     rec=rec+transval(campo(12),12)
  4313.     rec=rec+transval(campo(14),12)
  4314.     rec=rec+transval(campo(15),12)
  4315.     rec=rec+transval(campo(16),12)
  4316.     rec=rec+transval(campo(13),12)
  4317.     rec=rec+transval(campo(17),12)
  4318.     rec=rec+replic(" ",59)+chr(13)+chr(10)    
  4319.     =FWRITE(FileHandle,rec)
  4320.     _triva=_triva+1
  4321.     _trdec=_trdec+1
  4322.     _trfic=_trfic+1
  4323.     * 33
  4324.  Registo (Novo a partir de 2010)
  4325.     Rec="33"
  4326.     rec=rec+"2" 
  4327.     rec=rec+transval(campo(65),12)
  4328.     rec=rec+transval(campo(66),12)
  4329.     rec=rec+transval(campo(67),12)
  4330.     rec=rec+transval(campo(68),12)
  4331.     rec=rec+transval(campo(69),12)
  4332.     rec=rec+transval(campo(70),12)
  4333.     rec=rec+transval(campo(71),12)
  4334.     rec=rec+transval(campo(72),12)
  4335.     rec=rec+transval(campo(73),12)
  4336.     rec=rec+replic(" ",23)+chr(13)+chr(10)    
  4337.     =FWRITE(FileHandle,rec)
  4338.     _triva=_triva+1
  4339.     _trdec=_trdec+1
  4340.     _trfic=_trfic+1
  4341.     * 13
  4342.  Registo
  4343.     rec="13"
  4344.     rec=rec+"3"
  4345.     rec=REC+TRANSF(_TRANM, "@L 999")
  4346.     rec=rec+transval(campo(62)+campo(63)+campo(64),13)        
  4347.     rec=rec+replic(" ",115)+chr(13)+chr(10)    
  4348.     =FWRITE(FileHandle,rec)
  4349.     _trdec=_trdec+1
  4350.     _trfic=_trfic+1    
  4351.     wait clear
  4352. Endif
  4353. *------------------------------------------------------------------- Anexo intracomunitarios
  4354. If _cintrac=1
  4355.     Wait window "Aguarde apuramento do anexo opera
  4356. es intracomunitarias" nowait
  4357.     c020a1_f.preptransintra
  4358.     * 20
  4359.  Registo
  4360.     rec="20"
  4361.     rec=rec+p_nif
  4362.     rec=rec+transf(p_anoproc, "@l 9999")    
  4363.     if _cmensal=1
  4364.         rec=rec+transf(month(_cperiods), "@l 99")+" "
  4365.     else
  4366.         rec=rec+transf(month(_cperiods), "@l 99")+"T"
  4367.     Endif
  4368.     rec=rec+replic(" ",116)+chr(13)+chr(10)    
  4369.     =FWRITE(FileHandle,rec)
  4370.     _trdec=_trdec+1
  4371.     _trfic=_trfic+1
  4372.     select opintra
  4373.  *   brow
  4374.     _nrreg=reccount()
  4375.     * 21
  4376.  Registo
  4377.     tottrans=0
  4378.     For i=1 to _nrreg    
  4379.     rec="21"
  4380.     rec=rec+transf(i, "@l 99999")
  4381.     rec=rec+alltrim(opintra._prefixo)
  4382.     rec=rec+PADL(opintra._nif, 12, ' ')
  4383.     rec=rec+transval(round(opintra._valor,0),13,1)
  4384.     rec=rec+"1"
  4385.     tottrans=tottrans+round(opintra._valor,0)
  4386.     rec=rec+replic(" ",99)+chr(13)+chr(10)    
  4387.     =FWRITE(FileHandle,rec)
  4388.     _trdec=_trdec+1
  4389.     _trfic=_trfic+1
  4390.     _trani=_trani+1
  4391.       skip
  4392.       Next i
  4393.     * 22
  4394.  Registo
  4395.     rec="22"
  4396.     rec=rec+transf(_trani, "@l 99999")
  4397.     rec=rec+transval(tottrans,13,1)
  4398.     rec=rec+transval(0,13,1)
  4399.     rec=rec+replic(" ",101)+chr(13)+chr(10)    
  4400.     =FWRITE(FileHandle,rec)
  4401.     _trdec=_trdec+1
  4402.     _trfic=_trfic+1
  4403. Endif
  4404. *------------------------------------------------------------------- Anexo Clientes
  4405. IF _nrrelcli!=0
  4406.     c020a1_f.veperiodo_anexo
  4407.     FOR nanexo=1 TO _nrrelcli
  4408.         c020a1_f.anexoclientes_prepare(nanexo)
  4409.         c020a1_f.anexoclientes_filecreate
  4410.         IF _nrrelcli = 5
  4411.             EXIT
  4412.         ENDIF
  4413.     Next nanexo
  4414. ENDIF
  4415. *------------------------------------------------------------------- Anexo fornecedor
  4416. IF _nrrelfor!=0
  4417.     c020a1_f.veperiodo_anexo
  4418.     FOR nanexo=1 TO _nrrelfor
  4419.         c020a1_f.anexofornecedores_prepare(nanexo)
  4420.         c020a1_f.anexofornecedores_filecreate
  4421.         IF _nrrelfor = 5
  4422.             EXIT
  4423.         ENDIF
  4424.     Next nanexo
  4425. ENDIF
  4426. *------------------------------------------------------------------- Anexo Regulariza
  4427. IF _nrrelsuj!=0
  4428.     c020a1_f.veperiodo_anexo
  4429.     FOR nanexo=1 TO _nrrelsuj
  4430.         c020a1_f.anexosujeitos_prepare(nanexo)
  4431.         c020a1_f.anexosujeitos_filecreate
  4432.         IF _nrrelsuj=5
  4433.             EXIT
  4434.         endif
  4435.     Next nanexo
  4436. ENDIF
  4437. *------------------------------------------------------------------- Anexo do campo 40
  4438. _tranexo40=0
  4439. _tr61=0
  4440. _tr62=0
  4441. _tr63=0
  4442. _tr64=0
  4443. _tr65=0
  4444. _tr66=0
  4445. _tr67=0
  4446. _tr68=0
  4447. _tr96=0
  4448. STORE 0 TO base68_1, base68_2, base68_3, iva68_1, iva68_2, iva68_3
  4449. IF !EMPTY(campo(40)) AND MESSAGEBOX("Existem valores no campo 40, pretende gerar os registos do anexo",4+32,"")=6
  4450.     thisform.prepanexo40
  4451.     IF RECCOUNT("cs_anexo")!=0
  4452.         GO top
  4453.         rec="60"
  4454.         rec=rec+alltrim(str(p_anoproc))
  4455.         if _cmensal=1
  4456.             rec=rec+transf(month(_cperiods), "@l 99")+" "
  4457.         else
  4458.             rec=rec+transf(month(_cperiods), "@l 99")+"T" 
  4459.         Endif
  4460.         rec=rec+TRANSFORM(p_nif, "@l 999999999")
  4461.         rec=rec+replic(" ",116)+chr(13)+chr(10)    
  4462.         =FWRITE(FileHandle,rec)
  4463.         _trdec=_trdec+1
  4464.         _trfic=_trfic+1
  4465.         DO WHILE !EOF()
  4466.             DO case
  4467.                 CASE between(cs_anexo.camporeg,4001 , 4003)
  4468.                     _tr61=_tr61+1                    
  4469.                     rec="61"
  4470.                     rec=rec+TRANSFORM(_tr61, "@l 99999")    
  4471.                     DO case
  4472.                         CASE cs_anexo.camporeg=4001
  4473.                             rec=rec+"01"
  4474.                         CASE cs_anexo.camporeg=4002    
  4475.                             rec=rec+"02"
  4476.                         CASE cs_anexo.camporeg=4003    
  4477.                             rec=rec+"04"
  4478.                     ENDCASE
  4479.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4480.                     rec=rec+transval(cs_anexo.base,12)
  4481.                     rec=rec+transval(cs_anexo.iva,12)        
  4482.                     
  4483.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4484.                     =FWRITE(FileHandle,rec)
  4485.                     _trdec=_trdec+1
  4486.                     _trfic=_trfic+1
  4487.                     _tranexo40=_tranexo40+1    
  4488.                                     
  4489.                 CASE between(cs_anexo.camporeg,4004 , 4007)
  4490.                     _tr62=_tr62+1
  4491.                     rec="62"
  4492.                     rec=rec+TRANSFORM(_tr62, "@l 99999")    
  4493.                     DO case
  4494.                         CASE cs_anexo.camporeg=4004
  4495.                             rec=rec+"05"
  4496.                         CASE cs_anexo.camporeg=4005    
  4497.                             rec=rec+"06"
  4498.                         CASE cs_anexo.camporeg=4006    
  4499.                             rec=rec+"07"
  4500.                         CASE cs_anexo.camporeg=4007    
  4501.                             rec=rec+"08"    
  4502.                     ENDCASE
  4503.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4504.                     rec=rec+transval(cs_anexo.base,12)
  4505.                     rec=rec+transval(cs_anexo.iva,12)        
  4506.                     
  4507.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4508.                     =FWRITE(FileHandle,rec)
  4509.                     _trdec=_trdec+1
  4510.                     _trfic=_trfic+1
  4511.                     _tranexo40=_tranexo40+1
  4512.                 CASE between(cs_anexo.camporeg,4008 , 4011)
  4513.                     _tr63=_tr63+1
  4514.                     rec="63"
  4515.                     rec=rec+TRANSFORM(_tr63, "@l 99999")    
  4516.                     DO case
  4517.                         CASE cs_anexo.camporeg=4008
  4518.                             rec=rec+"05"
  4519.                         CASE cs_anexo.camporeg=4009    
  4520.                             rec=rec+"06"
  4521.                         CASE cs_anexo.camporeg=4010    
  4522.                             rec=rec+"07"
  4523.                         CASE cs_anexo.camporeg=4011    
  4524.                             rec=rec+"08"    
  4525.                     ENDCASE
  4526.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4527.                     rec=rec+transval(cs_anexo.base,12)
  4528.                     rec=rec+transval(cs_anexo.iva,12)        
  4529.                     
  4530.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4531.                     =FWRITE(FileHandle,rec)
  4532.                     _trdec=_trdec+1
  4533.                     _trfic=_trfic+1
  4534.                     _tranexo40=_tranexo40+1
  4535.                 CASE between(cs_anexo.camporeg,4012 , 4015)
  4536.                     _tr64=_tr64+1
  4537.                     rec="64"    
  4538.                     
  4539.                     rec=rec+TRANSFORM(_tr64, "@l 99999")    
  4540.                     DO case
  4541.                         CASE cs_anexo.camporeg=4012
  4542.                             rec=rec+"09"
  4543.                         CASE cs_anexo.camporeg=4013    
  4544.                             rec=rec+"10"
  4545.                         CASE cs_anexo.camporeg=4014    
  4546.                             rec=rec+"11"
  4547.                         CASE cs_anexo.camporeg=4015    
  4548.                             rec=rec+"12"    
  4549.                     ENDCASE
  4550.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4551.                     rec=rec+transval(cs_anexo.base,12)
  4552.                     rec=rec+transval(cs_anexo.iva,12)        
  4553.                     
  4554.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4555.                     =FWRITE(FileHandle,rec)
  4556.                     _trdec=_trdec+1
  4557.                     _trfic=_trfic+1
  4558.                     _tranexo40=_tranexo40+1
  4559.                 CASE between(cs_anexo.camporeg,4016 , 4019)
  4560.                     _tr65=_tr65+1
  4561.                     rec="65"    
  4562.                     rec=rec+TRANSFORM(_tr65, "@l 99999")    
  4563.                     DO case
  4564.                         CASE cs_anexo.camporeg=4016
  4565.                             rec=rec+"15"
  4566.                         CASE cs_anexo.camporeg=4017    
  4567.                             rec=rec+"16"
  4568.                         CASE cs_anexo.camporeg=4018    
  4569.                             rec=rec+"17"
  4570.                         CASE cs_anexo.camporeg=4019    
  4571.                             rec=rec+"18"    
  4572.                     ENDCASE
  4573.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4574.                     rec=rec+transval(cs_anexo.base,12)
  4575.                     rec=rec+transval(cs_anexo.iva,12)        
  4576.                     
  4577.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4578.                     =FWRITE(FileHandle,rec)
  4579.                     _trdec=_trdec+1
  4580.                     _trfic=_trfic+1
  4581.                     _tranexo40=_tranexo40+1
  4582.                 CASE cs_anexo.camporeg = 4020
  4583.                     _tr66=_tr66+1
  4584.                     rec="66"
  4585.                     
  4586.                     rec=rec+TRANSFORM(_tr66, "@l 99999")    
  4587.                     rec=rec+"14"    
  4588.                     
  4589.                     rec=rec+transval(0,13)
  4590.                     rec=rec+transval(cs_anexo.iva,12)        
  4591.                     
  4592.                     rec=rec+replic(" ",100)+chr(13)+chr(10)    
  4593.                     =FWRITE(FileHandle,rec)
  4594.                     _trdec=_trdec+1
  4595.                     _trfic=_trfic+1
  4596.                     _tranexo40=_tranexo40+1
  4597.                     
  4598.                     
  4599.                 CASE cs_anexo.camporeg = 4021
  4600.                     _tr67=_tr67+1
  4601.                     rec="67"
  4602.                     rec=rec+TRANSFORM(_tr66, "@l 99999")    
  4603.                     rec=rec+"19"    
  4604.                     
  4605.                     rec=rec+transval(0,13)
  4606.                     rec=rec+transval(cs_anexo.iva,12)        
  4607.                     
  4608.                     rec=rec+replic(" ",100)+chr(13)+chr(10)    
  4609.                     =FWRITE(FileHandle,rec)
  4610.                     _trdec=_trdec+1
  4611.                     _trfic=_trfic+1
  4612.                     _tranexo40=_tranexo40+1
  4613.                 CASE between(cs_anexo.camporeg,4022 , 4024)
  4614.                     
  4615.                     IF cs_anexo.camporeg=4022
  4616.                         base68_1=base68_1+cs_anexo.base
  4617.                         iva68_1=iva68_1+cs_anexo.iva
  4618.                     ENDIF
  4619.                     
  4620.                     IF cs_anexo.camporeg=4023
  4621.                         base68_2=base68_2+cs_anexo.base
  4622.                         iva68_2=iva68_2+cs_anexo.iva
  4623.                     ENDIF    
  4624.                     
  4625.                     IF cs_anexo.camporeg=4024
  4626.                         base68_3=base68_3+cs_anexo.base
  4627.                         iva68_3=iva68_3+cs_anexo.iva
  4628.                     ENDIF
  4629.                             
  4630.             ENDCASE
  4631.             skip        
  4632.             LOOP
  4633.         ENDDO
  4634.     *---------- registo 68 
  4635.     rec="68"
  4636.     rec=rec+transval(base68_1,12)
  4637.     rec=rec+transval(iva68_1,12)
  4638.     rec=rec+transval(base68_2,12)
  4639.     rec=rec+transval(iva68_2,12)
  4640.     rec=rec+transval(base68_3,12)
  4641.     rec=rec+transval(iva68_3,12)
  4642.     rec=rec+transval(campo(40),12)
  4643.     rec=rec+replic(" ",48)+chr(13)+chr(10)    
  4644.     =FWRITE(FileHandle,rec)
  4645.     _trdec=_trdec+1
  4646.     _trfic=_trfic+1
  4647.     _tranexo40=_tranexo40+1
  4648.     *---------- Trailer do anexo 40
  4649.     rec="69"
  4650.     rec=rec+TRANSFORM(_tr61, "@l 99999")
  4651.     rec=rec+TRANSFORM(_tr62, "@l 99999")
  4652.     rec=rec+TRANSFORM(_tr63, "@l 99999")
  4653.     rec=rec+TRANSFORM(_tr64, "@l 99999")
  4654.     rec=rec+TRANSFORM(_tr65, "@l 99999")
  4655.     rec=rec+TRANSFORM(_tr66, "@l 99999")
  4656.     rec=rec+TRANSFORM(_tr67, "@l 99999")
  4657.     rec=rec+TRANSFORM(_tr68, "@l 99999")
  4658.     rec=rec+TRANSFORM(_tr96, "@l 99999")
  4659.     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4660.     =FWRITE(FileHandle,rec)
  4661.     _trdec=_trdec+1
  4662.     _trfic=_trfic+1
  4663.     ENDIF
  4664. ENDIF
  4665. *------------------------------------------------------------------- Anexo 41
  4666. _tranexo41=0
  4667. _tr81=0
  4668. _tr82=0
  4669. _tr83=0
  4670. _tr84=0
  4671. _tr85=0
  4672. _tr86=0
  4673. _tr87=0
  4674. STORE 0 TO base87_1, base87_2, iva87_1, iva87_2
  4675. IF !EMPTY(campo(41)) AND MESSAGEBOX("Existem valores no campo 41, pretende gerar os registos do anexo",4+32,"")=6
  4676.     thisform.prepanexo41
  4677.     IF RECCOUNT("cs_anexo")!=0
  4678.         GO top
  4679.         rec="80"
  4680.         rec=rec+alltrim(str(p_anoproc))
  4681.         if _cmensal=1
  4682.             rec=rec+transf(month(_cperiods), "@l 99")+" "
  4683.         else
  4684.             rec=rec+transf(month(_cperiods), "@l 99")+"T" 
  4685.         Endif
  4686.         rec=rec+TRANSFORM(p_nif, "@l 999999999")
  4687.         rec=rec+replic(" ",116)+chr(13)+chr(10)    
  4688.         =FWRITE(FileHandle,rec)
  4689.         _trdec=_trdec+1
  4690.         _trfic=_trfic+1
  4691.         DO WHILE !EOF()
  4692.             DO case
  4693.                 CASE between(cs_anexo.camporeg,4101 , 4103)
  4694.                     _tr81=_tr81+1                    
  4695.                     rec="81"
  4696.                     rec=rec+TRANSFORM(_tr81, "@l 99999")    
  4697.                     DO case
  4698.                         CASE cs_anexo.camporeg=4101
  4699.                             rec=rec+"02"
  4700.                         CASE cs_anexo.camporeg=4102    
  4701.                             rec=rec+"03"
  4702.                         CASE cs_anexo.camporeg=4103    
  4703.                             rec=rec+"04"
  4704.                     ENDCASE
  4705.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4706.                     rec=rec+transval(cs_anexo.base,12)
  4707.                     rec=rec+transval(cs_anexo.iva,12)        
  4708.                     
  4709.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4710.                     =FWRITE(FileHandle,rec)
  4711.                     _trdec=_trdec+1
  4712.                     _trfic=_trfic+1
  4713.                     _tranexo41=_tranexo41+1        
  4714.                     
  4715.                 CASE between(cs_anexo.camporeg,4104 , 4107)
  4716.                     _tr82=_tr82+1                    
  4717.                     rec="82"
  4718.                     rec=rec+TRANSFORM(_tr82, "@l 99999")    
  4719.                     DO case
  4720.                         CASE cs_anexo.camporeg=4104
  4721.                             rec=rec+"05"
  4722.                         CASE cs_anexo.camporeg=4105    
  4723.                             rec=rec+"06"
  4724.                         CASE cs_anexo.camporeg=4106    
  4725.                             rec=rec+"07"
  4726.                         CASE cs_anexo.camporeg=4107    
  4727.                             rec=rec+"08"    
  4728.                             
  4729.                     ENDCASE
  4730.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4731.                     rec=rec+transval(cs_anexo.base,12)
  4732.                     rec=rec+transval(cs_anexo.iva,12)        
  4733.                     
  4734.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4735.                     =FWRITE(FileHandle,rec)
  4736.                     _trdec=_trdec+1
  4737.                     _trfic=_trfic+1
  4738.                     _tranexo41=_tranexo41+1    
  4739.                     
  4740.                 CASE cs_anexo.camporeg=4108
  4741.                     _tr83=_tr83+1                    
  4742.                     rec="83"
  4743.                     rec=rec+TRANSFORM(_tr83, "@l 99999")    
  4744.                     rec=rec+"11"    
  4745.                                         
  4746.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4747.                     rec=rec+transval(cs_anexo.base,12)
  4748.                     rec=rec+transval(cs_anexo.iva,12)        
  4749.                     
  4750.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4751.                     =FWRITE(FileHandle,rec)
  4752.                     _trdec=_trdec+1
  4753.                     _trfic=_trfic+1
  4754.                     _tranexo41=_tranexo41+1
  4755.                 CASE cs_anexo.camporeg=4109
  4756.                     _tr84=_tr84+1                    
  4757.                     rec="84"
  4758.                     rec=rec+TRANSFORM(_tr84, "@l 99999")    
  4759.                     rec=rec+"13"    
  4760.                                         
  4761.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4762.                     rec=rec+transval(cs_anexo.base,12)
  4763.                     rec=rec+transval(cs_anexo.iva,12)        
  4764.                     
  4765.                     rec=rec+replic(" ",92)+chr(13)+chr(10)    
  4766.                     =FWRITE(FileHandle,rec)
  4767.                     _trdec=_trdec+1
  4768.                     _trfic=_trfic+1
  4769.                     _tranexo41=_tranexo41+1
  4770.                 CASE cs_anexo.camporeg=4110
  4771.                     _tr85=_tr85+1                    
  4772.                     rec="85"
  4773.                     rec=rec+TRANSFORM(_tr85, "@l 99999")    
  4774.                     rec=rec+"20"    
  4775.                                         
  4776.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4777.                     rec=rec+transval(0,13)
  4778.                     rec=rec+transval(cs_anexo.iva,12)        
  4779.                     
  4780.                     rec=rec+replic(" ",91)+chr(13)+chr(10)    
  4781.                     =FWRITE(FileHandle,rec)
  4782.                     _trdec=_trdec+1
  4783.                     _trfic=_trfic+1
  4784.                     _tranexo41=_tranexo41+1
  4785.                 CASE cs_anexo.camporeg=4111
  4786.                     _tr86=_tr86+1                    
  4787.                     rec="86"
  4788.                     rec=rec+TRANSFORM(_tr86, "@l 99999")    
  4789.                     rec=rec+"21"    
  4790.                                         
  4791.                     rec=rec+TRANSFORM(cs_anexo.nif, "@l 999999999")                
  4792.                     rec=rec+transval(0,13)
  4793.                     rec=rec+transval(cs_anexo.base,12)        
  4794.                     rec=rec+transval(cs_anexo.iva,12)        
  4795.                     
  4796.                     rec=rec+replic(" ",79)+chr(13)+chr(10)    
  4797.                     =FWRITE(FileHandle,rec)
  4798.                     _trdec=_trdec+1
  4799.                     _trfic=_trfic+1
  4800.                     _tranexo41=_tranexo41+1
  4801.                 CASE cs_anexo.camporeg=4112 or cs_anexo.camporeg=4113
  4802.                      IF cs_anexo.camporeg=4112
  4803.                         base87_1=base87_1+cs_anexo.base
  4804.                         iva87_1=iva87_1+cs_anexo.iva
  4805.                     ENDIF
  4806.                     
  4807.                     IF cs_anexo.camporeg=4113
  4808.                         base87_2=base87_2+cs_anexo.base
  4809.                         iva87_2=iva87_2+cs_anexo.iva
  4810.                     ENDIF    
  4811.             ENDCASE
  4812.                         
  4813.             SKIP
  4814.             LOOP
  4815.         ENDDO
  4816.         *---------- registo 87 
  4817.         rec="87"
  4818.         rec=rec+transval(base87_1,12)
  4819.         rec=rec+transval(iva87_1,12)
  4820.         rec=rec+transval(base87_2,12)
  4821.         rec=rec+transval(iva87_2,12)
  4822.         rec=rec+transval(campo(41),12)
  4823.         rec=rec+replic(" ",72)+chr(13)+chr(10)    
  4824.         =FWRITE(FileHandle,rec)
  4825.         _trdec=_trdec+1
  4826.         _trfic=_trfic+1
  4827.         _tranexo41=_tranexo41+1
  4828.         *---------- Trailer do anexo 41
  4829.         rec="89"
  4830.         rec=rec+TRANSFORM(_tr81, "@l 99999")
  4831.         rec=rec+TRANSFORM(_tr82, "@l 99999")
  4832.         rec=rec+TRANSFORM(_tr83, "@l 99999")
  4833.         rec=rec+TRANSFORM(_tr84, "@l 99999")
  4834.         rec=rec+TRANSFORM(_tr85, "@l 99999")
  4835.         rec=rec+TRANSFORM(_tr86, "@l 99999")
  4836.         rec=rec+replic(" ",102)+chr(13)+chr(10)    
  4837.         =FWRITE(FileHandle,rec)
  4838.         _trdec=_trdec+1
  4839.         _trfic=_trfic+1
  4840.     ENDIF
  4841. ENDIF
  4842. *------------------------------------------------------------------- Fim do ficheiro
  4843.  Registo
  4844. rec="98"
  4845. rec=rec+transf(_trdec, "@l 999999999")
  4846. rec=rec+replic(" ",123)+chr(13)+chr(10)    
  4847. _trfic=_trfic+1
  4848. =FWRITE(FileHandle,rec)
  4849.  Registo
  4850. rec="99"
  4851. rec=rec+transf(_trfic, "@l 999999999")
  4852. rec=rec+replic(" ",123)+chr(13)+chr(10)    
  4853. =FWRITE(FileHandle,rec)
  4854. *--------------------------------
  4855. =fclose(filehandle)
  4856. =Messagebox("Cria
  4857. o do Ficheiro efectuada ..",0+64,"")
  4858. ENDPROC
  4859. PROCEDURE mes_sup_doze
  4860. LPARAMETERS _id
  4861. LOCAL lcret, lctrab
  4862. lcret = ""
  4863. lctrab = SUBSTR(_id, 6, 2)
  4864. IF VAL(lctrab) > 12
  4865.     lcret = STUFF(_id,6, 5, "12-31")
  4866.     lcret = _id
  4867. ENDIF
  4868. RETURN lcret
  4869. ENDPROC
  4870. PROCEDURE tipo
  4871. LPARAMETERS _conta, _tipo
  4872. LOCAL lctipo, lcret
  4873. lctipo = UPPER(_tipo)
  4874. lcret = ""
  4875. lcret = iif(LEFT(_conta, 1) = "9", "A", "G") + IIF(lctipo = "I", "A", lctipo)
  4876. RETURN lcret
  4877. ENDPROC
  4878. PROCEDURE nif_sem_pais
  4879. LPARAMETERS _nif
  4880. LOCAL lcnif, lcret
  4881. IF EMPTY(_nif)
  4882. *    lcret = SPACE(16)
  4883.     lcret = "Desconhecido"
  4884.     lcnif = ALLTRIM(_nif)
  4885.     lcret = IIF(ISALPHA(LEFT(lcnif, 1)), ALLTRIM(SUBSTR(lcnif, 3)), ALLTRIM(lcnif))
  4886. ENDIF
  4887. return lcret
  4888. ENDPROC
  4889. PROCEDURE get_pais_do_nif
  4890. LPARAMETERS _nif
  4891. LOCAL lcnif, lcret
  4892. *lcret = "Desconhecido"
  4893. lcret = "PT"
  4894. IF !EMPTY(_nif)
  4895.     lcnif = ALLTRIM(_nif)
  4896.     IF UPPER(lcnif) = "DESCONHECIDO"
  4897.         lcret = "Desconhecido"
  4898.     ELSE
  4899.         IF ISALPHA(LEFT(lcnif, 1))
  4900.             lcret = UPPER(SUBSTR(lcnif, 1, 2))
  4901.         ENDIF
  4902.     ENDIF
  4903. ENDIF
  4904. RETURN lcret
  4905. ENDPROC
  4906. PROCEDURE prepanexo40
  4907. if _cmensal=1
  4908.     _mes_i=MONTH(_cperiods)
  4909.     _mes_s=MONTH(_cperiods)
  4910.     _mes_i=MONTH(_cperiods)-2
  4911.     _mes_s=MONTH(_cperiods)
  4912. Endif
  4913. *!*    IF p_riva=1   
  4914. *!*      _MES=val(left(ThisForm.Cbmes.value,2))
  4915. *!*      Periodo=val(left(ThisForm.Cbmes.value,2))
  4916. *!*      _MES_S=_MES
  4917. *!*      _MES_I=_MES
  4918. *!*    ELSE 
  4919. *!*      _MES_S=val(left(ThisForm.Cbtrimestre.value,1))*3  
  4920. *!*      _MES_I=(_MES_S-3)+1
  4921. *!*      Periodo=val(left(ThisForm.Cbtrimestre.value,1))
  4922. *!*    ENDIF
  4923. *!*    data_inf=CTOD('01'+'/'+str(_mes_i)+'/'+right(str(p_anoproc),2))
  4924. *!*    data_sup=ldom(CTOD('01'+'/'+str(_mes_s)+'/'+right(str(p_anoproc),2)))
  4925. *-------------------------------------------------------------------------------------------------
  4926. *!*    SET ENGINEBEHAVIOR 70
  4927. *!*    SELECT 0
  4928. *!*    USE ..\dados\contab\l00313 ALIAS lanca
  4929. *!*    SET ORDER TO key_3
  4930. *-------------------------------------------------
  4931. SELECT LANCA
  4932. SET ORDER TO KEY_3
  4933. LOCAL lnmes_ini, lnmes_fim, lntotal_base, lntotal_iva, lnanexo
  4934. lnmes_ini = _mes_i
  4935. lnmes_fim = _mes_s
  4936. *WAIT WINDOW STR(_mes_i)+"   "+STR(_mes_s)
  4937. lnanexo = 40
  4938. lntotal_base = 0.00
  4939. lntotal_iva = 0.00
  4940. * lista dos nifs usados em cada documento
  4941. SELECT l_mes as mes, ;
  4942.        l_dia as dia, ;
  4943.        l_diario as diario, ;
  4944.        l_docu as docu, ;
  4945.        l_camporeg as camporeg, ;
  4946.        l_nif as nif ;
  4947.        FROM lanca ;
  4948.        WHERE !EMPTY(l_nif) AND ;
  4949.                 BETWEEN(l_mes, lnmes_ini, lnmes_fim) AND ;
  4950.                 BETWEEN(l_camporeg, lnanexo*100, lnanexo*100+99) ;
  4951.        GROUP BY mes, dia, diario, docu, camporeg, nif ;
  4952.        INTO CURSOR cs_nifs
  4953. * lista indicativa da posi
  4954. o da conta 2434 em cada documento(D ou C)
  4955. SELECT l_mes as mes, ;
  4956.        l_dia as dia, ;
  4957.        l_diario as diario, ;
  4958.        l_docu as docu, ;
  4959.        l_camporeg as camporeg, ;
  4960.        IIF(LEFT(l_contad, 4) = "2434", "D", "C") as conta_iva ;
  4961.        FROM lanca ;
  4962.        WHERE (LEFT(l_contad, 4) = "2434" OR LEFT(l_contac, 4) = "2434") AND ;
  4963.                 BETWEEN(l_mes, lnmes_ini, lnmes_fim) AND ;
  4964.                 BETWEEN(l_camporeg, lnanexo*100, lnanexo*100+99) ;
  4965.        GROUP BY mes, dia, diario, docu, camporeg ;
  4966.        INTO CURSOR cs_contaiva
  4967. * lista composta dos documentos com o nif e a posi
  4968. o da contade iva.(inclui os nif's vazios)
  4969. SELECT a.l_mes as mes, ;
  4970.        a.l_dia as dia, ;
  4971.        a.l_diario as diario, ;
  4972.        a.l_docu as docu, ;
  4973.        a.l_camporeg as camporeg, ;
  4974.        c.conta_iva as conta_iva, ;
  4975.        IIF(ISNULL(b.nif), SPACE(16), PADL(b.nif, 16, " ")) as nif ;
  4976.        FROM lanca a LEFT OUTER JOIN cs_nifs b ON a.l_mes = b.mes AND a.l_dia = b.dia AND ;
  4977.                a.l_diario = b.diario AND a.l_docu = b.docu AND a.l_camporeg = b.camporeg ;
  4978.                LEFT OUTER JOIN cs_contaiva c ON a.l_mes = c.mes AND a.l_dia = c.dia AND ;
  4979.                a.l_diario = c.diario AND a.l_docu = c.docu AND a.l_camporeg = c.camporeg ;
  4980.        WHERE BETWEEN(a.l_mes, lnmes_ini, lnmes_fim) AND ;
  4981.                 BETWEEN(a.l_camporeg, lnanexo*100, lnanexo*100+99) ;
  4982.        GROUP BY a.l_mes, a.l_dia, a.l_diario, a.l_docu, a.l_camporeg ;
  4983.        INTO CURSOR cs_docs
  4984. SELECT cs_nifs
  4985. SELECT cs_contaiva
  4986. * Lista com valores de incidencia e iva
  4987. SELECT a.camporeg as camporeg, ;
  4988.        VAL(a.nif) as nif, ;
  4989.        sum(IIF(pos_iva(a.conta_iva, b.l_contad, b.l_contac, "N"), l_valor, 0.00)) as base, ;
  4990.        sum(IIF(pos_iva(a.conta_iva, b.l_contad, b.l_contac, "S"), l_valor, 0.00)) as iva ;
  4991.        FROM cs_docs a, lanca b ;
  4992.        where a.mes = b.l_mes AND ;
  4993.                 a.dia = b.l_dia AND ;
  4994.              a.diario = b.l_diario AND ;
  4995.              a.docu = b.l_docu AND ;
  4996.              a.camporeg = b.l_camporeg ;
  4997.        GROUP BY camporeg, nif ;
  4998.        into cursor cs_anexo
  4999. SELECT cs_docs
  5000. SELECT cs_anexo
  5001. GO top
  5002. CALCULATE sum(base), sum(iva) ALL TO lntotal_base, lntotal_iva
  5003. GO top
  5004. *BROWSE
  5005. ENDPROC
  5006. PROCEDURE prepanexo41
  5007. if _cmensal=1
  5008.     _mes_i=MONTH(_cperiods)
  5009.     _mes_s=MONTH(_cperiods)
  5010.     _mes_i=MONTH(_cperiods)-2
  5011.     _mes_s=MONTH(_cperiods)
  5012. Endif
  5013. *!*    IF p_riva=1   
  5014. *!*      _MES=val(left(ThisForm.Cbmes.value,2))
  5015. *!*      Periodo=val(left(ThisForm.Cbmes.value,2))
  5016. *!*      _MES_S=_MES
  5017. *!*      _MES_I=_MES
  5018. *!*    ELSE 
  5019. *!*      _MES_S=val(left(ThisForm.Cbtrimestre.value,1))*3  
  5020. *!*      _MES_I=(_MES_S-3)+1
  5021. *!*      Periodo=val(left(ThisForm.Cbtrimestre.value,1))
  5022. *!*    ENDIF
  5023. *!*    data_inf=CTOD('01'+'/'+str(_mes_i)+'/'+right(str(p_anoproc),2))
  5024. *!*    data_sup=ldom(CTOD('01'+'/'+str(_mes_s)+'/'+right(str(p_anoproc),2)))
  5025. *-------------------------------------------------------------------------------------------------
  5026. *!*    SET ENGINEBEHAVIOR 70
  5027. *!*    SELECT 0
  5028. *!*    USE ..\dados\contab\l00313 ALIAS lanca
  5029. *!*    SET ORDER TO key_3
  5030. *-------------------------------------------------
  5031. SELECT LANCA
  5032. SET ORDER TO KEY_3
  5033. LOCAL lnmes_ini, lnmes_fim, lntotal_base, lntotal_iva, lnanexo
  5034. lnmes_ini = _mes_i
  5035. lnmes_fim = _mes_s
  5036. *WAIT WINDOW STR(_mes_i)+"   "+STR(_mes_s)
  5037. lnanexo = 41
  5038. lntotal_base = 0.00
  5039. lntotal_iva = 0.00
  5040. * lista dos nifs usados em cada documento
  5041. SELECT l_mes as mes, ;
  5042.        l_dia as dia, ;
  5043.        l_diario as diario, ;
  5044.        l_docu as docu, ;
  5045.        l_camporeg as camporeg, ;
  5046.        l_nif as nif ;
  5047.        FROM lanca ;
  5048.        WHERE !EMPTY(l_nif) AND ;
  5049.                 BETWEEN(l_mes, lnmes_ini, lnmes_fim) AND ;
  5050.                 BETWEEN(l_camporeg, lnanexo*100, lnanexo*100+99) ;
  5051.        GROUP BY mes, dia, diario, docu, camporeg, nif ;
  5052.        INTO CURSOR cs_nifs
  5053. * lista indicativa da posi
  5054. o da conta 2434 em cada documento(D ou C)
  5055. SELECT l_mes as mes, ;
  5056.        l_dia as dia, ;
  5057.        l_diario as diario, ;
  5058.        l_docu as docu, ;
  5059.        l_camporeg as camporeg, ;
  5060.        IIF(LEFT(l_contad, 4) = "2434", "D", "C") as conta_iva ;
  5061.        FROM lanca ;
  5062.        WHERE (LEFT(l_contad, 4) = "2434" OR LEFT(l_contac, 4) = "2434") AND ;
  5063.                 BETWEEN(l_mes, lnmes_ini, lnmes_fim) AND ;
  5064.                 BETWEEN(l_camporeg, lnanexo*100, lnanexo*100+99) ;
  5065.        GROUP BY mes, dia, diario, docu, camporeg ;
  5066.        INTO CURSOR cs_contaiva
  5067. * lista composta dos documentos com o nif e a posi
  5068. o da contade iva.(inclui os nif's vazios)
  5069. SELECT a.l_mes as mes, ;
  5070.        a.l_dia as dia, ;
  5071.        a.l_diario as diario, ;
  5072.        a.l_docu as docu, ;
  5073.        a.l_camporeg as camporeg, ;
  5074.        c.conta_iva as conta_iva, ;
  5075.        IIF(ISNULL(b.nif), SPACE(16), PADL(b.nif, 16, " ")) as nif ;
  5076.        FROM lanca a LEFT OUTER JOIN cs_nifs b ON a.l_mes = b.mes AND a.l_dia = b.dia AND ;
  5077.                a.l_diario = b.diario AND a.l_docu = b.docu AND a.l_camporeg = b.camporeg ;
  5078.                LEFT OUTER JOIN cs_contaiva c ON a.l_mes = c.mes AND a.l_dia = c.dia AND ;
  5079.                a.l_diario = c.diario AND a.l_docu = c.docu AND a.l_camporeg = c.camporeg ;
  5080.        WHERE BETWEEN(a.l_mes, lnmes_ini, lnmes_fim) AND ;
  5081.                 BETWEEN(a.l_camporeg, lnanexo*100, lnanexo*100+99) ;
  5082.        GROUP BY a.l_mes, a.l_dia, a.l_diario, a.l_docu, a.l_camporeg ;
  5083.        INTO CURSOR cs_docs
  5084. SELECT cs_nifs
  5085. SELECT cs_contaiva
  5086. * Lista com valores de incidencia e iva
  5087. SELECT a.camporeg as camporeg, ;
  5088.        VAL(a.nif) as nif, ;
  5089.        sum(IIF(pos_iva(a.conta_iva, b.l_contad, b.l_contac, "N"), l_valor, 0.00)) as base, ;
  5090.        sum(IIF(pos_iva(a.conta_iva, b.l_contad, b.l_contac, "S"), l_valor, 0.00)) as iva ;
  5091.        FROM cs_docs a, lanca b ;
  5092.        where a.mes = b.l_mes AND ;
  5093.                 a.dia = b.l_dia AND ;
  5094.              a.diario = b.l_diario AND ;
  5095.              a.docu = b.l_docu AND ;
  5096.              a.camporeg = b.l_camporeg ;
  5097.        GROUP BY camporeg, nif ;
  5098.        into cursor cs_anexo
  5099. SELECT cs_docs
  5100. SELECT cs_anexo
  5101. GO top
  5102. CALCULATE sum(base), sum(iva) ALL TO lntotal_base, lntotal_iva
  5103. GO top
  5104. *BROWSE
  5105. ENDPROC
  5106. PROCEDURE get_conta_do_nif_c
  5107. LPARAMETERS _nif
  5108. lcret = ""
  5109. IF xseek(ALLTRIM(_nif), "Customer_2", "key_1")
  5110.     lcret = PADR(ALLTRIM(Customer_2.conta), 16, " ")
  5111.     lcret = PADR("__C" + thisform.nif_sem_pais(nif), 16, " ")
  5112. ENDIF
  5113. RETURN lcret
  5114. ENDPROC
  5115. PROCEDURE get_conta_do_nif_f
  5116. LPARAMETERS _nif
  5117. lcret = ""
  5118. IF xseek(ALLTRIM(_nif), "Supplier_2", "key_1")
  5119.     lcret = PADR(ALLTRIM(Supplier_2.conta), 16, " ")
  5120.     lcret = PADR("__F" + thisform.nif_sem_pais(nif), 16, " ")
  5121. ENDIF
  5122. RETURN lcret
  5123. ENDPROC
  5124. PROCEDURE Unload
  5125. RELEASE _model
  5126. ENDPROC
  5127. PROCEDURE Init
  5128. LPARAMETERS model
  5129. PUBLIC _model
  5130. _model=model
  5131. this.top=-5000
  5132. ENDPROC
  5133. PROCEDURE Activate
  5134. *!*    =Messagebox("Na altura da instala
  5135. o desta vers
  5136. o do programa a estrutura do ficheiro para a M3 aida n
  5137. o tinha sido disponibilizada pela DGCI."+chr(13)+;
  5138. *!*                 "Para mais informa
  5139. es contacte o seu revendedor autorizado."+chr(13)+;
  5140. *!*                  "Sendo a QUERYPRO como 
  5141.  obvio, totalmente alheia a esta situa
  5142. o tudo far
  5143.  para ter a rotina pronta em tempo 
  5144. til.",0+64,"")
  5145. *!*    thisform.release
  5146. *!*    return
  5147. *---------------------------------------------------------
  5148. Do Case
  5149. Case _model=1
  5150.     _curdir=Set('DEFAULT') + Sys(2003)
  5151.     Thisform.cxdial.DialogTitle = "Cria
  5152. o da Modelo 3 e anexos em suporte inform
  5153. tico"
  5154.     Thisform.cxdial.Filter="Ficheiros ASCII:(*.TXT)|*.TXT"
  5155.     Thisform.cxdial.showsave
  5156.     _m3filename=Thisform.cxdial.filename
  5157.     If ! P_CANCELA
  5158.         Cd &_curdir
  5159.         Thisform.Refresh
  5160.     Else
  5161. *or lastkey()=27 or empty(_m22filename)
  5162.         P_CANCELA=.F.
  5163.         Cd &_curdir
  5164.         Thisform.Refresh
  5165.         Thisform.Release
  5166.         Return
  5167.     Endif
  5168.     Thisform.filecreate
  5169.     Thisform.Release
  5170.     Return
  5171. Case _model=2
  5172.     _curdir=Set('DEFAULT') + Sys(2003)
  5173.     Thisform.cxdial.DialogTitle = "Cria
  5174. o do Modelo 22 em suporte inform
  5175. tico"
  5176.     Thisform.cxdial.Filter="Ficheiros ASCII:(*.TXT)|*.TXT"
  5177.     thisform.cxdial.filename="M22-"+ALLTRIM(STR(p_anoproc))+"-"+alltrim(p_codemp)+".txt"
  5178.     Thisform.cxdial.showsave
  5179.     _m22filename=Thisform.cxdial.filename
  5180.     If ! P_CANCELA
  5181.         Cd &_curdir
  5182.         Thisform.Refresh
  5183.     Else
  5184. *or lastkey()=27 or empty(_m22filename)
  5185.         P_CANCELA=.F.
  5186.         Cd &_curdir
  5187.         Thisform.Refresh
  5188.         Thisform.Release
  5189.         Return
  5190.     Endif
  5191.     Thisform.filecreate1
  5192.     Thisform.Release
  5193.     Return
  5194. Case _model=3
  5195.     _curdir=Set('DEFAULT') + Sys(2003)
  5196.     Thisform.cxdial.DialogTitle = "Gera
  5197. o do Ficheiro de Auditoria v.1.02_01  (build 002)"
  5198.     Thisform.cxdial.Filter="Ficheiros XML:(*.XML)|*.XML"
  5199.     Thisform.cxdial.FILENAME="SAFT_PT_"+p_nif+"_"+ALLTRIM(STR(p_anoproc))+".xml"
  5200.     Thisform.cxdial.showsave
  5201.     _saftfilename=Thisform.cxdial.filename
  5202.     If ! P_CANCELA
  5203.         Cd &_curdir
  5204.         Thisform.Refresh
  5205.     Else
  5206.         P_CANCELA=.F.
  5207.         Cd &_curdir
  5208.         Thisform.release
  5209.         Return
  5210.     Endif
  5211.     Thisform.SaftFilecreate(_saftfilename)
  5212.     Thisform.release
  5213.     return
  5214. CASE _MODEL=4
  5215.     _curdir=Set('DEFAULT') + Sys(2003)
  5216.     Thisform.cxdial.DialogTitle = "Gera
  5217. o do Ficheiro Declara
  5218. o Periodica do Iva "
  5219.     Thisform.cxdial.Filter="Ficheiros ASCII:(*.TXT)|*.TXT"
  5220.     _pi=TRANSFORM(MONTH(_cperiodi), "@l 99")
  5221.     _ps=TRANSFORM(MONTH(_cperiods), "@l 99")
  5222.     DO CASE 
  5223.         CASE _pi=_ps
  5224.             Thisform.cxdial.FILENAME="DecIva_"+p_codemp+"_"+ALLTRIM(STR(p_anoproc))+"_"+_pi+".TXT"
  5225.         OTHERWISE
  5226.             Thisform.cxdial.FILENAME="DecIva_"+p_codemp+"_"+ALLTRIM(STR(p_anoproc))+"_"+_pi+"_"+_ps+".TXT"
  5227.     endcase
  5228.                     
  5229.     Thisform.cxdial.showsave
  5230.     _ivafilename=Thisform.cxdial.filename
  5231.     If ! P_CANCELA
  5232.         Cd &_curdir
  5233.         Thisform.Refresh
  5234.     Else
  5235.         P_CANCELA=.F.
  5236.         Cd &_curdir
  5237.         Thisform.release
  5238.         Return
  5239.     Endif
  5240.     Thisform.decivafilecreate(_ivafilename)
  5241.     Thisform.release
  5242.     return
  5243. CASE _model=5
  5244.     _curdir=Set('DEFAULT') + Sys(2003)
  5245.     Thisform.cxdial.DialogTitle = "Gera
  5246. o do Ficheiro Declara
  5247. o Recapitulativa "
  5248.     Thisform.cxdial.Filter="Ficheiros ASCII:(*.TXT)|*.TXT"
  5249.     Thisform.cxdial.FILENAME="DecRecap"+p_nif+"_"+ALLTRIM(STR(p_anoproc))+".TXT"
  5250.     Thisform.cxdial.showsave
  5251.     _decrecapfilename=Thisform.cxdial.filename
  5252.     If ! P_CANCELA
  5253.         Cd &_curdir
  5254.         Thisform.Refresh
  5255.     Else
  5256.         P_CANCELA=.F.
  5257.         Cd &_curdir
  5258.         Thisform.release
  5259.         Return
  5260.     Endif
  5261.     Thisform.decrecapfilecreate(_decrecapfilename)
  5262.     Thisform.release
  5263.     return
  5264. Endcase
  5265. ENDPROC
  5266. 001ASCII08CCCC$iZ
  5267. CCC$H
  5268. @l 99_
  5269. CCC$%
  5270. @l 99_
  5271. Mod.03
  5272. @L 9999_
  5273. @L 9999_
  5274. @l 999999999_
  5275. @L 999_
  5276. @l 999999999_
  5277. @L 999_
  5278. @L 99_
  5279. @L 99_
  5280. @L 999999999_
  5281. @L 999999999_
  5282. @L 999999999_
  5283. @L 999999999_
  5284. @L 999999999_
  5285. @L 999999999_
  5286. @L 999999999_
  5287. @L 999999999_
  5288. @L 999999999_
  5289. @L 999999999_
  5290. @L 999999999_
  5291. @L 999999999_
  5292. @L 999999999_
  5293. @L 999999999_
  5294. @L 999999999_
  5295. @L 999_
  5296. @L 999999999_
  5297. @L 999_
  5298. @L 999999999_
  5299. @L 999_
  5300. @L 999999999_
  5301. @L 999_
  5302. @L 999999999_
  5303. @L 999999999_
  5304. @L 999999999_
  5305. @L 999999999_
  5306. @L 9_
  5307. @L 99_
  5308. @l 9999_
  5309. @l 99_
  5310. @l 99_
  5311. @l 999_
  5312. @l 999999999999999_
  5313. @L 999999999_
  5314. @L 999_
  5315. @L 999999999_
  5316. @L 999_
  5317. @L 999999999_
  5318. @L 999_
  5319. @L 999999999_
  5320. @L 999_
  5321. @L 999999999_
  5322. @L 999_
  5323. @L 999999999999999999999_
  5324. @L 9_
  5325. @L 9_
  5326. @L 9_
  5327. @L 9_
  5328. @L 9_
  5329. @l 999_
  5330. @L 999999999_
  5331. @L 999999999_
  5332. @L 999999999_
  5333. @L 999999999_
  5334. 000000000
  5335. 000000000
  5336. 000000000
  5337. 000000000
  5338. 000000000
  5339. 000000000
  5340. 000000000
  5341. 000000000
  5342. 000000000
  5343. 000000000
  5344. 000000000
  5345. 000000000
  5346. 000000000000
  5347. 000000000000
  5348. 000000000000
  5349. 000000000000
  5350. 000000000000
  5351. 000000000000
  5352. 000000000000
  5353. 000000000000
  5354. 000000000000
  5355. 000000000000
  5356. 000000000000
  5357. 000000000000
  5358. 000000000000
  5359. 000000000000
  5360. 000000000000
  5361. 000000000000
  5362. 000000000000
  5363. 000000000000
  5364. 000000000000
  5365. 000000000000
  5366. 000000000000
  5367. 000000000000
  5368. 000000000000
  5369. 000000000000
  5370. 000000000000
  5371. 000000000000
  5372. 000000000000
  5373. 000000000000
  5374. 000000000000
  5375. 000000000000
  5376. 000000000000
  5377. 000000000000
  5378. 000000000000
  5379. 000000000000
  5380. 000000000000
  5381. 000000000000
  5382. 000000000000
  5383. 000000000000
  5384. 000000000000
  5385. 000000000000
  5386. 000000000000
  5387. 000000000000
  5388. 000000000000
  5389. 000000000000
  5390. 000000000000
  5391. 000000000000
  5392. 000000000000
  5393. 000000000000
  5394. @L 999_
  5395. 000000000000
  5396. 000000000000
  5397. 000000000000
  5398. 000000000000
  5399. 000000000000
  5400. 000000000000
  5401. 000000000000
  5402. 000000000000
  5403. 000000000000
  5404. 000000000000
  5405. 000000000000
  5406. 000000000000
  5407. @L 999_
  5408. 000000000000
  5409. 000000000000
  5410. 000000000000
  5411. 000000000000
  5412. 000000000000
  5413. 000000000000
  5414. 000000000000
  5415. 000000000000
  5416. 000000000000
  5417. 000000000000
  5418. 000000000000
  5419. 000000000000
  5420. 000000000000
  5421. 000000000000
  5422. 000000000000
  5423. 000000000000
  5424. 000000000000
  5425. 000000000000
  5426. 000000000000
  5427. 000000000000
  5428. 000000000000
  5429. 000000000000
  5430. 000000000000
  5431. 000000000000
  5432. 000000000000
  5433. 000000000000
  5434. 000000000000
  5435. 000000000000
  5436. 000000000000
  5437. 000000000000
  5438. 000000000000
  5439. 000000000000
  5440. 000000000000
  5441. 000000000000
  5442. 000000000000
  5443. 000000000000
  5444. 000000000000
  5445. 000000000000
  5446. 000000000000
  5447. 000000000000
  5448. 000000000000
  5449. 000000000000
  5450. 000000000000
  5451. 000000000000
  5452. 000000000000
  5453. 000000000000
  5454. 000000000000
  5455. 000000000000
  5456. 000000000000
  5457. 000000000000
  5458. 000000000000
  5459. 000000000000
  5460. 000000000000
  5461. 000000000000
  5462. 000000000000
  5463. 000000000000
  5464. 000000000000
  5465. 000000000000
  5466. 000000000000
  5467. 000000000000
  5468. 000000000000
  5469. 000000000000
  5470. 000000000000
  5471. 000000000000
  5472. 000000000000
  5473. 000000000000
  5474. 000000000000
  5475. 000000000000
  5476. 000000000000
  5477. 000000000000
  5478. 000000000000
  5479. 000000000000
  5480. 000000000000
  5481. 000000000000
  5482. 000000000000
  5483. 000000000000
  5484. 000000000000
  5485. 000000000000
  5486. 000000000000
  5487. 000000000000
  5488. 000000000000
  5489. 000000000000
  5490. 000000000000
  5491. 000000000000
  5492. 000000000000
  5493. 000000000000
  5494. 000000000000
  5495. 000000000000
  5496. 000000000000
  5497. 000000000000
  5498. 000000000000
  5499. 000000000000
  5500. 000000000000
  5501. 000000000000
  5502. 000000000000
  5503. 000000000000
  5504. 000000000000
  5505. 000000000000
  5506. 000000000000
  5507. 000000000000
  5508. 000000000000
  5509. 000000000000
  5510. 000000000000
  5511. 000000000000
  5512. 000000000000
  5513. 000000000000
  5514. 000000000000
  5515. 000000000000
  5516. 000000000000
  5517. 000000000000
  5518. 000000000000
  5519. 000000000000
  5520. 000000000000
  5521. 000000000000
  5522. 000000000000
  5523. 000000000000
  5524. 000000000000
  5525. 000000000000
  5526. 000000000000
  5527. 000000000000
  5528. 000000000000
  5529. 000000000000
  5530. 000000000000
  5531. 000000000000
  5532. 000000000000
  5533. 000000000000
  5534. 000000000000
  5535. 000000000000
  5536. 000000000000
  5537. 000000000000
  5538. 000000000000
  5539. 000000000000
  5540. 000000000000
  5541. 000000000000
  5542. 000000000000
  5543. 000000000000
  5544. 000000000000
  5545. 000000000000
  5546. 000000000000
  5547. 000000000000
  5548. 000000000000
  5549. 000000000000
  5550. 000000000000
  5551. 000000000000
  5552. 000000000000
  5553. 000000000000
  5554. 000000000000
  5555. 000000000000
  5556. 000000000000
  5557. 000000000000
  5558. 000000000000
  5559. 000000000000
  5560. 000000000000
  5561. 000000000000
  5562. 000000000000
  5563. 000000000000
  5564. 000000000000
  5565. 000000000000
  5566. 000000000000
  5567. 000000000000
  5568. 000000000000
  5569. 000000000000
  5570. 000000000000
  5571. 000000000000
  5572. 000000000000
  5573. 000000000000
  5574. 000000000000
  5575. 000000000000
  5576. 000000000000
  5577. 000000000000
  5578. 000000000000
  5579. 000000000000
  5580. 000000000000
  5581. 000000000000
  5582. 000000000000
  5583. 000000000000
  5584. 000000000000
  5585. 000000000000
  5586. 000000000000
  5587. 000000000000
  5588. 000000000000
  5589. 000000000000
  5590. 000000000000
  5591. 000000000000
  5592. 000000000000
  5593. 000000000000
  5594. 000000000000
  5595. 000000000000
  5596. 000000000000
  5597. 000000000000
  5598. 000000000000
  5599. 000000000000
  5600. 000000000000
  5601. 000000000000
  5602. 000000000000
  5603. 000000000000
  5604. 000000000000
  5605. 000000000000
  5606. 000000000000
  5607. 000000000000
  5608. 000000000000
  5609. 000000000000
  5610. 000000000000
  5611. 000000000000
  5612. 000000000000000
  5613. 000000000000000
  5614. 000000000000000
  5615. 000000000000000
  5616. 000000000000000
  5617. 000000000000000
  5618. 000000000000000
  5619. 000000000000000
  5620. 000000000000000
  5621. 000000000000000
  5622. 000000000000000
  5623. 000000000000000
  5624. @l 99999999_
  5625. @l 99999999_
  5626. @l 99999999_
  5627. @l 99999999_
  5628. @l 99999999_
  5629. @l 99999999_
  5630. @l 99999999_
  5631. @l 99999999_
  5632. 000000000000
  5633. 000000000
  5634. 000000000000
  5635. @L 9_
  5636. @L 9_
  5637. @L 9_
  5638. @L 9_
  5639. @L 999_
  5640. @L 999999999_
  5641. @L 999_
  5642. @l 999_
  5643. 000000000000000
  5644. @l 999_
  5645. @L 999999999_
  5646. @L 999999999_
  5647. @L 999999999_
  5648. @L 999999999_
  5649. @L 9999_
  5650. @L 999999999_
  5651. @L 999999999_
  5652. @L 9999_
  5653.      
  5654. @L 99999_
  5655.      
  5656. @L 99999_
  5657. @L 999999999_
  5658. @L 999999999_
  5659. @L 999999999_
  5660. @L 999999999_
  5661. @L 999_
  5662. @L 999999999_
  5663. @L 999999999_
  5664. @L 999999999_
  5665. @L 999999999_
  5666. @L 9999_
  5667. @L 999999999_
  5668. @L 999999999_
  5669. @L 999999999_
  5670. @L 999999999_
  5671. @L 9999_
  5672. @L 9999_
  5673. @L 9999_
  5674. @L 9999_
  5675. @L 9999_
  5676. @L 9999_
  5677. @L 999999999_
  5678. @L 999999999_
  5679. @L 999999999_
  5680. @L 999999999_
  5681. @L 999999999_
  5682. @L 999999999_
  5683. @L 9999_
  5684. @L 99_
  5685. @L 99_
  5686. @L 999999999_
  5687. @L 999999999_
  5688. @l 9999_
  5689. @L 999999999_
  5690. @L 999999999_
  5691. @L 999999999_
  5692. @L 999999999_
  5693. @L 9999_
  5694. @L 999999999_
  5695. @L 999999999_
  5696. @L 9999_
  5697.      
  5698. @L 99999_
  5699.      
  5700. @L 99999_
  5701. @L 999999999_
  5702. @L 999999999_
  5703. @L 999999999_
  5704. @L 999999999_
  5705. @L 999999999_
  5706. @L 999999999_
  5707. @L 999999999_
  5708. @L 999999999_
  5709. @L 999999999_
  5710. @L 999999999_
  5711. @L 999999999_
  5712. @L 999999999_
  5713. @L 999999999_
  5714. @L 999999999_
  5715. @L 999999999_
  5716. @L 999999999_
  5717. @L 9999_
  5718. @L 999999999_
  5719. @L 999999999_
  5720. @L 999999999_
  5721. @L 999999999_
  5722. @L 9999_
  5723. @L 9999_
  5724. @L 9999_
  5725. @L 9999_
  5726. @L 9999_
  5727. @L 9999_
  5728. @L 999999999_
  5729. @L 999999999_
  5730. @L 999999999_
  5731. @L 999999999_
  5732. @L 999999999_
  5733. @L 999999999_
  5734. @L 999999999_
  5735. @L 999999999_
  5736. @L 99_
  5737. @L 9999_
  5738. @L 99_
  5739. @L 99_
  5740. @L 999999999_
  5741. @L 999999999_
  5742. @L 999999999_
  5743. @l 9999_
  5744. @l 9999_
  5745. @l 9999_
  5746. o do Ficheiro efectuada ..
  5747. _TRM3
  5748. _TRDEC
  5749. _TRFIC
  5750. _TRAA
  5751. _TRAB
  5752. _TRAC
  5753. LNIND
  5754. _M3FILENAME
  5755. FILEHANDLE
  5756. TRANSVAL
  5757. LNIND_OCUR
  5758. LNTOT_INHAS
  5759. LNTOT_LINHAS
  5760. 001ASCII17CCCC$iZ
  5761. CCC$H
  5762. @l 99_
  5763. CCC$%
  5764. @l 99_
  5765. 002Mod.22
  5766. @l 99_
  5767. @l 99_
  5768. @l 99_
  5769. @l 99_
  5770. 0000000
  5771. 1000000
  5772. 0300000
  5773. 0040000
  5774. 0005000
  5775. 0000600
  5776. 0000070
  5777. 0000008
  5778. @l 999999999_
  5779. @l 9999_
  5780. @l 99_
  5781. @l 99_
  5782. 00000
  5783. @l 9999_
  5784. @l 99_
  5785. @l 99_
  5786. @l 9999_
  5787. @l 99_
  5788. @l 99_
  5789. @L 9_
  5790. @L 9_
  5791. @L 9_
  5792. @L 9_
  5793. @L 9_
  5794. @L 9_
  5795. @L 9_
  5796. @L 9_
  5797. @L 9_
  5798. @L 9_
  5799. @L 9_
  5800. @L 9_
  5801. @l 99.9_
  5802. @l 9999_
  5803. @l 99_
  5804. @l 99_
  5805. @l 99999_
  5806. @l 999999999_
  5807. @l 99999_
  5808. @l 999999999_
  5809. @l 99999_
  5810. @l 999999999_
  5811. @l 99999_
  5812. @l 999999999_
  5813. @l 99999_
  5814. @l 999999999_
  5815. @l 99999_
  5816. @l 999_
  5817. @l 999999_
  5818. @l 99999_
  5819. @l 99999_
  5820. @l 99999_
  5821. @l 99999_
  5822. @l 999_
  5823. @l 9999_
  5824. @l 999_
  5825. @l 999_6
  5826. @l 999_6
  5827. @l 9999_
  5828. @l 99_
  5829. @l 99_
  5830. @l 99999_
  5831. @l 999_6
  5832. @l 99999_
  5833. @l 99_
  5834. @l 999999999_
  5835. 000000000000000000000000000000
  5836. @l 9999_
  5837. @l 9999_
  5838. @l 999_6
  5839. @l 999_6
  5840. @l 999999_
  5841. 00001
  5842. @l 999_
  5843. 00002
  5844. @l 999_
  5845. @l 9999_
  5846. @l 99_
  5847. @l 99_
  5848. @l 999999_
  5849. @l 9999999_
  5850. @l 9999999_
  5851. o do Ficheiro efectuada ..
  5852. _TRM22
  5853. _TRANA
  5854. _TRANC
  5855. _TRAND
  5856. _TRDEC
  5857. _TRFIC
  5858. _TRANE
  5859. _M22FILENAME
  5860. FILEHANDLE
  5861. _PNIPC
  5862. _PPERI
  5863. _PPERS
  5864. _PEXERC
  5865. _PCODREP
  5866. _PTIPOS
  5867. _PREGIMIRC
  5868. _PNIPCSD    
  5869. _PTAXAOPC
  5870. _PSITUA    
  5871. _PTIPODEC
  5872. _PDATASUBST    
  5873. _PDESCESP
  5874. _PDECINI    
  5875. _PDATACES
  5876. _PDATATRANS
  5877. _PANEXOA
  5878. _PANEXOB
  5879. _PANEXOC
  5880. _PANEXOD
  5881. _PNIFLEGAL
  5882. _PNIFTOC
  5883. _PPME
  5884. _PTRANSF
  5885. _PANEXOE
  5886. TRANSVAL
  5887. T_Q12
  5888. T_REG17
  5889. T_REG18
  5890. T_REG19
  5891. T_REG20
  5892. CTLINHA
  5893. O ficheiro indicado j
  5894.  existeC
  5895. Deseja sobrepor?
  5896. o do ficheiro em curso, Aguarde ...
  5897. ?xml version="1.0" encoding="windows-1252"?
  5898. AuditFile xmlns="urn:OECD:StandardAuditFile-Tax:PT_1.02_01"
  5899. empresa
  5900. key_1
  5901. o do ficheiro em curso (Header), Aguarde ...
  5902. Header
  5903. AuditFileVersion
  5904. 1.02_01
  5905. CompanyIDCC
  5906. TaxRegistrationNumber
  5907. TaxAccountingBasis
  5908. CompanyNameCC
  5909. CompanyAddress
  5910. AddressDetailCC
  5911. CityCC
  5912. PostalCodeCCC
  5913. Country
  5914. CompanyAddress
  5915. FiscalYearC
  5916. @l 9999_
  5917. StartDateC
  5918. @l 9999_
  5919. -01-01
  5920. EndDateC
  5921. @l 9999_
  5922. -12-31
  5923. CurrencyCode
  5924. DateCreatedCCC$i
  5925. @l 9999_
  5926. CCC$H
  5927. @l 99_
  5928. CCC$%
  5929. @l 99_
  5930. TaxEntity
  5931. ProductCompanyTaxID
  5932. 504899147
  5933. SoftwareCertificateNumber
  5934. ProductID
  5935. QP Contabilidade/QUERYPRO
  5936. ProductVersionC
  5937. TelephoneC
  5938. EmailC
  5939. Header
  5940. MasterFiles
  5941. o do ficheiro em curso (General Ledger), Aguarde ...
  5942. plano
  5943. GeneralLedger
  5944. GeneralLedger
  5945. cs_erro_01
  5946. frmerro01
  5947. GeneralLedger
  5948. AccountIDC
  5949. AccountDescriptionCC
  5950. OpeningDebitBalanceC
  5951. @l 999999999999.99_
  5952. OpeningCreditBalanceC
  5953. @l 999999999999.99_
  5954. ClosingDebitBalanceC
  5955. @l 999999999999.99_
  5956. ClosingCreditBalanceC
  5957. @l 999999999999.99_
  5958. GroupingCategory
  5959. GroupingCodeC
  5960. GeneralLedger
  5961. o do ficheiro em curso (Customer), Aguarde ...
  5962. plano
  5963. Desconhecido
  5964. Desconhecido
  5965. Desconhecido
  5966. Customer
  5967. plano
  5968. Customer_2
  5969. Customer
  5970. DESCONHECIDO
  5971. cs_erro_02
  5972. frmerro02
  5973. Clientes
  5974. lanca
  5975. plano
  5976. cs_nifs_caixa
  5977. Customer
  5978.  (Nome nao fornecido)
  5979. Desconhecido
  5980. Desconhecido
  5981. Desconhecido
  5982. Customer
  5983. CustomerIDC
  5984. AccountIDCC
  5985. Desconhecido
  5986. CustomerTaxIDC
  5987. CompanyNameCC
  5988. BillingAddress
  5989. AddressDetailCC
  5990. CityCC
  5991. PostalCodeCC
  5992. CountryCC
  5993. BillingAddress
  5994. TelephoneC
  5995. EmailC
  5996. SelfBillingIndicator
  5997. Customer
  5998. o do ficheiro em curso (Supplier), Aguarde ...
  5999. plano
  6000. Desconhecido
  6001. Desconhecido
  6002. Desconhecido
  6003. Supplier
  6004. plano
  6005. Supplier_2
  6006. Supplier
  6007. DESCONHECIDO
  6008. cs_erro_02
  6009. frmerro02
  6010. Fornecedores
  6011. lanca
  6012. plano
  6013. cs_nifs_caixa
  6014. Supplier
  6015.  (Nome nao fornecido)
  6016. Desconhecido
  6017. Desconhecido
  6018. Desconhecido
  6019. Supplier
  6020. SupplierIDC
  6021. AccountIDCC
  6022. Desconhecido
  6023. SupplierTaxIDC
  6024. CompanyNameCC
  6025. BillingAddress
  6026. AddressDetailCC
  6027. CityCC
  6028. PostalCodeCC
  6029. CountryCC
  6030. BillingAddress
  6031. TelephoneC
  6032. EmailC
  6033. SelfBillingIndicator
  6034. Supplier
  6035. TAXASIVA
  6036. TaxTable
  6037. TaxTableEntry
  6038. TaxType
  6039. TaxCountryRegion
  6040. TaxCode
  6041. Description
  6042. Taxa Reduzida
  6043. TaxPercentageC
  6044. @l 999.99_
  6045. TaxTableEntry
  6046. TaxTableEntry
  6047. TaxType
  6048. TaxCountryRegion
  6049. TaxCode
  6050. Description
  6051. Taxa Intermedia
  6052. TaxPercentageC
  6053. @l 999.99_
  6054. TaxTableEntry
  6055. TaxTableEntry
  6056. TaxType
  6057. TaxCountryRegion
  6058. TaxCode
  6059. Description
  6060. Taxa Normal
  6061. TaxPercentageC
  6062. @l 999.99_
  6063. TaxTableEntry
  6064. TaxTableEntry
  6065. TaxType
  6066. TaxCountryRegion
  6067. TaxCode
  6068. Description
  6069. Isenta
  6070. TaxPercentage
  6071. 000.00
  6072. TaxTableEntry
  6073. TaxTable
  6074. MasterFiles
  6075. o do ficheiro em curso (General Ledger Entries), Aguarde ...
  6076. lanca
  6077. cs_total
  6078. lanca
  6079. @L 9999_
  6080. @L 9999_
  6081. @L 99_
  6082. @L 99_
  6083. @L 99_
  6084. @L 999999_
  6085. lanca
  6086. @L 9999_
  6087. @L 9999_
  6088. @L 99_
  6089. @L 99_
  6090. @L 99_
  6091. @L 999999_
  6092. cs_linhas
  6093. cs_linhas
  6094.                 6
  6095.                 6
  6096. cs_documento_com_terceiro_recapitul
  6097. cs_linhasQ
  6098. planoQ
  6099.                 6
  6100.                 6
  6101. cs_documento_com_terceiro_nresid
  6102. cs_documento_com_terceiro_nresid
  6103. cs_documento_com_terceiro_recapitul
  6104. cs_documento_com_terceiro
  6105. cs_linhasQ
  6106. cs_documento_com_terceiroQ
  6107. @L 99_
  6108. @L 9999_
  6109. 12-31
  6110. @L 99_
  6111. @L 99_
  6112. cs_documento
  6113. cs_linhasQ
  6114. diarioQ
  6115. cs_diarios
  6116. GeneralLedgerEntries
  6117. NumberOfEntriesCC
  6118. TotalDebitC
  6119. @L 99999999999.99_
  6120. TotalCreditC
  6121. @L 99999999999.99_
  6122. Journal
  6123. JournalIDC
  6124. @L 99_
  6125. DescriptionCC
  6126. Transaction
  6127. Doc. contabilistico CC
  6128. , mes 
  6129. , diario 
  6130. TransactionID
  6131. Period
  6132. TransactionDate
  6133. SourceIDC
  6134. Description
  6135. DocArchivalNumberC
  6136. @L 999999_
  6137. TransactionType
  6138. T00:00:00
  6139. @L 9999_
  6140. @L 99_
  6141. @L 99_
  6142. @L 99_
  6143. @L 99_
  6144. @L 99_
  6145. GLPostingDate
  6146. CustomerIDC
  6147. SupplierIDC
  6148. RecordID
  6149. AccountIDC
  6150. T00:00:00
  6151. @L 9999_
  6152. @L 99_
  6153. @L 99_
  6154. @L 99_
  6155. @L 99_
  6156. @L 99_
  6157. SystemEntryDate
  6158. DescriptionCC
  6159. Desconhecido
  6160. CreditAmountC
  6161. @L 9999999999.99_
  6162. DebitAmountC
  6163. @L 9999999999.99_
  6164. Transaction
  6165. Journal
  6166. GeneralLedgerEntries
  6167. AuditFile
  6168. Grava
  6169. o concluida.
  6170. _SAFTFILENAME
  6171. LCXML
  6172. LCTRAB
  6173. LNTOT_DOCS
  6174. LNTOTAL_DEB
  6175. LNTOTAL_CRD
  6176. LCTRANSACTION_TYPE
  6177. LCDESC_FIRST
  6178. LCDESC_LAST
  6179. LCDESC_FINAL
  6180. LCDESC_DOC
  6181. LCNIF_SEM_PAIS
  6182. LNMES_INICIO_CONTAB
  6183. EMPRESA
  6184. INICON
  6185. OPENTAG
  6186. XSEEK
  6187. P_CODEMP
  6188. OPENCLOSETAG    
  6189. MATRICULA
  6190. THISFORM
  6191. LIMPA_CHAR
  6192. FIRMA
  6193. MORADA
  6194. NUMERO
  6195. ANDAR
  6196. LOCALIDADE
  6197. CPOSTAL
  6198. CLOSETAG    
  6199. P_ANOPROC
  6200. P_VERSAO
  6201. EMAIL
  6202. CONTA    
  6203. ACCOUNTID
  6204. ACCOUNTDESCRIPTION
  6205. OPENINGDEBITBALANCE
  6206. OPENINGCREDITBALANCE
  6207. CLOSINGDEBITBALANCE
  6208. CLOSINGCREDITBALANCE
  6209. CATEGORIATIPO
  6210. CONTA_GS
  6211. GRAUSUPERIOR
  6212. PLANO
  6213. GENERALLEDGER
  6214. CS_ERRO_01    
  6215. FRMERRO01
  6216. CUSTOMERID
  6217. NIF_SEM_PAIS
  6218. CUSTOMERTAXID
  6219. COMPANYNAME
  6220. ADDRESSDETAIL
  6221. LOCAL
  6222. CODPOS
  6223. POSTALCODE
  6224. GET_PAIS_DO_NIF
  6225. COUNTRY    
  6226. SEM_CONTA
  6227. CUSTOMER
  6228. CUSTOMER_2
  6229. KEY_1
  6230. CONTAID
  6231. CS_ERRO_02
  6232. P_CONTASSEMNIF    
  6233. FRMERRO02
  6234. L_NIF
  6235. LANCA
  6236. L_TMAPAR
  6237. CS_NIFS_CAIXA
  6238. SUPPLIERID
  6239. SUPPLIERTAXID
  6240. SUPPLIER
  6241. SUPPLIER_2    
  6242. PTAXA_RED    
  6243. PTAXA_NOR    
  6244. PTAXA_INT    
  6245. SET_PARMS
  6246. L_CONTAD
  6247. L_VALOR
  6248. G_DEBITO
  6249. L_CONTAC    
  6250. G_CREDITO
  6251. L_MES
  6252. CS_TOTAL    
  6253. LNTOT_DEB    
  6254. LNTOT_CRD
  6255. L_LINHA
  6256. RECORDID
  6257. L_DIA
  6258. L_DIARIO
  6259. L_DOCU
  6260. TRANSACTIONID
  6261. L_MAPAR    
  6262. ACCOUNDID
  6263. L_DATAHORA
  6264. SYSTEMENTRYDATE
  6265. L_DESC
  6266. DESCRIPTION    
  6267. REGULARIZ
  6268. DEBITAMOUNT
  6269. CREDITAMOUNT    
  6270. CS_LINHAS
  6271. GET_CONTA_DO_NIF_C
  6272. CLIENTE
  6273. GET_CONTA_DO_NIF_F
  6274. FORNECEDOR#
  6275. CS_DOCUMENTO_COM_TERCEIRO_RECAPITUL
  6276. CS_DOCUMENTO_COM_TERCEIRO_NRESID
  6277. CS_DOCUMENTO_COM_TERCEIRO
  6278. PERIOD
  6279. TRANSACTIONDATE
  6280. GLPOSTINGDATE
  6281. CS_DOCUMENTO
  6282. CODIGO    
  6283. DESCRICAO
  6284. DIARIO
  6285. CS_DIARIOS
  6286. P_LOGIN
  6287. _STRING
  6288. LCSTRING
  6289. LCRET
  6290. LNOPC 
  6291. 0123456789
  6292. _STRING
  6293. LCRET
  6294. LCSTRING
  6295. LNIND
  6296. LCTRAB
  6297. LNPOS
  6298. 01ASCII01CCCC$iZ
  6299. CCC$H
  6300. @l 99_
  6301. CCC$%
  6302. @l 99_
  6303. 02DRECA
  6304. @l 9999_
  6305. @l 99999_
  6306. @l 99999_
  6307. @l 999999999_
  6308. @l 999999999_
  6309. @l 999999999_
  6310. o do Ficheiro efectuada ..
  6311. _DECRECAPFILENAME
  6312. _TRFIC
  6313. _TRDEC
  6314. _TRREC
  6315. FILEHANDLE
  6316. P_NIF    
  6317. P_ANOPROC
  6318. _MENSAL
  6319. _TRIMESTRAL
  6320. _MESINCINF
  6321. _MESINCSUP
  6322. OPINTRA
  6323. INSREC
  6324. _PREFIXO
  6325. TRANSVAL
  6326. _VALOR    
  6327. _TIPOOPER
  6328. _PNIFTOC
  6329. _TOT1
  6330. _TOT2
  6331. _TOT3
  6332. _TOT4
  6333. 01ASCII04CCCC$iZ
  6334. CCC$H
  6335. @l 99_
  6336. CCC$%
  6337. @l 99_
  6338. 02DPIVA
  6339. @l 99_
  6340. @l 99_
  6341. 00000000
  6342. 00000000
  6343. @l 999_
  6344. @L 999999999_
  6345. Aguarde apuramento do anexo para os a
  6346. @l 9999_
  6347. @l 99_
  6348. @l 99_
  6349. @L 999_
  6350. Aguarde apuramento do anexo para a madeira
  6351. @l 9999_
  6352. @l 99_
  6353. @l 99_
  6354. @L 999_
  6355. Aguarde apuramento do anexo opera
  6356. es intracomunitarias
  6357. @l 9999_
  6358. @l 99_
  6359. @l 99_
  6360. @l 99999_
  6361. @l 99999_
  6362. Existem valores no campo 40, pretende gerar os registos do anexo
  6363. cs_anexoN
  6364. @l 99_
  6365. @l 99_
  6366. @l 999999999_
  6367. @l 99999_
  6368. @l 999999999_
  6369. @l 99999_
  6370. @l 999999999_
  6371. @l 99999_
  6372. @l 999999999_
  6373. @l 99999_
  6374. @l 999999999_
  6375. @l 99999_
  6376. @l 999999999_
  6377. @l 99999_
  6378. @l 99999_
  6379. @l 99999_
  6380. @l 99999_
  6381. @l 99999_
  6382. @l 99999_
  6383. @l 99999_
  6384. @l 99999_
  6385. @l 99999_
  6386. @l 99999_
  6387. @l 99999_
  6388. Existem valores no campo 41, pretende gerar os registos do anexo
  6389. cs_anexoN
  6390. @l 99_
  6391. @l 99_
  6392. @l 999999999_
  6393. @l 99999_
  6394. @l 999999999_
  6395. @l 99999_
  6396. @l 999999999_
  6397. @l 99999_
  6398. @l 999999999_
  6399. @l 99999_
  6400. @l 999999999_
  6401. @l 99999_
  6402. @l 999999999_
  6403. @l 99999_
  6404. @l 999999999_
  6405. @l 99999_
  6406. @l 99999_
  6407. @l 99999_
  6408. @l 99999_
  6409. @l 99999_
  6410. @l 99999_
  6411. @l 999999999_
  6412. @l 999999999_
  6413. o do Ficheiro efectuada ..
  6414. _TRIVA
  6415. _TRDEC
  6416. _TRFIC
  6417. _TRANC
  6418. _TRANA
  6419. _TRANM
  6420. _TRANI
  6421. _TRANF
  6422. _IVAFILENAME
  6423. FILEHANDLE
  6424. P_NIF
  6425. _CPRAZO
  6426. _COPC
  6427. _COPA
  6428. _COPM
  6429. _CANEXOC
  6430. _CANEXOA
  6431. _CANEXOM
  6432. _COPIMOB
  6433. _CINTRAC    
  6434. _NRRELCLI    
  6435. _NRRELFOR    
  6436. _NRRELSUJ
  6437. _CNAOOP    
  6438. P_ANOPROC
  6439. _CMENSAL    
  6440. _CPERIODS
  6441. TRANSVAL
  6442. CAMPO
  6443. _CINVERT
  6444. _PNIFTOC
  6445. C020A1_F
  6446. PREPANEXOACORES
  6447. PREPANEXOMADEIRA
  6448. PREPTRANSINTRA
  6449. OPINTRA
  6450. _NRREG
  6451. TOTTRANS
  6452. _PREFIXO
  6453. _VALOR
  6454. VEPERIODO_ANEXO
  6455. NANEXO
  6456. ANEXOCLIENTES_PREPARE
  6457. ANEXOCLIENTES_FILECREATE
  6458. ANEXOFORNECEDORES_PREPARE
  6459. ANEXOFORNECEDORES_FILECREATE
  6460. ANEXOSUJEITOS_PREPARE
  6461. ANEXOSUJEITOS_FILECREATE
  6462. _TRANEXO40
  6463. _TR61
  6464. _TR62
  6465. _TR63
  6466. _TR64
  6467. _TR65
  6468. _TR66
  6469. _TR67
  6470. _TR68
  6471. _TR96
  6472. BASE68_1
  6473. BASE68_2
  6474. BASE68_3
  6475. IVA68_1
  6476. IVA68_2
  6477. IVA68_3
  6478. THISFORM
  6479. PREPANEXO40
  6480. CS_ANEXO
  6481. CAMPOREG
  6482. _TRANEXO41
  6483. _TR81
  6484. _TR82
  6485. _TR83
  6486. _TR84
  6487. _TR85
  6488. _TR86
  6489. _TR87
  6490. BASE87_1
  6491. BASE87_2
  6492. IVA87_1
  6493. IVA87_2
  6494. PREPANEXO41
  6495. 12-31[
  6496. LCRET
  6497. LCTRAB}
  6498. _CONTA
  6499. _TIPO
  6500. LCTIPO
  6501. LCRET
  6502. Desconhecido
  6503. LCNIF
  6504. LCRET
  6505. DESCONHECIDO
  6506. Desconhecido
  6507. LCNIF
  6508. LCRETa
  6509. KEY_3
  6510. lanca
  6511. cs_nifs
  6512. lanca
  6513. cs_contaiva
  6514. lancaQ
  6515. cs_nifsQ
  6516. cs_contaivaQ
  6517. cs_docs
  6518. cs_docsQ
  6519. lancaQ
  6520. cs_anexo
  6521. _CMENSAL
  6522. _MES_I    
  6523. _CPERIODS
  6524. _MES_S
  6525. LANCA
  6526. KEY_3    
  6527. LNMES_INI    
  6528. LNMES_FIM
  6529. LNTOTAL_BASE
  6530. LNTOTAL_IVA
  6531. LNANEXO
  6532. L_MES
  6533. L_DIA
  6534. L_DIARIO
  6535. DIARIO
  6536. L_DOCU
  6537. L_CAMPOREG
  6538. CAMPOREG
  6539. L_NIF
  6540. CS_NIFS
  6541. L_CONTAD    
  6542. CONTA_IVA
  6543. L_CONTAC
  6544. CS_CONTAIVA
  6545. CS_DOCS
  6546. POS_IVA
  6547. L_VALOR
  6548. CS_ANEXOa
  6549. KEY_3
  6550. lanca
  6551. cs_nifs
  6552. lanca
  6553. cs_contaiva
  6554. lancaQ
  6555. cs_nifsQ
  6556. cs_contaivaQ
  6557. cs_docs
  6558. cs_docsQ
  6559. lancaQ
  6560. cs_anexo
  6561. _CMENSAL
  6562. _MES_I    
  6563. _CPERIODS
  6564. _MES_S
  6565. LANCA
  6566. KEY_3    
  6567. LNMES_INI    
  6568. LNMES_FIM
  6569. LNTOTAL_BASE
  6570. LNTOTAL_IVA
  6571. LNANEXO
  6572. L_MES
  6573. L_DIA
  6574. L_DIARIO
  6575. DIARIO
  6576. L_DOCU
  6577. L_CAMPOREG
  6578. CAMPOREG
  6579. L_NIF
  6580. CS_NIFS
  6581. L_CONTAD    
  6582. CONTA_IVA
  6583. L_CONTAC
  6584. CS_CONTAIVA
  6585. CS_DOCS
  6586. POS_IVA
  6587. L_VALOR
  6588. CS_ANEXO
  6589. Customer_2
  6590. key_1
  6591. LCRET
  6592. XSEEK
  6593. CUSTOMER_2
  6594. CONTA
  6595. THISFORM
  6596. NIF_SEM_PAIS
  6597. Supplier_2
  6598. key_1
  6599. LCRET
  6600. XSEEK
  6601. SUPPLIER_2
  6602. CONTA
  6603. THISFORM
  6604. NIF_SEM_PAIS
  6605. _MODEL/
  6606. MODEL
  6607. _MODEL
  6608. DEFAULTvC
  6609. o da Modelo 3 e anexos em suporte inform
  6610. Ficheiros ASCII:(*.TXT)|*.TXT
  6611. Cd &_curdir
  6612. Cd &_curdir
  6613. DEFAULTvC
  6614. o do Modelo 22 em suporte inform
  6615. Ficheiros ASCII:(*.TXT)|*.TXT
  6616. M22-CC
  6617. Cd &_curdir
  6618. Cd &_curdir
  6619. DEFAULTvC
  6620. o do Ficheiro de Auditoria v.1.02_01  (build 002)
  6621. Ficheiros XML:(*.XML)|*.XML
  6622. SAFT_PT_
  6623. Cd &_curdir
  6624. Cd &_curdir
  6625. DEFAULTvC
  6626. o do Ficheiro Declara
  6627. o Periodica do Iva 
  6628. Ficheiros ASCII:(*.TXT)|*.TXT
  6629. @l 99_
  6630. @l 99_
  6631. DecIva_
  6632. DecIva_
  6633. Cd &_curdir
  6634. Cd &_curdir
  6635. DEFAULTvC
  6636. o do Ficheiro Declara
  6637. o Recapitulativa 
  6638. Ficheiros ASCII:(*.TXT)|*.TXT
  6639. DecRecap
  6640. Cd &_curdir
  6641. Cd &_curdir
  6642. _MODEL
  6643. _CURDIR
  6644. THISFORM
  6645. CXDIAL
  6646. DIALOGTITLE
  6647. FILTER
  6648. SHOWSAVE
  6649. _M3FILENAME
  6650. FILENAME    
  6651. P_CANCELA
  6652. REFRESH
  6653. RELEASE
  6654. FILECREATE    
  6655. P_ANOPROC
  6656. P_CODEMP
  6657. _M22FILENAME
  6658. FILECREATE1
  6659. P_NIF
  6660. _SAFTFILENAME
  6661. SAFTFILECREATE
  6662. _CPERIODI
  6663. _CPERIODS
  6664. _IVAFILENAME
  6665. DECIVAFILECREATE
  6666. _DECRECAPFILENAME
  6667. DECRECAPFILECREATE
  6668. filecreate,
  6669. filecreate1
  6670. saftfilecreate
  6671. limpa_char
  6672. concatenar
  6673. decrecapfilecreate
  6674. decivafilecreate
  6675. mes_sup_doze
  6676. tipo/
  6677. nif_sem_pais
  6678. get_pais_do_nifr
  6679. prepanexo40M
  6680. prepanexo41
  6681. get_conta_do_nif_c
  6682. get_conta_do_nif_f]
  6683. Unload9
  6684. InitO
  6685. Activate
  6686. *filecreate 
  6687. *filecreate1 
  6688. *saftfilecreate 
  6689. *limpa_char 
  6690. *concatenar 
  6691. *decrecapfilecreate 
  6692. *decivafilecreate 
  6693. *mes_sup_doze 
  6694. *tipo 
  6695. *nif_sem_pais 
  6696. *get_pais_do_nif 
  6697. *prepanexo40 
  6698. *prepanexo41 
  6699. *get_conta_do_nif_c 
  6700. *get_conta_do_nif_f 
  6701. olecontrol
  6702. olecontrol
  6703. cxdial
  6704. FORM1
  6705. ATop = 12
  6706. Left = 12
  6707. Height = 100
  6708. Width = 100
  6709. Name = "cxdial"
  6710. 28C4C820-401A-101B-A3C9-08002B2F49FB
  6711. CancelError
  6712. .OLEObject = C:\Windows\SysWow64\COMDLG32.OCX
  6713. !Arial, 0, 9, 5, 15, 12, 32, 3, 0
  6714. PLANO
  6715. _CONTA
  6716. _SALDO
  6717. PLANO
  6718. plano.DC
  6719. acudeb=acudeb+&campo
  6720. _MESINF
  6721. _MESSUP
  6722. ACUDEB
  6723. CAMPO
  6724. plano.CC
  6725. acucrd=acucrd+&campo
  6726. _MESINF
  6727. _MESSUP
  6728. ACUCRD
  6729. CAMPO    
  6730. _CHAVER
  6731. _OCUR
  6732. _OCCUR
  6733. CICLO
  6734. key_1
  6735. PVALOR    
  6736. PCRITERIO
  6737. ACTUALALIAS    
  6738. NRCENTROS
  6739. PARCIAL
  6740. DIFER
  6741. CRITERIO
  6742. KEY_1
  6743. CHAVER
  6744. ARREPART
  6745. _POS1
  6746. P_MOEDA_
  6747. _OCCURS    
  6748. _EXTSALDO
  6749. KEY_1
  6750. @L 99_
  6751. DEB_ACU=DEB_ACU+&VARDMES
  6752. _CONTA
  6753. DEB_ACU
  6754. _OLD_ALIAS
  6755. PLANO
  6756. KEY_1
  6757. VARDMES
  6758. KEY_1
  6759. @L 99_
  6760. CRD_ACU=CRD_ACU+&VARCMES
  6761. _CONTA
  6762. _OLD_ALIAS
  6763. CRD_ACU
  6764. PLANO
  6765. KEY_1
  6766. VARCMESK
  6767. P_INIMES    
  6768. P_ANOPROCE
  6769. plano.
  6770. @L 99_
  6771. VVALE
  6772. plano.
  6773. @L 99_
  6774. VVALu
  6775. ULMES_OLDALIAS
  6776. ULMES_OLDORDER
  6777. EXERC    
  6778. ULMESCONTa
  6779. ULMES_OLDALIAS
  6780. RDIARIO
  6781. ULDIAR_OLDALIAS
  6782. ULDIAR_OLDORDER
  6783. EXERC
  6784. ULDIARCONT
  6785. @L 99_
  6786. @L 99_
  6787. @L 99_
  6788. @L 99_
  6789. @L 99_
  6790. @L 99_
  6791. plano1
  6792. KEY_1
  6793. plano2
  6794. KEY_1
  6795. KEY_1
  6796. SELECT &OLD_AREA   
  6797. _VALOR=&DEBMES 
  6798. _VALOR=&CREMES
  6799. _VALOR=&DEBMES-&CREMES 
  6800. _VALOR=&DEBACU
  6801. _VALOR=&CREACU
  6802. _VALOR=(&DEBACU)-(&CREACU)
  6803. _VALOR=IIF((&DEBACU)-(&CREACU)<0,(&DEBACU)-(&CREACU),0.00)      
  6804. _VALOR=IIF((&DEBACU)-(&CREACU)>0,(&DEBACU)-(&CREACU),0.00)         
  6805. _VALOR=_VALOR+&DEBMES 
  6806. _VALOR=_VALOR+&CREMES
  6807. _VALOR=_VALOR+&DEBMES-&CREMES 
  6808. _VALOR=_VALOR+&DEBACU
  6809. _VALOR=_VALOR+&CREACU
  6810. _VALOR=_VALOR+((&DEBACU)-(&CREACU))
  6811. _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)<0,(&DEBACU)-(&CREACU),0.00)      
  6812. _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)>0,(&DEBACU)-(&CREACU),0.00)         
  6813. _VALOR=_VALOR+&DEBMES 
  6814. _VALOR=_VALOR+&CREMES
  6815. _VALOR=_VALOR+&DEBMES-&CREMES 
  6816. _VALOR=_VALOR+&DEBACU
  6817. _VALOR=_VALOR+&CREACU
  6818. _VALOR=_VALOR+((&DEBACU)-(&CREACU))
  6819. _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)<0,(&DEBACU)-(&CREACU),0.00)      
  6820. _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)>0,(&DEBACU)-(&CREACU),0.00)         
  6821. _VALOR=_VALOR+&DEBMES 
  6822. _VALOR=_VALOR+&CREMES
  6823. _VALOR=_VALOR+&DEBMES-&CREMES 
  6824. _VALOR=_VALOR+&DEBACU
  6825. _VALOR=_VALOR+&CREACU
  6826. _VALOR=_VALOR+((&DEBACU)-(&CREACU))
  6827. _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)<0,(&DEBACU)-(&CREACU),0.00)      
  6828. _VALOR=_VALOR+IIF((&DEBACU)-(&CREACU)>0,(&DEBACU)-(&CREACU),0.00)         
  6829. SELECT &OLD_AREA 
  6830. _CONTA
  6831. _OPTION
  6832. _VALOR
  6833. DEBACU
  6834. CREACU
  6835. DEBMES
  6836. CREMES
  6837. SALMES
  6838. SALACU
  6839. OLD_AREA
  6840. CONTA_I
  6841. CONTA_S
  6842. ABRE_N1_N2
  6843. PLANO1
  6844. KEY_1
  6845. PLANO2
  6846. PLANO
  6847. CONTA
  6848. SOMA:
  6849. error
  6850. _resultado=-1
  6851. on error &_oldonerror 
  6852. P_FORMULA
  6853. _OLDAREA
  6854. _MODEL    
  6855. _PAGMODEL
  6856. MAPAS
  6857. MODELO
  6858. PAGINA
  6859. RESULT
  6860. SOMAR
  6861. _RESULTADO
  6862. _CHKSTRING
  6863. _STRINGV
  6864. CHK_VAL
  6865. _OLDONERROR
  6866. KEY_1
  6867. _OLD_REC
  6868. MAPAS
  6869. KEY_1
  6870. NUMERO
  6871. VALOR
  6872. plano1
  6873. plano2
  6874. \contab\
  6875. \contab\
  6876. IF ! FILE('&P_ANO_ANTER')
  6877. USE &P_ANO_ANTER ALIAS PLANO1
  6878. IF ! FILE('&P_ANO_ANTER1')
  6879. USE &P_ANO_ANTER1 ALIAS PLANO2
  6880. P_ANO_ANTER    
  6881. ANO_ANTER
  6882. P_ANO_ANTER1
  6883. ANO_ANTER1    
  6884. P_ANOPROC
  6885. P_PATH
  6886. P_CODEMP
  6887. _OCOR    
  6888. P_FORMULA
  6889. RESULT
  6890. _FORM
  6891. SOMA_AUX
  6892. _FORM
  6893. _QUADRO
  6894. _PAGINA
  6895. _POSVIRG
  6896. _POSP1
  6897. _POSP2
  6898. _POSINF
  6899. _POSSUP
  6900. MAPAS
  6901. PAGINA
  6902. RESULT
  6903. _MODEL    
  6904. _PAGMODEL
  6905. LANCA
  6906. _TRCONTA
  6907. _MESI
  6908. _DIAI
  6909. VELHOALIAS
  6910. ACUMDEB
  6911. ACUMCRD
  6912. SALDOACU
  6913. CHK_VAL
  6914. _CONTA
  6915. L_CONTAD
  6916. L_VALOR
  6917. L_CONTAC
  6918. LANCA
  6919. L_MES
  6920. L_DIA
  6921. SALDO
  6922. SALDOACU
  6923. key_1
  6924. _PCONTA
  6925. ANTALIAS
  6926. PLANO
  6927. KEY_1
  6928. plano
  6929. key_1
  6930. _CONTA
  6931. LCCONTA
  6932. LCRES
  6933. XSEEK
  6934. PLANO
  6935. KEY_1
  6936. _PRESENTALIAS
  6937. MAPAS
  6938. KEY_1
  6939. CARACTER
  6940. NUMERO
  6941. TEXTO
  6942. LARG_TEXTO
  6943. VALOR
  6944. KEY_1
  6945. _PRESENTALIAS
  6946. MAPAS
  6947. KEY_1
  6948. TITULO~
  6949. LCRET
  6950. LDVALOR
  6951. KEY_1
  6952. _POS    
  6953. _CONTEUDO
  6954. MAPAS
  6955. KEY_1
  6956. CARACTER
  6957. NUMERO
  6958. TEXTO
  6959. VALOR
  6960. DATAT
  6961. _ANO    
  6962. _CONTEUDO    
  6963. LBRETORNO:    
  6964. Faltam parametros p/ executar a fun
  6965. o 'INCLUDE_YEARS'
  6966. Erro de programa
  6967. Datas ou contas incorrectas na fun
  6968. o 'INCLUDE_YEARS'
  6969. Erro de programa
  6970. select *, 
  6971.  as l_ano from 
  6972.  where l_mes <> 0 and (between(l_contad, lccontaini, lccontafim) or between(l_contac, lccontaini, lccontafim)) order by 15, 1, 2 into cursor csint_mov
  6973. do INCLUDE_YEARS_aux_err with error(), lcfile, lcalias
  6974. \contab\L
  6975. qpfileC
  6976. do errodesc in \projectos\gdg2000\shared\prg\erros with  error(), message( ), message(1), program( ), lineno( )
  6977. qpfileC
  6978.  union all 
  6979. &sqlselect
  6980. qpfileC
  6981. select l_mes as l_mes,  l_dia as l_dia,  l_diario as l_diario,  l_docu as l_docu,  l_linha as l_linha,  l_contad as l_conta,  l_desc as l_desc,  l_valor as l_valor,  "D" as l_dc,  l_mapar as l_mapar,  l_tmapar as l_tmapar,  l_nif as l_nif,  l_ano as l_ano  from csint_mov  where include_years_aux(l_dia, l_mes, l_ano, lddataini, lddatafim) and  between(l_contad, lccontaini, lccontafim)  union all  select l_mes as l_mes,  l_dia as l_dia,  l_diario as l_diario,  l_docu as l_docu,  l_linha as l_linha,  l_contac as l_conta,  l_desc as l_desc,  l_valor as l_valor,  "C" as l_dc,  l_mapar as l_mapar,  l_tmapar as l_tmapar,  l_nif as l_nif,  l_ano as l_ano  from csint_mov  where include_years_aux(l_dia, l_mes, l_ano, lddataini, lddatafim) and  between(l_contac, lccontaini, lccontafim)  order by 6, 12, 1, 2  into cursor &lccursor_final
  6982. _DATAINI
  6983. _DATAFIM    
  6984. _CONTAINI    
  6985. _CONTAFIM
  6986. _CURSOR
  6987. PRVUSE    
  6988. LDDATAINI    
  6989. LDDATAFIM    
  6990. LBRETORNO
  6991. LAANOS    
  6992. LNTOTANOS
  6993. LNIND
  6994. LNCONT
  6995. LCCONTAINI
  6996. LCCONTAFIM
  6997. LCFILE
  6998. LCALIAS
  6999. LCCURSOR_FINAL
  7000. SQLWHERE
  7001. SQLFIXO1
  7002. SQLFIXO2
  7003. SQLFIXO3    
  7004. SQLSELECT
  7005. P_PATH
  7006. P_CODEMP    
  7007. CSINT_MOVy
  7008. _DATAINI
  7009. _DATAFIM    
  7010. LBRETORNO9
  7011. _ERRO
  7012. _FILE
  7013. _ALIAS
  7014. _DESC
  7015. LCDOC4
  7016. _DESC
  7017. _ANOREF
  7018. LCPRAZO
  7019. LNPRAZO
  7020. LDVENCIMENTO    
  7021. LCDATADOC
  7022. LDDOC2
  7023. FUNCAO
  7024. FUNCAO_1
  7025. Verificando dados da aplica
  7026. o de Gest
  7027. o de Pessoal...
  7028. pessoa\
  7029. funci
  7030. movim
  7031. estab
  7032. proce
  7033. comuns\sconce.dbf
  7034. clfuncionarios
  7035. clmovimentos
  7036. clestabelecimentos
  7037. clprocessamentos
  7038. clconcelhos
  7039. Obtendo informa
  7040. o de Gest
  7041. o de Pessoal...
  7042. clfuncionariosQ
  7043. clmovimentosQ
  7044. clestabelecimentosQ
  7045. clprocessamentosQ
  7046. clconcelhosQ
  7047. LCPATH
  7048. LCFILE_FUNC
  7049. LCFILE_MOVI
  7050. LCFILE_CONCE
  7051. LCFILE_ESTA
  7052. LCFILE_PROC
  7053. LCCURSOR
  7054. LCOUTCURSOR
  7055. MENSAGEM    
  7056. PATHDADOS
  7057. ENTIDADE
  7058. LCFILE_CONC
  7059. CLFUNCIONARIOS
  7060. CLMOVIMENTOS
  7061. CLESTABELECIMENTOS
  7062. CLPROCESSAMENTOS
  7063. CLCONCELHOS
  7064. XDISTR
  7065. XCONCE
  7066. C_CONCELHO
  7067. VALOR
  7068. XFUNC
  7069. XESTAB
  7070. XPROC
  7071. XABONO
  7072. DATA    
  7073. EXERCICIO
  7074. COD_DGCI
  7075. OBJ_CODIGO
  7076. OBJ_CONCELHO    
  7077. OBJ_VALOR
  7078. NRLINHAS
  7079. NCURSOR
  7080. ESTADOD
  7081. FUNCAO
  7082. ESTADO
  7083. NCURSOR
  7084. _VALTOTRANSF
  7085. _SIGN    
  7086. TEMPFIELD
  7087. DEFFIELD
  7088. _VALTOTRANSF
  7089. _SIGN    
  7090. TEMPFIELD
  7091. DEFFIELD
  7092. key_1
  7093. CONTAD
  7094. CONTAC
  7095. LANCANIF
  7096. _VELHOAL
  7097. PLANO
  7098. KEY_1
  7099. _LINHA^
  7100. plano
  7101. key_1
  7102. pariva
  7103. key_1
  7104. plano
  7105. key_1
  7106. plano
  7107. key_1
  7108. pariva
  7109. key_1
  7110. _CONTA
  7111. W_CONTA
  7112. WCONTA
  7113. PLANO
  7114. PARIVA
  7115. CAMPO    
  7116. CONTA_IVA
  7117. CONTA
  7118.  @R 9999999999.99_6
  7119.  @R 9999999999.99_6
  7120. _MODELO
  7121. _QUADRO
  7122. LCMODELO
  7123. LCQUADRO
  7124. LNRET
  7125. LCTRAB
  7126. MAPAS
  7127. MODELO
  7128. QUADRO
  7129. LCVALOR
  7130. CARACTER
  7131. NUMERO
  7132. TEXTO
  7133. LARG_TEXTO
  7134. VALOR
  7135. DATA 
  7136. _INDEX
  7137. paises
  7138. key_3
  7139. _PREFIXO
  7140. AREA_ACTUAL
  7141. PDESC
  7142. PAISES8
  7143. key_1
  7144. REPLACE 
  7145.  WITH 
  7146.  + _valor
  7147. &lccommand
  7148. Verifique a consist
  7149. ncia do Plano - Faltam contasC
  7150. Contas n
  7151. o ficaram actualizadas!
  7152. _CONTA
  7153. _SOMSUB
  7154. _VALOR
  7155. LCDEBVAR    
  7156. LCCOMMAND
  7157. LCOLD_ALIAS
  7158. PLANO
  7159. KEY_1
  7160. CONTA_GS
  7161. plano
  7162. cs_get_gs
  7163. _CONTA
  7164. LCRET
  7165. CONTA
  7166. PLANO
  7167. TIPO    
  7168. CS_GET_GS
  7169. _POSICAO
  7170. _CONTAD
  7171. _CONTAC
  7172. LBRET
  7173. LCCONTA
  7174. Temmov,
  7175. SALDO
  7176. ACDEB
  7177. ACCRDI
  7178. vchaver
  7179. repartD
  7180. D_ACUZ
  7181. C_ACU
  7182. exercicio
  7183. cmesw
  7184. ulmes
  7185. uldiar
  7186. CHK_VAL4
  7187. calcform
  7188. abre_n1_n2
  7189. SOMARb&
  7190. SOMA_AUX\'
  7191. transporte{)
  7192. inisaldo
  7193. ctexist
  7194. CONTADESCz,
  7195. EDDATA
  7196. EXISTE_ANO_MEMO{3
  7197. INCLUDE_YEARS
  7198. INCLUDE_YEARS_aux4>
  7199. INCLUDE_YEARS_aux_err
  7200. READ_DOC5?
  7201. READ_DATA
  7202. EXECUTAR
  7203. FUNCAO_1
  7204. DESTROY
  7205. transval
  7206. transval1
  7207. plano_nif
  7208. resetlinha<L
  7209. vecampodecXL
  7210. VERIF_QUADRO
  7211. atindex{R
  7212. encontrapais
  7213. ACT_GRAU_SUPERIORUS
  7214. GRAU_SUP
  7215. POS_IVA
  7216. ENTIDADE    
  7217. EXERCICIO
  7218. NCURSOR    
  7219. PATHDADOS
  7220. FUNCAO
  7221. NRLINHAS
  7222. ESTADO
  7223. MENSAGEM
  7224. GETSAL_O
  7225. CUSTOMQ[
  7226. PRINTER
  7227. O, Rever fun
  7228. o IMPRESSORAC
  7229. Esta fun
  7230. o deveria estar desactivada
  7231. Anotar as circunst
  7232. ncias que fizeram aparecer esta mensagem
  7233. _OLDPRINTER
  7234. CONFIG
  7235. APPEND FROM &_FILE TYPE SDF
  7236. ERROR
  7237. _ERRMSG=MESSAGE()
  7238. &_COMANDO
  7239. Erro carregando 
  7240. Linha: 
  7241. Mensagem: 
  7242. ON ERROR &OLD_ERROR
  7243. _FILE
  7244. _DESC
  7245. _COMANDO
  7246. OLD_ERROR
  7247. _ERRLIN
  7248. _ERRMSG
  7249. CONFIG
  7250. DESCO
  7251. __MODEb
  7252. Tabela em uso. <ENTER> para tentar de novo ou <ESC> para desistir.
  7253. __MODE
  7254. MEMOWIDTHv
  7255. MEMOWIDTHv
  7256. _MEMO
  7257. _LINHA
  7258. _WIDTH
  7259. _OFFSET
  7260. _PARAMETERS    
  7261. OLD_WIDTH    
  7262. _CONTEUDO
  7263. ESCAPEv
  7264. SET ESCAPE &SET_ESCAPE
  7265. TECLA
  7266. SET_ESCAPE.
  7267. Error number: CC
  7268. Error message: 
  7269. Line of code with error: 
  7270. Line number of error: CC
  7271. Program with error: 
  7272. MERROR
  7273. MESS1
  7274. MPROG
  7275. MLINENO
  7276. ERRON
  7277. _JANELA
  7278.  PROCS & FUNCS EXECUTADOS ATE AO MOMENTO 
  7279. _NIVEL    
  7280. SHOW_PATH 
  7281. SRC;PRG
  7282. Selecione o ficheiro a analizar:
  7283. Abrir
  7284. PRINT
  7285. AGUARDE UM MOMENTO...
  7286. APPEND FROM &_FILE TYPE SDF
  7287. PROCS.TXT
  7288. Analizando o ficheiro: 
  7289. FUNCTION
  7290. PROCEDURE
  7291. STATIC FUNCTION
  7292. STATIC PROCEDURE
  7293. Foi criado/actualizado o ficheiro PROCS.TXT
  7294. Ficheiro nao encontrado: 
  7295. _FILE
  7296. _VERBOSE
  7297. _STAT    
  7298. OLD_PRINT
  7299. PROCS
  7300. EOF()
  7301. Deseja deseja interromper a operacao ?
  7302. Prima ESC para interromperC
  7303.  (CCCN
  7304. SHOW_IT
  7305. STOP_IT
  7306. L_ON_G
  7307. SIM_NAOZ
  7308. _VALUE
  7309. _MASK
  7310. Inicializando o atalho...
  7311. &PROC
  7312. Finalizando o atalho...
  7313. _NFICS
  7314. PUSH_ALL
  7315. POP_ALLF
  7316. _TIMESr
  7317. NOTIFYv
  7318. _MODE
  7319. PSHALL_PTRb
  7320. RELATIONv
  7321. SKIPv
  7322. NFICS
  7323. CUR_AREA
  7324. PSHALL_AREA
  7325. PSHALL_REG
  7326. PSHALL_ORD
  7327. PSHALL_FIL
  7328. PSHALL_REL
  7329. PSHALL_SKP
  7330. PSHALL_TAR
  7331. PSHALL_PTR
  7332. SET FILTER TO &pshall_fil[pshall_ptr-n]
  7333. SET RELATION TO &pshall_rel[pshall_ptr-n]
  7334. SET SKIP TO &pshall_skp[pshall_ptr-n]
  7335. NFICS
  7336. PSHALL_PTR
  7337. PSHALL_AREA
  7338. PSHALL_ORD
  7339. PSHALL_FIL
  7340. PSHALL_REL
  7341. PSHALL_SKP
  7342. PSHALL_REG
  7343. Editando
  7344. Visualizando6
  7345. <F2> imprime 
  7346. <F9> grava e sai 
  7347. <ESC> sai
  7348. DEFINE WINDOW &WIN_NAME1  FROM INT((SROW()-_HEIGHT)/2),INT((SCOL()-_WIDTH)/2)  TO INT((SROW()-_HEIGHT)/2)+(_HEIGHT-1),INT((SCOL()-_WIDTH)/2)+(_WIDTH-1)  TITLE _TITLE  FOOTER _FOOTER  FLOAT  DOUBLE  SHADOW  GROW  ZOOM  COLOR SCHEME 5
  7349. ESCAPE
  7350. ESCAPE
  7351. KEYBOARD "{CTRL+Q}Y"
  7352. KEYBOARD "{CTRL+W}"
  7353. KEYBOARD "{CTRL+W}P"
  7354. MODI COMM &_FILE WINDOW &WIN_NAME1
  7355. MODI COMM &_FILE NOEDIT WINDOW &WIN_NAME1
  7356. ON KEY LABEL F2 &OLD_F2
  7357. ON KEY LABEL F9 &OLD_F9
  7358. ON KEY LABEL ESCAPE &OLD_ESC
  7359. RELEASE WINDOW &WIN_NAME1
  7360. _FILE
  7361. _EDIT
  7362. _PRINT
  7363. _HEIGHT
  7364. _WIDTH
  7365. _TITLE
  7366. _PARAMETERS    
  7367. WIN_NAME1
  7368. ON_ESC
  7369. ON_F2
  7370. ON_F9
  7371. _TECLA
  7372. _FOOTER
  7373. OLD_F9
  7374. OLD_ESC
  7375. ESCAPE
  7376. OLD_F2
  7377. PRINT_ASCII
  7378. CONSOLEv
  7379. TYPE &_FILE TO PRINTER
  7380. SET CONSOLE &OLD_CONSOLE
  7381. Ficheiro nao encontrado [
  7382. _FILE
  7383. IMPRESSORA
  7384. OLD_CONSOLE
  7385. _MODU
  7386. _PROGJ
  7387. COMANDO
  7388. INDIQUE O COMANDO
  7389. &_COMMAND
  7390. _COMMAND
  7391. COMANDO
  7392. _____TECLA
  7393. _TIPO
  7394. _NULLVAR
  7395. \<Sim;\!\<Nao
  7396. Continuar ?
  7397.  <ESC> - cancela 
  7398. @*HT 
  7399. _OPCAO
  7400. _TITLE
  7401. _OPCOES
  7402. W_WIN
  7403. W_TIT
  7404. W_MSG
  7405. W_BUT
  7406. N_OPCOES
  7407. W_MAX
  7408. _QQI0KPZKH
  7409.  <ESC> - cancela 
  7410. _TITLE
  7411. _WIDTH
  7412. _PICT    
  7413. WIN_WIDTH
  7414. _QQI0NIYTE
  7415. Anula o registo
  7416. @*HT \!\<Nao;\<Sim
  7417. Confirma a anulacao ?
  7418. _OPCDEL
  7419. _WIDTH
  7420. _QQI0KPZKH
  7421. PASSNUM
  7422. A_LEN
  7423. B_LEN
  7424. JPNUM
  7425. A_LEND
  7426. _EXPR
  7427. _ALIAS
  7428. _ORDER
  7429. _STAT    
  7430. OLD_ORDER#
  7431. _DATA
  7432. FDOM!
  7433. _DATA
  7434. _DATA!
  7435. _DATA
  7436. _FILE
  7437. _HANDLER
  7438. _SIZE
  7439. _STRING
  7440. _FILE
  7441. _STRING
  7442. _STAT
  7443. _HANDLER
  7444. _SIZE
  7445. DELETEv
  7446. SET DELETE &OLD_DELET
  7447. DEL_TAG    
  7448. OLD_ORDER    
  7449. OLD_DELET    
  7450. TMP_ARRAY0
  7451.  1234567890.,+-:X
  7452.        
  7453.                         
  7454.        
  7455.      
  7456.           
  7457.        
  7458.        
  7459.          
  7460.       
  7461.        
  7462.      
  7463.           
  7464.        
  7465.        
  7466.                 
  7467.                                                   
  7468.                  
  7469. STR_VAL
  7470. _ALLOWED
  7471. _STAT
  7472. _BITMAP
  7473. ORIENTATION=1
  7474. ORIENTATION=1
  7475. round((
  7476. 999.9999999999_
  7477. replace picture with '"'+&_expmasc+'"'
  7478. REPORT_NAME
  7479. _FONT
  7480. _SIZE
  7481. _USED
  7482. _TMPFILE
  7483. _PARAMETERS
  7484. EJECTAFTER
  7485. FONTFACE
  7486. P_FONT
  7487. FONTSIZE
  7488. P_SIZE
  7489. _OLDPMOEDA
  7490. P_MOEDA
  7491. COMMENT
  7492. P_MOEDAOUT
  7493. _EXPMASC
  7494. _TMPFILE
  7495. STATk
  7496. MEMOWIDTHv
  7497. _WIDTH    
  7498. OLD_WIDTH
  7499. CREATE CURSOR &_ALIAS (TIPO C(1), NOME C(64))
  7500. _PATH    
  7501. EXTENSOES
  7502. _ALIAS
  7503. ACTUAL
  7504. EXTENSAO
  7505. DATEv
  7506. BRITISH
  7507. CENTURYv
  7508. STR_DATA
  7509. OLD_DATE
  7510. BRITISHp
  7511. STRING
  7512. SPACES
  7513. Ficheiro Inv
  7514. lido.
  7515. FICHEIRO
  7516. HANDLER
  7517. PRIMA <ESC> PARA RECOME
  7518. SYSMENUv
  7519. SET SYSMENU &MENU_STAT
  7520. MENU_STAT
  7521. MENSAGEM
  7522. TMP_WIN
  7523. _EXPR
  7524. _ALIAS
  7525. _EXPR
  7526. _ALIAS
  7527. _TYPE=TYPE("&FIELD")
  7528. CCC$*>
  7529. FIELD
  7530. _TYPE
  7531. IF TYPE("&CONDITION")<>"L"
  7532. FILTERv
  7533. SET FILTER TO &CONDITION
  7534. <ENTER> para escolher
  7535. <ESC> para sair
  7536. DESCRI
  7537. O A PROCURAR
  7538. enter
  7539. DO aux_tab
  7540. enter
  7541. SET FILTER TO &old_filt
  7542. _AREA
  7543. TAG_1
  7544. TAG_2
  7545. FIELD_1
  7546. FIELD_2
  7547. __MODE    
  7548. CONDITION
  7549. _VARREAD
  7550. _CAMPO
  7551. _WIDTH
  7552. WIDTH_1
  7553. WIDTH_2
  7554. OLD_FILT
  7555. F_SIZE
  7556. GET_TAB1
  7557. IS_TAG
  7558. GET_TAB2
  7559. ENTER
  7560. CODIGO    
  7561. DESCRICAO8
  7562. &_varread=EVALUATE(field_1)
  7563. {CTRL+Q}
  7564. STR_1
  7565. STR_2
  7566. PERCENT
  7567. CONT_1
  7568. CONT_2
  7569. WORD_1
  7570. WORD_2
  7571. Aguarde um momento...
  7572. DO aux_calc
  7573. DEFINE WINDOW calculadora  FROM INT((srow()-20)/2),INT((scol()-53)/2)  TO INT((srow()-20)/2)+19,INT((scol()-53)/2)+52  FOOTER "<ESC> para sair"+IIF(TYPE("&_VARREAD")="N","  <F10> retornar valor","")  TITLE "CALCULADORA"  FLOAT  CLOSE  GROW  SHADOW  COLOR SCHEME 1
  7574. IF TYPE("&_VALUE")="N" .OR. LASTKEY()=27  
  7575. Express
  7576. o invalida!
  7577. _CALCVALUE=&_value
  7578. _VARREAD
  7579. CALCULADORA
  7580. _VALUE
  7581. IF TYPE("&_VARREAD")="N"
  7582. &_varread=_CALCVALUE
  7583. {ESC}
  7584. KEYBOARDb
  7585. IF TYPE('&C') <> 'C'
  7586. Erro na linha C
  7587. . Express
  7588. o inv
  7589. lida 
  7590. Erro na linha C
  7591. . Delimitadores trocados 
  7592. Erro na linha C
  7593. . Delimitador direito n
  7594. o encontrado
  7595. Erro na linha C
  7596. . Delimitador esquerdo n
  7597. o encontrado
  7598. {CTRL+HOME}C
  7599. {DNARROW}
  7600. {RIGHTARROW}
  7601. KEYBOARD
  7602. LINHA
  7603. N_LINHAS
  7604. @L 99_
  7605. @L 9999_
  7606. MTOEc
  7607. OLD_ALIASI
  7608. _ARRAY
  7609. _ITEM
  7610. Quatro
  7611. Cinco
  7612. Treze
  7613. Quatorze
  7614. Quinze
  7615. Dezasseis
  7616. Dezassete
  7617. Dezoito
  7618. Dezanove
  7619. Vinte
  7620. Trinta
  7621. Quarenta
  7622. Cinquenta
  7623. Sessenta
  7624. Setenta
  7625. Oitenta
  7626. Noventa
  7627. Cento
  7628. Duzentos
  7629. Trezentos
  7630. Quatrocentos
  7631. Quinhentos
  7632. Seiscentos
  7633. Setecentos
  7634. Oitocentos
  7635. Novecentos
  7636. Euros
  7637. Centimo
  7638. Centimos
  7639. _VALOR
  7640. _NUMERO
  7641. _TEXT
  7642. _VALOR1
  7643. NTOE_AUX
  7644. _NUMERO
  7645. _TEXT
  7646. STACK_PTRb
  7647. RELATIONv
  7648. SKIPv
  7649. stack esgotado em FUNCS.PRG
  7650. _TARGET
  7651. _PARAMETERS
  7652. STACK_AREA    
  7653. STACK_REG    
  7654. STACK_ORD    
  7655. STACK_FIL    
  7656. STACK_REL    
  7657. STACK_SKP    
  7658. STACK_TAR    
  7659. STACK_PTR
  7660. STACK_T1
  7661. STACK_T2
  7662. STACK_T
  7663. SET FILTER TO &stack_fil[stack_ptr]
  7664. SET RELATION TO &stack_rel[stack_ptr]
  7665. SET SKIP TO &stack_skp[stack_ptr]
  7666. AREA    
  7667. STACK_PTR
  7668. STACK_AREA    
  7669. STACK_REG    
  7670. STACK_FIL    
  7671. STACK_REL    
  7672. STACK_SKP    
  7673. STACK_ORD    
  7674. STACK_TAR
  7675. STACK_T
  7676. STACK_T2
  7677. STACK_T1
  7678. Janeiro     
  7679. Fevereiro   
  7680. o       
  7681. Abril       
  7682. Maio        
  7683. Junho       
  7684. Julho       
  7685. Agosto      
  7686. Setembro    
  7687. Outubro     
  7688. Novembro    
  7689. Dezembro    
  7690. Regulariza
  7691. Apuramento  
  7692. Encerramento
  7693. Abertura
  7694. INVALIDO6
  7695. _INIMES
  7696. T_MES2
  7697. ROMANO_0b
  7698. NUMERO
  7699. ROMANO_0
  7700. ROMANO_1
  7701. ROMANO_2&
  7702. VALUE
  7703. MASKo
  7704. Verifique a impressora e prima ENTER para imprimir ou ESC para desistir
  7705. Verifique a impressora e prima ENTER para imprimir ou ESC para desistir
  7706. Impress
  7707. o em curso...
  7708. Impress
  7709. o cancelada.
  7710. SWITCH_ON
  7711. SUCESSO/
  7712. _LASTERRORb
  7713. Acesso a ficheiro negado [C
  7714. proc [
  7715.  line [CC
  7716. _ERROR
  7717. _PROC
  7718. _LINE
  7719. _PARAMETERS
  7720. _LASTERROR
  7721. _LASTERRORb
  7722. MODEb
  7723. ALIASb
  7724. Ficheiro em uso [
  7725. ]  <ENTER> - tenta de novo   <ESC> - desiste.
  7726. o foi possivel abrir o ficheiro [
  7727. ALIAS
  7728. _LASTERROR(
  7729. __MODEb
  7730. *Registo em uso. <ENTER> para tentar de novo ou <ESC> para desistir.
  7731. __MODE
  7732. STAT6
  7733. _mensagemb
  7734. _mensagemb
  7735. _mensagemb
  7736. ..\shared\forms\frmlock
  7737. _MENSAGEM
  7738. _CMDTENTAR
  7739. _CMDDESISTIR
  7740. LBSTAT
  7741. LBQUIET
  7742. LCMENSAGEM
  7743. LCCMDTENTAR
  7744. LCCMDDESISTIR
  7745. LNPARAMETERS
  7746. PRT_RESULTl
  7747. STRING
  7748. Prima
  7749. ENTER
  7750. para anular este registo ou
  7751. para desistir.
  7752. DEL_MSG
  7753. mvarb
  7754. mvarb
  7755. ERROR in data type. Cannot be encrypted.
  7756. WIDTH
  7757. DECIMALS
  7758. OUTVAR
  7759. CHCOUNT
  7760. MTYPE
  7761. OUTVAR
  7762. CHCOUNT
  7763. WIDTH
  7764. DECIMALS|
  7765. DECODE_STR\
  7766. PROG_ID    
  7767. DEMO_MODE    
  7768. ID_SERIAL    
  7769. ID_VERSAO    
  7770. ID_AGENTE
  7771. VERSAO97
  7772. SERIAL97
  7773. AGENTE97
  7774. BASES_ABERTAS
  7775. _NAME
  7776. _ALIAS    
  7777. CUR_ALIAS
  7778. _CAMPOS
  7779. N_CAMPOS
  7780. _ROWS
  7781. _RESULTADO3
  7782. CREATE DBF &_TEMP FROM ARRAY _CAMPOS
  7783. _NAME
  7784. _TYPE
  7785. _ALIAS    
  7786. CUR_ALIAS
  7787. _CAMPOS
  7788. N_CAMPOS
  7789. _TEMP
  7790. OLD_PATH
  7791. NEW_PATH
  7792. _ROWS
  7793. _COLS    
  7794. COPYINDEX
  7795. _FIELD
  7796. _ALIAS
  7797. _CAMPOS
  7798. N_CAMPOS
  7799. _RESULTADO    
  7800. CUR_ALIAS
  7801. _NAME
  7802. _TYPE
  7803. _ALIAS    
  7804. CUR_ALIAS
  7805. _CAMPOS
  7806. N_CAMPOS
  7807. _TEMP
  7808. OLD_PATH
  7809. NEW_PATH
  7810. _ROWS
  7811. _COLS
  7812. TEMP    
  7813. COPYINDEX
  7814. INDEX ON &_KEY TAG &_TAG
  7815. _SOURCE
  7816. _DEST
  7817. SOURCE
  7818. KEY_1
  7819. RESTRI
  7820. KEY_1
  7821. _OPCMENU
  7822. _IDUTIL    
  7823. OLD_ALIAS
  7824. RESTRI
  7825. KEY_1
  7826. Contribuinte
  7827. Numero de C
  7828.  errado!  Aceita?
  7829. CHECK_DIGIT
  7830. LCDESC
  7831. LCMENS
  7832. LNIND
  7833. _OPCAO 
  7834. CHECK_DIGIT
  7835. FIELD_1
  7836. THISFORMSET
  7837. RELEASE
  7838. DO errostab in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), _modulo,  _tabnome, _tabalias, _tabdesc, _ID
  7839. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7840. MOD_C
  7841. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7842. C_TABELAS
  7843. MOD_U
  7844. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7845. U_TABELAS
  7846. MOD_E
  7847. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7848. E_TABELAS
  7849. MOD_I
  7850. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7851. I_TABELAS
  7852. MOD_S
  7853. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7854. S_TABELAS
  7855. \Comuns\sabono.dbf
  7856. \pessoa\funci
  7857. \pessoa\indep
  7858. \pessoa\local
  7859. \pessoa\proce
  7860. \pessoa\movim
  7861. \pessoa\estab
  7862. \pessoa\segur
  7863. \pessoa\feria
  7864. \pessoa\recol
  7865. \pessoa\cadas
  7866. \pessoa\autom
  7867. \pessoa\custo
  7868. \pessoa\infop
  7869. MOD_A
  7870. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7871. A_TABELAS
  7872. FOR _ID=1 TO ALEN(&_TABARRAY)
  7873. _TABDESC=TABELAS(&_TABARRAY(_ID),1)               
  7874. _TABNOME=TABELAS(&_TABARRAY(_ID),2)
  7875. _TABALIAS=TABELAS(&_TABARRAY(_ID),3)
  7876. _TABINDEX=TABELAS(&_TABARRAY(_ID),4)
  7877. do form \projectos\gdg2000\shared\forms\frmrec with _tabnome, _tabdesc, _tabalias, &_TABARRAY(_ID)
  7878. INDEXA(&_TABARRAY(_ID),_TABNOME,_TABALIAS,.t.,.f.)
  7879. INDEXA(&_TABARRAY(_ID),_TABNOME,_TABALIAS,.t.,.f.)
  7880. INDEXA(&_TABARRAY(_ID),_TABNOME,_TABALIAS,.t.,.f.)
  7881. DO errodesc in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
  7882. _MODULO
  7883. LCVERIF
  7884. ALLTAB
  7885. ALLTAB_C    
  7886. _TABARRAY
  7887. ALLTAB_U
  7888. ALLTAB_E
  7889. ALLTAB_I
  7890. ALLTAB_S
  7891. P_TAB_DESCONTOS
  7892. TABELAS
  7893. P_TAB_FUNCIONARIOS
  7894. P_CODEMP
  7895. P_TAB_INDEPENDENTES
  7896. P_TAB_LOCAISPAGAMENTO
  7897. P_TAB_PROCESSAMENTOS
  7898. P_TAB_MOVIMENTOS
  7899. P_TAB_ESTABELECIMENTOS
  7900. P_TAB_SEGUROS
  7901. P_TAB_FERIAS
  7902. P_TAB_RECOLHA
  7903. P_TAB_CADASTRO
  7904. P_TAB_AUTOMATICOS
  7905. P_TAB_CENTROSDECUSTO
  7906. P_TAB_INFORMACOES
  7907. ALLTAB_A
  7908. FIXDBF
  7909. P_PATH
  7910. _TABNOME    
  7911. _TABALIAS
  7912. P_INDEX
  7913. P_CDX    
  7914. _TABINDEX    
  7915. E_TABELAS    
  7916. I_TABELAS
  7917. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7918. MOD_U
  7919. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7920. U_TABELAS
  7921. MOD_E
  7922. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7923. E_TABELAS
  7924. MOD_I
  7925. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7926. I_TABELAS
  7927. MOD_S
  7928. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7929. S_TABELAS
  7930. MOD_C
  7931. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7932. C_TABELAS
  7933. MOD_A
  7934. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7935. A_TABELAS
  7936. FOR _ID=1 TO ALEN(&_TABARRAY)
  7937. _TABALIAS=TABELAS(&_TABARRAY(_ID),3)
  7938. RELEASE &_TABARRAY
  7939. _MODULO
  7940. ALLTAB
  7941. ALLTAB_U    
  7942. _TABARRAY
  7943. ALLTAB_E
  7944. ALLTAB_I
  7945. ALLTAB_S
  7946. FECHA_N1_N2
  7947. ALLTAB_C
  7948. ALLTAB_A    
  7949. _TABALIAS
  7950. TABELAS
  7951. Aguarde um momento, Reindexando ficheiro ... 
  7952. \PROJECTOS\GDG2000\SHARED\PRG\ARRAYSP
  7953. INDICES
  7954. INDEX ON C
  7955.  TAG 
  7956. &_EXP
  7957. _NOME
  7958. _ALIAS
  7959. _MESS    
  7960. _COMPACTA
  7961. CDXNAME
  7962. P_PATH
  7963. ALLINDEX
  7964. INDICES
  7965. _showb
  7966. _showb
  7967. _showb
  7968. A vers
  7969. o de Demonstra
  7970. o permite Imprimir 
  7971. Menssagem
  7972. \PROJECTOS\GDG2000\SHARED\FORMS\PRINT
  7973. p_exportb
  7974. frx2any.exe0    
  7975. frx2any.exe
  7976.  preview window frmform_preview 
  7977. ..\shared\forms\frmprev
  7978. REPORT FORM &_comando 
  7979. _REPORT
  7980. _SHOW
  7981. _COMANDO
  7982. _REPORTEMP
  7983. _SERI
  7984. P_DEMO
  7985. _FPRESET
  7986. SET_REPORT
  7987. P_FONT
  7988. P_SIZE
  7989. CLR_REPORT
  7990. P_EXPORT
  7991. FRX2ANY
  7992. OFORM_PREVIEW
  7993. RELEASEB
  7994. Printing...
  7995. Printing...(
  7996. MOD_E
  7997. Entidades
  7998. MOD_I
  7999. Imobilizado
  8000. MOD_C
  8001. Contabilidade
  8002. MOD_S
  8003. o de Pessoal
  8004. MOD_N
  8005. Contabilidade N
  8006. o Organizada
  8007. MOD_A
  8008. _DESC
  8009. LCMENSAGEM
  8010. LCTITULO
  8011. LBTOCA
  8012. LNPARAM
  8013. LNVAL    
  8014. LBRETORNOP
  8015. Erro de programa
  8016. LCMENSAGEM
  8017. ICNSA
  8018. do deltables_aux with error()
  8019. \projectos\gdg2000\shared\prg\arraysp
  8020. \projectos\gdg2000\shared\prg\arraysp
  8021. Imobilizado
  8022. \projectos\gdg2000\shared\prg\arraysp
  8023. Contabilidade
  8024. \projectos\gdg2000\shared\prg\arraysp
  8025. o de Pessoal
  8026. \projectos\gdg2000\shared\prg\arraysp
  8027. Contabilidade N
  8028. o Organizada
  8029. \projectos\gdg2000\shared\prg\arraysp
  8030. o foi possivel eliminar os dados de 
  8031. Provavelmente est
  8032. o a ser acedidos por outro utilizador
  8033. \imobil\?
  8034. \contab\?
  8035. \pessoa\?????
  8036. \naoorg\?
  8037. \avenca\?
  8038. DO errodesc in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
  8039. PCENTID
  8040. PCMODULO
  8041. PCANO
  8042. LBRET
  8043. LNIND    
  8044. LBOCUPADO
  8045. LCTABELA
  8046. LBRESPOSTA    
  8047. LCVARMENS
  8048. LCPARAM
  8049. P_CODEMP    
  8050. P_ANOPROC
  8051. ALLTAB
  8052. ALLTAB_I    
  8053. I_TABELAS
  8054. LCARRAY
  8055. ALLTAB_C    
  8056. C_TABELAS
  8057. ALLTAB_S    
  8058. S_TABELAS
  8059. ALLTAB_N    
  8060. N_TABELAS
  8061. ALLTAB_A    
  8062. A_TABELAS
  8063. TABELAS
  8064. P_PATH
  8065. PRERRO
  8066. LBRET)
  8067. DO errodesc in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
  8068. PCEXIST
  8069. PCNEW
  8070. LNRES
  8071. CNAIS
  8072. PCMODULO
  8073. LNIND
  8074. LCEXIS    
  8075. LCEXISANO
  8076. LCNEW
  8077. LCNEWANO
  8078. LYTAB
  8079. LYRES
  8080. LNLEN
  8081. LNAUX
  8082. LNCONT
  8083. P_CODEMP    
  8084. P_ANOPROC
  8085. ALLTAB_I    
  8086. I_TABELAS
  8087. ALLTAB
  8088. TABELAS
  8089. NTABLE
  8090. P_PATH
  8091. INDEXA
  8092. LNIND2
  8093. ALLTAB_C    
  8094. C_TABELAS
  8095. ALLTAB_S    
  8096. S_TABELAS
  8097. ALLTAB_N    
  8098. N_TABELAS
  8099. _SEPb
  8100. P_MOEDAb
  8101. _DECb
  8102. _ESPb
  8103. _MASCARA
  8104. _SEPARADOR
  8105. _GRUP3
  8106. _REST
  8107. _DECIMAL
  8108. P_MOEDA
  8109. _ESPb
  8110.  999 999 999.99
  8111. 999 999 999 999
  8112. _MASCARA
  8113. P_MOEDA
  8114. _ESPb
  8115. 9 9 9 9 9 9 9 9 9 9.9 9
  8116. 9 9 9 9 9 9 9 9 9 9 9 9
  8117. _MASCARA
  8118. P_MOEDA8
  8119. _VALESC
  8120. _VALEURO8
  8121. _VALEURO
  8122. _VALESC
  8123. CCC$*
  8124. CCC$*
  8125. CCC$*
  8126. CCC$*
  8127. CCC$*
  8128. LCPATH
  8129. P_PATH    
  8130. STATUSBAR
  8131. _STATUSPANEL1
  8132. TEXTO
  8133. P_CODEMP
  8134. _STATUSPANEL2
  8135. P_FIRMA
  8136. _STATUSPANEL3    
  8137. P_ANOPROC
  8138. _STATUSPANEL4
  8139. P_LOGIN
  8140. _STATUSPANEL5
  8141. _STATUSPANEL6
  8142. EMPRESA
  8143. SELECT &OLD_ALIAS
  8144. _EXPR
  8145. _CODI
  8146. _STAT    
  8147. OLD_ORDER    
  8148. OLD_ALIAS    
  8149. IDEMPRESA
  8150. EMPRESA
  8151. FIRMA
  8152. ICNSA
  8153. MTABIN
  8154. Entidades - Imobilizado
  8155. empresa
  8156. mod_imo = 1 and inlist(arrirs, 0, 2, 4, 6)
  8157. key_1
  8158. idempresa,Codigo,;firma,Nome,350;anoimo,Ano,
  8159. text1
  8160. text1
  8161. MTEXTDBL
  8162. text1
  8163. text1
  8164. MTEXTDBL
  8165. text1
  8166. text1
  8167. MTEXTDBL
  8168. dynamicforecolor
  8169. iif(idempresa=p_codemp, RGB(192,192,192), RGB(0,0,0))
  8170. Column
  8171. text1
  8172. MTEXTENTRADA
  8173. empresa
  8174. key_1
  8175. MTABIN_EXERCICIOS
  8176. Entidades - Contabilidade
  8177. empresa
  8178. mod_org = 1 and inlist(arrirs, 0, 1, 4, 5)
  8179. key_1
  8180. idempresa,Codigo,;firma,Nome,350;anocon,Ano,;
  8181. text1
  8182. text1
  8183. MTEXTDBL
  8184. text1
  8185. text1
  8186. MTEXTDBL
  8187. text1
  8188. cmdEx
  8189. BUTTONEX
  8190. dynamicforecolor
  8191. iif(idempresa=p_codemp, RGB(192,192,192), RGB(0,0,0))
  8192. Column
  8193. text1
  8194. MTEXTENTRADA
  8195. empresa
  8196. key_1
  8197. empresa
  8198. empresa
  8199. MTABIN
  8200. Entidades - Gest
  8201. o de Pessoal
  8202. empresa
  8203. mod_sal = 1 and arrirs < 4
  8204. key_1
  8205. idempresa,Codigo,;firma,Nome,350;dat_proc,Ultimo Proc.,60
  8206. text1
  8207. text1
  8208. MTEXTDBL
  8209. text1
  8210. text1
  8211. MTEXTDBL
  8212. dynamicforecolor
  8213. iif(idempresa=p_codemp, RGB(192,192,192), RGB(0,0,0))
  8214. Column
  8215. text1
  8216. MTEXTENTRADA
  8217. empresa
  8218. key_1
  8219. A fun
  8220. o ENTIDIN foi chamada sem parametro,C
  8221. ou com parametro errado.
  8222. LCMODULO
  8223. LCENTID
  8224. ENTRADA
  8225. CTITULO
  8226. CALIAS
  8227. CFILTRO
  8228. CORDEM1
  8229. CFIELDS
  8230. NALTURA
  8231. CONSTROI
  8232. TFORM
  8233. GRID1
  8234. COLUMN1
  8235. REMOVEOBJECT    
  8236. ADDOBJECT
  8237. COLUMN2
  8238. COLUMN3
  8239. TEXT1
  8240. VISIBLE
  8241. SETALL
  8242. HEIGHT
  8243. WIDTH
  8244. CMDENTER
  8245. SELECTONENTRY
  8246. XSEEK
  8247. VCHAVE
  8248. LCGUARDA    
  8249. ROWHEIGHT
  8250. COLUMN4
  8251. CMDEX
  8252. EMPRESA
  8253. ANOCON
  8254. VALUE
  8255. CEXERCICIO
  8256. PROG_ERRORY
  8257. FRMSUBS
  8258. LNRES
  8259. FRMSUBS1
  8260. AUTOCENTER
  8261. CADICIONAR
  8262. Falta parametro na chamada 
  8263. o FOLDER
  8264. Scripting.FileSystemObject
  8265. _FOLDER
  8266. LCFOLDER
  8267. LLRET
  8268. LOFSO
  8269. PROG_ERROR
  8270. FOLDEREXISTSL
  8271. Falta parametro na chamada 
  8272. o CREATEFOLDER
  8273. Scripting.FileSystemObject
  8274. _FOLDER
  8275. LCFOLDER
  8276. LNRET
  8277. LOFSOC
  8278. LCTEMP
  8279. LNIND
  8280. LNOCUR
  8281. LCNEWFOLDER
  8282. LNTOTDIR
  8283. PROG_ERROR
  8284. FOLDER
  8285. CREATEFOLDER
  8286. Falta parametro na chamada 
  8287. o DELETEFOLDER
  8288. Scripting.FileSystemObject
  8289. _FOLDER
  8290. LCFOLDER
  8291. LNRET
  8292. LOFSOC
  8293. PROG_ERROR
  8294. FOLDER
  8295. DELETEFOLDER
  8296. o foi indicado parametro aquando da chamada 
  8297. o FORMCALL
  8298. _FORM    
  8299. _FORMNAME
  8300. LNRET
  8301. LCFORM
  8302. LCFORMNAME
  8303. PROG_ERROR
  8304. o foi indicado parametro aquando da chamada 
  8305. o FORMCALL_EX
  8306.  with '
  8307.  with '
  8308.  with '
  8309. do form 
  8310.  noshow
  8311. &lcstring
  8312. &lcstring
  8313. _FORM    
  8314. _FORMNAME
  8315. LNRET
  8316. LNPARAMETERS
  8317. LCPARAMS
  8318. LCSTRING
  8319. PROG_ERROR
  8320. Erro na defini
  8321. o dos parametros na chamada 
  8322. o EXERCICIOS
  8323. \naoorg\?
  8324. \contab\P
  8325. lnret = adir(&lcrandom, lcskeleton)
  8326. lntot = alen(&lcrandom,1)
  8327. release &lcarray
  8328. public &lcarray[lntot]
  8329. lcporc = val(left(right(alltrim(&lcrandom[lnind,1]),6),2))
  8330. store alltrim(str(int(lcporc + iif(lcporc > 49, 1900, 2000)))) to &lcarray[lnind]
  8331. =asort(&lcarray,1,lntot)
  8332. _MODULO
  8333. _PARRAY
  8334. _ENTID
  8335. LCMODULO
  8336. LCARRAY
  8337. LCENTID
  8338. LNANO
  8339. LNRET
  8340. LBRET2
  8341. LCSKELETON
  8342. LCRANDOM
  8343. LBCHECK
  8344. PROG_ERROR
  8345. P_PATH
  8346. LNTOT
  8347. LCPORC
  8348. LNIND
  8349. Erro nos parametros enviados p/ a fun
  8350. o EXISBD em FUNCS
  8351. \imobil\?
  8352. \pessoa\?????
  8353. \avenca\?
  8354. _MODULO
  8355. _ENTID
  8356. LBRET
  8357. LCMODULO
  8358. LCENTID
  8359. LNTOTAL
  8360. PROG_ERROR
  8361. LCEXISBD
  8362. P_PATH
  8363. _DATA1
  8364. _DATA2
  8365. LNANOS
  8366. DATA1
  8367. DATA2
  8368. LNRET
  8369. LDTRAB
  8370. BETWEEN(0, C
  8371. if type("&lcexpressao") <> "L"
  8372. Express
  8373. o incorrecta
  8374. INLIST(0,C
  8375. if type("&lcexpressao") <> "L"
  8376. Express
  8377. o incorrecta
  8378. BETWEEN(
  8379. INLIST(
  8380. Parametro 'FUN
  8381. O' incorrecto em FILTRO_MLT
  8382. _FUNCAO
  8383. _FILTRO
  8384. _FIELD
  8385. _QUIET
  8386. LCRESULTADO
  8387. LCFUNCAO
  8388. LCFILTRO
  8389. LCFIELD
  8390. LBQUIET
  8391. LCQUIET
  8392. LCSTRING
  8393. LNDISPLACEMENT
  8394. LNIND
  8395. LCEXPRESSAO
  8396. CT_BET
  8397. CT_INL
  8398. _TOTAL
  8399. PROG_ERROR
  8400. la_act_ex
  8401. Aguarde um momento...
  8402. o foi possivel abrir as tabelas em modo exclusivo
  8403. _SKELETON    
  8404. _ENTIDADE
  8405. _OCURRENCE
  8406. LCSKELETON
  8407. LCENTID
  8408. LCOCUR
  8409. LBRET
  8410. LCFICH
  8411. LCPATH
  8412. LBEXCLUSIVE
  8413. LNHDL
  8414. LCMYFILE
  8415. LBCONTAB
  8416. _TEMP1
  8417. _TEMP2
  8418. _LISTA
  8419. LNRET
  8420. LCNOME
  8421. LCNOME_SUB
  8422. LNIND
  8423. LNTOTEXERCICIOS
  8424. EXERCICIOS    
  8425. LA_ACT_EX    
  8426. FILE_NAME
  8427. FIELD_NAME
  8428. FIELD_TYPE    
  8429. FIELD_LEN    
  8430. FIELD_DEC    
  8431. CORRECTOR
  8432. PODE_AVANCAR
  8433. FICHEIRO
  8434. CAMPOS    
  8435. CHK_FILES
  8436. _PATH
  8437. _FILE
  8438. LCPATH
  8439. LCFILE
  8440. LBRET
  8441. EM_USO
  8442. Actualiza
  8443. o de tabelas
  8444.  Verificando o ficheiro 
  8445.  ACTUALIZADO
  8446.  CRIADO
  8447. Opera
  8448. o terminada. Tecle [ENTER] para continuar.
  8449. DO errodesc in \PROJECTOS\gdg2000\SHARED\PRG\ERROS WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
  8450. _PATH
  8451. _TEMP1
  8452. _TEMP2
  8453. _LISTA    
  8454. _FILENAME    
  8455. PROG_PATH
  8456. FRMMAIN    
  8457. BACKCOLOR
  8458. CONTROLBOX
  8459. HEIGHT
  8460. WIDTH
  8461. CAPTION
  8462. AUTOCENTER
  8463. FONTSIZE
  8464. FIELD_NAME
  8465. FIELD_TYPE    
  8466. FIELD_LEN    
  8467. FIELD_DEC
  8468. KEY_1    
  8469. CORRECTOR    
  8470. FILE_NAME
  8471. _CREATED
  8472. _UPDATED
  8473. STRU_COMPARE
  8474. STRU_UPDATE
  8475. STRU_CREATE
  8476. NEWNC
  8477. key_1
  8478. LCCHANGED    
  8479. LCCAHNGED
  8480. KEY_1
  8481. FIELD_NAME
  8482. FIELD_TYPE    
  8483. FIELD_LEN    
  8484. FIELD_DEC
  8485. Actualizando o ficheiro 
  8486. _FILENAME
  8487. _PATH
  8488. _TEMPX1
  8489. _TEMPX2
  8490. LCPATH
  8491. LCFILENAME
  8492. _TEMP1
  8493. _TEMP2
  8494. TEMP    
  8495. COPYINDEX    
  8496. PROG_PATH
  8497. Criando o ficheiro 
  8498. _FILENAME
  8499. _PATH
  8500. _TEMPX2
  8501. LCFILENAME
  8502. LCPATH
  8503. _TEMP2
  8504. _ALIASX
  8505. Falta parametro na chamada 
  8506. o XPROPER
  8507. Erro de programa
  8508.  Dos 
  8509.  dos 
  8510.  Das 
  8511.  das 
  8512. _NOME
  8513. LCNOME
  8514. LCRET
  8515. _valueb
  8516. Falta de parametro ou parametro incorrecto
  8517. Erro de programa
  8518. rgb(CC
  8519. _VALUE    
  8520. LCRETORNO
  8521. LNVALUE
  8522. LNVALOR1
  8523. LNVALOR2
  8524. LNVALOR3b
  8525. shared\icons
  8526. _PATH
  8527. LCPATH
  8528. LCRET
  8529. _DATA
  8530. LDDATA
  8531. LCRET
  8532. _VALOR
  8533. LNVALOR
  8534. LNTRAB    
  8535. LNRETORNO
  8536. LNRES
  8537. _VALOR
  8538. LNVALOR
  8539. LNTRAB    
  8540. LNRETORNO
  8541. LNRES
  8542. _FICH
  8543. LCFICH
  8544. LBRET
  8545. LNHANDLEY
  8546. Seleccione o directorio
  8547. Explorador
  8548. ..\shared\forms\frmdir
  8549. _TITULO    
  8550. _MENSAGEM
  8551. _PATHINICIAL
  8552. _FILE
  8553. LCTITULO
  8554. LCMENSAGEM
  8555. LCPATHINICIAL
  8556. LCRET
  8557. LNPARAMETERS
  8558. LBFILE
  8559. PRT_CHOSEDIR_RESULTADO!
  8560. _DESC
  8561. _DESC
  8562. MOD_C
  8563. MOD_I
  8564. MOD_S
  8565. MOD_N
  8566. MOD_E
  8567. MOD_A
  8568. _LOGIN
  8569. _MODULO
  8570. _PATH
  8571. LCLOGIN
  8572. LCMODULO
  8573. LCCOMP
  8574. LCPATH
  8575. LNRET
  8576. LCTEXTFILE
  8577. LOGIN
  8578. DATAHORA_E
  8579. DATAHORA_S
  8580. MODULO
  8581. TEXTFILEs
  8582. _PATH
  8583. LCPATH
  8584. LNHDL
  8585. TEXTFILE
  8586. DATAHORA_S
  8587. Confirma saida da aplica
  8588. Terminar...
  8589. evchk32
  8590. evmov32
  8591. evchk32
  8592. evmov32
  8593. Confirma saida da aplica
  8594. Terminar...
  8595. evchk32
  8596. evmov32
  8597. evchk32
  8598. evmov32
  8599. _CONFIRMA
  8600. _EXECUTA
  8601. LCFORM    
  8602. LCEXECUTA
  8603. LBCONFIRMA
  8604. LBRET
  8605. APPLICATION
  8606. FORMS
  8607. LOG_OUT
  8608. P_PATH
  8609. P_HDL
  8610. LCSTRING
  8611. _STRING
  8612. LCSTRING
  8613. lcvariavel
  8614. <VFPData>
  8615. </VFPData>
  8616. <?xml version = "1.0" encoding="Windows-1252" standalone="yes"?>
  8617. cs_xml_u
  8618. cs_xml_u
  8619. _CURSOR
  8620. _XMLFILE
  8621. _FLAG
  8622. LCCURSOR    
  8623. LCXMLFILE
  8624. LNFLAG
  8625. LCRET
  8626. LCVARIAVEL
  8627. LNTRAB
  8628. CS_XML_U
  8629. VARIAVELT
  8630. _CRLF
  8631. LCCRLFU
  8632. _CRLF
  8633. LCCRLFQ
  8634. _VALOR
  8635. LCTAG
  8636. LCVALOR
  8637. OPENTAG
  8638. CLOSETAGs
  8639. _TITULO
  8640. _CODEC
  8641. _CRLF
  8642. LCCRLF
  8643. _VALOR
  8644. _TITULO
  8645. _CODEC
  8646. LCTAG
  8647. LCVALOR
  8648. LCTITULO
  8649. LCCODEC
  8650. OPENTAG_CODEC
  8651. CLOSETAG
  8652. Excel.Application
  8653. _FILE
  8654. LCFILE
  8655. OEXCEL    
  8656. WORKBOOKS
  8657. CLOSE
  8658. OPEN2
  8659. _CELULA
  8660. OEXCEL
  8661. RANGE
  8662. VALUE
  8663. KEY_1
  8664. _CHAVE
  8665. ______STAT    
  8666. OLD_ALIAS
  8667. KEY_1
  8668. PARMS
  8669. KEY_1
  8670. SAVE ALL LIKE &_SKELETON TO MEMO PARM.PARMS
  8671. _CHAVE    
  8672. _SKELETON
  8673. ______STAT    
  8674. OLD_ALIAS
  8675. KEY_1
  8676. CHAVE
  8677. @L 99_
  8678. @L 99_
  8679. @L 99_
  8680. HORAINICIAL    
  8681. HORAFINAL    
  8682. NSEGUNDOS
  8683. HORAS
  8684. MINUTOS
  8685. SEGUNDOS
  8686. @L 99_
  8687. @L 99_
  8688. NSEGUNDOS
  8689. HORAS
  8690. MINUTOS
  8691. SEGUNDOS
  8692. ICNSA
  8693. MTABIN_EXERCICIOS
  8694. Entidades - Contabilidade
  8695. empresa
  8696. mod_org = 1
  8697. key_1
  8698. idempresa,Codigo,;firma,Nome,350;anocon,Ano,;
  8699. text1
  8700. text1
  8701. MTEXTDBL
  8702. text1
  8703. text1
  8704. MTEXTDBL
  8705. text1
  8706. cmdEx
  8707. BUTTONEX
  8708. dynamicforecolor
  8709. iif(idempresa=p_codemp, RGB(192,192,192), RGB(0,0,0))
  8710. Column
  8711. text1
  8712. MTEXTENTRADA
  8713. empresa
  8714. key_1
  8715. A fun
  8716. o ENTIDIN foi chamada sem parametro,C
  8717. ou com parametro errado.
  8718. LCMODULO
  8719. LCENTID
  8720. ENTRADA
  8721. CTITULO
  8722. CALIAS
  8723. CFILTRO
  8724. CORDEM1
  8725. CFIELDS
  8726. NALTURA
  8727. CONSTROI
  8728. TFORM
  8729. GRID1    
  8730. ROWHEIGHT
  8731. COLUMN1
  8732. REMOVEOBJECT    
  8733. ADDOBJECT
  8734. COLUMN2
  8735. COLUMN4
  8736. TEXT1
  8737. VISIBLE
  8738. CMDEX
  8739. SETALL
  8740. HEIGHT
  8741. WIDTH
  8742. CMDENTER
  8743. SELECTONENTRY
  8744. XSEEK
  8745. VCHAVE
  8746. PROG_ERROR
  8747. _EXPR
  8748. _CICK
  8749. plano1
  8750. plano2
  8751. PLANO1
  8752. PLANO2
  8753. _HORASSEMANA
  8754. _DIAS
  8755. _BASE
  8756. LNHORASSEMANA
  8757. LNDIAS
  8758. LNRESULTADO
  8759. LNBASE'
  8760. \comuns\
  8761. sconfig.xml
  8762. cconfig.xml
  8763. iconfig.xml66
  8764. cs_configuracoes
  8765. cs_configuracoes
  8766. _MODULO
  8767. LCMODULO
  8768. LNRET
  8769. LCFILE
  8770. P_PATH
  8771. CS_CONFIGURACOES
  8772. TEXTO
  8773. KEY_1
  8774. \comuns\
  8775. sconfig.xml
  8776. cconfig.xml
  8777. iconfig.xml66
  8778. cs_configuracoes
  8779. _MODULO
  8780. LCMODULO
  8781. LNRET
  8782. LCFILE
  8783. P_PATH<
  8784. LC_Ce
  8785. _DATA
  8786. LCRETJ
  8787. _PATH
  8788. LCRET
  8789. LNRATg
  8790. Janeiro  
  8791. Fevereiro
  8792. o    
  8793. Abril    
  8794. Maio     
  8795. Junho    
  8796. Julho    
  8797. Agosto   
  8798. Setembro 
  8799. Outubro  
  8800. Novembro 
  8801. Dezembro 
  8802. PA_GERAL_MES
  8803. PA_GERAL_MES
  8804. IMPRESSORA,
  8805. LOAD_CFGq
  8806. SLASH_BAR
  8807. f_lock
  8808. GETMEMLINI
  8809. MOUSE_YX\
  8810. errhandV
  8811. SETWPOS
  8812. SHOW_PATH
  8813. GET_PROCS
  8814. ON_ESCAPEj
  8815. EXEC_ATALHO:
  8816. SYSMSGR
  8817. SUSPEND
  8818. PUSH_ALL
  8819. POP_ALL
  8820. EDIT_ASCII
  8821. PRINT_ASCII
  8822. SUSPEND
  8823. ACESSO
  8824. EXEC_CMD<
  8825. PAUSA
  8826. NULLVAR
  8827. SIM_NAO
  8828. PROMPT_WIN6&
  8829. OPC_DEL
  8830. JENCRYPT
  8831. JPNUM
  8832. XSEEK
  8833. READ_STRINGN1
  8834. WRITE_STRING
  8835. NT_APPEND
  8836. BIG_NUMBER
  8837. SET_REPORT07
  8838. CLR_REPORT
  8839. LINHA_MEMO.;
  8840. GET_DIRS
  8841. SPACESTR
  8842. WO_FILE#@
  8843. SCR_SAVER
  8844. L_ON_GMB
  8845. F_ON_G
  8846. f_size
  8847. get_tab
  8848. aux_tab
  8849. is_tag
  8850. similarmL
  8851. calculadora
  8852. aux_calc
  8853. check_text+T
  8854. eval_text
  8855. dtoeBZ
  8856. clear_relations
  8857. clear_filters
  8858. clear_ordersd[
  8859. clear_rfo
  8860. aseek
  8861. ntoet\
  8862. ntoe_aux
  8863. mtoe=q
  8864. mes_extLt
  8865. preval
  8866. romano u
  8867. dbcr_OLD({
  8868. PRINTER
  8869. f_nextq}
  8870. ERR_HANDLER
  8871. n_use
  8872. r_lock}
  8873. X_LOCK
  8874. ENCRYPTi
  8875. CANCEL
  8876. del_msg
  8877. encode_str8
  8878. decode_str/
  8879. check_passG
  8880. check_protection
  8881. bases_abertas
  8882. GETFIELDLENX
  8883. ALTFIELD
  8884. ISFIELD<
  8885. ADDFIELDc
  8886. COPYINDEX
  8887. RESTRICT
  8888. CHK_NIF
  8889. VERIFICA_NIF
  8890. VERTAB_AUXU
  8891. OPENTAB
  8892. CLOSETABV
  8893. INDEXA
  8894. NOPRINTING
  8895. MODULODESC
  8896. PROG_ERROR
  8897. DELTABLES
  8898. DELTABLES_AUX
  8899. NTABLE
  8900. CRIABDL
  8901. mascmp
  8902. mascivaG
  8903. ESCTOEURO.
  8904. EUROTOESC}
  8905. STBRACT
  8906. MAISALGUMA
  8907. ENTIDIN
  8908. MSGADICIONA-
  8909. FOLDER
  8910. CREATEFOLDER
  8911. DELETEFOLDER
  8912. FORMCALL
  8913. FORMCALL_EX
  8914. EXERCICIOS
  8915. EXISBD
  8916. YEARDIF
  8917. FILTRO_MLT!
  8918. UPG_TABLES
  8919. PODE_AVANCARi
  8920. CHK_FILES,
  8921. STRU_COMPARE
  8922. STRU_UPDATE:
  8923. STRU_CREATE=
  8924. DBFSIZE.
  8925. XPROPER_
  8926. INV_RGB
  8927. PATHICON
  8928. EXT_DATA
  8929. XROUNDF
  8930. XROUND_2
  8931. EM_USO
  8932. CHOSEDIRf!
  8933. XML_OPENTAGF#
  8934. XML_CLOSETAGx#
  8935. LOG_IN
  8936. LOG_OUT
  8937. TERMINAR
  8938. RETIRA_ACENTUADOS
  8939. U_CURSORTOXMLK.
  8940. OPENTAG
  8941. CLOSETAG
  8942. OPENCLOSETAG
  8943. OPENTAG_CODEC
  8944. OPENCLOSETAG_CODEC
  8945. EXCEL
  8946. CELLVALy4
  8947. SET_PARMS
  8948. UPD_PARMS
  8949. Decortempo
  8950. ENTIDIN_2$9
  8951. Numeric]?
  8952. fecha_n1_n2H@
  8953. DIASHORAS
  8954. LE_CONFIGURACOES
  8955. GRAVA_CONFIGURACOESBC
  8956. SWAPCD
  8957. EX_DTOS
  8958. PATH_UP
  8959. ARRAY_MESES_GERALkE
  8960. ARRAY_MESES_GERAL_X
  8961. O Ficheiro n
  8962. o pode ser acedidioC
  8963. Provavelmente em uso por outro utilizador !
  8964. Erro :CC
  8965. mero do erro: CC
  8966. Mensagem de erro: 
  8967. Linha de c
  8968. digo com erro: 
  8969. mero de linhas com erro: CC
  8970. Programa com erro: 
  8971. MERROR
  8972. MESS1
  8973. MPROG
  8974. MLINENO
  8975. _MSG1
  8976. _MSG2
  8977. _MSG3
  8978. _MSG4
  8979. _MSG5    
  8980. P_CANCELA
  8981. _OPC/
  8982. do form \projectos\gdg2000\shared\forms\frmrec with _nome, _desc, _alias, &_TABARRAY(_ID)
  8983. ces danificados : 
  8984. O Ficheiro deve ser reindexado :
  8985. Erro :CC
  8986. ces inexitentes : 
  8987. O Ficheiro deve ser reindexado :
  8988. Erro :CC
  8989. O Ficheiro 
  8990. o pode ser acedidio
  8991. Provavelmente em uso por outro utilizador !
  8992. Erro :CC
  8993. O Ficheiro 
  8994. o existe
  8995.  poss
  8996. vel Continuar
  8997. Erro :CC
  8998. MOD_U
  8999. MERROR
  9000. _MODULO
  9001. _NOME
  9002. _ALIAS
  9003. _DESC
  9004. _MSG1
  9005. _MSG2
  9006. _MSG3
  9007. _MSG4
  9008. _MSG5
  9009. P_INDEX
  9010. P_CDX
  9011. CLOSETAB
  9012. P_MODULO
  9013. DATAHORA_S
  9014. ERRODESC,
  9015. ERROSTAB
  9016. (,,"MOD_E","MODULO DE ENTIDADES",1)
  9017. ("MOD_E",4,"E_P1","Ficheiros",1)
  9018. ("E_P1",4,"E_P1.1","Entidades",1)
  9019. ("E_P1",4,"E_P1.2","Org
  9020. os Sociais",1)
  9021. ("E_P1",4,"E_P1.3","Toc",1)
  9022. ("E_P1",4,"E_P1.5","Gabinete",1)
  9023. ("E_P1",4,"E_P1.6","Moeda",1)
  9024. ("E_P1",4,"E_P1.7","Pa
  9025. ses",1)
  9026. ("E_P1",4,"E_P1.8","Associa
  9027. es Patronais",1)
  9028. ("E_P1",4,"E_P1.9","Naturezas Jur
  9029. dicas",1)
  9030. ("MOD_E",4,"E_P2","Utilitarios",1)
  9031. ("E_P2",4,"E_P2.1","Reindexar Ficheiros",1)
  9032. ("E_P2",4,"E_P2.2","Seleccionar impressora",1)
  9033. ("E_P2",4,"E_P2.3","Seleccionar Fonte",1)
  9034. ("E_P2",4,"E_P2.4","Editar Ficheiro",1)
  9035. ("E_P2",4,"E_P2.5","Consultar Ficheiro de Log",1)
  9036. (,,"MOD_I","MODULO DE IMOBILIZADO",1)
  9037. ("MOD_I",4,"I_P1","Ficheiros",1)
  9038. ("I_P1",4,"I_P1.1","Grupos homog
  9039. neos",1)
  9040. ("I_P1",4,"I_P1.2","Contas do POC",1)
  9041. ("I_P1",4,"I_P1.3","Coeficientes p/ amortiza
  9042. es degressivas",1)
  9043. ("I_P1",4,"I_P1.4","Coeficientes de correc
  9044. o da moeda",1)
  9045. ("I_P1",4,"I_P1.5","Centros de custo",1)
  9046. ("I_P1",4,"I_P1.6","Tabela de correc
  9047. es fiscais",1)
  9048. ("I_P1",4,"I_P1.7","Seguradoras",1)
  9049. ("I_P1",4,"I_P1.8","Fichas do imobilizado",1)
  9050. ("MOD_I",4,"I_P2","Amortiza
  9051. es",1)
  9052. ("I_P2",4,"I_P2.1","Processamento das amortiza
  9053. es",1)
  9054. ("I_P2",4,"I_P2.2","Anular processamento",1)
  9055. ("I_P2",4,"I_P2.3","Simula
  9056. es",1)
  9057. ("I_P2",4,"I_P2.4","Hist
  9058. rico",1)
  9059. ("I_P2",4,"I_P2.5","Contabilidade",1)
  9060. ("I_P2.5",4,"I_P2.5.1","Correc
  9061. es fiscais do exercicio",1)
  9062. ("I_P2.5",4,"I_P2.5.2","Proveitos por via de comparticipa
  9063. es",1)
  9064. ("I_P2.5",4,"I_P2.5.3","Nota de lan
  9065. amento (Amortiza
  9066. es do exercicio)",1)
  9067. ("I_P2.5",4,"I_P2.5.4","Exporta
  9068. o de lan
  9069. amentos",1)
  9070. ("I_P2",4,"I_P2.6","Mapa de amortiza
  9071. es",1)
  9072. ("I_P2",4,"I_P2.7","Mapa de + e - valias",1)
  9073. ("I_P2",4,"I_P2.8","Encerramento do exercicio",1)
  9074. ("I_P2",4,"I_P2.9","Reabertura do exercicio anterior",1)
  9075. ("MOD_I",4,"I_P3","Reavalia
  9076. es",1)
  9077. ("I_P3",4,"I_P3.1","Processamento das reavalia
  9078. es",1)
  9079. ("I_P3",4,"I_P3.2","Anular processamento das reavalia
  9080. es",1)
  9081. ("I_P3",4,"I_P3.3","Contabilidade",1)
  9082. ("I_P3.3",4,"I_P3.3.1","Nota de lan
  9083. amento",1)
  9084. ("I_P3.3",4,"I_P3.3.2","Exporta
  9085. o de lan
  9086. amentos",1)
  9087. ("I_P3",4,"I_P3.4","Mapa de reavalia
  9088. es",1)
  9089. ("MOD_I",4,"I_P4","Listagens",1)
  9090. ("I_P4",4,"I_P4.1","Rela
  9091. o / Resumo de bens por centro de custo",1)
  9092. ("I_P4",4,"I_P4.2","Rela
  9093. o / Resumo de bens por grupo homog
  9094. neo",1)
  9095. ("I_P4",4,"I_P4.3","Rela
  9096. o / Resumo de bens por conta",1)
  9097. ("I_P4",4,"I_P4.4","Rela
  9098. o de bens por tipo",1)
  9099. ("I_P4",4,"I_P4.5","Rela
  9100. o de bens por conta e grupo",1)
  9101. ("I_P4",4,"I_P4.6","Listagem de elementos abatidos",1)
  9102. ("I_P4",4,"I_P4.7","Bens cujo valor liquido < quef. amortiza
  9103. o",1)
  9104. ("I_P4",4,"I_P4.8","Bens totalmente amortizados",1)
  9105. ("I_P4",4,"I_P4.9","Bens adquiridos c/ + valia reinvestida",1)
  9106. ("I_P4",4,"I_P4.10","Bens adquiridos entre anos",1)
  9107. ("I_P4",4,"I_P4.11","Bens adquiridos em loca
  9108. o financeira",1)
  9109. ("I_P4",4,"I_P4.12","Bens j
  9110.  reavaliados",1)
  9111. ("I_P4",4,"I_P4.13","Bens n
  9112. o reavaliados",1)
  9113. ("I_P4",4,"I_P4.14","Mapa contabilistico dos bens reavaliados",1)
  9114. ("I_P4",4,"I_P4.15","Confer
  9115. ncia de taxas",1)
  9116. ("MOD_I",4,"I_P5","Utilit
  9117. rios",1)
  9118. ("I_P5",4,"I_P5.1","Reindexar ficheiros",1)
  9119. ("I_P5",4,"I_P5.2","Seleccionar impressora",1)
  9120. ("I_P5",4,"I_P5.3","Seleccionar fonte",1)
  9121. ("I_P5",4,"I_P5.4","Editar ficheiro",1)
  9122. ("I_P5",4,"I_P5.5","Consultar ficheiro de Log",1)
  9123. ("I_P5",4,"I_P5.6","Mudar entidade",1)
  9124. ("I_P5",4,"I_P5.7","Dados da entidade",1)
  9125. ("I_P5",4,"I_P5.8","Converter",1)
  9126. (,,"MOD_C","MODULO DE CONTABILIDADE",1)
  9127. ("MOD_C",4,"C_P1","Ficheiros",1)
  9128. ("C_P1",4,"C_P1.1","Plano de Contas",1)
  9129. ("C_P1",4,"C_P1.2","Descritivos",1)
  9130. ("C_P1",4,"C_P1.3","Criterios de reparti
  9131. o",1)
  9132. ("C_P1",4,"C_P1.4","Documentos autom
  9133. ticos",1)
  9134. ("C_P1",4,"C_P1.5","Configura
  9135. o do IVA",1)
  9136. ("MOD_C",4,"C_P2","Contabilidade",1)
  9137. ("C_P2",4,"C_P2.1","Movimentos",1)
  9138. ("C_P2",4,"C_P2.2","Di
  9139. rios",1)
  9140. ("C_P2",4,"C_P2.3","Balancetes",1)
  9141. ("C_P2",4,"C_P2.4","Extractos",1)
  9142. ("C_P2",4,"C_P2.5","Declara
  9143. o peri
  9144. dica do Iva",1)
  9145. ("C_P2",4,"C_P2.6","Apuramento do Iva e outros",1)
  9146. ("C_P2",4,"C_P2.7","Encerramento das contas",1)
  9147. ("C_P2",4,"C_P2.8","Abertura do exercicio seguinte",1)
  9148. ("C_P2",4,"C_P2.9","Importa
  9149. o de movimentos",1)
  9150. ("C_P2.9",4,"C_P2.9.1","De outra entidade",1)
  9151. ("C_P2.9",4,"C_P2.9.2","Do Ficheiro",1)
  9152. ("C_P2.9",4,"C_P2.9.3","Amortiza
  9153. es do Exerc
  9154. cio",1)
  9155. ("C_P2.9",4,"C_P2.9.4","",1)
  9156. ("C_P2.9",4,"C_P2.9.5","",1)
  9157. ("C_P2.9",4,"C_P2.9.6","",1)
  9158. ("C_P2",4,"C_P2.10","Situa
  9159. o da Contabilidade",1)
  9160. ("C_P2",4,"C_P2.11","Opera
  9161. es com movimentos",1)
  9162. ("C_P2.11",4,"C_P2.11.1","Verifica
  9163. o de movimentos",1)
  9164. ("C_P2.11",4,"C_P2.11.2","Regenera
  9165. o de acumulados",1)
  9166. ("C_P2.11",4,"C_P2.11.3","Transfer
  9167. ncia de conta",1)
  9168. ("C_P2.11",4,"C_P2.11.4","Transfer
  9169. ncia de documentos",1)
  9170. ("C_P2.11",4,"C_P2.11.5","Anula
  9171. o de documentos",1)
  9172. ("C_P2.11",4,"C_P2.11.6","Verificar/Actualizar contribuintes",1)
  9173. ("C_P2.11",4,"C_P2.11.7","Anula
  9174. o de movimentos de valor nulo",1)
  9175. ("MOD_C",4,"C_P3","Gest
  9176. o",1)
  9177. ("C_P3",4,"C_P3.1","Consulta de Conta",1)
  9178. ("C_P3",4,"C_P3.2","Consulta de Saldos",1)
  9179. ("C_P3",4,"C_P3.3","Resumo de Di
  9180. rios",1)
  9181. ("C_P3",4,"C_P3.4","Consulta de Movimentos",1)
  9182. ("C_P3",4,"C_P3.5","Indicadores Econ
  9183. mico-Financeiros",1)
  9184. ("C_P3",4,"C_P3.6","Or
  9185. amentos",1)
  9186. ("C_P3.6",4,"C_P3.6.1","Manuten
  9187. o",1)
  9188. ("C_P3.6",4,"C_P3.6.2","Consultas",1)
  9189. ("C_P3.6",4,"C_P3.6.3","Mapas de Desvios",1)
  9190. ("C_P3",4,"C_P3.7","Concilia
  9191. es Banc
  9192. rias",1)
  9193. ("C_P3.7",4,"C_P3.7.1","Extracto Banc
  9194. rio",1)
  9195. ("C_P3.7",4,"C_P3.7.2","Concilia
  9196. o Banc
  9197. ria",1)
  9198. ("C_P3.7",4,"C_P3.7.3","Consultas",1)
  9199. ("C_P3.7",4,"C_P3.7.4","Relat
  9200. rios",1)
  9201. ("C_P3",4,"C_P3.8","Contas correntes",1)
  9202. ("C_P3.8",4,"C_P3.8.1","Picagem de Contas Correntes",1)
  9203. ("C_P3.8",4,"C_P3.8.2","Extracto de Conta corrente",1)
  9204. ("C_P3.8",4,"C_P3.8.3","Documentos em Aberto",1)
  9205. ("C_P3.8",4,"C_P3.8.4","An
  9206. lise de Saldos por antiguidade",1)
  9207. ("C_P3.8",4,"C_P3.8.5","",1)
  9208. ("C_P3.8",4,"C_P3.8.6","",1)
  9209. ("C_P3.8",4,"C_P3.8.7","",1)
  9210. ("C_P3",4,"C_P3.9","Simula
  9211. o de Resultados",1)
  9212. ("C_P3",4,"C_P3.10","Mapas de Gest
  9213. o",1)
  9214. ("C_P3",4,"C_P3.11","Estat
  9215. stica de Movimentos",1)
  9216. ("MOD_C",4,"C_P4","Presta
  9217. o de Contas",1)
  9218. ("C_P4",4,"C_P4.1","Demonstra
  9219. es Financeiras",1)
  9220. ("C_P4",4,"C_P4.2","Anexo ao Balan
  9221. o e Demonstra
  9222. o",1)
  9223. ("C_P4",4,"C_P4.3","Modelo 22 - IRC",1)
  9224. ("C_P4",4,"C_P4.4","Modelo 3 - IRS",1)
  9225. ("C_P4",4,"C_P4.5","Declara
  9226. o Anual IRC, IRS, IVA",1)
  9227. ("C_P4",4,"C_P4.6","Relat
  9228. rio de Gest
  9229. o",1)
  9230. ("C_P4",4,"C_P4.7","Art.
  9231.  Estatuto da CTOC",1)
  9232. ("MOD_C",4,"C_P5","Utilit
  9233. rios",1)
  9234. ("C_P5",4,"C_P5.1","Indexar Ficheiros",1)
  9235. ("C_P5",4,"C_P5.2","Consultar ficheiro de Log",1)
  9236. ("C_P5",4,"C_P5.3","Seleccionar Impressora",1)
  9237. ("C_P5",4,"C_P5.4","Seleccionar Fonte",1)
  9238. ("C_P5",4,"C_P5.5","Editar Ficheiro",1)
  9239. ("C_P5",4,"C_P5.6","Mudar de Entidade",1)
  9240. ("C_P5",4,"C_P5.7","Dados da Entidade",1)
  9241. ("C_P5",4,"C_P5.8","C
  9242. pias de Seguran
  9243. a",1)
  9244. ("C_P5",4,"C_P5.9","Prefer
  9245. ncias",1)
  9246. ("C_P5",4,"C_P5.10","Exerc
  9247. cio Anterior",1)
  9248. ("C_P5",4,"C_P5.11","Exerc
  9249. cio Seguinte",1)
  9250. ("C_P5",4,"C_P5.12","Converter para Euros",1)
  9251. ("C_P5",4,"C_P5.13","Moeda de Output",1)
  9252. (,,"MOD_S","MODULO DE GEST
  9253. O DE PESSOAL",1)
  9254. ("MOD_S",4,"S_P1","Ficheiros",1)
  9255. ("S_P1",4,"S_P1.1","Bancos",1)
  9256. ("S_P1",4,"S_P1.2","Seguros",1)
  9257. ("S_P1",4,"S_P1.3","Centros de custo",1)
  9258. ("S_P1",4,"S_P1.4","Estabelecimentos",1)
  9259. ("S_P1",4,"S_P1.5","Locais de pagamento",1)
  9260. ("S_P1",4,"S_P1.6","Autom
  9261. ticos",1)
  9262. ("S_P1",4,"S_P1.7","Tabelas comuns",1)
  9263. ("S_P1.7",4,"S_P1.7.1","Abonos",1)
  9264. ("S_P1.7",4,"S_P1.7.2","Faltas",1)
  9265. ("S_P1.7",4,"S_P1.7.3","Descontos",1)
  9266. ("S_P1.7",4,"S_P1.7.4","Irt/Categorias",1)
  9267. ("S_P1.7",4,"S_P1.7.5","Profiss
  9268. es",1)
  9269. ("S_P1.7",4,"S_P1.7.6","Estado",1)
  9270. ("S_P1.7",4,"S_P1.7.7","Habilita
  9271. es liter
  9272. rias",1)
  9273. ("S_P1.7",4,"S_P1.7.8","IRS",1)
  9274. ("S_P1.7",4,"S_P1.7.9","Centros de Seg. Social",1)
  9275. ("S_P1.7",4,"S_P1.7.10","Regimes",1)
  9276. ("S_P1.7",4,"S_P1.7.11","Distritos/Concelhos/Freguesias",1)
  9277. ("S_P1.7",4,"S_P1.7.12","Nacionalidades",1)
  9278. ("S_P1.7",4,"S_P1.7.13","Sindicatos",1)
  9279. ("S_P1.7",4,"S_P1.7.14","Configura
  9280. es contabilidade",1)
  9281. ("MOD_S",4,"S_P2","Colaboradores",1)
  9282. ("S_P2",4,"S_P2.1","Funcion
  9283. rios",1)
  9284. ("S_P2.1",4,"S_P2.1.1","Anula
  9285. o de funcion
  9286. rios",1)
  9287. ("S_P2.1",4,"S_P2.1.2","Anula
  9288. o de fixos dos funcion
  9289. rios",1)
  9290. ("S_P2",4,"S_P2.2","Independentes",1)
  9291. ("S_P2.2",4,"S_P2.2.1","Manuten
  9292. o",1)
  9293. ("S_P2.2",4,"S_P2.2.2","Lan
  9294. amentos",1)
  9295. ("S_P2",4,"S_P2.3","Hist
  9296. rico de cadastro",1)
  9297. ("S_P2",4,"S_P2.4","Introdu
  9298. o de acumulados",1)
  9299. ("MOD_S",4,"S_P3","Processamento",1)
  9300. ("S_P3",4,"S_P3.1","Consulta de processamentos",1)
  9301. ("S_P3",4,"S_P3.2","Relat
  9302. rio de encargos",1)
  9303. ("S_P3",4,"S_P3.3","Recolha de vari
  9304. veis",1)
  9305. ("S_P3",4,"S_P3.4","Processamento autom
  9306. tico",1)
  9307. ("S_P3",4,"S_P3.5","Processamento manual",1)
  9308. ("S_P3",4,"S_P3.6","Simulador",1)
  9309. ("S_P3",4,"S_P3.7","Manuten
  9310. o de processamentos",1)
  9311. ("S_P3.7",4,"S_P3.7.1","Anula
  9312. o de processamentos",1)
  9313. ("S_P3",4,"S_P3.8","Emitir recibos",1)
  9314. ("S_P3",4,"S_P3.9","Emitir cheques",1)
  9315. ("S_P3",4,"S_P3.10","Listagem de transfer
  9316. ncias banc
  9317. rias",1)
  9318. ("MOD_S",4,"S_P4","Listagens",1)
  9319. ("S_P4",4,"S_P4.1","Seguran
  9320. a Social",1)
  9321. ("S_P4",4,"S_P4.2","Quadros de pessoal",1)
  9322. ("S_P4",4,"S_P4.3","Declara
  9323. o de Reten
  9324. es na Fonte",1)
  9325. ("S_P4",4,"S_P4.4","Anexo J",1)
  9326. ("S_P4",4,"S_P4.5","Outras listagens",1)
  9327. ("S_P4.5",4,"S_P4.5.1","Mapa de vencimentos",1)
  9328. ("S_P4.5",4,"S_P4.5.2","Mapa de liquida
  9329. o de IRS",1)
  9330. ("S_P4.5",4,"S_P4.5.3","Mapa p/ contabilidade",1)
  9331. ("S_P4.5",4,"S_P4.5.4","Mapa p/ o seguro",1)
  9332. ("S_P4.5",4,"S_P4.5.5","Mapa p/ o sindicato",1)
  9333. ("S_P4.5",4,"S_P4.5.6","Lista de Valores descontados de IRS",1)
  9334. ("S_P4.5",4,"S_P4.5.7","Lista de Valores descontados de TSU",1)
  9335. ("S_P4.5",4,"S_P4.5.8","Listagem de diferen
  9336. as TSU",1)
  9337. ("S_P4.5",4,"S_P4.5.9","Mapa por centros de custo",1)
  9338. ("S_P4.5",4,"S_P4.5.10","Extracto do funcion
  9339. rio",1)
  9340. ("S_P4.5",4,"S_P4.5.11","Lista de abonos/faltas",1)
  9341. ("S_P4.5",4,"S_P4.5.12","Mapa de altera
  9342. es mensais",1)
  9343. ("S_P4.5",4,"S_P4.5.13","Mapa de abonos fixos",1)
  9344. ("S_P4.5",4,"S_P4.5.14","Mapa de f
  9345. rias",1)
  9346. ("S_P4.5",4,"S_P4.5.15","Mapa de faltas",1)
  9347. ("S_P4.5",4,"S_P4.5.16","Mapa de admiss
  9348. es",1)
  9349. ("S_P4.5",4,"S_P4.5.17","Mapa de demiss
  9350. es",1)
  9351. ("S_P4.5",4,"S_P4.5.18","Cessa
  9352. o de contratos",1)
  9353. ("S_P4.5",4,"S_P4.5.19","Pessoal ao servi
  9354. o",1)
  9355. ("S_P4.5",4,"S_P4.5.20","Declara
  9356. o anual de rendimentos",1)
  9357. ("MOD_S",4,"S_P5","Utilit
  9358. rios",1)
  9359. ("S_P5",4,"S_P5.1","Indexar Ficheiros",1)
  9360. ("S_P5",4,"S_P5.2","Seleccionar Impressora",1)
  9361. ("S_P5",4,"S_P5.3","Seleccionar Fonte",1)
  9362. ("S_P5",4,"S_P5.4","Editar Ficheiro",1)
  9363. ("S_P5",4,"S_P5.5","Consultar ficheiro de Log",1)
  9364. ("S_P5",4,"S_P5.6","Mudar de Entidade",1)
  9365. ("S_P5",4,"S_P5.7","Dados da Entidade",1)
  9366. ("S_P5",4,"S_P5.8","C
  9367. pias de Seguran
  9368. a",1)
  9369. ("S_P5",4,"S_P5.9","Tarefas",1)
  9370. ("S_P5",4,"S_P5.10","Prefer
  9371. ncias",1)
  9372. ("S_P5",4,"S_P5.11","Licen
  9373. a",1)
  9374. ("S_P5",4,"S_P5.12","Moeda de Output",1)
  9375. (,,"MOD_A","AVEN
  9376. AS",1)
  9377. MNUEf&
  9378. Tabela de Utilizadores
  9379. \COMUNS\wutil.dbf
  9380. Tabela de Empresas
  9381. \COMUNS\wempresa.dbf
  9382. EMPRESA
  9383. Tabela de Org
  9384. o Sociais
  9385. \COMUNS\Worgaos.dbf
  9386. ORGAOS
  9387. Tabela de Tocs
  9388. \COMUNS\Wtoc.dbf
  9389. Tabela de Rela
  9390. es Org
  9391. os/Empresa
  9392. \COMUNS\wemporg.dbf
  9393. EMPORG
  9394. Tabela de Restri
  9395. \COMUNS\wrestri.dbf
  9396. RESTRI
  9397. Dados do Gabinete
  9398. \COMUNS\wgabinet.dbf
  9399. Ficheiro de LOG
  9400. \COMUNS\wlog.dbf
  9401. Tabela de Grupos Homogeneos
  9402. \COMUNS\Igrupo.dbf
  9403. Tabela de Contas do Poc
  9404. \COMUNS\Iconta.dbf
  9405. Coeficientes p/Amortiza
  9406. es Degressivas
  9407. \COMUNS\Icoefad.dbf
  9408. Coeficientes de Correc
  9409. o da Moeda
  9410. \COMUNS\Icoefcm.dbf
  9411. Tabela de centros de Custos*
  9412. \Imobil\C
  9413. Tabela de Correc
  9414. es Fiscais
  9415. \Comuns\icorf.dbf
  9416. Tabela de Fichas de Imobilizado*
  9417. \Imobil\B
  9418. Tabela de Seguradoras
  9419. \COMUNS\wsegur.dbf
  9420. segur
  9421. Tabela de Moedas
  9422. \COMUNS\wmoeda.dbf
  9423. moeda
  9424. Historico de Amort. e Reav. *
  9425. \Imobil\H
  9426. Tabela de Diarios
  9427. \Comuns\cdiario.dbf
  9428. diario
  9429. Plano de Contas *
  9430. \contab\P
  9431. Plano
  9432. Tabela de Descritivos
  9433. \comuns\cdescri.dbf
  9434. tabdesc
  9435. Tabela de Centros de Custo *
  9436. \contab\C
  9437. centro
  9438. Criterios de reparti
  9439. o por Centro de Custo *
  9440. \contab\K
  9441. criterio
  9442. Tabela de Movimentos *
  9443. \contab\L
  9444. Lanca
  9445. Tabela de Parametros
  9446. \comuns\wparam.dbf
  9447. Dados do Exerc
  9448. cio *
  9449. \contab\E
  9450. exerc
  9451. Tabela de Indicadores 
  9452. \comuns\cindica.dbf
  9453. indica
  9454. Tabela de Documentos Autom
  9455. ticos
  9456. \comuns\cdocaut.dbf
  9457. docaut
  9458. Tabela de Movimentos Autom
  9459. ticos
  9460. \comuns\cdocautd.dbf
  9461. docautd
  9462. Tabela de Configura
  9463. es do IVA
  9464. \comuns\cpariva.dbf
  9465. pariva
  9466. amentos *
  9467. \contab\O
  9468. orcamento
  9469. Extractos *
  9470. \contab\X
  9471. extracto
  9472. Tabela de Paises
  9473. \COMUNS\wpaises.dbf
  9474. paises
  9475. Ficheiro de configura
  9476. o de Modelos *
  9477. \contab\M
  9478. mapas
  9479. Sindicatos
  9480. \Comuns\ssind.dbf
  9481. Natureza Juridica
  9482. \Comuns\wnatjur.dbf
  9483. natjur
  9484. Regimes
  9485. \Comuns\sregime.dbf
  9486. Centros Seg.Social
  9487. \Comuns\scrss.dbf
  9488. Nacionalidades
  9489. \Comuns\snaci.dbf
  9490. Situa. na Profiss
  9491. \Comuns\sestado.dbf
  9492. estado
  9493. Tabela de IRS
  9494. \Comuns\sirs.dbf
  9495. Habilita
  9496. es Liter
  9497. \Comuns\shabili.dbf
  9498. habili
  9499. Abonos/Faltas/Descontos
  9500. \Comuns\sabono.dbf
  9501. abono
  9502. Profiss
  9503. \Comuns\sprof.dbf
  9504. Distritos
  9505. \Comuns\sdist.dbf
  9506. distr
  9507. Concelhos
  9508. \Comuns\sconce.dbf
  9509. conce
  9510. \Comuns\sirt.dbf
  9511. Categorias
  9512. \Comuns\scate.dbf
  9513. Funcion
  9514. rios *
  9515. \pessoa\funci
  9516. funci
  9517. Recolha de vari
  9518. veis *
  9519. \pessoa\recol
  9520. recol
  9521. rico *
  9522. \pessoa\cadas
  9523. cadastro
  9524. Movimentos *
  9525. \pessoa\movim
  9526. movim
  9527. Lista de abonos autom
  9528. ticos *
  9529. \pessoa\autom
  9530. autoc
  9531. Lista de processamentos *
  9532. \pessoa\proce
  9533. tproc
  9534. Independentes *
  9535. \pessoa\indep
  9536. indep
  9537. Locais de pagamento *
  9538. \pessoa\local
  9539. local
  9540. Bancos *
  9541. \pessoa\banco
  9542. banco
  9543. Seguros *
  9544. \pessoa\segur
  9545. segur
  9546. Centros de Custo *
  9547. \pessoa\custo
  9548. custo
  9549. Estabelecimentos *
  9550. \pessoa\estab
  9551. estab
  9552. Freguesias
  9553. \Comuns\sfreg.dbf
  9554. Assoc. Patronais
  9555. \Comuns\wassoc.dbf
  9556. assoc
  9557. Ferias *
  9558. \pessoa\feria
  9559. ferias
  9560. Configura
  9561. es da contabilidade
  9562. \Comuns\scontab.dbf
  9563. contab
  9564. Contratos
  9565. \Comuns\scont.dbf
  9566. contrato
  9567. Informa
  9568. es do processamento *
  9569. \pessoa\infop
  9570. infop
  9571. Tabela de Alertas
  9572. \COMUNS\walertas.dbf
  9573. alertas
  9574. Tabela de Configura
  9575. \COMUNS\sconfig.dbf
  9576. configur
  9577. TABELAS
  9578. P_CODEMP    
  9579. P_ANOPROC
  9580. IDUTIL
  9581. KEY_1
  9582. LOGIN
  9583. KEY_2
  9584. UPPER(IDEMPRESA)
  9585. KEY_1
  9586. UPPER(FIRMA)
  9587. KEY_2
  9588. IDORGAOS
  9589. KEY_1
  9590. KEY_2
  9591. IDTOC
  9592. KEY_1
  9593. KEY_2
  9594. idempresa+STR(idorgaos)
  9595. KEY_1
  9596. idempresa
  9597. KEY_EMP
  9598. ALLTRIM(STR(idutil))+ALLTRIM(opcmenu)
  9599. KEY_1
  9600. login+alltrim(modulo)
  9601. KEY_1
  9602. KEY_1
  9603. KEY_2
  9604. conta
  9605. KEY_1
  9606. KEY_2
  9607. KEY_1
  9608. KEY_1
  9609. KEY_2
  9610. str(ano)+str(codi)
  9611. KEY_3
  9612. KEY_1
  9613. KEY_2
  9614. idorgaos
  9615. KEY_ORG
  9616. KEY_1
  9617. artigo
  9618. KEY_2
  9619. b_cod
  9620. KEY_1
  9621. KEY_1
  9622. KEY_2
  9623. idmoeda
  9624. KEY_1
  9625. KEY_2
  9626. tipo_proc
  9627. KEY_1
  9628. tipo_proc+str(ano)+alltrim(str(codbem))
  9629. KEY_2
  9630. codbem
  9631. KEY_3
  9632. B_ESTADO+STR(B_GRUPO)+STR(B_ANO_AQU)+STR(B_INI_ANO)+STR(B_INI_MES)+STR(ROUND(B_TAXEXE,3))+IIF(B_VAL_LIQ=0 .AND. B_AE=0,'0','1')
  9633. KEY_5
  9634. B_ESTADO+ALLTRIM(B_CONTA)+STR(B_GRUPO)+STR(B_ANO_AQU)+STR(ROUND(IIF(B_TAXA_RV=0,100/B_ANOS,B_TAXA_RV),3))
  9635. KEY_6
  9636. alltrim(B_CONTA)+STR(B_GRUPO)
  9637. KEY_7
  9638. B_CONTA
  9639. KEY_8
  9640. B_GRUPO
  9641. KEY_9
  9642. B_CENTRO
  9643. KEY_10
  9644. B_ESTADO+ALLTRIM(B_CONTA)+STR(B_GRUPO)+STR(B_ANO_AQU)+STR(B_INI_ANO)+STR(B_INI_MES)+STR(ROUND(B_TAXEXE,3))+IIF(B_VAL_LIQ=0 .AND. B_AE=0,'0','1')
  9645. KEY_11
  9646. B_DESC
  9647. KEY_2
  9648. codigo
  9649. KEY_1
  9650. conta
  9651. key_1
  9652. UPPER(desc)
  9653. Key_2
  9654. Key_3
  9655. padr(alltrim(conta),16,'A')
  9656. Key_4
  9657. KEY_1
  9658. descricao
  9659. KEY_2
  9660. KEY_1
  9661. KEY_2
  9662. KEY_1
  9663. KEY_2
  9664. l_mes
  9665. KEY_4
  9666. l_diario
  9667. KEY_5
  9668. l_docu
  9669. KEY_6
  9670. l_linha
  9671. KEY_8
  9672. str(l_mes,2)+str(l_diario,2)+str(l_docu,6)+str(l_linha,4)
  9673. KEY_3
  9674. descri
  9675. KEY_2
  9676. .NOT.DELETED()
  9677. KEY_9
  9678. chave
  9679. KEY_1
  9680. icodi
  9681. KEY_1
  9682. idesc
  9683. KEY_2
  9684. L_CONTAD
  9685. KEY_10
  9686. L_CONTAC
  9687. KEY_11
  9688. KEY_1
  9689. KEY_2
  9690. str(coddoc,4)+str(linha,4)
  9691. KEY_1
  9692. conta
  9693. KEY_1
  9694. KEY_1
  9695. KEY_2
  9696. conta
  9697. KEY_3
  9698. conta
  9699. KEY_1
  9700. conta+dtos(data)
  9701. KEY_2
  9702. KEY_3
  9703. pcodi
  9704. KEY_1
  9705. pdesc
  9706. KEY_2
  9707. pprefixo
  9708. KEY_3
  9709. ALLTRIM(modelo)+PADL(ALLTRIM(STR(pagina)),2,'0')+PADL(ALLTRIM(quadro),10,'0')+PADL(ALLTRIM(STR(posicao)),4,'0')
  9710. KEY_1
  9711. KEY_1
  9712. KEY_2
  9713. KEY_1
  9714. KEY_2
  9715. KEY_1
  9716. KEY_2
  9717. KEY_1
  9718. KEY_2
  9719. KEY_1
  9720. KEY_2
  9721. KEY_1
  9722. KEY_2
  9723. STR(ano)+STR(tabela)+STR(codi)+STR(ate)
  9724. KEY_1
  9725. KEY_1
  9726. KEY_2
  9727. KEY_1
  9728. KEY_2
  9729. KEY_1
  9730. KEY_2
  9731. KEY_1
  9732. KEY_2
  9733. KEY_1
  9734. KEY_2
  9735. str(xdistr) + str(codi)
  9736. KEY_3
  9737. KEY_1
  9738. KEY_2
  9739. KEY_1
  9740. KEY_2
  9741. str(xirt) + str(codi)
  9742. KEY_3
  9743. KEY_1
  9744. KEY_2
  9745. str(xfunc)+dtos(mref)+str(xabono)
  9746. KEY_1
  9747. xfunc
  9748. KEY_1
  9749. str(xfunc) + dtos(data) + str(grupo)
  9750. KEY_2
  9751. str(xfunc)+dtos(data)
  9752. KEY_1
  9753. str(xfunc)+str(xabono)
  9754. KEY_1
  9755. xabono
  9756. KEY_2
  9757. KEY_1
  9758. KEY_2
  9759. KEY_1
  9760. KEY_2
  9761. KEY_1
  9762. KEY_2
  9763. KEY_1
  9764. KEY_2
  9765. KEY_1
  9766. KEY_2
  9767. KEY_1
  9768. KEY_2
  9769. KEY_1
  9770. KEY_2
  9771. KEY_1
  9772. KEY_2
  9773. str(xdistr) + str(xconce) + str(codi)
  9774. KEY_3
  9775. KEY_1
  9776. KEY_2
  9777. str(xfunc)+dtos(inicio)
  9778. KEY_1
  9779. KEY_1
  9780. KEY_2
  9781. str(tipo)+str(codi)+str(abono)
  9782. KEY_3
  9783. KEY_1
  9784. KEY_2
  9785. str(xproc)+str(xfunc)
  9786. KEY_1
  9787. str(ano)+str(mes)+str(xfunc)
  9788. KEY_2
  9789. dtos(data)+entidade
  9790. KEY_1
  9791. str(grupo)+str(codigo)
  9792. KEY_1
  9793. INDICES\
  9794. U_TABELAS
  9795. E_TABELAS
  9796. I_TABELAS
  9797. S_TABELASw
  9798. _CRIACAO    
  9799. LCCRIACAO
  9800. EMPRESA
  9801. MOD_IMO
  9802. P_IMO    
  9803. C_TABELAS
  9804. N_TABELAS#
  9805. A_TABELAS
  9806. FOR N=1 TO ALEN(&_ARRAY)
  9807. TABMOD(N,1)=TABELAS[&_ARRAY(N),1]
  9808. TABMOD(N,2)=TABELAS[&_ARRAY(N),2]
  9809. TABMOD(N,3)=TABELAS[&_ARRAY(N),3]
  9810. TABMOD(N,4)=&_ARRAY(N)
  9811. _ARRAY
  9812. TABMOD
  9813. Resid.que exerce a tit.principal activ.comer.,indust.ou agricola
  9814. Resid.que n
  9815. o exerce a tit.principal 
  9816.       
  9817.      
  9818. o residente com estabelecimento est
  9819. o residente sem estabelecimento estavel
  9820. Mensal
  9821. Trimestral
  9822. Isento
  9823. Geral
  9824. o definitiva
  9825. o tempor
  9826. o de taxa
  9827. Simplificado
  9828. Transpar
  9829. ncia fiscal
  9830. Grupos de sociedades
  9831. SNC-PE
  9832. SNC-ME
  9833. Administrador
  9834. Gerente
  9835. Memb.Cons.Fiscal
  9836. Sociedades de gest
  9837. o e investimento imobili
  9838. rio(art.26
  9839.  do EBF)  (25%)
  9840. Estabelecimentos de ensino particular(art.47
  9841.  do EBF)  (20%)
  9842. Juros de dep
  9843. sitos(CV e SFE) e outros rend. de capitais(CV)(arts.22-A e 25
  9844.  do EBF) (20%)
  9845. Microempresas(art.45
  9846.  da Lei n
  9847. 87-B/98, de 31 de Dezembro   (20%)
  9848. Incentivos fiscais 
  9849.  interioridade(art.46
  9850.  da Lei n
  9851. 87-B/98, de 31 de Dezembro)  (15%)
  9852. Estatuto fiscal cooperativo(n
  9853. 3 do art.7
  9854.  da Lei 85/98, de 16 de Dezembro) (20%)
  9855. o aut
  9856. noma dos A
  9857. ores(Dec. Leg. Regional n
  9858. 2/99/A, de 20 de Janeiro)
  9859. Escudo
  9860.  possivel abrir o ficheiro.
  9861. Certifique-se que n
  9862. o existem outros utilizadores na aplica
  9863. o, e tente novamente.
  9864. o conseguir solucionar o problema procure a ajuda do seu revendedor.
  9865.  possivel ler o ficheiro.
  9866. Certifique-se que n
  9867. o existem outros utilizadores na aplica
  9868. o, e tente novamente.
  9869. o conseguir solucionar o problema procure a ajuda do seu revendedor.
  9870.  possivel bloquear o ficheiro.
  9871. Existem outros utilizadores na aplica
  9872.  necess
  9873. rio que a fechem, para poder recuperar.
  9874. Tente novamente.
  9875. Indisponivel a descri
  9876. o do ficheiro.
  9877. O ficheiro est
  9878.  de tal modo danificado que ser
  9879.  muito dif
  9880. cil  a sua recupera
  9881. Procure a ajuda do seu revendedor ou reponha-o de uma c
  9882. pia de seguran
  9883.  possivel gravar no ficheiro.
  9884. Certifique-se que n
  9885. o existem outros utilizadores na aplica
  9886. o, e tente novamente.
  9887. o conseguir solucionar o problema procure a ajuda do seu revendedor.
  9888. Nome de ficheiro incorrecto.
  9889. Este erro poder
  9890.  ser devido a um problema na pr
  9891. pria aplica
  9892. Contacte o seu revendedor, transmitindo-lhe todas as indica
  9893. es presentes nesta janela.
  9894. P_PRINTERS    
  9895. P_TIPOSUJ
  9896. P_REGIMEIVA
  9897. P_REGIMETRIB
  9898. P_REGCONTAB
  9899. P_TIPORGAO    
  9900. P_REDUCAO
  9901. PA_MOEDA
  9902. FIXERROR    
  9903. P_EVEXECS
  9904. P_EVSERIAL
  9905. P_EVEXPDATE
  9906. P_EVNETUSER
  9907. P_EVNAME
  9908. P_EVCOMP
  9909. P_EVLOC
  9910. P_EVREGDATE
  9911. P_EVHDLNET
  9912. P_EVSECSTR
  9913. PREP_ENTID    
  9914. PREP_MORA    
  9915. PREP_LOCA
  9916. PREP_POSTAL
  9917. PREP_TEL
  9918. PREP_FAX
  9919. PREP_EMAIL
  9920. PREP_DISTR
  9921. PREP_SERIE    
  9922. PREP_DATAnL
  9923. os Sociais
  9924. Produ
  9925. Outros Sectores
  9926. Activo
  9927. Inactivo
  9928. Baixa tempor
  9929. Baixa prolongada
  9930. Licen
  9931. a s/ Vencimento
  9932. Dirigentes
  9933. Quadros superiores
  9934. Quadros m
  9935. Q.interm
  9936. d.(enc.contramestres e ch.equipa)
  9937. Profiss.Altamente qualific. e qualific.
  9938. Profissionais semiqualificados
  9939. Profissionais n
  9940. o qualificados
  9941. Praticantes / aprendizes
  9942. Vencimento Base
  9943. Subs. Alimenta
  9944. Subs. Alim. G
  9945. neros
  9946. Subs. F
  9947. Subs. Natal
  9948. Subs. Turno
  9949. Diuturnidades
  9950. Retroativos
  9951. Ajudas de Custo
  9952. Horas Extra
  9953. Abono p/ Falhas
  9954. Gratifica
  9955. es/Pr
  9956. Comiss
  9957. Indemniza
  9958. rias n
  9959. o gozadas
  9960. Trabalho Nocturno
  9961. o de Hor
  9962. Outros Abonos
  9963. \Vencimento Conjugue (Ind.)
  9964. C  Comiss
  9965. F  Subs
  9966. dio de F
  9967. N  Subs
  9968. dio de Natal
  9969. P  Remunera
  9970. es Base (Permanente)
  9971. X  Subs. Caracter Regular N
  9972. o Mensal
  9973. A  Ajudas Custo, Abonos Viagem, Utiliz.Viatura, Depesas Transp.
  9974. B  Pr
  9975. mios, B
  9976. nus e outras Prest. Car
  9977. cter Mensal
  9978. 2  Remun.refer.a f
  9979. rias pagas e n
  9980. o gozadas por cessa
  9981. o de contrato
  9982. 6  Diferen
  9983. as de Remunera
  9984. es de Meses Anteriores
  9985. D  Compensa
  9986. o Cessa
  9987. o Contrato Trabalho por Acordo
  9988. H  Honor
  9989. rios por acumula
  9990. o de Actividade
  9991. M  Subs
  9992. dios de Car
  9993. cter Regular Mensal
  9994. O  Pr
  9995. mios, B
  9996. nus e outras Presta
  9997. o Mensais
  9998. R  Subs
  9999. dio de Refei
  10000. S  Trabalho Suplementar
  10001. T  Trabalho Nocturno
  10002. I  Compensa
  10003. o Remunerat
  10004. ria do Contrato Intermitente
  10005. \A  Trabalho Dependente                                           
  10006. \B  Rendimentos Profissionais                                     
  10007. \B  Rendimentos Empresariais                                      
  10008. \E  Outros Rendimentos de Capitais                                
  10009. \F  Prediais                                                      
  10010. \G  Incrementos Patrimoniais                                      
  10011. \H  Pens
  10012. es                                                       
  10013. \R  Reten
  10014. es de IRC                                              
  10015. \S  Rend.isentos suj. englobamento                                
  10016. \EA Capitais (Alin.b, n
  10017. 2, art
  10018. CIRS)                         
  10019. \EE Saldos Credores C/C                                           
  10020. \Reten
  10021. es a Taxas Liberat
  10022. rias                                   
  10023. Contrib.obrigat.reg.prot.social                                  
  10024. Desp.sa
  10025. de pagas n
  10026. o reembolsadas                                
  10027. \Compensa
  10028. es de IRS / IRC                                        
  10029. 101 IRS - Trabalho Dependente                                    
  10030. 102 IRS - Empresariais e Profissionais                           
  10031. 103 IRS - Pens
  10032. es                                                
  10033. 104 IRS - Prediais                                               
  10034. 105 IRS - Capitais (Valores mobil.-Ent. emitentes)               
  10035. 106 IRS - Capitais (Valores mobil.-Ent. regist.,depo., outras)   
  10036. 107 IRS - Capitais (Juros de dep
  10037. sitos 
  10038.  ordem ou a prazo)       
  10039. 115 IRS - Outros Rend. Capitais suj. taxas art
  10040.  71 do CIRS       
  10041. 109 IRS - Pr
  10042. mios de jogos, lotarias, rifas, apostas mutuas...   
  10043. 110 IRS - Indemniza
  10044. es e outros increm. patrimoniais            
  10045. 199 IRS - Juros Compensat
  10046. rios                                   
  10047. 201 IRC - Prediais                                               
  10048. 202 IRC - Comiss
  10049. es por intermed.em qq contractos e prest.serv.  
  10050. 203 IRC - Capitais (Valores mobil.-Entidades emitentes)          
  10051. 204 IRC - Capitais (Valores mobil.-Ent. regist.,depo., outras)   
  10052. 205 IRC - Capitais (Juros de dep
  10053. sitos 
  10054.  ordem ou a prazo)       
  10055. 206 IRC - Capitais (Outros rendimentos)                          
  10056. 207 IRC - Pr
  10057. mios de jogos, lotarias, rifas, apostas mutuas...   
  10058. 208 IRC - Remuner.de membros de 
  10059. os estatut.de Pess.Colectivas
  10060. 209 IRC - Fundos de Investimento (art. 22
  10061.  do EBF)               
  10062. 299 IRC - Juros Compensat
  10063. rios                                   
  10064. 301 IS - Aquisi
  10065. o onerosa ou doa
  10066. o                             
  10067. 302 IS - Arrendamento e subarrendamento                          
  10068. 303 IS - Autos e termos                                          
  10069. 304 IS - Cheques                                                 
  10070. 305 IS - Comodato                                                
  10071. 306 IS - Dep
  10072. sito civil                                          
  10073. 307 IS - Dep
  10074. sito de outras institui
  10075. es dos estatutos das assoc.
  10076. 308 IS - Escritos de quaisquer contratos                         
  10077. 309 IS - Explora
  10078. o / pesquisa / prospec
  10079. o                      
  10080. 310 IS - Garantias das obriga
  10081. es                                
  10082. 311 IS - Jogo                                                    
  10083. 312 IS - Licen
  10084. as                                                
  10085. 313 IS - Livros dos comerciantes                                 
  10086. 314 IS - Marcas e patentes                                       
  10087. 315 IS - Not
  10088. rios e actos notariais                              
  10089. 316 IS - Opera
  10090. es aduaneiras                                    
  10091. 317 IS - Opera
  10092. es financeiras                                   
  10093. 318 IS - Precat
  10094. rios ou mandados                                 
  10095. 319 IS - Publicidade                                             
  10096. 320 IS - Registos e averbamentos                                 
  10097. 321 IS - Reporte                                                 
  10098. 322 IS - Seguros                                                 
  10099. 323 IS - T
  10100. tulos de cr
  10101. dito                                      
  10102. 324 IS - T
  10103. tulos da d
  10104. vida publica                               
  10105. 325 IS - Vales de correio / telegr
  10106. ficos                         
  10107. 326 IS - Entradas de capital                                     
  10108. 398 IS - Outros                                                  
  10109. 399 IS - Juros compensat
  10110. rios                                    
  10111. 114 IRS - Sobretaxa extraordin
  10112. ria Cat.H                         
  10113. 116 IRS - Rendimentos Capitais suj. 
  10114.  taxa do art
  10115.  101 do CIRS   
  10116. \A  Trabalho Dependente                                           
  10117. \B  Rendimentos Profissionais                                     
  10118. \B  Rendimentos Empresariais                                      
  10119. \E  Outros Rendimentos de Capitais                                
  10120. \F  Prediais                                                      
  10121. \G  Incrementos Patrimoniais                                      
  10122. \H  Pens
  10123. es                                                       
  10124. \R  Reten
  10125. es de IRC                                              
  10126. \S  Rend.isentos suj. englobamento                                
  10127. \EA Capitais (Alin.b, n
  10128. 2, art
  10129. CIRS)                         
  10130. \EE Saldos Credores C/C                                           
  10131. \Reten
  10132. es a Taxas Liberat
  10133. rias                                   
  10134. Contrib.obrigat.reg.prot.social                                  
  10135. Desp.sa
  10136. de pagas n
  10137. o reembolsadas                                
  10138. \Compensa
  10139. es de IRS / IRC                                        
  10140. 101 IRS - Trabalho Dependente                                    
  10141. 102 IRS - Empresariais e Profissionais                           
  10142. 103 IRS - Pens
  10143. es                                                
  10144. 104 IRS - Prediais                                               
  10145. 105 IRS - Capitais (Valores mobil.-Ent. emitentes)               
  10146. 106 IRS - Capitais (Valores mobil.-Ent. regist.,depo., outras)   
  10147. 107 IRS - Capitais (Juros de dep
  10148. sitos 
  10149.  ordem ou a prazo)       
  10150. 115 IRS - Outros Rend. Capitais suj. taxas art
  10151.  71 do CIRS       
  10152. 109 IRS - Pr
  10153. mios de jogos, lotarias, rifas, apostas mutuas...   
  10154. 110 IRS - Indemniza
  10155. es e outros increm. patrimoniais            
  10156. 199 IRS - Juros Compensat
  10157. rios                                   
  10158. 201 IRC - Prediais                                               
  10159. 202 IRC - Comiss
  10160. es por intermed.em qq contractos e prest.serv.  
  10161. 203 IRC - Capitais (Valores mobil.-Entidades emitentes)          
  10162. 204 IRC - Capitais (Valores mobil.-Ent. regist.,depo., outras)   
  10163. 205 IRC - Capitais (Juros de dep
  10164. sitos 
  10165.  ordem ou a prazo)       
  10166. 206 IRC - Capitais (Outros rendimentos)                          
  10167. 207 IRC - Pr
  10168. mios de jogos, lotarias, rifas, apostas mutuas...   
  10169. 208 IRC - Remuner.de membros de 
  10170. os estatut.de Pess.Colectivas
  10171. 209 IRC - Fundos de Investimento (art. 22
  10172.  do EBF)               
  10173. 299 IRC - Juros Compensat
  10174. rios                                   
  10175. 301 IS - Aquisi
  10176. o onerosa ou doa
  10177. o                             
  10178. 302 IS - Arrendamento e subarrendamento                          
  10179. 303 IS - Autos e termos                                          
  10180. 304 IS - Cheques                                                 
  10181. 305 IS - Comodato                                                
  10182. 306 IS - Dep
  10183. sito civil                                          
  10184. 307 IS - Dep
  10185. sito de outras institui
  10186. es dos estatutos das assoc.
  10187. 308 IS - Escritos de quaisquer contratos                         
  10188. 309 IS - Explora
  10189. o / pesquisa / prospec
  10190. o                      
  10191. 310 IS - Garantias das obriga
  10192. es                                
  10193. 311 IS - Jogo                                                    
  10194. 312 IS - Licen
  10195. as                                                
  10196. 313 IS - Livros dos comerciantes                                 
  10197. 314 IS - Marcas e patentes                                       
  10198. 315 IS - Not
  10199. rios e actos notariais                              
  10200. 316 IS - Opera
  10201. es aduaneiras                                    
  10202. 317 IS - Opera
  10203. es financeiras                                   
  10204. 318 IS - Precat
  10205. rios ou mandados                                 
  10206. 319 IS - Publicidade                                             
  10207. 320 IS - Registos e averbamentos                                 
  10208. 321 IS - Reporte                                                 
  10209. 322 IS - Seguros                                                 
  10210. 323 IS - T
  10211. tulos de cr
  10212. dito                                      
  10213. 324 IS - T
  10214. tulos da d
  10215. vida publica                               
  10216. 325 IS - Vales de correio / telegr
  10217. ficos                         
  10218. 326 IS - Entradas de capital                                     
  10219. 398 IS - Outros                                                  
  10220. 399 IS - Juros compensat
  10221. rios                                    
  10222. 114 IRS - Sobretaxa extraordin
  10223. ria Cat.H                         
  10224. 116 IRS - Rendimentos Capitais suj. 
  10225.  taxa do art
  10226.  101 do CIRS   
  10227. 113 IRS - Sobretaxa extraordin
  10228. ria                               
  10229. A  Acidente de trabalho
  10230. B  Doen
  10231. a com baixa
  10232. D  Doen
  10233. a sem baixa
  10234. B  Baixa do seguro
  10235. F  Falta n
  10236. o justificada
  10237. J  Falta justificada
  10238. L  Ferias remuneradas
  10239. M  Manh
  10240. P  Dispensa
  10241. S  Suspens
  10242. T  Tarde
  10243. V  Licen
  10244. a sem vencimento
  10245. MF Morte pessoa de familia
  10246. MT Matrim
  10247. PT Parto
  10248. SM Servi
  10249. o militar
  10250. Acidente de trabalho
  10251. a profissional certificada
  10252. a profissional n
  10253. o certificada
  10254. o profissional
  10255. Assist.inadi
  10256. vel a filho,neto ou agregado familiar
  10257. De trabalhadores estudantes
  10258. Falecimento c
  10259. njuge,parente ou afim
  10260. Maternidade
  10261. Paternidade
  10262. Candidatos a elei
  10263. es cargos p
  10264. blicos durante campanha eleitoral e de membros mesas assembleias voto
  10265. Por greve
  10266. Exerc
  10267. cio de fun
  10268. es de membros de estruturas de representa
  10269. o colectiva de trabalhadores
  10270. Ausencias autorizadas ou aprovadas pelo empregador
  10271. Outras aus
  10272. ncias justificadas
  10273. Ausencias injustificadas
  10274. 1 Empregador
  10275. 2 TFNR
  10276. 3 TPCO
  10277. 4 MACP
  10278. 8 Situa
  10279. o Residual
  10280. 10 C/hor.trab.e adaptabilidade por regul.colectiva
  10281. 11 C/hor.trab.e adaptabilidade individual
  10282. 12 C/hor.trab.e adaptabilidade grup.c/origem em regul.colectiva
  10283. 13 C/hor.trab.e adaptabilidade grup.c/origem em acordos individuais
  10284. 14 C/hor.trab.e pr
  10285. tica de banco de horas
  10286. 15 C/hor.trab.e pr
  10287. tica de hor
  10288. rio concentrado 
  10289. 16 C/hor.trab., fora de qualquer das situa
  10290. es 10,11,12,13,14,15,17,18
  10291. 20 C/isen.hor
  10292. rio trab.e observ
  10293. ncia do periodo normal trab. acordado
  10294. 21 C/isen.hor
  10295. rio trab.e observ
  10296. ncia de um periodo normal trab.aumentado
  10297. 22 C/isen.hor
  10298. rio trab.e n
  10299. o sujei
  10300. o limites m
  10301. ximos do periodo normal de trab.
  10302. 17 C/hor.trab.e pr
  10303. tica de banco de horas individual
  10304. 18 C/hor.trab.e pr
  10305. tica de banco de horas grupal
  10306. 1 Hor
  10307. rio trabalho fixo
  10308. 2 Hor
  10309. rio trabalho flexivel
  10310. 3 Hor
  10311. rio trabalho m
  10312. 4 Hor
  10313. rio trab. por turnos fixos
  10314. 5 Hor
  10315. rio trab. por turnos rotativos
  10316. 1 Seguran
  10317. a Social
  10318. 2 CGA
  10319. 3 Banc
  10320. 8 Outro Regime
  10321. 1 A tempo completo
  10322. 2 A tempo parcial
  10323. 10 Contrato trab. sem termo
  10324. 11 Contrato trab.p/presta
  10325. o subord.teletrabalho sem termo
  10326. 12 Contrato trab. em comiss
  10327. o de servi
  10328. o sem termo
  10329. 13 Contrato trab. intermitente sem termo
  10330. 14 Contrato trab. por tempo indeterm.p/ced
  10331. ncia tempor
  10332. 20 Contrato trab. com termo certo
  10333. 21 Contrato trab.p/presta.subordinada de teletrab.c/termo certo
  10334. 22 Contrato trab. em comiss
  10335. o de servi
  10336. o com termo certo
  10337. 23 Contrato trab. tempor
  10338. rio com termo certo
  10339. 30 Contrato trab. com termo incerto
  10340. 31 Contrato trab.p/presta.subordinada de teletrab.c/termo incerto
  10341. 32 Contrato trab. em comiss
  10342. o de servi
  10343. o com termo incerto
  10344. 33 Contrato trab. tempor
  10345. rio com termo incerto
  10346. 80 Outra situa
  10347. -- Est
  10348. gio curricular - Excluido do R.U.
  10349. 01 Filia
  10350. 02 Portaria de Exten
  10351. 03 Escolha
  10352. 04 Acto de Gest
  10353. \05 N
  10354. o sabe qual dos IRCT se aplica
  10355. 06 Sem aplicabilidade
  10356. 07 Autom
  10357. 1 Quadros superiores
  10358. 2 Quadros m
  10359. 3 Encarregados, contramestres, mestres e chefes equipa
  10360. 4 Profissionais altamente qualificados
  10361. 5 Profissionais qualificados
  10362. 6 Profissionais semi-qualificados (especializados)
  10363. 7 Profissionais n
  10364. o qualificados (indiferenciados)
  10365. 8 Estagi
  10366. rios, praticantes e aprendizes
  10367. Janeiro
  10368. Fevereiro
  10369. Abril
  10370. Junho
  10371. Julho
  10372. Agosto
  10373. Setembro
  10374. Outubro
  10375. Novembro
  10376. Dezembro
  10377. P_SECTOR
  10378. P_ESTADO
  10379. P_QUALIFIC    
  10380. P_TPABONO    
  10381. P_TIPOTSU
  10382. P_REND
  10383. P_REND_LISTA_RET
  10384. P_FALTA
  10385. P_FALTA_RU
  10386. P_SITUACAO
  10387. P_TEMPTRAB    
  10388. P_ORGTRAB    
  10389. P_REFORMA
  10390. P_REGIME_DUR_TRAB
  10391. P_TIPOCONTRATO
  10392. P_APLIC_IRCT
  10393. P_NIVEL_QUALIFIC
  10394. P_MES
  10395. MNU_ENTIDADES,
  10396. ALLTAB
  10397. ALLINDEX
  10398. ALLTAB_U
  10399. ALLTAB_Em
  10400. ALLTAB_Ip
  10401. ALLTAB_S
  10402. ALLTAB_Cd
  10403. ALLTAB_N
  10404. ALLTAB_A7
  10405. ALLTAB_DO_MODi
  10406. ADECLARAJ
  10407. SDECLARAi
  10408. app1_01
  10409. o imcompativel...
  10410. P_VERSAO
  10411. APP1_01t
  10412. PLATFORM
  10413. UNIQUEID
  10414. TIMESTAMP
  10415. CLASS
  10416. CLASSLOC
  10417. BASECLASS
  10418. OBJNAME
  10419. PARENT
  10420. PROPERTIES
  10421. PROTECTED
  10422. METHODS
  10423. OBJCODE
  10424. RESERVED1
  10425. RESERVED2
  10426. RESERVED3
  10427. RESERVED4
  10428. RESERVED5
  10429. RESERVED6
  10430. RESERVED7
  10431. RESERVED8
  10432.  COMMENT Screen              
  10433.  WINDOWS _S8R0LIUCO 658198611
  10434.  WINDOWS _S8R0LIUCP 993620375
  10435.  WINDOWS _S8R0LIUCO 993620375V
  10436.  WINDOWS _S9Y13M2F3 915111526/ 
  10437.  WINDOWS _S9Y13M2F6 915111526
  10438.  COMMENT RESERVED            
  10439. VERSION =   3.00
  10440. dataenvironment
  10441. dataenvironment
  10442. Dataenvironment
  10443. YTop = 0
  10444. Left = 0
  10445. Width = 0
  10446. Height = 0
  10447. DataSource = .NULL.
  10448. Name = "Dataenvironment"
  10449. Form1
  10450. "Top = 0
  10451. Left = 0
  10452. Height = 28
  10453. Width = 156
  10454. Desktop = .F.
  10455. DoCreate = .T.
  10456. AutoCenter = .F.
  10457. BorderStyle = 3
  10458. Caption = "Form1"
  10459. ControlBox = .F.
  10460. Closable = .F.
  10461. MinWidth = -1
  10462. Visible = .F.
  10463. ClipControls = .F.
  10464. DrawStyle = 0
  10465. Enabled = .T.
  10466. TitleBar = 0
  10467. WindowType = 1
  10468. Name = "Form1"
  10469. PROCEDURE imprime
  10470. local frmWait
  10471. thisform.cxdial.flags = 12
  10472. p_cancela = .f.
  10473. if _serie = .t.
  10474.     if p_impfirsttime
  10475.         ThisForm.cxdial.showprinter
  10476.         p_impcopias = thisform.cxdial.copies
  10477.         p_impflags = thisform.cxdial.flags
  10478.         p_impfirsttime = .f.
  10479.         if p_impflags > 12 and p_impflags # 28
  10480.             thisform.cxdial.initdir=curdir()
  10481.             thisform.cxdial.filter="Text:(*.TXT)|*.txt"
  10482.             thisform.cxdial.showopen
  10483.             _xfilename= "'" + thisform.cxdial.filename + "'"
  10484.             p_impfilename = _xfilename
  10485.             if file(_xfilename)
  10486.                 p_impadicionar = msgadiciona()
  10487.             endif
  10488.         endif
  10489.     endif
  10490.     ThisForm.cxdial.showprinter
  10491.     p_impcopias = thisform.cxdial.copies
  10492.     p_impflags = thisform.cxdial.flags
  10493.     if p_impflags > 12 and p_impflags # 28
  10494.         thisform.cxdial.initdir=curdir()
  10495.         thisform.cxdial.filter="Text:(*.TXT)|*.txt"
  10496.         thisform.cxdial.showopen
  10497.         _xfilename= "'" + thisform.cxdial.filename + "'"
  10498.         p_impfilename = _xfilename
  10499.         if file(_xfilename)
  10500.             p_impadicionar = msgadiciona()
  10501.         endif
  10502.     endif
  10503. endif
  10504. if !empty(_repo) AND !P_CANCELA
  10505. *-----  Cria o form da mensagem "Imprimindo...."  ------
  10506.     if !p_cancela
  10507.         frmWait = createobject("form")
  10508.         frmWait.titlebar = 0
  10509.         frmWait.height = 45
  10510.         frmWait.width = 290
  10511.         frmWait.AddObject("line1", "LINE")
  10512.         frmWait.line1.width = 276
  10513.         frmWait.line1.left = 7
  10514.         frmWait.line1.top = 7
  10515.         frmWait.line1.height = 0
  10516.         frmWait.line1.bordercolor = rgb(128,128,128)
  10517.         frmWait.line1.visible = .t.
  10518.         frmWait.AddObject("line2", "LINE")
  10519.         frmWait.line2.width = 276
  10520.         frmWait.line2.left = 7
  10521.         frmWait.line2.top = 38
  10522.         frmWait.line2.height = 0
  10523.         frmWait.line2.bordercolor = rgb(255,255,255)
  10524.         frmWait.line2.visible = .t.
  10525.         frmWait.AddObject("line3", "LINE")
  10526.         frmWait.line3.width = 0
  10527.         frmWait.line3.left = 7
  10528.         frmWait.line3.top = 7
  10529.         frmWait.line3.height = 31
  10530.         frmWait.line3.bordercolor = rgb(128,128,128)
  10531.         frmWait.line3.visible = .t.
  10532.         frmWait.AddObject("line4", "LINE")
  10533.         frmWait.line4.width = 0
  10534.         frmWait.line4.left = 283
  10535.         frmWait.line4.top = 7
  10536.         frmWait.line4.height = 31
  10537.         frmWait.line4.bordercolor = rgb(255,255,255)
  10538.         frmWait.line4.visible = .t.
  10539.         frmWait.AddObject("labelx1", "LABEL")
  10540.         frmWait.labelx1.fontsize = 9
  10541.         frmWait.labelx1.left = 22
  10542.         frmWait.labelx1.top = 15
  10543.         if p_impflags > 12 and p_impflags # 28
  10544.             frmWait.labelx1.caption = "Aguarde um momento! Enviando p/ ficheiro..."
  10545.         else
  10546.             frmWait.labelx1.caption = "    Aguarde um momento!  Imprimindo...."
  10547.         endif
  10548.         frmWait.labelx1.forecolor = rgb(0,0,0)
  10549.         frmWait.labelx1.autosize = .t.
  10550.         frmWait.labelx1.visible = .t.
  10551.         frmWait.autocenter = .t.
  10552.         frmWait.show
  10553.         if _serie = .t. 
  10554.             ThisForm.cmdSerie.click
  10555.         else
  10556.             thisform.cmdNormal.click
  10557.         endif
  10558.         release frmWait
  10559.     endif
  10560. ENDIF
  10561. P_CANCELA=.F.
  10562. thisform.release
  10563. wait clear
  10564. ENDPROC
  10565. PROCEDURE Release
  10566. ENDPROC
  10567. PROCEDURE Destroy
  10568. release _imp, _repo, _expr, _serie, _comando, _xfilename
  10569. ENDPROC
  10570. PROCEDURE Init
  10571. param _REP, _EX, _ser
  10572. public _REPO, _EXPR, _serie, _comando, _xfilename
  10573. this.width = 10
  10574.     if type("_ser")="L" or type("_ser")="U"
  10575.         if _ser = .t.
  10576.             _serie = .t.
  10577.         else
  10578.             _serie = .f.
  10579.         endif
  10580.     endif    
  10581.     if type("_ser")="N"
  10582.         if _ser = 1
  10583.             _serie = .t.
  10584.         else
  10585.             _serie = .f.
  10586.         endif
  10587.     endif
  10588. _REPO=_REP
  10589. _EXPR=_EX
  10590. ENDPROC
  10591. PROCEDURE SetAll
  10592. LPARAMETERS cProperty, Value
  10593. ENDPROC
  10594. PROCEDURE Activate
  10595. thisform.hide
  10596. p_impadicionar = 1
  10597. thisform.imprime
  10598. ENDPROC
  10599. PROCEDURE Load
  10600. public p_impcopias
  10601. p_impcopias = 1
  10602. ENDPROC
  10603. PROCEDURE Unload
  10604. release p_impcopias
  10605. ENDPROC
  10606.  TO FILE 
  10607.  NOCONS ASCII
  10608.  TO FILE 
  10609.  ADDITIVE NOCONS ASCII
  10610.  TO FILE 
  10611.  NOCONS ASCII
  10612. REPORT FORM &_COMANDO
  10613.  TO PRINT NOCONS 
  10614. REPORT FORM &_COMANDO
  10615. P_IMPFLAGS
  10616. _XFILENAME
  10617. P_IMPFILENAME
  10618. P_IMPCOPIAS
  10619. _COMANDO
  10620. _REPO
  10621. _EXPR
  10622. P_IMPADICIONAR
  10623. _COPIAS
  10624. THISFORM
  10625. CXDIAL
  10626. COPIES
  10627. Click,
  10628.  TO FILE 
  10629.  NOCONS ASCII
  10630.  TO FILE 
  10631.  ADDITIVE NOCONS ASCII
  10632.  TO FILE 
  10633.  NOCONS ASCII
  10634. REPORT FORM &_COMANDO
  10635.  TO PRINT NOCONS 
  10636. REPORT FORM &_COMANDO
  10637. P_IMPFLAGS
  10638. _XFILENAME
  10639. THISFORM
  10640. CXDIAL
  10641. COPIES
  10642. _COMANDO
  10643. _REPO
  10644. _EXPR
  10645. P_IMPADICIONAR
  10646. _COPIAS
  10647. Click,
  10648. COPIES
  10649. P_IMPCOPIAS
  10650. Init,
  10651. !Arial, 0, 9, 5, 15, 12, 32, 3, 0
  10652. PROCEDURE Click
  10653. IF P_IMPFLAGS > 12 and p_impflags # 28
  10654.     _xfilename = p_impfilename
  10655.     if !empty(_xfilename)
  10656.         if !file(_xfilename) and p_impcopias = 1
  10657.             _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " NOCONS ASCII"
  10658.         else    
  10659.             do case
  10660.                 case p_impadicionar = 1  && Adicionar
  10661.                     _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " ADDITIVE NOCONS ASCII"    
  10662.                 case p_impadicionar = 2  && Substituir
  10663.                     _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " NOCONS ASCII"    
  10664.                     p_impadicionar = 1
  10665.                     
  10666.                 case p_impadicionar = 0  && Cancelar
  10667.                     _COMANDO = ""
  10668.                     
  10669.             endcase
  10670.         endif
  10671.         if !empty(_COMANDO)
  10672.             _asciicols = 180     
  10673.             for _copias=1 to p_impcopias
  10674.                 REPORT FORM &_COMANDO
  10675.             endfor
  10676.         endif
  10677.     endif
  10678.     _COMANDO = _REPO + " TO PRINT NOCONS " + _EXPR
  10679.     for _copias=1 to thisform.cxdial.copies
  10680.         REPORT FORM &_COMANDO
  10681.     endfor
  10682. ENDIF
  10683. ENDPROC
  10684. cTop = -1
  10685. Left = 48
  10686. Height = 27
  10687. Width = 22
  10688. Caption = "Serie"
  10689. Visible = .F.
  10690. Name = "cmdSerie"
  10691. Form1
  10692. cmdSerie
  10693. commandbutton
  10694. commandbutton
  10695. eTop = -1
  10696. Left = 27
  10697. Height = 27
  10698. Width = 21
  10699. Caption = "Normal"
  10700. Visible = .F.
  10701. Name = "cmdNormal"
  10702. Form1
  10703.     cmdNormal
  10704. *imprime 
  10705. olecontrol
  10706. olecontrol
  10707. cxdial
  10708. Form1
  10709. ?Top = -4
  10710. Left = -2
  10711. Height = 24
  10712. Width = 24
  10713. Name = "cxdial"
  10714. 6PROCEDURE Init
  10715. this.copies = p_impcopias
  10716. ENDPROC
  10717. commandbutton
  10718. commandbutton
  10719. .OLEObject = C:\WINDOWS\system32\COMDLG32.OCX
  10720. 28C4C820-401A-101B-A3C9-08002B2F49FB
  10721. Flags
  10722. CancelError
  10723. PROCEDURE Click
  10724. IF P_IMPFLAGS > 12 and p_impflags # 28
  10725.     if !empty(_xfilename)
  10726.         if !file(_xfilename) and thisform.cxdial.copies = 1
  10727.             _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " NOCONS ASCII"
  10728.         else    
  10729.             do case
  10730.                 case p_impadicionar = 1  && Adicionar
  10731.                     _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " ADDITIVE NOCONS ASCII"    
  10732.                 case p_impadicionar = 2  && Substituir
  10733.                     _COMANDO = _REPO + " " + _EXPR + " TO FILE " + _xfilename + " NOCONS ASCII"    
  10734.                     p_impadicionar = 1
  10735.                 case p_impadicionar = 0  && Cancelar
  10736.                     _COMANDO = ""
  10737.                     
  10738.             endcase
  10739.         endif
  10740.         if !empty(_COMANDO)
  10741.             _asciicols = 180     
  10742.             for _copias=1 to thisform.cxdial.copies
  10743.                 REPORT FORM &_COMANDO
  10744.             endfor
  10745.         endif
  10746.     endif
  10747.     _COMANDO = _REPO + " TO PRINT NOCONS " + _EXPR
  10748.     for _copias=1 to thisform.cxdial.copies
  10749.         REPORT FORM &_COMANDO
  10750.     endfor        
  10751. ENDIF
  10752. ENDPROC
  10753. Text:(*.TXT)|*.txt
  10754. Text:(*.TXT)|*.txt
  10755. line1
  10756. line2
  10757. line3
  10758. line4
  10759. labelx1
  10760. LABEL
  10761. Aguarde um momento! Enviando p/ ficheiro...
  10762.     Aguarde um momento!  Imprimindo....
  10763. FRMWAIT
  10764. THISFORM
  10765. CXDIAL
  10766. FLAGS    
  10767. P_CANCELA
  10768. _SERIE
  10769. P_IMPFIRSTTIME
  10770. SHOWPRINTER
  10771. P_IMPCOPIAS
  10772. COPIES
  10773. P_IMPFLAGS
  10774. INITDIR
  10775. FILTER
  10776. SHOWOPEN
  10777. _XFILENAME
  10778. FILENAME
  10779. P_IMPFILENAME
  10780. P_IMPADICIONAR
  10781. MSGADICIONA
  10782. _REPO
  10783. TITLEBAR
  10784. HEIGHT
  10785. WIDTH    
  10786. ADDOBJECT
  10787. LINE1
  10788. BORDERCOLOR
  10789. VISIBLE
  10790. LINE2
  10791. LINE3
  10792. LINE4
  10793. LABELX1
  10794. FONTSIZE
  10795. CAPTION    
  10796. FORECOLOR
  10797. AUTOSIZE
  10798. AUTOCENTER
  10799. CMDSERIE
  10800. CLICK    
  10801. CMDNORMAL
  10802. RELEASE
  10803. _REPO
  10804. _EXPR
  10805. _SERIE
  10806. _COMANDO
  10807. _XFILENAME
  10808. _serb
  10809. _serb
  10810. _serb
  10811. _REPO
  10812. _EXPR
  10813. _SERIE
  10814. _COMANDO
  10815. _XFILENAME
  10816. WIDTH
  10817. CPROPERTY
  10818. VALUE$
  10819. THISFORM
  10820. P_IMPADICIONAR
  10821. IMPRIME
  10822. P_IMPCOPIAS
  10823. P_IMPCOPIAS
  10824. imprime,
  10825. Releasea
  10826. Destroyh
  10827. SetAll
  10828. Activate/
  10829. Unload
  10830. PLATFORM
  10831. UNIQUEID
  10832. TIMESTAMP
  10833. CLASS
  10834. CLASSLOC
  10835. BASECLASS
  10836. OBJNAME
  10837. PARENT
  10838. PROPERTIES
  10839. PROTECTED
  10840. METHODS
  10841. OBJCODE
  10842. RESERVED1
  10843. RESERVED2
  10844. RESERVED3
  10845. RESERVED4
  10846. RESERVED5
  10847. RESERVED6
  10848. RESERVED7
  10849. RESERVED8
  10850.  COMMENT Screen              
  10851.  WINDOWS _S8U0NPOD9 658397304
  10852.  WINDOWS _S8U0NPODA 747345976
  10853.  COMMENT RESERVED            
  10854. VERSION =   3.00
  10855. dataenvironment
  10856. dataenvironment
  10857. Dataenvironment
  10858. Name = "Dataenvironment"
  10859. FRMFORM_PREVIEW
  10860. Top = 0
  10861. Left = 0
  10862. Height = 574
  10863. Width = 793
  10864. DoCreate = .T.
  10865. Caption = "Visualiza
  10866. Visible = .F.
  10867. WindowState = 2
  10868. Name = "FRMFORM_PREVIEW"
  10869. 3PROCEDURE Init
  10870. oForm_preview=thisform
  10871. ENDPROC
  10872. OFORM_PREVIEW
  10873. THISFORM
  10874. Init,
  10875. !Arial, 0, 9, 5, 15, 12, 32, 3, 0
  10876. PLATFORM
  10877. UNIQUEID
  10878. TIMESTAMP
  10879. CLASS
  10880. CLASSLOC
  10881. BASECLASS
  10882. OBJNAME
  10883. PARENT
  10884. PROPERTIES
  10885. PROTECTED
  10886. METHODS
  10887. OBJCODE
  10888. RESERVED1
  10889. RESERVED2
  10890. RESERVED3
  10891. RESERVED4
  10892. RESERVED5
  10893. RESERVED6
  10894. RESERVED7
  10895. RESERVED8
  10896.  COMMENT Screen              
  10897.  WINDOWS _0F50NAVYM 719017609
  10898.  WINDOWS _0F50NAVYN 808813729
  10899.  WINDOWS _0F50ODQ5B 719020331
  10900.  WINDOWS _0F50NAVYM 808813729a
  10901.  WINDOWS _0F50PISVJ 719021142Y    
  10902.  WINDOWS _0F50PISVK 719025405u
  10903.  COMMENT RESERVED            
  10904. VERSION =   3.00
  10905. dataenvironment
  10906. dataenvironment
  10907. Dataenvironment
  10908. Name = "Dataenvironment"
  10909. fgtransf_3
  10910. Height = 307
  10911. Width = 347
  10912. DoCreate = .T.
  10913. AutoCenter = .T.
  10914. Caption = "Explorador"
  10915. ControlBox = .F.
  10916. FontSize = 8
  10917. WindowType = 1
  10918. Name = "fgtransf_3"
  10919. PROCEDURE Init
  10920. lparam _titulo, _mensagem, _pathinicial, _file
  10921. this.caption = _titulo
  10922. this.label1.caption = _mensagem
  10923. this.list1.rowsource = _pathinicial
  10924. this.chose_file = _file
  10925. ENDPROC
  10926. PRT_CHOSEDIR_RESULTADO
  10927. THISFORM
  10928. RELEASE
  10929. Click,
  10930. !Arial, 0, 8, 5, 14, 11, 29, 3, 0
  10931. fgtransf_3
  10932. Label1
  10933. label
  10934. label
  10935. fgtransf_3
  10936. chose_file
  10937. listbox
  10938. listbox
  10939. List1
  10940. fgtransf_3
  10941. tFontSize = 8
  10942. RowSourceType = 7
  10943. RowSource = "c:\"
  10944. Height = 240
  10945. Left = 11
  10946. Top = 29
  10947. Width = 324
  10948. Name = "List1"
  10949. commandbutton
  10950. commandbutton
  10951. Command1
  10952. fgtransf_3
  10953. gTop = 277
  10954. Left = 92
  10955. Height = 25
  10956. Width = 80
  10957. FontSize = 8
  10958. Caption = "\<Aceitar"
  10959. Name = "Command1"
  10960. PROCEDURE Click
  10961. if thisform.chose_file
  10962.     prt_chosedir_resultado = thisform.list1.List(2) + thisform.list1.value
  10963.     prt_chosedir_resultado = thisform.list1.List(2)
  10964. endif
  10965. thisform.release
  10966. ENDPROC
  10967. THISFORM
  10968. CHOSE_FILE
  10969. PRT_CHOSEDIR_RESULTADO
  10970. LIST1
  10971. VALUE
  10972. RELEASE
  10973. Click,
  10974. commandbutton
  10975. commandbutton
  10976. Command2
  10977. iTop = 277
  10978. Left = 174
  10979. Height = 25
  10980. Width = 80
  10981. FontSize = 8
  10982. Caption = "\<Cancelar"
  10983. Name = "Command2"
  10984. KPROCEDURE Click
  10985. prt_chosedir_resultado = ""
  10986. thisform.release
  10987. ENDPROC
  10988. AutoSize = .T.
  10989. FontSize = 8
  10990. Caption = "Seleccione o directorio"
  10991. Height = 16
  10992. Left = 11
  10993. Top = 11
  10994. Width = 112
  10995. Name = "Label1"
  10996. _TITULO    
  10997. _MENSAGEM
  10998. _PATHINICIAL
  10999. _FILE
  11000. CAPTION
  11001. LABEL1
  11002. LIST1    
  11003. ROWSOURCE
  11004. CHOSE_FILE
  11005. Init,
  11006. PLATFORM
  11007. UNIQUEID
  11008. TIMESTAMP
  11009. CLASS
  11010. CLASSLOC
  11011. BASECLASS
  11012. OBJNAME
  11013. PARENT
  11014. PROPERTIES
  11015. PROTECTED
  11016. METHODS
  11017. OBJCODE
  11018. RESERVED1
  11019. RESERVED2
  11020. RESERVED3
  11021. RESERVED4
  11022. RESERVED5
  11023. RESERVED6
  11024. RESERVED7
  11025. RESERVED8
  11026.  COMMENT Screen              
  11027.  WINDOWS _0EC10N1S2 717064242
  11028.  WINDOWS _0EC10N1S3 717127485
  11029.  WINDOWS _0EC10N1S2 717125410
  11030.  WINDOWS _0EC10N1S6 717127485[
  11031.  WINDOWS _0EC10N1S8 717127485
  11032.  WINDOWS _0ED0NMLJU 717125410
  11033.  COMMENT RESERVED            
  11034. VERSION =   3.00
  11035. dataenvironment
  11036. dataenvironment
  11037. Dataenvironment
  11038. Name = "Dataenvironment"
  11039. Form1
  11040. Height = 111
  11041. Width = 379
  11042. DoCreate = .T.
  11043. AutoCenter = .T.
  11044. Caption = "N
  11045.  poss
  11046. vel continuar..."
  11047. ControlBox = .F.
  11048. WindowType = 1
  11049. Name = "Form1"
  11050. PROCEDURE Activate
  11051. local lcmens, lctenta, lcdesiste
  11052. lcmens = "O registo em causa est
  11053.  a ser acedido por outro utilizador." + chr(13) + ;
  11054.          "Poder
  11055.  tentar novamente ou desistir da opera
  11056. lctenta = "\<Tentar"
  11057. lcdesiste = "\<Desistir"
  11058. if empty(frmlock_mensagem)
  11059.     this.label1.caption = lcmens
  11060.     this.label1.caption = frmlock_mensagem
  11061. endif
  11062. if empty(frmlock_cmdtenta)
  11063.     this.command1.caption = lctenta
  11064.     this.command1.caption = frmlock_cmdtenta
  11065. endif
  11066. if empty(frmlock_cmddesiste)
  11067.     this.command2.caption = lcdesiste
  11068.     this.command2.caption = frmlock_cmddesiste
  11069. endif
  11070. this.label1.autosize = .f.
  11071. this.label1.height = this.height / 2
  11072. this.label1.autosize = .t.
  11073. this.label1.top = int((this.height - this.label1.height / 2) - 75)
  11074. ENDPROC
  11075. PROCEDURE Init
  11076. lparam _mensagem, _cmdtenta, _cmddesiste
  11077. public frmlock_mensagem, frmlock_cmdtenta, frmlock_cmddesiste
  11078. frmlock_mensagem = iif(empty(_mensagem), "", _mensagem)
  11079. frmlock_cmdtenta = iif(empty(_cmdtenta), "", _cmdtenta)
  11080. frmlock_cmddesiste = iif(empty(_cmddesiste), "", _cmddesiste)
  11081. ENDPROC
  11082. PROCEDURE Destroy
  11083. release frmlock_mensagem, frmlock_cmdtenta, frmlock_cmddesiste
  11084. ENDPROC
  11085. PRT_RESULT
  11086. THISFORM
  11087. RELEASE
  11088. Click,
  11089. PRT_RESULT
  11090. THISFORM
  11091. RELEASE
  11092. Click,
  11093. BArial, 0, 9, 5, 15, 12, 32, 3, 0
  11094. Arial, 0, 8, 5, 14, 11, 30, 3, 0
  11095. >PROCEDURE Click
  11096. prt_result = 0
  11097. thisform.release
  11098. ENDPROC
  11099. ^Top = 80
  11100. Left = 191
  11101. Height = 25
  11102. Width = 80
  11103. FontSize = 8
  11104. Caption = ""
  11105. Name = "Command2"
  11106. Form1
  11107. Command2
  11108. commandbutton
  11109. commandbutton
  11110. oPicture = ..\icons\scdcncll.ico
  11111. BackStyle = 0
  11112. Height = 32
  11113. Left = 15
  11114. Top = 24
  11115. Width = 32
  11116. Name = "Image1"
  11117. Form1
  11118. Image1
  11119. image
  11120. image
  11121. lFontSize = 8
  11122. WordWrap = .T.
  11123. Caption = ""
  11124. Height = 30
  11125. Left = 64
  11126. Top = 25
  11127. Width = 303
  11128. Name = "Label1"
  11129. Form1
  11130. Label1
  11131. label
  11132. label
  11133. >PROCEDURE Click
  11134. prt_result = 1
  11135. thisform.release
  11136. ENDPROC
  11137. Form1
  11138. Command1
  11139. commandbutton
  11140. commandbutton
  11141. ^Top = 80
  11142. Left = 107
  11143. Height = 25
  11144. Width = 80
  11145. FontSize = 8
  11146. Caption = ""
  11147. Name = "Command1"
  11148. O registo em causa est
  11149.  a ser acedido por outro utilizador.C
  11150. Poder
  11151.  tentar novamente ou desistir da opera
  11152. \<Tentar
  11153. \<Desistir
  11154. LCMENS
  11155. LCTENTA    
  11156. LCDESISTE
  11157. FRMLOCK_MENSAGEM
  11158. LABEL1
  11159. CAPTION
  11160. FRMLOCK_CMDTENTA
  11161. COMMAND1
  11162. FRMLOCK_CMDDESISTE
  11163. COMMAND2
  11164. AUTOSIZE
  11165. HEIGHT
  11166. _MENSAGEM    
  11167. _CMDTENTA
  11168. _CMDDESISTE
  11169. FRMLOCK_MENSAGEM
  11170. FRMLOCK_CMDTENTA
  11171. FRMLOCK_CMDDESISTE
  11172. FRMLOCK_MENSAGEM
  11173. FRMLOCK_CMDTENTA
  11174. FRMLOCK_CMDDESISTE
  11175. Activate,
  11176. Destroy
  11177. PLATFORM
  11178. UNIQUEID
  11179. TIMESTAMP
  11180. CLASS
  11181. CLASSLOC
  11182. BASECLASS
  11183. OBJNAME
  11184. PARENT
  11185. PROPERTIES
  11186. PROTECTED
  11187. METHODS
  11188. OBJCODE
  11189. RESERVED1
  11190. RESERVED2
  11191. RESERVED3
  11192. RESERVED4
  11193. RESERVED5
  11194. RESERVED6
  11195. RESERVED7
  11196. RESERVED8
  11197.  COMMENT Screen              
  11198.  WINDOWS _3TP11RTSA1122340013
  11199.  WINDOWS _3TP11RTSB1122524562
  11200.  WINDOWS _3TP11RTSC1122523296
  11201.  WINDOWS _3TP11Y6U11122523296s
  11202.  WINDOWS _3TP11Y6U21122523296
  11203.  WINDOWS _3TP11Y6U31122340171z
  11204.  WINDOWS _3TP11RTSA11225232965
  11205.  WINDOWS _3TS0NR6CF1122524562
  11206.  WINDOWS _3TS0NR6CG1122523296
  11207.  COMMENT RESERVED            
  11208. VERSION =   3.00
  11209. dataenvironment
  11210. dataenvironment
  11211. Dataenvironment
  11212. YTop = 0
  11213. Left = 0
  11214. Width = 0
  11215. Height = 0
  11216. DataSource = .NULL.
  11217. Name = "Dataenvironment"
  11218.     FRMERRO01
  11219. Height = 327
  11220. Width = 275
  11221. DoCreate = .T.
  11222. AutoCenter = .T.
  11223. Caption = "Erro: Contas sem descri
  11224. ControlBox = .F.
  11225. WindowType = 1
  11226. Name = "FRMERRO01"
  11227. commandbutton
  11228. commandbutton
  11229. Command1
  11230.     FRMERRO01
  11231. Top = 290
  11232. Left = 162
  11233. Height = 25
  11234. Width = 80
  11235. FontSize = 8
  11236. Cancel = .T.
  11237. Caption = "Sair"
  11238. TabIndex = 5
  11239. Name = "Command1"
  11240. .PROCEDURE Click
  11241. thisform.Release
  11242. ENDPROC
  11243. THISFORM
  11244. RELEASE
  11245. Click,
  11246. Grid1
  11247.     FRMERRO01
  11248. BColumnCount = 1
  11249. DeleteMark = .F.
  11250. Height = 200
  11251. Left = 33
  11252. Panel = 1
  11253. ReadOnly = .T.
  11254. RecordSource = "cs_erro_01"
  11255. ScrollBars = 2
  11256. TabIndex = 4
  11257. Top = 75
  11258. Width = 209
  11259. GridLineColor = 192,192,192
  11260. Name = "Grid1"
  11261. Column1.ControlSource = "accountid"
  11262. Column1.Width = 178
  11263. Column1.ReadOnly = .T.
  11264. Column1.Name = "Column1"
  11265. header
  11266. header
  11267. Header1
  11268. FRMERRO01.Grid1.Column1
  11269. 5FontSize = 8
  11270. Caption = "  Conta"
  11271. Name = "Header1"
  11272. textbox
  11273. textbox
  11274. Text1
  11275. FRMERRO01.Grid1.Column1
  11276. iBorderStyle = 0
  11277. Margin = 0
  11278. ReadOnly = .T.
  11279. ForeColor = 0,0,0
  11280. BackColor = 255,255,255
  11281. Name = "Text1"
  11282. label
  11283. label
  11284. Label1
  11285.     FRMERRO01
  11286. AutoSize = .T.
  11287. FontSize = 8
  11288. Caption = "Foram detetadas contas sem descri
  11289. Height = 16
  11290. Left = 20
  11291. Top = 12
  11292. Width = 196
  11293. TabIndex = 1
  11294. Name = "Label1"
  11295. label
  11296. label
  11297. Label2
  11298.     FRMERRO01
  11299. AutoSize = .T.
  11300. FontSize = 8
  11301. Caption = "Corrija a situa
  11302. o, e volte a gerar o ficheiro."
  11303. Height = 16
  11304. Left = 20
  11305. Top = 44
  11306. Width = 213
  11307. TabIndex = 3
  11308. Name = "Label2"
  11309. label
  11310. label
  11311. Label3
  11312.     FRMERRO01
  11313. AutoSize = .T.
  11314. FontSize = 8
  11315. Caption = " Assim, n
  11316.  poss
  11317. vel produzir o ficheiro SAFT."
  11318. Height = 16
  11319. Left = 20
  11320. Top = 28
  11321. Width = 235
  11322. TabIndex = 2
  11323. Name = "Label3"
  11324. BArial, 0, 9, 5, 15, 12, 32, 3, 0
  11325. Arial, 0, 8, 5, 14, 11, 29, 3, 0
  11326. PLATFORM
  11327. UNIQUEID
  11328. TIMESTAMP
  11329. CLASS
  11330. CLASSLOC
  11331. BASECLASS
  11332. OBJNAME
  11333. PARENT
  11334. PROPERTIES
  11335. PROTECTED
  11336. METHODS
  11337. OBJCODE
  11338. RESERVED1
  11339. RESERVED2
  11340. RESERVED3
  11341. RESERVED4
  11342. RESERVED5
  11343. RESERVED6
  11344. RESERVED7
  11345. RESERVED8
  11346.  COMMENT Screen              
  11347.  WINDOWS _3TP11RTSA1122340013
  11348.  WINDOWS _3TP11RTSB1132755271
  11349.  WINDOWS _3TP11RTSA1132755075
  11350.  WINDOWS _3TP11Y6U11122524550%
  11351.  WINDOWS _3TP11Y6U21122523296
  11352.  WINDOWS _3TP11Y6U31122340171
  11353.  WINDOWS _3TS0NWGV71122523428S
  11354.  WINDOWS _3TS0NWGV81122523428
  11355.  WINDOWS _3TP11RTSA1132754777
  11356.  WINDOWS _3TS0NR6CF1132754777
  11357.  WINDOWS _3XX0W3VQF1132754777P
  11358.  COMMENT RESERVED            
  11359. VERSION =   3.00
  11360. dataenvironment
  11361. dataenvironment
  11362. Dataenvironment
  11363. YTop = 0
  11364. Left = 0
  11365. Width = 0
  11366. Height = 0
  11367. DataSource = .NULL.
  11368. Name = "Dataenvironment"
  11369.     FRMERRO01
  11370. Height = 301
  11371. Width = 541
  11372. DoCreate = .T.
  11373. AutoCenter = .T.
  11374. Caption = "Erro: Contas sem descri
  11375. ControlBox = .F.
  11376. WindowType = 1
  11377. Name = "FRMERRO01"
  11378. tPROCEDURE Init
  11379. LPARAMETERS _terceiros
  11380. thisform.Caption = thisform.Caption + "   (" + _terceiros + ")"
  11381. ENDPROC
  11382. THISFORM
  11383. RELEASE
  11384. Click,
  11385.     FRMERRO01
  11386. Command2
  11387. label
  11388. commandbutton
  11389. commandbutton
  11390. Command1
  11391.     FRMERRO01
  11392. Top = 264
  11393. Left = 441
  11394. Height = 25
  11395. Width = 80
  11396. FontSize = 8
  11397. Cancel = .T.
  11398. Caption = "\<Cancelar"
  11399. TabIndex = 5
  11400. Name = "Command1"
  11401. BPROCEDURE Click
  11402. p_contassemnif = 9
  11403. thisform.Release
  11404. ENDPROC
  11405. P_CONTASSEMNIF
  11406. THISFORM
  11407. RELEASE
  11408. Click,
  11409. Grid1
  11410.     FRMERRO01
  11411. ColumnCount = 2
  11412. DeleteMark = .F.
  11413. Height = 200
  11414. Left = 19
  11415. Panel = 1
  11416. ReadOnly = .T.
  11417. RecordSource = "cs_erro_02"
  11418. ScrollBars = 2
  11419. TabIndex = 4
  11420. Top = 49
  11421. Width = 502
  11422. GridLineColor = 192,192,192
  11423. Name = "Grid1"
  11424. Column1.ControlSource = "contaid"
  11425. Column1.Width = 178
  11426. Column1.ReadOnly = .T.
  11427. Column1.Name = "Column1"
  11428. Column2.ControlSource = "companyname"
  11429. Column2.Width = 292
  11430. Column2.ReadOnly = .T.
  11431. Column2.Name = "Column2"
  11432. header
  11433. header
  11434. Header1
  11435. FRMERRO01.Grid1.Column1
  11436. 5FontSize = 8
  11437. Caption = "  Conta"
  11438. Name = "Header1"
  11439. textbox
  11440. textbox
  11441. Text1
  11442. FRMERRO01.Grid1.Column1
  11443. iBorderStyle = 0
  11444. Margin = 0
  11445. ReadOnly = .T.
  11446. ForeColor = 0,0,0
  11447. BackColor = 255,255,255
  11448. Name = "Text1"
  11449. header
  11450. header
  11451. Header1
  11452. FRMERRO01.Grid1.Column2
  11453. 9FontSize = 8
  11454. Caption = "  Descri
  11455. Name = "Header1"
  11456. textbox
  11457. textbox
  11458. Text1
  11459. FRMERRO01.Grid1.Column2
  11460. YBorderStyle = 0
  11461. Margin = 0
  11462. ForeColor = 0,0,0
  11463. BackColor = 255,255,255
  11464. Name = "Text1"
  11465. label
  11466. label
  11467. Label1
  11468.     FRMERRO01
  11469. AutoSize = .T.
  11470. FontSize = 8
  11471. Caption = 'As contas listadas n
  11472. m NIF ou t
  11473. m NIF = "Desconhecido".'
  11474. Height = 16
  11475. Left = 20
  11476. Top = 12
  11477. Width = 296
  11478. TabIndex = 1
  11479. Name = "Label1"
  11480. label
  11481. Label2
  11482.     FRMERRO01
  11483. AutoSize = .T.
  11484. FontSize = 8
  11485. Caption = "Deseja continuar a cria
  11486. o do SAFT?"
  11487. Height = 16
  11488. Left = 20
  11489. Top = 28
  11490. Width = 182
  11491. TabIndex = 3
  11492. Name = "Label2"
  11493. commandbutton
  11494. commandbutton
  11495. xTop = 264
  11496. Left = 353
  11497. Height = 25
  11498. Width = 80
  11499. FontSize = 8
  11500. Caption = "C\<ontinuar"
  11501. TabIndex = 5
  11502. Name = "Command2"
  11503. .PROCEDURE Click
  11504. thisform.Release
  11505. ENDPROC
  11506. _TERCEIROS
  11507. THISFORM
  11508. CAPTION
  11509. Init,
  11510. BArial, 0, 9, 5, 15, 12, 32, 3, 0
  11511. Arial, 0, 8, 5, 14, 11, 29, 3, 0
  11512. app1_01.scx
  11513. app1_01.sct
  11514. ..\shared\icons\
  11515. gdg2000.ico
  11516. cfuncs.prg
  11517. c:\temp\
  11518. cfuncs.fxp
  11519. ..\shared\prg\funcs.prg
  11520. ..\shared\prg\erros.prg
  11521. erros.fxp
  11522. ..\shared\prg\arraysp.prg
  11523. arraysp.fxp
  11524. app1_00.prg
  11525. app1_00.fxp
  11526. ..\shared\forms\
  11527. print.scx
  11528. print.sct
  11529. frmprev.scx
  11530. frmprev.sct
  11531. frmdir.scx
  11532. frmdir.sct
  11533. scdcncll.ico
  11534. frmlock.scx
  11535. frmlock.sct
  11536. frmerro01.scx
  11537. frmerro01.sct
  11538. frmerro02.scx
  11539. frmerro02.sct
  11540.