home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / GPessoal / appdecmensal_at.app (.txt) next >
MS Visual FoxPro App  |  2015-03-17  |  232KB  |  7,407 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 _04Y0LER9M 685395818
  23.  WINDOWS _04Y0LER9N1165133222
  24.  WINDOWS _3OX11KRVZ1127317332
  25.  WINDOWS _3ON0ONJ691111261190
  26.  WINDOWS _3ON0ONJ6A1111261190
  27.  WINDOWS _04Y0LER9M1109680424bU
  28.  WINDOWS _04Y0LER9M1109680424
  29.  WINDOWS _04Y0LER9M1109680424
  30.  WINDOWS _04Y0LER9N1109680424VW
  31.  WINDOWS _04Y0LER9R11096804242X
  32.  WINDOWS _04Y0LER9T1109680424
  33.  WINDOWS _04Y0LER9U1109680424
  34.  WINDOWS _04Y0LER9S1109680424tZ
  35.  WINDOWS _04Y0LER9M1109680424F[
  36.  WINDOWS _3ON0ONJ6B1109680424
  37.  WINDOWS _04Y0LER9M1109680424
  38.  WINDOWS _04Y0LER9M1109680424
  39.  WINDOWS _3ON0ONJ6C1109680424
  40.  WINDOWS _04Y0LER9M1109680424u_
  41.  WINDOWS _3ON0ONJ6D1109680424
  42.  WINDOWS _04Y0LER9M1109680629
  43.  WINDOWS _04Y0LER9N1109680629ia
  44.  WINDOWS _3ON0LK0ZS1109680424=b
  45.  WINDOWS _3ON0LK0ZT1109680424
  46.  WINDOWS _04Y0LER9R1109680424[c
  47.  WINDOWS _3ON0ONJ6E1110014127
  48.  WINDOWS _3ON0ONJ6G1110015685
  49.  WINDOWS _3ON0ONJ6H1109680424be
  50.  WINDOWS _04Y0LER9M1110015703:f
  51.  WINDOWS _04Y0LER9M1110014127
  52.  WINDOWS _3ON0ONJ6K1110015685
  53.  WINDOWS _04Y0LER9M1110015685:h
  54.  WINDOWS _04Y0LER9N1110015685
  55.  WINDOWS _3ON0ONJ6L1110015685
  56.  WINDOWS _3ON0ONJ6M1110015685
  57.  WINDOWS _3ON0ONJ6N1110015685Wk
  58.  WINDOWS _04Y0LER9M11100157031l
  59.  WINDOWS _3OS0WCH3R1110015685
  60.  WINDOWS _04Y0LER9M1110015703Sm
  61.  WINDOWS _3OS0WCH3S11100156850n
  62.  WINDOWS _3ON0ONJ6O1110014127
  63.  WINDOWS _3ON0ONJ6P1110015685
  64.  WINDOWS _3ON0ONJ6Q1110015685Mp
  65.  WINDOWS _3ON0ONJ6R1110015685
  66.  WINDOWS _04Y0LER9M1110015685
  67.  WINDOWS _3ON0ONJ6S1111261190!r
  68.  WINDOWS _3ON0ONJ6T1111261190
  69.  WINDOWS _04Y0LER9N1111261190
  70.  WINDOWS _04Y0LER9M1111261190
  71.  WINDOWS _04Y0LER9M1111261190
  72.  WINDOWS _3ON0ONJ6U1111261190[z
  73.  WINDOWS _3ON0ONJ6V1111261190
  74.  WINDOWS _04Y0LER9M1111261190
  75.  WINDOWS _3ON0ONJ6W1110015685
  76.  WINDOWS _3ON0ONJ6X1111261190/
  77.  WINDOWS _04Y0LER9M1110014127=
  78.  WINDOWS _3ON0ONJ6Y1110014127
  79.  WINDOWS _3ON0ONJ6Z1109679045
  80.  WINDOWS _3ON0ONJ701111261190
  81.  WINDOWS _3ON0ONJ711111261190
  82.  WINDOWS _04Y0LER9M1111261190
  83.  WINDOWS _3ON0ONJ7211100141272
  84.  WINDOWS _3ON0ONJ731111261190
  85.  WINDOWS _3ON0ONJ741109679045
  86.  WINDOWS _3ON0ONJ751111261190P
  87.  WINDOWS _3ON0ONJ761110014127%
  88.  WINDOWS _3ON0ONJ771111261190
  89.  WINDOWS _3ON0ONJ781111260630
  90.  WINDOWS _3ON0ONJ791111261190T
  91.  WINDOWS _3ON0ONJ7A1110015685T
  92.  WINDOWS _3ON0ONJ7B1110015685
  93.  WINDOWS _3ON0ONJ7C1111261190}
  94.  WINDOWS _3ON0ONJ7D1111261190R
  95.  WINDOWS _3ON0ONJ7E1111261190<
  96.  WINDOWS _04Y0LER9M11112611905
  97.  WINDOWS _3ON0ONJ7F1110015685
  98.  WINDOWS _3ON0ONJ7G1110015685
  99.  WINDOWS _3ON0ONJ7H1110015685T
  100.  WINDOWS _3ON0ONJ7K1111261190
  101.  WINDOWS _3ON0ONJ7L1111261190
  102.  WINDOWS _3ON0ONJ7M1111261190
  103.  WINDOWS _3ON0ONJ7N1111261190
  104.  WINDOWS _3ON0ONJ7O1110014127
  105.  WINDOWS _3ON0ONJ7P11100141273
  106.  WINDOWS _3ON0ONJ7Q1109679045
  107.  WINDOWS _3ON0ONJ7R1111261190[
  108.  WINDOWS _3ON0ONJ7S1111261190.
  109.  WINDOWS _3ON0ONJ7T1111261190"
  110.  WINDOWS _3ON0ONJ7U1110014127
  111.  WINDOWS _3ON0ONJ7V1111261190 
  112.  WINDOWS _3ON0ONJ7W1111261190
  113.  WINDOWS _04Y0LER9M1110015685
  114.  WINDOWS _3ON0ONJ7X1110014127
  115.  WINDOWS _3ON0ONJ7Y1110014127
  116.  WINDOWS _3ON0ONJ7Z1109680424z|
  117.  WINDOWS _3ON0ONJ801111261190
  118.  WINDOWS _3ON0ONJ811111261190
  119.  WINDOWS _3ON0ONJ821111261190
  120.  WINDOWS _3ON0ONJ831111261190
  121.  WINDOWS _3ON0ONJ841111261190
  122.  WINDOWS _3ON0ONJ851111261190
  123.  WINDOWS _3ON0ONJ861110014127
  124.  WINDOWS _3ON0ONJ871111261190JA
  125.  WINDOWS _3ON0ONJ881110014127Z@
  126.  WINDOWS _3ON0ONJ891111261190
  127.  WINDOWS _3ON0ONJ8A1110014127
  128.  WINDOWS _3ON0ONJ8B1111261190+>
  129.  WINDOWS _3ON0ONJ8C1110014127*=
  130.  WINDOWS _3ON0ONJ8D1111261190
  131.  WINDOWS _3ON0ONJ8E1111261190
  132.  WINDOWS _3ON0ONJ8F1111261190
  133.  WINDOWS _3ON0ONJ8G1111261190
  134.  WINDOWS _3ON0ONJ8H1111261190
  135.  WINDOWS _3ON0ONJ8I1110014127
  136.  WINDOWS _3ON0ONJ8J1110014127
  137.  WINDOWS _3ON0ONJ8K1110014127=6
  138.  WINDOWS _3ON0ONJ8L1111261190
  139.  WINDOWS _3ON0ONJ8M1111261190
  140.  WINDOWS _3ON0ONJ8N1111261190
  141.  WINDOWS _3ON0ONJ8O1110014127x2
  142.  WINDOWS _3ON0ONJ8P1111261190
  143.  WINDOWS _3ON0ONJ8Q1111261190
  144.  WINDOWS _3ON0ONJ8R1110014127g/
  145.  WINDOWS _3ON0ONJ8S1111261190
  146.  WINDOWS _3ON0ONJ8T1111261190
  147.  WINDOWS _3ON0ONJ8U1111261190
  148.  WINDOWS _3ON0ONJ8V1111261190
  149.  WINDOWS _04Y0LER9M1111261190
  150.  WINDOWS _04Y0LER9N1111261190
  151.  WINDOWS _04Y0LER9R1111261190
  152.  WINDOWS _04Y0LER9T1111261190
  153.  WINDOWS _3ON0ONJ8W11112611901#
  154.  WINDOWS _3ON0ONJ8X1111261190L"
  155.  WINDOWS _3ON0ONJ8Y1110015685p!
  156.  WINDOWS _3ON0ONJ8Z1111261190
  157.  WINDOWS _04Y0LER9M1110015685
  158.  WINDOWS _04Y0LER9M1110015685S
  159.  WINDOWS _04Y0LER9M1110015685
  160.  WINDOWS _3ON0ONJ911110015685K
  161.  WINDOWS _3ON0ONJ921110015685
  162.  WINDOWS _04Y0LER9N1111261190*
  163.  WINDOWS _04Y0LER9M1111261190J
  164.  WINDOWS _04Y0LER9N1111261191^
  165.  WINDOWS _04Y0LER9R1111261191r
  166.  WINDOWS _04Y0LER9T1111261191
  167.  WINDOWS _04Y0LER9M1111261191
  168.  WINDOWS _04Y0LER9N1111261191
  169.  WINDOWS _04Y0LER9R1111261191
  170.  WINDOWS _04Y0LER9T1111261191
  171.  WINDOWS _04Y0LER9M1111261191
  172.  WINDOWS _04Y0LER9M1111261191:
  173.  WINDOWS _04Y0LER9M1111261191
  174.  WINDOWS _3ON0ONJ931111261191
  175.  WINDOWS _04Y0LER9M11112611918
  176.  WINDOWS _04Y0LER9N1111261191[
  177.  WINDOWS _04Y0LER9M1111261191
  178.  WINDOWS _04Y0LER9N1111261191
  179.  WINDOWS _04Y0LER9M1111261191
  180.  WINDOWS _04Y0LER9N1111261191
  181.  WINDOWS _3ON0ONJ941111261191
  182.  WINDOWS _3ON0ONJ951111261191%
  183.  WINDOWS _3ON0ONJ961111261191H
  184.  WINDOWS _3ON0ONJ971109679045
  185.  WINDOWS _3ON0ONJ981111262369g
  186.  WINDOWS _3ON0ONJ991109679045
  187.  WINDOWS _3ON0ONJ9A1109679045
  188.  WINDOWS _3ON0ONJ9B1109679045,
  189.  WINDOWS _3ON0ONJ9C1109679045
  190.  WINDOWS _3ON0ONJ9D1109679045
  191.  WINDOWS _3ON0ONJ9E1110677263<
  192.  WINDOWS _3ON0ONJ9F1109679045l
  193.  WINDOWS _3ON0ONJ9G1109680629
  194.  WINDOWS _3ON0ONJ9H1109679045
  195.  WINDOWS _3ON0ONJ9I1109680629p
  196.  WINDOWS _3ON0ONJ9J1109679045
  197.  WINDOWS _3ON0ONJ9K1109679045
  198.  WINDOWS _3ON0ONJ9L11096790450
  199.  WINDOWS _3ON0ONJ9M1109679045
  200.  WINDOWS _3ON0ONJ9N1110014127
  201.  WINDOWS _3ON0ONJ9O11096806296
  202.  WINDOWS _3ON0ONJ9P1109679045W
  203.  WINDOWS _3ON0ONJ9Q1109679045
  204.  WINDOWS _3ON0ONJ9R1109679045
  205.  WINDOWS _3ON0ONJ9S1109679045^
  206.  WINDOWS _3OS0WCH471110014127
  207.  WINDOWS _3OS0WCH481110015685
  208.  WINDOWS _3OS0WCH491110014127
  209.  WINDOWS _3OS0WCH4A1110015685
  210.  WINDOWS _04Y0LER9M1111261191
  211.  WINDOWS _3ON0PL75A1111261191
  212.  WINDOWS _04Y0LER9M1110015685
  213.  WINDOWS _3PB0W7NYI1149534822H
  214.  WINDOWS _3PS10U0WU1112443947
  215.  COMMENT RESERVED            
  216. VERSION =   3.00
  217. dataenvironment
  218. dataenvironment
  219. Dataenvironment
  220. YTop = 0
  221. Left = 0
  222. Width = 0
  223. Height = 0
  224. DataSource = .NULL.
  225. Name = "Dataenvironment"
  226. frmlista_e
  227. ..\shared\classes\clsforms.vcx
  228. fl0409
  229. DataSession = 1
  230. Top = 0
  231. Left = 1
  232. Height = 548
  233. Width = 924
  234. DoCreate = .T.
  235. Caption = "Declara
  236. o Mensal de Remunera
  237. es (AT)"
  238. WindowType = 1
  239. _reportname = r0409_1
  240. nrlinhas = 0
  241. entidade_ini = 
  242. gravacao_ok = .T.
  243. Name = "fl0409"
  244. Command3.Top = 508
  245. Command3.Left = 408
  246. Command3.TabIndex = 3
  247. Command3.ZOrderSet = 0
  248. Command3.Name = "Command3"
  249. Command4.Top = 508
  250. Command4.Left = 538
  251. Command4.TabIndex = 5
  252. Command4.ZOrderSet = 1
  253. Command4.Name = "Command4"
  254. Command5.Top = 508
  255. Command5.Left = 473
  256. Command5.TabIndex = 4
  257. Command5.ZOrderSet = 2
  258. Command5.Name = "Command5"
  259. Command6.Top = 516
  260. Command6.Left = 72
  261. Command6.Height = 30
  262. Command6.Width = 38
  263. Command6.TabIndex = 7
  264. Command6.Visible = .F.
  265. Command6.ZOrderSet = 3
  266. Command6.Name = "Command6"
  267. Shape1.Top = 514
  268. Shape1.Left = 8
  269. Shape1.Height = 6
  270. Shape1.Width = 53
  271. Shape1.Visible = .F.
  272. Shape1.ZOrderSet = 5
  273. Shape1.Name = "Shape1"
  274. resizable1.Top = 524
  275. resizable1.Left = 8
  276. resizable1.Name = "resizable1"
  277. chk_entid.Top = 511
  278. chk_entid.Left = 851
  279. chk_entid.TabIndex = 6
  280. chk_entid.ZOrderSet = 7
  281. chk_entid.Name = "chk_entid"
  282. Csentidades1.Top = 524
  283. Csentidades1.Left = 32
  284. Csentidades1.modulo = S
  285. Csentidades1.cursor = cs_fl0409
  286. Csentidades1.Name = "Csentidades1"
  287. PROCEDURE limpa_cab
  288. fl0409_nif_legal = ""
  289. fl0409_j_fin = ""
  290. fl0409_nif = ""
  291. fl0409_1decl = 0
  292. fl0409_art119 = 0
  293. fl0409_j_dobrig = {}
  294. fl0409_j_toc = ""
  295. ENDPROC
  296. PROCEDURE get_cab
  297. LOCAL lntoc
  298. IF SEEK(UPPER(p_codemp), "empresa", "key_1")
  299.     fl0409_nif_legal = empresa.nif_legal
  300.     fl0409_j_fin = empresa.codrep
  301.     fl0409_nif = empresa.nif
  302.     fl0409_nif_legal = ""
  303.     fl0409_j_fin = ""
  304.     fl0409_nif = ""
  305. ENDIF
  306. lntoc = empresa.idtoc
  307. select 0
  308. use addbs(alltrim(p_path)) + "comuns\wtoc.dbf" alias toc shared
  309. set Order To key_1
  310. =xseek(lntoc, "toc", "key_1")
  311. fl0409_j_toc = toc.nif
  312. select toc
  313. ENDPROC
  314. PROCEDURE limpa_totais
  315. fl0409_v0101 = 0.00
  316. fl0409_v0102 = 0.00
  317. fl0409_v0103 = 0.00
  318. fl0409_v0104 = 0.00
  319. fl0409_v0105 = 0.00
  320. fl0409_v0201 = 0.00
  321. fl0409_v0202 = 0.00
  322. fl0409_v0203 = 0.00
  323. fl0409_v0204 = 0.00
  324. fl0409_v0205 = 0.00
  325. fl0409_v0301 = 0.00
  326. fl0409_v0302 = 0.00
  327. fl0409_v0303 = 0.00
  328. fl0409_v0304 = 0.00
  329. fl0409_v0305 = 0.00
  330. fl0409_v0401 = 0.00
  331. fl0409_v0402 = 0.00
  332. fl0409_v0403 = 0.00
  333. fl0409_v0404 = 0.00
  334. fl0409_v0405 = 0.00
  335. ENDPROC
  336. PROCEDURE get_totais
  337. SELECT sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 1, rend_anterior + rend_ano, 000000000000000.00)) as c_v0101, ;
  338.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 1, retido, 000000000000000.00)) as c_v0102, ;
  339.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 1, contrib, 000000000000000.00)) as c_v0103, ;
  340.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 1, sindicato, 000000000000000.00)) as c_v0104, ;
  341.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 1, sobretaxa, 000000000000000.00)) as c_v0105, ;
  342.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 2, rend_anterior + rend_ano, 000000000000000.00)) as c_v0201, ;
  343.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 2, retido, 000000000000000.00)) as c_v0202, ;
  344.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 2, contrib, 000000000000000.00)) as c_v0203, ;
  345.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 2, sindicato, 000000000000000.00)) as c_v0204, ;
  346.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 2, sobretaxa, 000000000000000.00)) as c_v0205, ;
  347.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 3, rend_anterior + rend_ano, 000000000000000.00)) as c_v0301, ;
  348.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 3, retido, 000000000000000.00)) as c_v0302, ;
  349.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 3, contrib, 000000000000000.00)) as c_v0303, ;
  350.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 3, sindicato, 000000000000000.00)) as c_v0304, ;
  351.        sum(IIF(thisform.x_get_grupo_soma(tipo_rend) = 3, sobretaxa, 000000000000000.00)) as c_v0305 ;
  352.        from cs99_listagem ;
  353.        INTO CURSOR cs_totais
  354. SELECT cs_totais
  355. GO top
  356. fl0409_v0101 = cs_totais.c_v0101
  357. fl0409_v0102 = cs_totais.c_v0102
  358. fl0409_v0103 = cs_totais.c_v0103
  359. fl0409_v0104 = cs_totais.c_v0104
  360. fl0409_v0105 = cs_totais.c_v0105
  361. fl0409_v0201 = cs_totais.c_v0201
  362. fl0409_v0202 = cs_totais.c_v0202
  363. fl0409_v0203 = cs_totais.c_v0203
  364. fl0409_v0204 = cs_totais.c_v0204
  365. fl0409_v0205 = cs_totais.c_v0205
  366. fl0409_v0301 = cs_totais.c_v0301
  367. fl0409_v0302 = cs_totais.c_v0302
  368. fl0409_v0303 = cs_totais.c_v0303
  369. fl0409_v0304 = cs_totais.c_v0304
  370. fl0409_v0305 = cs_totais.c_v0305
  371. fl0409_v0401 = fl0409_v0101 + fl0409_v0201 + fl0409_v0301
  372. fl0409_v0402 = fl0409_v0102 + fl0409_v0202 + fl0409_v0302
  373. fl0409_v0403 = fl0409_v0103 + fl0409_v0203 + fl0409_v0303
  374. fl0409_v0404 = fl0409_v0104 + fl0409_v0204 + fl0409_v0304
  375. fl0409_v0405 = fl0409_v0105 + fl0409_v0205 + fl0409_v0305
  376. SELECT cs_totais
  377. SELECT cs99_listagem
  378. GO top
  379. ENDPROC
  380. PROCEDURE x_cnt_tipo_ret
  381. lparam _lanc, _indep
  382. local lnlanc, lnindep, lbret
  383. lnlanc = _lanc
  384. lnindep = _indep
  385. lbret = .t.
  386. if lnlanc = 2
  387.     lbret = .f.
  388.     if lnlanc = 0
  389.         if lnindep = 2
  390.             lbret = .f.
  391.         else
  392.             lbret = .t.
  393.         endif
  394.     else
  395.         lbret = .t.
  396.     endif
  397. endif
  398. return lbret
  399. ENDPROC
  400. PROCEDURE x_m39
  401. lparam _proce, _estatis
  402. local lbret_m39
  403. lbret_m39 = .f.
  404. if _proce = 0 and !empty(_estatis)
  405.     lbret_m39 = .t.
  406. endif
  407. return lbret_m39 
  408. ENDPROC
  409. PROCEDURE x_get_ano_reporte
  410. lparam _desc, _data
  411. local lnano, lnpos_ini, lnpos_fim
  412. lnano = 0
  413. lnpos_ini = 0
  414. lnpos_fim = 0
  415. lnpos_ini = at("{",_desc)
  416. if lnpos_ini > 0
  417.     lnano = val(substr(_desc, lnpos_ini + 1, 4))
  418.     if between(lnano, 1950, 2050)
  419.     else
  420.         lnano = year(_data)            
  421.     endif
  422.     lnano = year(_data)
  423. endif
  424. return lnano
  425. ENDPROC
  426. PROCEDURE x_inclui_abono
  427. lparam _proc, _abono, _tipo
  428. lbret = .f.
  429. if _proc = 0 && Movimentos manuais
  430.     IF _abono = 16 OR _abono = 65 OR _abono = 13
  431.             lbret = .t.
  432.     ENDIF
  433. else && Processamentos da aplica
  434. o aos funcion
  435.     if between(_abono, 300, 399)
  436.         if between(_tipo, 1, 3) OR BETWEEN(_tipo, 7, 8)
  437.             lbret = .t.
  438.         endif
  439.     else
  440.         if _abono < 200
  441.             lbret = .t.
  442.         endif
  443.     endif
  444. endif
  445. return lbret
  446. ENDPROC
  447. PROCEDURE x_get_subtipo
  448. lparam _desc
  449. local lcdesc, lcret, lnloc
  450. lcdesc = alltrim(_desc)
  451. lcret = "A  "
  452. lnloc = 0
  453. if left(lcdesc, 1) = "["
  454.     lnloc = at("]", lcdesc, 1)
  455.     if lnloc > 0
  456.         lcret = padr(upper(substr(lcdesc, 2, lnloc - 2)), 3, " ")
  457.     endif
  458. endif
  459. return lcret
  460. ENDPROC
  461. PROCEDURE x_get_tipo
  462. LPARAMETERS _xproc, _xcat_rend, _xdesc
  463. LOCAL lcret
  464. lcret = "   "
  465. IF _xproc = 0
  466.     lcret = this.x_get_subtipo(_xdesc)
  467.     IF !EMPTY(_xcat_rend)
  468.         lcret = PADR(_xcat_rend, 3, " ")
  469.     ENDIF
  470. ENDIF
  471. RETURN lcret
  472. ENDPROC
  473. PROCEDURE insere_linha
  474. LPARAMETERS _nif, _zona, _tipo_rend, _rend_anterior, _anos, _rend_ano, _retido, _contrib, _contrib_nipc1, _contrib_nipc2, ;
  475.             _contrib_nipc3, _sindicato, _sobretaxa
  476. INSERT INTO cs99_listagem (nif, zona, tipo_rend, rend_anterior, anos, rend_ano, retido, contrib, contrib_nipc1, contrib_nipc2, ;
  477.                            contrib_nipc3, sindicato, sobretaxa) VALUES (_nif, _zona, _tipo_rend, _rend_anterior, _anos, _rend_ano, ;
  478.                            _retido, _contrib, _contrib_nipc1, _contrib_nipc2, _contrib_nipc3, _sindicato, _sobretaxa)
  479. ENDPROC
  480. PROCEDURE insere_intermedio
  481. LPARAMETERS _inif, _itipo_rend, _izona, _iano_reporte, _ivalor, _iv_irs, _iv_tsu, _iv_adse, _iv_cga, _iv_sindicato, _iv_sobretaxa, ;
  482.             _isuj_irs, _isuj_tsu, _isuj_adse, _isuj_cga, _isuj_sindicato, _isuj_sobretaxa
  483. INSERT INTO cs95_listagem (nif, tipo_rend, zona, ano_reporte, valor, v_irs, v_tsu, v_adse, v_cga, v_sindicato, v_sobretaxa, suj_irs, ;
  484.                            suj_tsu, suj_adse, suj_cga, suj_sindicato, suj_sobretaxa) VALUES ;
  485.                           (_inif, _itipo_rend, _izona, _iano_reporte, _ivalor, _iv_irs, _iv_tsu, _iv_adse, _iv_cga, _iv_sindicato, ;
  486.                            _iv_sobretaxa, _isuj_irs, _isuj_tsu, _isuj_adse, _isuj_cga, _isuj_sindicato, _isuj_sobretaxa)
  487. ENDPROC
  488. PROCEDURE x_contribuicoes
  489. LPARAMETERS _valor
  490. LOCAL lbret
  491. lbret = .f.
  492. IF chk_desconto(_valor, "TSU")
  493.     lbret = .t.
  494.     IF chk_desconto(_valor, "CGA")
  495.         lbret = .t.
  496.     ELSE
  497.         IF chk_desconto(_valor, "ADS")
  498.             lbret = .t.
  499.         ENDIF
  500.     ENDIF
  501. ENDIF
  502. RETURN lbret
  503. ENDPROC
  504. PROCEDURE insere_descontos
  505. LPARAMETERS _nif, _tipo_rend, _v_irs, _v_tsu, _v_adse, _v_cga, _v_sindicato, _v_sobretaxa, _suj_irs, _suj_tsu, _suj_adse, ;
  506.             _suj_cga, _suj_sindicato, _suj_sobretaxa
  507. INSERT INTO cs_descontos_x (nif, tipo_rend, v_irs, v_tsu, v_adse, v_cga, v_sindicato, v_sobretaxa, suj_irs, suj_tsu, suj_adse, ;
  508.                             suj_cga, suj_sindicato, suj_sobretaxa) VALUES (_nif, _tipo_rend, _v_irs, _v_tsu, _v_adse, _v_cga, _v_sindicato, ;
  509.                             _v_sobretaxa, _suj_irs, _suj_tsu, _suj_adse, _suj_cga, _suj_sindicato, _suj_sobretaxa)
  510. ENDPROC
  511. PROCEDURE x_get_descontos
  512. LPARAMETERS _nif, _tipo_rend
  513. pndes_v_irs = 0.00
  514. pndes_tot_irs = 0.00
  515. SELECT cs_descontos
  516. IF SEEK(_nif + _tipo_rend)
  517.     pndes_v_irs = cs_descontos.v_irs
  518.     pndes_tot_irs = pndes_v_irs
  519. ENDIF
  520. ENDPROC
  521. PROCEDURE x_get_incidencias
  522. LPARAMETERS _nif
  523. pnincid_suj_irs = 0.00
  524. pnincid_suj_tsu = 0.00
  525. pnincid_suj_adse = 0.00
  526. pnincid_suj_cga = 0.00
  527. pnincid_suj_sindicato = 0.00
  528. pnincid_suj_sobretaxa = 0.00
  529. SELECT cs95_listagem
  530. SUM suj_irs, suj_tsu, suj_adse, suj_cga, suj_sindicato, suj_sobretaxa FOR nif = _nif TO pnincid_suj_irs, pnincid_suj_tsu, pnincid_suj_adse, pnincid_suj_cga, pnincid_suj_sindicato, pnincid_suj_sobretaxa
  531. ENDPROC
  532. PROCEDURE calculo_percentual
  533. LPARAMETERS _valor, _total, _descontado
  534. LOCAL lnret
  535. lnret = 0.00000000000000
  536. IF _valor # 0
  537.     lnret = ROUND(_valor / _total * _descontado, 14)
  538. ENDIF
  539. RETURN ROUND(lnret, 2)
  540. ENDPROC
  541. PROCEDURE ficheiro
  542. lparam _destino
  543. local lcdestino, lcano, lcmes, lddata_altera, lcnif, lnlinha, lntotal_retidas, lntotal_ano, lntotal_anteriores, lntotal_contribuicoes, ;
  544.       lntotal_sindicato, lntotal_sobretaxa, filehandle, _trdetalhe, _trdeclaracao, _trficheiro, lbgravacao_ok, lnbytes
  545. lcnif = PADL(ALLTRIM(ThisForm.Container1.J_NIF.Value), 9, "0")
  546. lcano = alltrim(str(ThisForm.Container1.text5.Value))
  547. lcmes = PADL(ALLTRIM(STR(ThisForm.Container1.combo1.Value)), 2, "0")
  548. lddata_altera = IIF(thisform.entidade_ini = p_codemp, thisform.container1.j_dobrig.Value, {})
  549. lnlinha = 0
  550. lntotal_anteriores = 0.00
  551. lntotal_ano = 0.00
  552. lntotal_retidas = 0.00
  553. lntotal_contribuicoes = 0.00
  554. lntotal_sindicato = 0.00
  555. lntotal_sobretaxa = 0.00
  556. lbgravacao_ok = .t.
  557. lnbytes = 0
  558. _trdetalhe = 0
  559. _trdeclaracao = 0
  560. _trficheiro = 0
  561. *----------------------------------------------------------
  562. lcdestino = _destino
  563. wait window "Aguade um momento..." nowait
  564. *if !file(lcdestino)
  565.     filehandle=fcreate(lcdestino)
  566. *else
  567. *    filehandle=fopen(lcdestino,12)
  568. *endif
  569. * Registo 001
  570. rec="001ASCII02"+alltrim(str(year(date())))+transform(month(date()),"@l 99")+transform(day(date()),"@l 99")+repli(" ",154)+chr(13)+chr(10)
  571. lnbytes=FWRITE(FileHandle,rec)
  572. IF lnbytes = 0
  573.     lbgravacao_ok = .f.
  574. ENDIF
  575. * Registo 002
  576. rec="002DMR-AT"+lcnif+lcano+lcmes+"EUR"+replic(" ",145)+chr(13)+chr(10)
  577. lnbytes=FWRITE(FileHandle,rec)
  578. _trficheiro=_trficheiro+1
  579. IF lnbytes = 0
  580.     lbgravacao_ok = .f.
  581. ENDIF
  582. * Registo 003
  583. rec="003"
  584. rec=rec+padl(ThisForm.Container1.J_FIN.Value, 4, "0")
  585. rec=rec+IIF(thisform.entidade_ini = p_codemp, iif(thisform.container1.Check1.Value = 1, "1", "2"), "1")
  586. rec=rec+IIF(thisform.entidade_ini = p_codemp, iif(thisform.container1.Check3.Value = 1, "3", "0"), "0")
  587. if empty(lddata_altera)
  588.     rec=rec+"00000000"
  589.     rec=rec+transform(year(lddata_altera), "@L 9999") + transform(month(lddata_altera), "@L 99") + transform(day(lddata_altera), "@L 99")
  590. endif
  591. rec=rec+iif(empty(thisform.container1.j_TOC.Value), "000000000", thisform.container1.j_TOC.Value)
  592. rec=rec+iif(empty(thisform.container1.j_LEGAL.Value), "000000000", thisform.container1.j_LEGAL.Value)
  593. rec=rec+replic(" ",137)+chr(13)+chr(10)    
  594. lnbytes=FWRITE(FileHandle,rec)
  595. _trficheiro=_trficheiro+1
  596. _trdeclaracao=_trdeclaracao+1
  597. IF lnbytes = 0
  598.     lbgravacao_ok = .f.
  599. ENDIF
  600. * Registo 004
  601. rec="004"
  602. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0101.Value, 16)
  603. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0102.Value, 15)
  604. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0103.Value, 15)
  605. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0104.Value, 15)
  606. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0105.Value, 15)
  607. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0201.Value, 16)
  608. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0202.Value, 15)
  609. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0203.Value, 15)
  610. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0204.Value, 15)
  611. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0205.Value, 15)
  612. rec=rec+replic(" ",17)+chr(13)+chr(10)    
  613. lnbytes=FWRITE(FileHandle,rec)
  614. _trficheiro=_trficheiro+1
  615. _trdeclaracao=_trdeclaracao+1
  616. _trdetalhe=_trdetalhe+1
  617. IF lnbytes = 0
  618.     lbgravacao_ok = .f.
  619. ENDIF
  620. * Registo 005
  621. rec="005"
  622. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0301.Value, 16)
  623. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0302.Value, 15)
  624. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0303.Value, 15)
  625. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0304.Value, 15)
  626. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0305.Value, 15)
  627. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0401.Value, 17)
  628. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0402.Value, 16)
  629. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0403.Value, 16)
  630. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0404.Value, 16)
  631. rec=rec+lzeros_s_dmr(ThisForm.Container1.V0405.Value, 16)
  632. rec=rec+replic(" ",12)+chr(13)+chr(10)    
  633. lnbytes=FWRITE(FileHandle,rec)
  634. _trficheiro=_trficheiro+1
  635. _trdeclaracao=_trdeclaracao+1
  636. _trdetalhe=_trdetalhe+1
  637. IF lnbytes = 0
  638.     lbgravacao_ok = .f.
  639. ENDIF
  640. * Registo 006
  641. select cs99_listagem
  642. go top
  643. if !eof()
  644.     SCAN
  645.         lnlinha = lnlinha + 1
  646.         lntotal_anteriores = lntotal_anteriores + cs99_listagem.rend_anterior
  647.         lntotal_ano = lntotal_ano + cs99_listagem.rend_ano
  648.         lntotal_retidas = lntotal_retidas + cs99_listagem.retido
  649.         lntotal_contribuicoes = lntotal_contribuicoes + cs99_listagem.contrib
  650.         lntotal_sindicato = lntotal_sindicato + cs99_listagem.sindicato
  651.         lntotal_sobretaxa = lntotal_sobretaxa + cs99_listagem.sobretaxa
  652.         rec="006"
  653.         rec=rec+transform(lnlinha,"@L 9999999")
  654.         rec=rec+padl(cs99_listagem.nif, 9, "0")
  655.         rec=rec+lzeros_s_dmr(cs99_listagem.rend_anterior, 15)
  656.         rec=rec+transform(cs99_listagem.anos, "@L 9999")
  657.         rec=rec+lzeros_s_dmr(cs99_listagem.rend_ano, 15)
  658.         rec=rec+padr(alltrim(cs99_listagem.tipo_rend), 3, " ")
  659.         rec=rec+padr(alltrim(cs99_listagem.zona), 2, " ")
  660.         rec=rec+lzeros_s_dmr(cs99_listagem.retido, 14)
  661.         rec=rec+lzeros_s_dmr(cs99_listagem.contrib, 14)
  662.         rec=rec+iif(empty(cs99_listagem.contrib_nipc1), "000000000", padl(cs99_listagem.contrib_nipc1, 9, "0"))
  663.         rec=rec+iif(empty(cs99_listagem.contrib_nipc2), "000000000", padl(cs99_listagem.contrib_nipc2, 9, "0"))
  664.         rec=rec+iif(empty(cs99_listagem.contrib_nipc3), "000000000", padl(cs99_listagem.contrib_nipc3, 9, "0"))
  665.         rec=rec+lzeros_s_dmr(cs99_listagem.sindicato, 14)
  666.         rec=rec+lzeros_s_dmr(cs99_listagem.sobretaxa, 14)
  667.         rec=rec+replic(" ",31)+chr(13)+chr(10)        
  668.         lnbytes=FWRITE(FileHandle,rec)
  669.         _trficheiro=_trficheiro+1
  670.         _trdeclaracao=_trdeclaracao+1
  671.         _trdetalhe=_trdetalhe+1
  672.         IF lnbytes = 0
  673.             lbgravacao_ok = .f.
  674.         ENDIF
  675.     endscan
  676. endif
  677. * Registo 009
  678. rec="009"
  679. rec=rec+lzeros_s_dmr(lntotal_anteriores, 16)
  680. rec=rec+lzeros_s_dmr(lntotal_ano, 17)
  681. rec=rec+lzeros_s_dmr(lntotal_retidas, 16)
  682. rec=rec+lzeros_s_dmr(lntotal_contribuicoes, 16)
  683. rec=rec+lzeros_s_dmr(lntotal_sindicato, 16)
  684. rec=rec+lzeros_s_dmr(lntotal_sobretaxa, 16)
  685. rec=rec+transf(_trdetalhe, "@L 9999999")
  686. rec=rec+replic(" ",65)+chr(13)+chr(10)    
  687. lnbytes=FWRITE(FileHandle,rec)
  688. _trficheiro=_trficheiro+1
  689. _trdeclaracao=_trdeclaracao+1
  690. IF lnbytes = 0
  691.     lbgravacao_ok = .f.
  692. ENDIF
  693. * Registo 099
  694. rec="099"
  695. rec=rec+transform(_trdeclaracao,"@L 999999999")
  696. rec=rec+replic(" ",160)+chr(13)+chr(10)    
  697. lnbytes=FWRITE(FileHandle,rec)
  698. _trficheiro=_trficheiro+1
  699. IF lnbytes = 0
  700.     lbgravacao_ok = .f.
  701. ENDIF
  702. * Registo 999
  703. rec="999"
  704. rec=rec+transform(_trficheiro,"@L 999999999")
  705. rec=rec+replic(" ",160)+chr(13)+chr(10)    
  706. lnbytes=FWRITE(FileHandle,rec)
  707. rec="" 
  708. IF lnbytes = 0
  709.     lbgravacao_ok = .f.
  710. ENDIF
  711. *---------------------------------------------------------------
  712. =FCLOSE(filehandle)
  713. wait clear
  714. IF lbgravacao_ok
  715.     thisform.gravacao_ok = .t.
  716.     thisform.gravacao_ok = .f.
  717.     =MESSAGEBOX("Entidade: " + ALLTRIM(p_codemp) + CHR(13) + ;
  718.                 "A grava
  719. o do ficheiro n
  720. o foi efetuada corretamente." + CHR(13) + ;
  721.                 "Provavelmente o ficheiro est
  722.  aberto noutra aplica
  723. o.", 0+16, "Aten
  724. o...")
  725. ENDIF
  726. ENDPROC
  727. PROCEDURE x_get_grupo_soma
  728. LPARAMETERS _tipo_rend
  729. LOCAL lctipo, lnret
  730. lctipo = ALLTRIM(_tipo_rend)
  731. lcsubtipo = LEFT(lctipo, 2)
  732. lnret = 1
  733. IF LEN(lctipo) > 2
  734.     IF lcsubtipo = "A1"
  735.         lnret = 2
  736.     ELSE
  737.         IF lcsubtipo = "A2" OR lcsubtipo = "A3"
  738.             lnret = 3
  739.         ENDIF
  740.     ENDIF
  741. ENDIF
  742. * 1 = Rendimentos sujeitos
  743. * 2 = Rendimentos isentos
  744. * 3 = Rendimentos n
  745. o sujeitos
  746. RETURN lnret
  747. ENDPROC
  748. PROCEDURE cursor_nif
  749. select nif, codi, nome from funci union all ;
  750.     select nif, codi, nome from indep ;
  751.     group by nif ;
  752.     into cursor cs_nif_colaboradores
  753. index on nif tag key_1
  754. select cs99_listagem
  755. set Relation To nif into cs_nif_colaboradores
  756. go top
  757. ENDPROC
  758. PROCEDURE cursor_nif_x
  759. select cs_nif_colaboradores
  760. ENDPROC
  761. PROCEDURE get_filename_serie
  762. LPARAMETERS _file
  763. LOCAL lcret
  764. lcret = ADDBS(JUSTPATH(_file)) + "DMR_" + ;
  765.                                  IIF(p_ss_por_codigo=1, p_codemp, PADL(ALLTRIM(empresa.nif), 9, "0")) + ;
  766.                                  "_" + ;
  767.                                  PADL(ALLTRIM(STR(fl0409_ano)), 4, "0") + PADL(ALLTRIM(STR(fl0409_mes)), 2, "0") + ;
  768.                                  ".txt"
  769. RETURN lcret
  770. ENDPROC
  771. PROCEDURE calculo_percentual_irs
  772. LPARAMETERS _valor, _total, _descontado
  773. LOCAL lnret
  774. lnret = 0.00000000000000
  775. IF _valor # 0
  776.     lnret = FLOOR(ROUND(_valor / _total * _descontado, 14))
  777. ENDIF
  778. RETURN ROUND(lnret, 2)
  779. ENDPROC
  780. PROCEDURE chk_subsidio
  781. LPARAMETERS _xproc, _xabono, _tpabono, _unidade, _tipo
  782. LOCAL lbret
  783. lbret = .f.
  784. IF _xproc # 0
  785.     IF _xabono < 200
  786.         IF _tipo = "F" AND _tpabono = 4
  787.             lbret = .t.
  788.         ELSE
  789.             IF _tipo = "N" AND _tpabono = 5
  790.                 lbret = .t.
  791.             ENDIF
  792.         ENDIF
  793.     ELSE
  794.         IF BETWEEN(_xabono, 300, 399)
  795.             IF _tpabono = 2
  796.                 IF _tipo = "F" AND _unidade = 4
  797.                     lbret = .t.
  798.                 ELSE
  799.                     IF _tipo = "N" AND _unidade = 5
  800.                         lbret = .t.
  801.                     ENDIF
  802.                 ENDIF
  803.             ENDIF
  804.         ENDIF
  805.     ENDIF
  806. ENDIF
  807. RETURN lbret
  808. ENDPROC
  809. PROCEDURE x_get_descontos_contrib
  810. LPARAMETERS _nif
  811. pndes_v_tsu = 0.00
  812. pndes_v_adse = 0.00
  813. pndes_v_cga = 0.00
  814. pndes_v_sindicato = 0.00
  815. pndes_v_sobretaxa = 0.00
  816. pndes_tot_tsu = 0.00
  817. pndes_tot_adse = 0.00
  818. pndes_tot_cga = 0.00
  819. pndes_tot_sindicato = 0.00
  820. pndes_tot_sobretaxa = 0.00
  821. SELECT cs_descontos_total_tsu
  822. IF SEEK(_nif)
  823.     pndes_v_tsu = cs_descontos_total_tsu.v_tsu
  824.     pndes_v_adse = cs_descontos_total_tsu.v_adse
  825.     pndes_v_cga = cs_descontos_total_tsu.v_cga
  826.     pndes_v_sindicato = cs_descontos_total_tsu.v_sindicato
  827.     pndes_v_sobretaxa = cs_descontos_total_tsu.v_sobretaxa
  828.     pndes_tot_tsu = pndes_v_tsu
  829.     pndes_tot_adse = pndes_v_adse
  830.     pndes_tot_cga = pndes_v_cga
  831.     pndes_tot_sindicato = pndes_v_sindicato
  832.     pndes_tot_sobretaxa = pndes_v_sobretaxa
  833. ENDIF
  834. ENDPROC
  835. PROCEDURE _imprimir
  836. LPARAMETERS _impvis
  837. local lbimpvis, t_ord, lcentid, lcfile
  838. lbimpvis = _impvis
  839. lcfile = ""
  840. * Entidade em que se encontra
  841. =xseek(p_codemp, "empresa", "key_1")
  842. IF thisform.nrlinhas = 0
  843.     =MESSAGEBOX("A declara
  844. o est
  845.  vazia!", 0+48, "Aten
  846. o...")
  847.     IF thisform.magnetico
  848.         * Ficheiro
  849.         p_path_destino = ""
  850.         do form fl0409_3
  851.         if !empty(p_path_destino)
  852.             thisform.ficheiro(p_path_destino)
  853.         endif
  854.     ELSE
  855.         * Listagem
  856.         thisform.cursor_nif()
  857.         =imp(thisform._reportname, "", lbimpvis, .t.)
  858.         thisform.cursor_nif_x()
  859.     ENDIF
  860. ENDIF
  861. * Impress
  862. o das entidades seleccionadas
  863. if this.chk_entid.value = 1
  864.     thisform.container1.cobertura.Height = 222
  865.     thisform.container1.cobertura.Width = 914
  866.     thisform.container1.cobertura.visible = .T.
  867.     lcentid = p_codemp
  868.     select (this.csentidades1.cursor)
  869.     go top
  870.     scan for valido = 1
  871.         p_codemp = eval(this.csentidades1.cursor + ".codigo")
  872.         if used("funci")
  873.             select funci
  874.             use
  875.         endif
  876.         if used("indep")
  877.             select indep
  878.             use
  879.         endif
  880.         if used("tproc")
  881.             select tproc
  882.             use
  883.         endif
  884.         if used("movim")
  885.             select movim
  886.             use
  887.         endif
  888.         select 0
  889.         use (stuff(p_tab_funcionarios, 14, 3, p_codemp)) alias funci
  890.         select 0
  891.         use (stuff(p_tab_independentes, 14, 3, p_codemp)) alias indep
  892.         select 0
  893.         use (stuff(p_tab_processamentos, 14, 3, p_codemp)) alias tproc
  894.         select 0
  895.         use (stuff(p_tab_movimentos, 14, 3, p_codemp)) alias movim
  896.         =xseek(upper(p_codemp), "empresa", "key_1")
  897.         p_firma = empresa.firma
  898.         thisform.limpa_totais()
  899.         this.limpa_cab()
  900.         thisform.get_cab()
  901.         thisform._select(thisform._reportname, .f.)
  902.         IF thisform.magnetico
  903.             * Ficheiro
  904.             IF thisform.nrlinhas # 0
  905.                 lcfile = thisform.get_filename_serie(p_path_destino)
  906.                 if !empty(lcfile)
  907.                     thisform.ficheiro(lcfile)
  908.                 endif
  909.             ENDIF
  910.         ELSE
  911.             * Listagem
  912.             IF !eof()
  913.                 thisform.cursor_nif()
  914.                 =imp(thisform._reportname, "", lbimpvis, .t.)
  915.                 thisform.cursor_nif_x()
  916.             ENDIF
  917.         ENDIF
  918.     endscan
  919.     p_codemp = lcentid
  920.     if used("funci")
  921.         select funci
  922.         use
  923.     endif
  924.     if used("indep")
  925.         select indep
  926.         use
  927.     endif
  928.     if used("tproc")
  929.         select tproc
  930.         use
  931.     endif
  932.     if used("movim")
  933.         select movim
  934.         use
  935.     endif
  936.     select 0
  937.     use (stuff(p_tab_funcionarios, 14, 3, p_codemp)) alias funci
  938.     select 0
  939.     use (stuff(p_tab_independentes, 14, 3, p_codemp)) alias indep
  940.     select 0
  941.     use (stuff(p_tab_processamentos, 14, 3, p_codemp)) alias tproc
  942.     select 0
  943.     use (stuff(p_tab_movimentos, 14, 3, p_codemp)) alias movim
  944.     =xseek(upper(p_codemp), "empresa", "key_1")
  945.     p_firma = empresa.firma
  946. endif
  947. IF thisform.magnetico AND !EMPTY(p_path_destino) AND thisform.gravacao_ok
  948.     =Messagebox("Cria
  949. o do Ficheiro efectuada...",0+64,"")
  950. ENDIF
  951. if thisform.chk_entid.value = 1
  952.     thisform.Release
  953. ENDIF
  954. ENDPROC
  955. PROCEDURE _select
  956. lparam _reportname, _impvis
  957. local lcreportname, lbimpvis, lnano_controlo, lcnif_controlo, lntrab, nr, lnvazio
  958. LOCAL lc_inif, lc_itipo_rend, lc_izona, ln_iano_reporte, ln_ivalor, ln_idescont, ln_isuj_irs, ln_isuj_tsu, ln_isuj_adse, ln_isuj_cga, ;
  959.       ln_isuj_sindicato, ln_isuj_sobretaxa, ln_iv_irs, ln_iv_tsu, ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa
  960. LOCAL lclin_nif, lnlin_rend, lclin_zona, lclin_tipo_rend, lnlin_rend_anterior, lnlin_anos, lnlin_rend_ano, lnlin_retido, lnlin_contrib, ;
  961.       lclin_contrib_nipc1, lclin_contrib_nipc2, lclin_contrib_nipc3, lnlin_sindicato, lnlin_sobretaxa, lccpts
  962. PUBLIC pndes_v_irs, pndes_v_tsu, pndes_v_adse, pndes_v_cga, pndes_v_sindicato, pndes_v_sobretaxa, pndes_tot_irs, ;
  963.        pndes_tot_tsu, pndes_tot_adse, pndes_tot_cga, pndes_tot_sindicato, pndes_tot_sobretaxa
  964. PUBLIC pnincid_suj_irs, pnincid_suj_tsu, pnincid_suj_adse, pnincid_suj_cga, pnincid_suj_sindicato, pnincid_suj_sobretaxa
  965. lcreportname = _reportname
  966. lbimpvis = _impvis
  967. lnano_controlo = 0
  968. lcnif_controlo = ""
  969. lnvazio = 0
  970. lc_inif = ""
  971. lc_itipo_rend = ""
  972. lc_izona = ""
  973. ln_iano_reporte = 0
  974. ln_ivalor = 0.00
  975. ln_idescont = 0.00
  976. ln_isuj_irs = 0.00
  977. ln_isuj_tsu = 0.00
  978. ln_isuj_adse = 0.00
  979. ln_isuj_cga = 0.00
  980. ln_isuj_sindicato = 0.00
  981. ln_isuj_sobretaxa = 0.00
  982. ln_iv_irs = 0.00
  983. ln_iv_tsu = 0.00
  984. ln_iv_adse = 0.00
  985. ln_iv_cga = 0.00
  986. ln_iv_sindicato = 0.00
  987. ln_iv_sobretaxa = 0.00
  988. lntrab = 0.00
  989. lccpts = ""
  990. fl0409_mes = thisform.container1.combo1.Value
  991. wait window "Aguarde um momento..." nowait
  992. SELECT cs99_listagem
  993. create cursor cs95_listagem (nif c(9), tipo_rend c(3), zona c(2), ano_reporte n(4), valor n(16,2), v_irs n(16,2), v_tsu n(16,2), ;
  994.                                v_adse n(16,2), v_cga n(16,2), v_sindicato n(16,2), v_sobretaxa n(16,2), suj_irs n(16,2), ;
  995.                                suj_tsu n(16,2), suj_adse n(16,2), suj_cga n(16,2), suj_sindicato n(16,2), suj_sobretaxa n(16,2))
  996. create cursor cs_descontos_x (nif c(9), tipo_rend c(3), v_irs n(16,2), v_tsu n(16,2), v_adse n(16,2), v_cga n(16,2), v_sindicato n(16,2), ;
  997.                               v_sobretaxa n(16,2), suj_irs n(16,2), suj_tsu n(16,2), suj_adse n(16,2), suj_cga n(16,2), ;
  998.                               suj_sindicato n(16,2), suj_sobretaxa n(16,2))
  999. this.limpa_totais()
  1000. select int(val(padl(alltrim(str(codi)), 7, "0"))) as codi, ;
  1001.        nif as nif, ;
  1002.        defi as defi, ;
  1003.        0 as cnt_tipo, ;
  1004.        tabelairs + 1 as zona ;
  1005.        from funci ;
  1006.                       where !nresid AND !("#!DMRAT=0" $ UPPER(funci.obs));
  1007.     union all ;
  1008.         select int(val("9" + padl(alltrim(str(codi)), 6, "0"))) as codi, ;
  1009.                   nif as nif, ;
  1010.                   .f. as defi, ;
  1011.                   cnt_tipo as cnt_tipo, ;
  1012.                   zona as zona ;
  1013.                   from indep ;
  1014.                           where !nresid ;
  1015.                   order by 1 ;
  1016.                   into cursor cs_funcionarios
  1017.  select com linhas de movimentos e descontos
  1018. IF fl0409_mes = 13
  1019.     * Anual
  1020.     thisform.command1.Enabled = .f.
  1021.     select c.nif as nif, ;
  1022.            iif(a.xproc = 0, this.x_get_ano_reporte(a.desc, a.data), year(a.data)) as ano_reporte, ;
  1023.            this.x_get_tipo(a.xproc, a.cat_rend, a.desc) as tipo_rend, ;
  1024.            iif(c.zona = 3, "RA", iif(c.zona = 2, "RM", "C ")) as zona, ;
  1025.            defi as defi, ;
  1026.            a.xproc as xproc, ;
  1027.            a.xabono as xabono, ;
  1028.            a.tpabono as tpabono, ;
  1029.            a.quan as quan, ;
  1030.            a.vunit as vunit, ;
  1031.            a.valor as valor, ;
  1032.            a.vsuj as vsuj, ;
  1033.            a.unidade as unidade, ;
  1034.            a.descont as descont, ;
  1035.            a.incid as incid, ;
  1036.            a.tp_irs as tp_irs ;
  1037.            from movim a left outer join tproc b on a.xproc = b.codi ;
  1038.                         inner join cs_funcionarios c on a.xfunc = c.codi ;
  1039.            where ((a.xproc > 0 AND year(b.data)=fl0409_ano) or ;
  1040.                      (a.xproc = 0 AND year(a.data)=fl0409_ano)) and ;
  1041.                     this.x_cnt_tipo_ret(a.falta_afc, c.cnt_tipo) and !this.x_m39(a.xproc, a.estatis) AND ;
  1042.                     this.x_inclui_abono(a.xproc, a.xabono, a.tpabono) AND ;
  1043.                     a.vunit + a.valor + a.vsuj # 0 ;
  1044.                  order by nif, xabono, tpabono, tipo_rend, zona, ano_reporte ;
  1045.                  into cursor cs_retencoes_1
  1046.     thisform.command1.Enabled = .t.
  1047.     select c.nif as nif, ;
  1048.            iif(a.xproc = 0, this.x_get_ano_reporte(a.desc, a.data), year(a.data)) as ano_reporte, ;
  1049.            this.x_get_tipo(a.xproc, a.cat_rend, a.desc) as tipo_rend, ;
  1050.            iif(c.zona = 3, "RA", iif(c.zona = 2, "RM", "C ")) as zona, ;
  1051.            defi as defi, ;
  1052.            a.xproc as xproc, ;
  1053.            a.xabono as xabono, ;
  1054.            a.tpabono as tpabono, ;
  1055.            a.quan as quan, ;
  1056.            a.vunit as vunit, ;
  1057.            a.valor as valor, ;
  1058.            a.vsuj as vsuj, ;
  1059.            a.unidade as unidade, ;
  1060.            a.descont as descont, ;
  1061.            a.incid as incid, ;
  1062.            a.tp_irs as tp_irs ;
  1063.            from movim a left outer join tproc b on a.xproc = b.codi ;
  1064.                         inner join cs_funcionarios c on a.xfunc = c.codi ;
  1065.            where ((a.xproc > 0 AND year(b.data)=fl0409_ano AND month(b.data)=fl0409_mes) or ;
  1066.                      (a.xproc = 0 AND year(a.data)=fl0409_ano AND month(a.data)=fl0409_mes)) and ;
  1067.                     this.x_cnt_tipo_ret(a.falta_afc, c.cnt_tipo) and !this.x_m39(a.xproc, a.estatis) AND ;
  1068.                     this.x_inclui_abono(a.xproc, a.xabono, a.tpabono) AND ;
  1069.                     a.vunit + a.valor + a.vsuj # 0 ;
  1070.                  order by nif, xabono, tpabono, tipo_rend, zona, ano_reporte ;
  1071.                  into cursor cs_retencoes_1
  1072. ENDIF
  1073. *!*           where ((a.xproc > 0 AND year(b.data)=fl0409_ano AND month(b.data)=fl0409_mes) or ;
  1074. *!*                     (a.xproc = 0 AND year(a.data)=fl0409_ano AND month(a.data)=fl0409_mes)) and ;
  1075. SELECT cs_funcionarios
  1076. * Distribui
  1077. o do apurado no cursor cs_retencoes_1  // Abonos p/ cursor cs95_listagem e descontos p/ cs_descontos_x
  1078. SELECT cs_retencoes_1
  1079. GO top
  1080.     lc_inif = cs_retencoes_1.nif
  1081.     lc_izona = cs_retencoes_1.zona
  1082.     ln_idescont = cs_retencoes_1.descont
  1083.     ln_iano_reporte = cs_retencoes_1.ano_reporte
  1084.     IF xproc = 0
  1085.         ln_isuj_tsu = 0.00
  1086.         ln_isuj_adse = 0.00
  1087.         ln_isuj_cga = 0.00
  1088.         ln_isuj_sindicato = 0.00
  1089.         ln_isuj_sobretaxa = 0.00
  1090.         ln_isuj_irs = 0.00
  1091.         ln_iv_irs = 0.00
  1092.         ln_iv_tsu = 0.00
  1093.         ln_iv_adse = 0.00
  1094.         ln_iv_cga = 0.00
  1095.         ln_iv_sindicato = 0.00
  1096.         ln_iv_sobretaxa = 0.00
  1097.         DO case
  1098.             CASE cs_retencoes_1.xabono = 16 && Rendimentos Cat A
  1099.                 IF !EMPTY(cs_retencoes_1.vunit)&& Valor de dispensado de retencao
  1100.                     lc_itipo_rend = IIF(ALLTRIM(cs_retencoes_1.tipo_rend) = "A", "   ", cs_retencoes_1.tipo_rend)
  1101.                     ln_ivalor = cs_retencoes_1.vunit
  1102.                     this.insere_intermedio(lc_inif, lc_itipo_rend, lc_izona, ln_iano_reporte, ln_ivalor, ln_iv_irs, ln_iv_tsu, ;
  1103.                                            ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ln_isuj_irs, ln_isuj_tsu, ;
  1104.                                            ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1105.                 ENDIF
  1106.                 IF !EMPTY(cs_retencoes_1.vsuj) OR !EMPTY(cs_retencoes_1.valor) 
  1107.                     lc_itipo_rend = "A  "
  1108.                     ln_ivalor = cs_retencoes_1.vsuj
  1109.                     this.insere_intermedio(lc_inif, lc_itipo_rend, lc_izona, ln_iano_reporte, ln_ivalor, ln_iv_irs, ln_iv_tsu, ;
  1110.                                            ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ln_isuj_irs, ln_isuj_tsu, ;
  1111.                                            ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1112.                     ln_iv_irs = cs_retencoes_1.valor
  1113.                     ln_isuj_irs = cs_retencoes_1.vsuj
  1114.                     this.insere_descontos(lc_inif, "A  ", ln_iv_irs, ln_iv_tsu, ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ;
  1115.                                           ln_isuj_irs, ln_isuj_tsu, ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1116.                 ENDIF
  1117.             CASE cs_retencoes_1.xabono = 13 && Contribuicoes
  1118.                 ln_iv_tsu = cs_retencoes_1.valor
  1119.                 ln_iv_adse = 0.00
  1120.                 ln_iv_cga = 0.00
  1121.                 this.insere_descontos(lc_inif, "A  ", ln_iv_irs, ln_iv_tsu, ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ;
  1122.                                       ln_isuj_irs, ln_isuj_tsu, ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1123.             CASE cs_retencoes_1.xabono = 65 && sobretaxa
  1124.         ENDCASE
  1125.     ELSE
  1126.         IF cs_retencoes_1.xabono < 200
  1127.             ln_isuj_irs = 0.00
  1128.             ln_isuj_sobretaxa = 0.00
  1129.             ln_iv_irs = 0.00
  1130.             ln_iv_tsu = 0.00
  1131.             ln_iv_adse = 0.00
  1132.             ln_iv_cga = 0.00
  1133.             ln_iv_sindicato = 0.00
  1134.             ln_iv_sobretaxa = 0.00
  1135.             IF EMPTY(cs_retencoes_1.tipo_rend) OR UPPER(ALLTRIM(cs_retencoes_1.tipo_rend)) = "A"
  1136.                 lc_itipo_rend = IIF(cs_retencoes_1.tpabono = 4 or cs_retencoes_1.tp_irs = "F", "A3 ", IIF(cs_retencoes_1.tpabono = 5 or cs_retencoes_1.tp_irs = "N", "A4 ", "A  "))
  1137.                 ln_ivalor = cs_retencoes_1.valor
  1138.                 ln_isuj_irs = IIF(chk_desconto(ln_idescont, "IRS"), cs_retencoes_1.vsuj, 0.00)
  1139.                 ln_isuj_tsu = IIF(chk_desconto(ln_idescont, "TSU"), cs_retencoes_1.vsuj * IIF(cs_retencoes_1.incid > 0, cs_retencoes_1.incid/100, 1), 0.00)
  1140.                 ln_isuj_adse = IIF(chk_desconto(ln_idescont, "ADS"), cs_retencoes_1.vsuj, 0.00)
  1141.                 ln_isuj_cga = IIF(chk_desconto(ln_idescont, "CGA"), cs_retencoes_1.vsuj, 0.00)
  1142.                 ln_isuj_sindicato = IIF(chk_desconto(ln_idescont, "SIN"), cs_retencoes_1.vsuj, 0.00)
  1143.                 this.insere_intermedio(lc_inif, lc_itipo_rend, lc_izona, ln_iano_reporte, ln_ivalor, ln_iv_irs, ln_iv_tsu, ;
  1144.                                        ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ln_isuj_irs, ln_isuj_tsu, ;
  1145.                                        ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1146.             ELSE
  1147.                 IF chk_desconto(ln_idescont, "IRS")
  1148.                     lc_itipo_rend = IIF(cs_retencoes_1.tpabono = 4, "A3 ", IIF(cs_retencoes_1.tpabono = 5, "A4 ", "A  "))
  1149.                     ln_ivalor = cs_retencoes_1.vsuj
  1150.                     ln_isuj_irs = IIF(chk_desconto(ln_idescont, "IRS"), cs_retencoes_1.vsuj, 0.00)
  1151.                     ln_isuj_tsu = IIF(chk_desconto(ln_idescont, "TSU"), cs_retencoes_1.vsuj * IIF(cs_retencoes_1.incid > 0, cs_retencoes_1.incid/100, 1), 0.00)
  1152.                     ln_isuj_adse = IIF(chk_desconto(ln_idescont, "ADS"), cs_retencoes_1.vsuj, 0.00)
  1153.                     ln_isuj_cga = IIF(chk_desconto(ln_idescont, "CGA"), cs_retencoes_1.vsuj, 0.00)
  1154.                     ln_isuj_sindicato = IIF(chk_desconto(ln_idescont, "SIN"), cs_retencoes_1.vsuj, 0.00)
  1155.                     this.insere_intermedio(lc_inif, lc_itipo_rend, lc_izona, ln_iano_reporte, ln_ivalor, ln_iv_irs, ln_iv_tsu, ;
  1156.                                            ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ln_isuj_irs, ln_isuj_tsu, ;
  1157.                                            ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1158.                     
  1159.                     lc_itipo_rend = cs_retencoes_1.tipo_rend
  1160.                     ln_ivalor = cs_retencoes_1.valor - cs_retencoes_1.vsuj
  1161.                     ln_isuj_irs = 0.00
  1162.                     ln_isuj_tsu = 0.00
  1163.                     ln_isuj_adse = 0.00
  1164.                     ln_isuj_cga = 0.00
  1165.                     ln_isuj_sindicato = 0.00
  1166.                     this.insere_intermedio(lc_inif, lc_itipo_rend, lc_izona, ln_iano_reporte, ln_ivalor, ln_iv_irs, ln_iv_tsu, ;
  1167.                                            ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ln_isuj_irs, ln_isuj_tsu, ;
  1168.                                            ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1169.                 ELSE
  1170.                     lc_itipo_rend = cs_retencoes_1.tipo_rend
  1171.                     ln_ivalor = cs_retencoes_1.valor
  1172.                     ln_isuj_irs = IIF(chk_desconto(ln_idescont, "IRS"), cs_retencoes_1.vsuj, 0.00)
  1173.                     ln_isuj_tsu = IIF(chk_desconto(ln_idescont, "TSU"), cs_retencoes_1.vsuj * IIF(cs_retencoes_1.incid > 0, cs_retencoes_1.incid/100, 1), 0.00)
  1174.                     ln_isuj_adse = IIF(chk_desconto(ln_idescont, "ADS"), cs_retencoes_1.vsuj, 0.00)
  1175.                     ln_isuj_cga = IIF(chk_desconto(ln_idescont, "CGA"), cs_retencoes_1.vsuj, 0.00)
  1176.                     ln_isuj_sindicato = IIF(chk_desconto(ln_idescont, "SIN"), cs_retencoes_1.vsuj, 0.00)
  1177.                     this.insere_intermedio(lc_inif, lc_itipo_rend, lc_izona, ln_iano_reporte, ln_ivalor, ln_iv_irs, ln_iv_tsu, ;
  1178.                                            ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ln_isuj_irs, ln_isuj_tsu, ;
  1179.                                            ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1180.                 ENDIF
  1181.             ENDIF
  1182.         ELSE
  1183.             IF xabono >= 300
  1184.                 lc_itipo_rend = IIF(cs_retencoes_1.unidade = 4, "A3 ", IIF(cs_retencoes_1.unidade = 5, "A4 ", "A  "))
  1185.                 ln_isuj_irs = 0.00
  1186.                 ln_isuj_tsu = 0.00
  1187.                 ln_isuj_adse = 0.00
  1188.                 ln_isuj_cga = 0.00
  1189.                 ln_isuj_sindicato = 0.00
  1190.                 ln_isuj_sobretaxa = 0.00
  1191.                 ln_ivalor = 0.00
  1192.                 ln_iv_irs = 0.00
  1193.                 ln_iv_tsu = 0.00
  1194.                 ln_iv_adse = 0.00
  1195.                 ln_iv_cga = 0.00
  1196.                 ln_iv_sindicato = 0.00
  1197.                 ln_iv_sobretaxa = 0.00
  1198.                 DO case
  1199.                     CASE cs_retencoes_1.tpabono = 2 && IRS
  1200.                         IF cs_retencoes_1.unidade = 6
  1201.                             ln_isuj_sobretaxa = cs_retencoes_1.vsuj
  1202.                             ln_iv_sobretaxa = cs_retencoes_1.valor
  1203.                         ELSE
  1204.                             ln_isuj_irs = cs_retencoes_1.vsuj
  1205.                             ln_iv_irs = cs_retencoes_1.valor
  1206.                         ENDIF
  1207.                     CASE cs_retencoes_1.tpabono = 3 && Sindicato
  1208.                         ln_isuj_sindicato = cs_retencoes_1.vsuj
  1209.                         ln_iv_sindicato = cs_retencoes_1.valor
  1210.                     CASE cs_retencoes_1.tpabono = 7 && ASDE
  1211.                         ln_isuj_adse = cs_retencoes_1.vsuj
  1212.                         ln_iv_adse = cs_retencoes_1.valor
  1213.                     CASE cs_retencoes_1.tpabono = 8 && CGA
  1214.                         ln_isuj_cga = cs_retencoes_1.vsuj
  1215.                         ln_iv_cga = cs_retencoes_1.valor
  1216.                     OTHERWISE && TSU
  1217.                         ln_isuj_tsu = cs_retencoes_1.vsuj
  1218.                         ln_iv_tsu = cs_retencoes_1.valor
  1219.                 ENDCASE
  1220.                 this.insere_descontos(lc_inif, lc_itipo_rend, ln_iv_irs, ln_iv_tsu, ln_iv_adse, ln_iv_cga, ln_iv_sindicato, ln_iv_sobretaxa, ;
  1221.                                       ln_isuj_irs, ln_isuj_tsu, ln_isuj_adse, ln_isuj_cga, ln_isuj_sindicato, ln_isuj_sobretaxa)
  1222.             ENDIF
  1223.         ENDIF
  1224.     ENDIF
  1225. ENDSCAN
  1226. select cs_retencoes_1
  1227. * Tabela soma de descontos por nif
  1228. SELECT nif as nif, ;
  1229.        tipo_rend as tipo_rend, ;
  1230.        sum(v_irs) as v_irs, ;
  1231.        sum(v_tsu) as v_tsu, ;
  1232.        sum(v_adse) as v_adse, ;
  1233.        sum(v_cga) as v_cga, ;
  1234.        sum(v_sindicato) as v_sindicato, ;
  1235.        sum(v_sobretaxa) as v_sobretaxa, ;
  1236.        sum(suj_irs) as suj_irs, ;
  1237.        sum(suj_tsu) as suj_tsu, ;
  1238.        sum(suj_adse) as suj_adse, ;
  1239.        sum(suj_cga) as suj_cga, ;
  1240.        sum(suj_sindicato) as suj_sindicato, ;
  1241.        sum(suj_sobretaxa) as suj_sobretaxa ;
  1242.        FROM cs_descontos_x ;
  1243.        GROUP BY nif, tipo_rend ;
  1244.        INTO CURSOR cs_descontos
  1245. INDEX ON nif + tipo_rend TAG key_1
  1246. SET ORDER TO key_1
  1247. SELECT cs_descontos_x
  1248. SELECT nif as nif, ;
  1249.        sum(v_tsu) as v_tsu, ;
  1250.        sum(v_adse) as v_adse, ;
  1251.        sum(v_cga) as v_cga, ;
  1252.        sum(v_sindicato) as v_sindicato, ;
  1253.        sum(v_sobretaxa) as v_sobretaxa ;
  1254.        FROM cs_descontos ;
  1255.        GROUP BY nif ;
  1256.        INTO CURSOR cs_descontos_total_tsu
  1257. INDEX ON nif TAG key_1
  1258. SET ORDER TO key_1
  1259. * Tabela com os rendimentos do ano
  1260. SELECT nif as nif, ;
  1261.        tipo_rend as tipo_rend, ;
  1262.        zona as zona, ;
  1263.        0.00 as valor_anterior, ;
  1264.        0000 as ano_anterior, ;
  1265.        ano_reporte as ano_reporte, ;
  1266.        sum(valor) as valor, ;
  1267.        sum(v_irs) as v_irs, ;
  1268.        sum(v_tsu) as v_tsu, ;
  1269.        sum(v_adse) as v_adse, ;
  1270.        sum(v_cga) as v_cga, ;
  1271.        sum(v_sindicato) as v_sindicato, ;
  1272.        sum(v_sobretaxa) as v_sobretaxa, ;
  1273.        sum(suj_irs) as suj_irs, ;
  1274.        sum(suj_tsu) as suj_tsu, ;
  1275.        sum(suj_adse) as suj_adse, ;
  1276.        sum(suj_cga) as suj_cga, ;
  1277.        sum(suj_sindicato) as suj_sindicato, ;
  1278.        sum(suj_sobretaxa) as suj_sobretaxa ;
  1279.        FROM cs95_listagem ;
  1280.        GROUP BY nif, tipo_rend, zona, ano_reporte ;
  1281.        HAVING ano_reporte = fl0409_ano ;
  1282.        INTO CURSOR cs95_ano_corrente readwrite
  1283. * Tabela com os rendimentos de anos anteriores
  1284. SELECT nif as nif, ;
  1285.        tipo_rend as tipo_rend, ;
  1286.        zona as zona, ;
  1287.        sum(valor) as valor_anterior, ;
  1288.        ano_reporte as ano_anterior, ;
  1289.        ano_reporte as ano_reporte, ;
  1290.        0.00 as valor, ;
  1291.        sum(v_irs) as v_irs, ;
  1292.        sum(v_tsu) as v_tsu, ;
  1293.        sum(v_adse) as v_adse, ;
  1294.        sum(v_cga) as v_cga, ;
  1295.        sum(v_Sindicato) as v_sindicato, ;
  1296.        sum(v_sobretaxa) as v_sobretaxa, ;
  1297.        sum(suj_irs) as suj_irs, ;
  1298.        sum(suj_tsu) as suj_tsu, ;
  1299.        sum(suj_adse) as suj_adse, ;
  1300.        sum(suj_cga) as suj_cga, ;
  1301.        sum(suj_sindicato) as suj_sindicato, ;
  1302.        sum(suj_sobretaxa) as suj_sobretaxa ;
  1303.        FROM cs95_listagem ;
  1304.        GROUP BY nif, tipo_rend, zona, ano_anterior ;
  1305.        HAVING ano_anterior # fl0409_ano ;
  1306.        ORDER BY nif, ano_anterior descending;
  1307.        INTO CURSOR cs95_anos_anteriores readwrite
  1308. SELECT cs95_listagem
  1309. * No 1
  1310.  dos anos anteriores coloca o ano corrente = ao ano_reporte, para poder agrupar
  1311. * pelo menos 1 ano anterior na mesma linha do ano actual
  1312. SELECT cs95_anos_anteriores
  1313. GO top
  1314. lcnif_controlo = cs95_anos_anteriores.nif
  1315. lnano_controlo = cs95_anos_anteriores.ano_anterior
  1316.     IF cs95_anos_anteriores.nif = lcnif_controlo
  1317.         IF cs95_anos_anteriores.ano_anterior = lnano_controlo
  1318.             replace cs95_anos_anteriores.ano_reporte WITH fl0409_ano
  1319.         ENDIF
  1320.     ELSE
  1321.         lcnif_controlo = cs95_anos_anteriores.nif
  1322.         lnano_controlo = cs95_anos_anteriores.ano_anterior
  1323.         IF cs95_anos_anteriores.ano_anterior = lnano_controlo
  1324.             replace cs95_anos_anteriores.ano_reporte WITH fl0409_ano
  1325.         ENDIF
  1326.     ENDIF
  1327. ENDSCAN
  1328. * Junta os anos anteriores com o ano corrente
  1329. SELECT * from cs95_ano_corrente UNION ALL select * from cs95_anos_anteriores INTO CURSOR cs96_listagem
  1330. SELECT cs95_ano_corrente
  1331. SELECT cs95_anos_anteriores
  1332. * Agrupa valores dos abonos
  1333. SELECT nif as nif, ;
  1334.        tipo_rend as tipo_rend, ;
  1335.        zona as zona, ;
  1336.        sum(valor_anterior) as valor_anterior, ;
  1337.        ano_anterior as ano_anterior, ;
  1338.        ano_reporte as ano_reporte, ;
  1339.        sum(valor) as valor, ;
  1340.        sum(v_irs) as v_irs, ;
  1341.        sum(v_tsu) as v_tsu, ;
  1342.        sum(v_adse) as v_adse, ;
  1343.        sum(v_cga) as v_cga, ;
  1344.        sum(v_sindicato) as v_sindicato, ;
  1345.        sum(v_sobretaxa) as v_sobretaxa, ;
  1346.        sum(suj_irs) as suj_irs, ;
  1347.        sum(suj_tsu) as suj_tsu, ;
  1348.        sum(suj_adse) as suj_adse, ;
  1349.        sum(suj_cga) as suj_cga, ;
  1350.        sum(suj_sindicato) as suj_sindicato, ;
  1351.        sum(suj_irs) as suj_sobretaxa ;
  1352.        FROM cs96_listagem ;
  1353.        GROUP BY nif, tipo_rend, zona, ano_reporte ;
  1354.        ORDER BY nif, ano_reporte descending, tipo_rend, zona, ano_anterior descending ;
  1355.        HAVING valor_anterior + valor + v_irs + v_tsu + v_adse + v_cga + v_sindicato + v_sobretaxa + ;
  1356.                  suj_irs + suj_tsu + suj_adse + suj_cga + suj_sindicato + suj_sobretaxa # 0 ; 
  1357.        INTO CURSOR cs95_listagem
  1358. SELECT cs96_listagem
  1359. *-----------------------------------------------------------------------------------
  1360. * Procede 
  1361.  distribui
  1362. o dos descontos pelas v
  1363. rias linhas de abonos
  1364. lclin_nif = ""
  1365. SELECT DISTINCT nif FROM cs95_listagem UNION select distinct nif FROM cs_descontos ORDER BY 1 INTO CURSOR cs_nif_topo
  1366. SELECT cs_nif_topo
  1367. GO top
  1368.     lclin_nif = cs_nif_topo.nif
  1369.     lclin_rend = ""
  1370.     thisform.x_get_incidencias(lclin_nif)
  1371.     thisform.x_get_descontos_contrib(lclin_nif)
  1372.     SELECT DISTINCT tipo_rend FROM cs95_listagem WHERE nif = lclin_nif UNION ;
  1373.            select distinct tipo_rend FROM cs_descontos WHERE nif = lclin_nif ORDER BY 1 INTO CURSOR cs_nif
  1374.     SELECT cs_nif
  1375.     GO top
  1376.     SCAN
  1377.         lclin_rend = cs_nif.tipo_rend
  1378.         thisform.x_get_descontos(lclin_nif, lclin_rend)
  1379.         SELECT cs95_listagem
  1380.         SET FILTER TO nif = lclin_nif AND tipo_rend = lclin_rend
  1381.         GO top
  1382.         SCAN
  1383.             lclin_zona = ""
  1384.             lclin_tipo_rend = ""
  1385.             lnlin_rend_anterior = 0.00
  1386.             lnlin_anos = 0
  1387.             lnlin_rend_ano = 0.00
  1388.             lnlin_retido = 0.00
  1389.             lnlin_contrib = 0.00
  1390.             lclin_contrib_nipc1 = ""
  1391.             lclin_contrib_nipc2 = ""
  1392.             lclin_contrib_nipc3 = ""
  1393.             lnlin_sindicato = 0.00
  1394.             lnlin_sobretaxa = 0.00
  1395.             lclin_zona = cs95_listagem.zona
  1396.             lclin_tipo_rend = cs95_listagem.tipo_rend
  1397.             lnlin_rend_anterior = cs95_listagem.valor_anterior
  1398.             lnlin_anos = cs95_listagem.ano_anterior
  1399.             lnlin_rend_ano = IIF(cs95_listagem.ano_reporte = fl0409_ano, cs95_listagem.valor, 0.00)
  1400.             * IRS
  1401.             lnlin_retido = pndes_v_irs
  1402.             * TSU
  1403.             lntrab = 0.00
  1404.             lntrab = thisform.calculo_percentual(cs95_listagem.suj_tsu, pnincid_suj_tsu, pndes_tot_tsu)
  1405.             lnlin_contrib = lnlin_contrib + lntrab
  1406.             pndes_v_tsu = pndes_v_tsu - lntrab
  1407.             IF lntrab # 0
  1408.                 lclin_contrib_nipc1 = fl0409_nipc_ss
  1409.             endif
  1410.             * ADSE
  1411.             lntrab = 0.00
  1412.             lntrab = thisform.calculo_percentual(cs95_listagem.suj_adse, pnincid_suj_adse, pndes_tot_adse)
  1413.             lnlin_contrib = lnlin_contrib + lntrab
  1414.             pndes_v_adse = pndes_v_adse - lntrab
  1415.             IF lntrab # 0
  1416.                 IF EMPTY(lclin_contrib_nipc1)
  1417.                     lclin_contrib_nipc1 = fl0409_nipc_adse
  1418.                 ELSE
  1419.                     lclin_contrib_nipc2 = fl0409_nipc_adse
  1420.                 ENDIF
  1421.             endif
  1422.             * CGA
  1423.             lntrab = 0.00
  1424.             lntrab = thisform.calculo_percentual(cs95_listagem.suj_cga, pnincid_suj_cga, pndes_tot_cga)
  1425.             lnlin_contrib = lnlin_contrib + lntrab
  1426.             pndes_v_cga = pndes_v_cga - lntrab
  1427.             IF lntrab # 0
  1428.                 IF EMPTY(lclin_contrib_nipc1)
  1429.                     lclin_contrib_nipc1 = fl0409_nipc_cga
  1430.                 ELSE
  1431.                     IF EMPTY(lclin_contrib_nipc2)
  1432.                         lclin_contrib_nipc2 = fl0409_nipc_cga
  1433.                     ELSE
  1434.                         lclin_contrib_nipc3 = fl0409_nipc_cga
  1435.                     ENDIF
  1436.                 ENDIF
  1437.             endif
  1438.             * Sindicato
  1439. *!*                lnlin_sindicato = pndes_v_sindicato
  1440. *!*                pndes_v_sindicato = 0
  1441.             lntrab = 0.00
  1442.             lntrab = thisform.calculo_percentual(cs95_listagem.suj_sindicato, pnincid_suj_sindicato, pndes_tot_sindicato)
  1443.             lnlin_sindicato = lntrab
  1444.             pndes_v_sindicato = pndes_v_sindicato - lntrab
  1445.             * Sobretaxa
  1446. *!*                lnlin_sobretaxa = pndes_v_sobretaxa
  1447. *!*                pndes_v_sobretaxa = 0
  1448.             lntrab = 0.00
  1449.             lntrab = thisform.calculo_percentual(cs95_listagem.suj_sobretaxa, pnincid_suj_sobretaxa, pndes_tot_sobretaxa)
  1450.             lnlin_sobretaxa = lntrab
  1451.             pndes_v_sobretaxa = pndes_v_sobretaxa - lntrab
  1452.             thisform.insere_linha(lclin_nif, lclin_zona, lclin_tipo_rend, lnlin_rend_anterior, lnlin_anos, lnlin_rend_ano, lnlin_retido, lnlin_contrib, ;
  1453.                                     lclin_contrib_nipc1, lclin_contrib_nipc2, lclin_contrib_nipc3, lnlin_sindicato, lnlin_sobretaxa)
  1454.         ENDSCAN
  1455.         SET FILTER TO
  1456.         SELECT cs_nif
  1457.     ENDSCAN
  1458.         * Verifica se sobraram valores de descontos n
  1459. o distribuidos, devido aos arredondamentos, e coloca-os no 1
  1460.  registo do nif
  1461.         lnvazio = 0
  1462.         SELECT cs99_listagem
  1463.         SET FILTER TO nif = lclin_nif && AND contrib # 0
  1464.         GO top
  1465. *!*            IF EOF()
  1466. *!*                lnvazio = 1
  1467. *!*            ENDIF
  1468. *!*                IF lnvazio = 1
  1469. *!*                    =MESSAGEBOX("Surgiu o problema na cria
  1470. o do ficheiro desta entidade." + CHR(13) + ;
  1471. *!*                                "Os valores das contribui
  1472. es, podem estar incorretos." + CHR(13) + CHR(13) + ;
  1473. *!*                                "Contacte o fornecedor da aplica
  1474. o.", 0+16, "Aten
  1475. o...")
  1476. *!*                endif
  1477. *!*            GO top
  1478.         IF pndes_v_tsu + pndes_v_adse + pndes_v_cga # 0 AND contrib # 0
  1479.             replace cs99_listagem.contrib WITH cs99_listagem.contrib + pndes_v_tsu + pndes_v_adse + pndes_v_cga
  1480.         ENDIF
  1481.         IF pndes_v_sindicato # 0 AND sindicato # 0
  1482.             replace cs99_listagem.sindicato WITH cs99_listagem.sindicato + pndes_v_sindicato
  1483.         ENDIF
  1484.         IF pndes_v_sobretaxa # 0 AND sobretaxa # 0
  1485.             replace cs99_listagem.sobretaxa WITH cs99_listagem.sobretaxa + pndes_v_sobretaxa
  1486.         ENDIF
  1487. *!*            IF pndes_v_sobretaxa # 0
  1488. *!*                replace cs99_listagem.sobretaxa WITH cs99_listagem.sobretaxa + pndes_v_sobretaxa
  1489. *!*            ENDIF
  1490.         SET FILTER TO
  1491.     SELECT cs_nif_topo
  1492. ENDSCAN
  1493. SELECT cs99_listagem
  1494. DELETE ALL FOR rend_anterior + rend_ano + retido + contrib + sindicato + sobretaxa = 0
  1495. GO top
  1496. thisform.nrlinhas = RECCOUNT()
  1497. *-----------------------------------------------------------------------------------
  1498. SELECT cs95_listagem
  1499. SELECT cs_descontos
  1500. SELECT cs_descontos_total_tsu
  1501. IF USED("cs_nif")
  1502.     SELECT cs_nif
  1503. ENDIF
  1504. SELECT cs_nif_topo
  1505. this.get_totais()
  1506. WAIT clear
  1507. thisform.Refresh
  1508. RELEASE pndes_v_irs, pndes_v_tsu, pndes_v_adse, pndes_v_cga, pndes_v_sindicato, pndes_v_sobretaxa, pndes_tot_irs, ;
  1509.         pndes_tot_tsu, pndes_tot_adse, pndes_tot_cga, pndes_tot_sindicato, pndes_tot_sobretaxa
  1510. RELEASE pnincid_suj_irs, pnincid_suj_tsu, pnincid_suj_adse, pnincid_suj_cga, pnincid_suj_sindicato, pnincid_suj_sobretaxa
  1511. ENDPROC
  1512. PROCEDURE Init
  1513. lparam _build
  1514. thisform.Caption = thisform.Caption + "      (build " + _build + ")"
  1515. LOCAL lddata_proc
  1516. PUBLIC fl0409_nif_legal, fl0409_j_fin, fl0409_nif, fl0409_1decl, fl0409_art119, fl0409_j_dobrig, fl0409_j_toc, ;
  1517.        fl0409_ano, fl0409_mes, p_impfirsttime, fl0409_nipc_ss, fl0409_nipc_adse, fl0409_nipc_cga, p_path_destino, fl0409_modif_cursor, ;
  1518.        p_ss_por_codigo
  1519. PUBLIC fl0409_v0101, fl0409_v0102, fl0409_v0103, fl0409_v0104, fl0409_v0105, ;
  1520.        fl0409_v0201, fl0409_v0202, fl0409_v0203, fl0409_v0204, fl0409_v0205, ;
  1521.        fl0409_v0301, fl0409_v0302, fl0409_v0303, fl0409_v0304, fl0409_v0305, ;
  1522.        fl0409_v0401, fl0409_v0402, fl0409_v0403, fl0409_v0404, fl0409_v0405
  1523. dodefault()
  1524. p_impfirsttime = .t.
  1525. lddata_proc = last_proc_date(1)
  1526. thisform.container1.text5.Value = YEAR(lddata_proc)
  1527. thisform.container1.combo1.Value = month(lddata_proc)
  1528. SELECT gabi
  1529. fl0409_nipc_ss = nipc_ss
  1530. fl0409_nipc_adse = nipc_adse
  1531. fl0409_nipc_cga = nipc_cga
  1532. thisform.limpa_totais()
  1533. this.limpa_cab()
  1534. thisform.get_cab()
  1535. thisform.container1.combo1.InteractiveChange()
  1536. thisform.container1.combo1.SetFocus()
  1537. p_ss_por_codigo = iif(gabi.fichsscod = 1, 1, 0)
  1538. thisform.entidade_ini = p_codemp
  1539. ENDPROC
  1540. PROCEDURE Destroy
  1541. release fl0409_nif_legal, fl0409_j_fin, fl0409_nif, fl0409_1decl, fl0409_art119, fl0409_j_dobrig, fl0409_j_toc, ;
  1542.         fl0409_ano, fl0409_mes, p_impfirsttime, fl0409_nipc_ss, fl0409_nipc_adse, fl0409_nipc_cga, p_path_destino, fl0409_modif_cursor, ;
  1543.         p_ss_por_codigo
  1544. release fl0409_v0101, fl0409_v0102, fl0409_v0103, fl0409_v0104, fl0409_v0105, ;
  1545.         fl0409_v0201, fl0409_v0202, fl0409_v0203, fl0409_v0204, fl0409_v0205, ;
  1546.         fl0409_v0301, fl0409_v0302, fl0409_v0303, fl0409_v0304, fl0409_v0305, ;
  1547.         fl0409_v0401, fl0409_v0402, fl0409_v0403, fl0409_v0404, fl0409_v0405
  1548. ENDPROC
  1549. PROCEDURE Load
  1550. PUBLIC p_mes_dmr[13]
  1551. p_mes_dmr[01] = "Janeiro"
  1552. p_mes_dmr[02] = "Fevereiro"
  1553. p_mes_dmr[03] = "Mar
  1554. p_mes_dmr[04] = "Abril"
  1555. p_mes_dmr[05] = "Maio"
  1556. p_mes_dmr[06] = "Junho"
  1557. p_mes_dmr[07] = "Julho"
  1558. p_mes_dmr[08] = "Agosto"
  1559. p_mes_dmr[09] = "Setembro"
  1560. p_mes_dmr[10] = "Outubro"
  1561. p_mes_dmr[11] = "Novembro"
  1562. p_mes_dmr[12] = "Dezembro"
  1563. p_mes_dmr[13] = "-- Anual --"
  1564. create cursor cs99_listagem (nif c(9), zona c(2), tipo_rend c(3), rend_anterior n(16,2), anos n(4), rend_ano n(16,2), retido n(16,2), ;
  1565.                              contrib n(16,2), contrib_nipc1 c(9), contrib_nipc2 c(9), contrib_nipc3 c(9), sindicato n(16,2), sobretaxa n(16,2))
  1566. index on nif + zona + tipo_rend tag key_1
  1567. ENDPROC
  1568. PROCEDURE Unload
  1569. SELECT cs99_listagem
  1570. ENDPROC
  1571. PROCEDURE Command3.Click
  1572. thisform.magnetico = .f.
  1573. DODEFAULT()
  1574. ENDPROC
  1575. PROCEDURE Command5.Click
  1576. thisform.magnetico = .f.
  1577. DODEFAULT()
  1578. ENDPROC
  1579. THISFORM
  1580. _SELECT
  1581. _REPORTNAME
  1582. InteractiveChange,
  1583. fl0409_2
  1584. CS99_LISTAGEM
  1585. M0409_2
  1586. FL0409_MODIF_CURSOR
  1587. FL0409_2
  1588. THISFORM
  1589. GET_TOTAIS
  1590. REFRESH
  1591. Click,
  1592. fl0409_2
  1593. CS99_LISTAGEM
  1594. M0409_2
  1595. FL0409_MODIF_CURSOR
  1596. FL0409_2
  1597. THISFORM
  1598. GET_TOTAIS
  1599. REFRESH
  1600. Click,
  1601. fl0409_2
  1602. CS99_LISTAGEM
  1603. M0409_2
  1604. FL0409_MODIF_CURSOR
  1605. FL0409_2
  1606. THISFORM
  1607. GET_TOTAIS
  1608. REFRESH
  1609. DblClick,
  1610. THISFORM
  1611. InteractiveChange,
  1612. THISFORM
  1613. InteractiveChange,
  1614. THISFORM
  1615. InteractiveChange,
  1616. THISFORM
  1617. InteractiveChange,
  1618. THISFORM
  1619. InteractiveChange,
  1620. THISFORM
  1621. InteractiveChange,
  1622. THISFORM
  1623. InteractiveChange,
  1624. THISFORM
  1625. InteractiveChange,
  1626. THISFORM
  1627. InteractiveChange,
  1628. THISFORM
  1629. InteractiveChange,
  1630. THISFORM
  1631. InteractiveChange,
  1632. THISFORM
  1633. InteractiveChange,
  1634. VALUE
  1635. PARENT
  1636. CHECK1
  1637. InteractiveChange,
  1638. VALUE
  1639. PARENT
  1640. CHECK2
  1641. InteractiveChange,
  1642. THISFORM
  1643. InteractiveChange,
  1644. THISFORM
  1645. InteractiveChange,
  1646. THISFORM
  1647. CONTAINER1
  1648. COMBO1
  1649. INTERACTIVECHANGE
  1650. Valid,
  1651. THISFORM
  1652. InteractiveChange,
  1653. THISFORM    
  1654. MAGNETICO
  1655. PARENT    
  1656. _IMPRIMIR
  1657. Click,
  1658. Arial, 0, 9, 5, 15, 12, 32, 3, 0
  1659. Arial, 0, 8, 5, 14, 11, 29, 3, 0
  1660. Arial, 1, 9, 6, 15, 12, 32, 3, 0
  1661. Arial, 0, 7, 4, 12, 9, 24, 3, 0
  1662. Arial, 1, 7, 4, 11, 9, 24, 2, 0
  1663. Arial, 1, 12, 8, 20, 15, 42, 4, 1
  1664. Arial, 1, 8, 5, 14, 11, 29, 3, 0
  1665. STop = 204
  1666. Left = 6
  1667. Height = 133
  1668. Width = 344
  1669. Visible = .F.
  1670. Name = "cobertura"
  1671. fl0409.Container1
  1672.     cobertura
  1673. shape
  1674. shape
  1675. UPROCEDURE InteractiveChange
  1676. thisform._select(thisform._reportname, .f.)
  1677. ENDPROC
  1678. FontBold = .T.
  1679. FontSize = 8
  1680. RowSourceType = 5
  1681. RowSource = "p_mes_dmr"
  1682. Value = 1
  1683. Height = 19
  1684. Left = 154
  1685. Style = 2
  1686. TabIndex = 8
  1687. Top = 129
  1688. Width = 90
  1689. BackColor = 255,215,215
  1690. BorderColor = 0,0,0
  1691. Name = "Combo1"
  1692. fl0409.Container1
  1693. Combo1
  1694. combobox
  1695. combobox
  1696. kTop = 35
  1697. Left = 273
  1698. Height = 116
  1699. Width = 647
  1700. BackStyle = 0
  1701. BackColor = 255,255,255
  1702. Name = "Shape23"
  1703. fl0409.Container1
  1704. Shape23
  1705. shape
  1706. shape
  1707. PROCEDURE Click
  1708. SELECT cs99_listagem
  1709. SCATTER Memo NAME m0409_2
  1710. fl0409_modif_cursor = 0
  1711. DO FORM fl0409_2 WITH "D", thisform.Left, thisform.top
  1712. IF fl0409_modif_cursor = 1
  1713.     thisform.get_totais()
  1714.     thisform.Refresh
  1715. ENDIF
  1716. ENDPROC
  1717. Top = 432
  1718. Left = 867
  1719. Height = 20
  1720. Width = 33
  1721. FontBold = .T.
  1722. FontSize = 12
  1723. Caption = "-"
  1724. TabIndex = 85
  1725. Name = "Command2"
  1726. fl0409.Container1
  1727. Command2
  1728. commandbutton
  1729. commandbutton
  1730. PROCEDURE Click
  1731. SELECT cs99_listagem
  1732. scatter memo name m0409_2 blank
  1733. fl0409_modif_cursor = 0
  1734. DO FORM fl0409_2 WITH "I", thisform.Left, thisform.top
  1735. IF fl0409_modif_cursor = 1
  1736.     thisform.get_totais()
  1737.     thisform.Refresh
  1738. ENDIF
  1739. ENDPROC
  1740. Top = 432
  1741. Left = 833
  1742. Height = 20
  1743. Width = 33
  1744. FontBold = .T.
  1745. FontSize = 12
  1746. Caption = "+"
  1747. TabIndex = 84
  1748. Name = "Command1"
  1749. fl0409.Container1
  1750. Command1
  1751. commandbutton
  1752. commandbutton
  1753. FontSize = 8
  1754. Alignment = 2
  1755. BorderStyle = 0
  1756. Margin = 0
  1757. ReadOnly = .T.
  1758. ForeColor = 0,0,0
  1759. BackColor = 255,255,255
  1760. Name = "Text1"
  1761.  fl0409.Container1.Grid1.Column11
  1762. Text1
  1763. textbox
  1764. textbox
  1765. 5FontSize = 8
  1766. Caption = " NIPC 3"
  1767. Name = "Header1"
  1768.  fl0409.Container1.Grid1.Column11
  1769. Header1
  1770. header
  1771. header
  1772. FontSize = 8
  1773. Alignment = 2
  1774. BorderStyle = 0
  1775. Margin = 0
  1776. ReadOnly = .T.
  1777. ForeColor = 0,0,0
  1778. BackColor = 255,255,255
  1779. Name = "Text1"
  1780.  fl0409.Container1.Grid1.Column10
  1781. Text1
  1782. textbox
  1783. textbox
  1784. 5FontSize = 8
  1785. Caption = " NIPC 2"
  1786. Name = "Header1"
  1787.  fl0409.Container1.Grid1.Column10
  1788. Header1
  1789. header
  1790. header
  1791. wFontSize = 8
  1792. BorderStyle = 0
  1793. Margin = 0
  1794. ReadOnly = .T.
  1795. ForeColor = 0,0,0
  1796. BackColor = 255,255,255
  1797. Name = "Text1"
  1798.  fl0409.Container1.Grid1.Column13
  1799. Text1
  1800. textbox
  1801. textbox
  1802. 8FontSize = 8
  1803. Caption = " Sobretaxa"
  1804. Name = "Header1"
  1805.  fl0409.Container1.Grid1.Column13
  1806. Header1
  1807. header
  1808. header
  1809. wFontSize = 8
  1810. BorderStyle = 0
  1811. Margin = 0
  1812. ReadOnly = .T.
  1813. ForeColor = 0,0,0
  1814. BackColor = 255,255,255
  1815. Name = "Text1"
  1816.  fl0409.Container1.Grid1.Column12
  1817. Text1
  1818. textbox
  1819. textbox
  1820. 8FontSize = 8
  1821. Caption = " Sindicais"
  1822. Name = "Header1"
  1823.  fl0409.Container1.Grid1.Column12
  1824. Header1
  1825. header
  1826. header
  1827. FontSize = 8
  1828. Alignment = 2
  1829. BorderStyle = 0
  1830. Margin = 0
  1831. ReadOnly = .T.
  1832. ForeColor = 0,0,0
  1833. BackColor = 255,255,255
  1834. Name = "Text1"
  1835. fl0409.Container1.Grid1.Column9
  1836. Text1
  1837. textbox
  1838. textbox
  1839. 5FontSize = 8
  1840. Caption = " NIPC 1"
  1841. Name = "Header1"
  1842. fl0409.Container1.Grid1.Column9
  1843. Header1
  1844. header
  1845. header
  1846. wFontSize = 8
  1847. BorderStyle = 0
  1848. Margin = 0
  1849. ReadOnly = .T.
  1850. ForeColor = 0,0,0
  1851. BackColor = 255,255,255
  1852. Name = "Text1"
  1853. fl0409.Container1.Grid1.Column8
  1854. Text1
  1855. textbox
  1856. textbox
  1857. ?FontSize = 8
  1858. Caption = " Valores Contrib."
  1859. Name = "Header1"
  1860. fl0409.Container1.Grid1.Column8
  1861. Header1
  1862. header
  1863. header
  1864. wFontSize = 8
  1865. BorderStyle = 0
  1866. Margin = 0
  1867. ReadOnly = .T.
  1868. ForeColor = 0,0,0
  1869. BackColor = 255,255,255
  1870. Name = "Text1"
  1871. fl0409.Container1.Grid1.Column7
  1872. Text1
  1873. textbox
  1874. textbox
  1875. 6FontSize = 8
  1876. Caption = " Ret.Irs"
  1877. Name = "Header1"
  1878. fl0409.Container1.Grid1.Column7
  1879. Header1
  1880. header
  1881. header
  1882. FontSize = 8
  1883. Alignment = 2
  1884. BorderStyle = 0
  1885. Margin = 0
  1886. ReadOnly = .T.
  1887. ForeColor = 0,0,0
  1888. BackColor = 255,255,255
  1889. Name = "Text1"
  1890. fl0409.Container1.Grid1.Column6
  1891. Text1
  1892. textbox
  1893. textbox
  1894. 4FontSize = 8
  1895. Caption = " Local"
  1896. Name = "Header1"
  1897. fl0409.Container1.Grid1.Column6
  1898. Header1
  1899. header
  1900. header
  1901. FontSize = 8
  1902. Alignment = 2
  1903. BorderStyle = 0
  1904. Margin = 0
  1905. ReadOnly = .T.
  1906. ForeColor = 0,0,0
  1907. BackColor = 255,255,255
  1908. Name = "Text1"
  1909. fl0409.Container1.Grid1.Column5
  1910. Text1
  1911. textbox
  1912. textbox
  1913. 3FontSize = 8
  1914. Caption = " Tipo"
  1915. Name = "Header1"
  1916. fl0409.Container1.Grid1.Column5
  1917. Header1
  1918. header
  1919. header
  1920. wFontSize = 8
  1921. BorderStyle = 0
  1922. Margin = 0
  1923. ReadOnly = .T.
  1924. ForeColor = 0,0,0
  1925. BackColor = 255,255,255
  1926. Name = "Text1"
  1927. fl0409.Container1.Grid1.Column4
  1928. Text1
  1929. textbox
  1930. textbox
  1931. 8FontSize = 8
  1932. Caption = " Rend. Ano"
  1933. Name = "Header1"
  1934. fl0409.Container1.Grid1.Column4
  1935. Header1
  1936. header
  1937. header
  1938. wFontSize = 8
  1939. BorderStyle = 0
  1940. Margin = 0
  1941. ReadOnly = .T.
  1942. ForeColor = 0,0,0
  1943. BackColor = 255,255,255
  1944. Name = "Text1"
  1945. fl0409.Container1.Grid1.Column3
  1946. Text1
  1947. textbox
  1948. textbox
  1949. 2FontSize = 8
  1950. Caption = " Ano"
  1951. Name = "Header1"
  1952. fl0409.Container1.Grid1.Column3
  1953. Header1
  1954. header
  1955. header
  1956. wFontSize = 8
  1957. BorderStyle = 0
  1958. Margin = 0
  1959. ReadOnly = .T.
  1960. ForeColor = 0,0,0
  1961. BackColor = 255,255,255
  1962. Name = "Text1"
  1963. fl0409.Container1.Grid1.Column2
  1964. Text1
  1965. textbox
  1966. textbox
  1967. 6FontSize = 8
  1968. Caption = " Valores"
  1969. Name = "Header1"
  1970. fl0409.Container1.Grid1.Column2
  1971. Header1
  1972. header
  1973. header
  1974. PROCEDURE DblClick
  1975. SELECT cs99_listagem
  1976. SCATTER Memo NAME m0409_2
  1977. fl0409_modif_cursor = 0
  1978. DO FORM fl0409_2 WITH "E", thisform.Left, thisform.top
  1979. IF fl0409_modif_cursor = 1
  1980.     thisform.get_totais()
  1981.     thisform.Refresh
  1982. ENDIF
  1983. ENDPROC
  1984. FontSize = 8
  1985. Alignment = 2
  1986. BorderStyle = 0
  1987. Margin = 0
  1988. ReadOnly = .T.
  1989. ForeColor = 0,0,0
  1990. BackColor = 255,255,255
  1991. Name = "Text1"
  1992. fl0409.Container1.Grid1.Column1
  1993. Text1
  1994. textbox
  1995. textbox
  1996. 2FontSize = 8
  1997. Caption = " NIF"
  1998. Name = "Header1"
  1999. fl0409.Container1.Grid1.Column1
  2000. Header1
  2001. header
  2002. header
  2003. ColumnCount = 13
  2004. FontSize = 8
  2005. DeleteMark = .F.
  2006. HeaderHeight = 0
  2007. Height = 222
  2008. Left = 6
  2009. Panel = 1
  2010. ReadOnly = .T.
  2011. RecordSource = "cs99_listagem"
  2012. RowHeight = 17
  2013. ScrollBars = 2
  2014. TabIndex = 83
  2015. Top = 204
  2016. Width = 914
  2017. GridLineColor = 192,192,192
  2018. Name = "Grid1"
  2019. Column1.FontSize = 8
  2020. Column1.Alignment = 2
  2021. Column1.ControlSource = "nif"
  2022. Column1.Width = 70
  2023. Column1.ReadOnly = .T.
  2024. Column1.Format = "R"
  2025. Column1.InputMask = "999 999 999"
  2026. Column1.Name = "Column1"
  2027. Column2.FontSize = 8
  2028. Column2.ControlSource = "rend_anterior"
  2029. Column2.Width = 79
  2030. Column2.ReadOnly = .T.
  2031. Column2.DynamicForeColor = "iif(rend_anterior=0, RGB(255,255,255), RGB(0,0,0))"
  2032. Column2.Format = "R"
  2033. Column2.InputMask = "999 999 999.99"
  2034. Column2.Name = "Column2"
  2035. Column3.FontSize = 8
  2036. Column3.ControlSource = "anos"
  2037. Column3.Width = 36
  2038. Column3.ReadOnly = .T.
  2039. Column3.DynamicForeColor = "iif(anos=0, RGB(255,255,255), RGB(0,0,0))"
  2040. Column3.Name = "Column3"
  2041. Column4.FontSize = 8
  2042. Column4.ControlSource = "rend_ano"
  2043. Column4.Width = 80
  2044. Column4.ReadOnly = .T.
  2045. Column4.DynamicForeColor = "iif(rend_ano=0, RGB(255,255,255), RGB(0,0,0))"
  2046. Column4.Format = "R"
  2047. Column4.InputMask = "999 999 999.99"
  2048. Column4.Name = "Column4"
  2049. Column5.FontSize = 8
  2050. Column5.Alignment = 2
  2051. Column5.ControlSource = "tipo_rend"
  2052. Column5.Width = 41
  2053. Column5.ReadOnly = .T.
  2054. Column5.Name = "Column5"
  2055. Column6.FontSize = 8
  2056. Column6.Alignment = 2
  2057. Column6.ControlSource = "zona"
  2058. Column6.Width = 41
  2059. Column6.ReadOnly = .T.
  2060. Column6.Name = "Column6"
  2061. Column7.FontSize = 8
  2062. Column7.ControlSource = "retido"
  2063. Column7.Width = 79
  2064. Column7.ReadOnly = .T.
  2065. Column7.DynamicForeColor = "iif(retido=0, RGB(255,255,255), RGB(0,0,0))"
  2066. Column7.Format = "R"
  2067. Column7.InputMask = "999 999 999.99"
  2068. Column7.Name = "Column7"
  2069. Column8.FontSize = 8
  2070. Column8.ControlSource = "contrib"
  2071. Column8.Width = 78
  2072. Column8.ReadOnly = .T.
  2073. Column8.DynamicForeColor = "iif(contrib=0, RGB(255,255,255), RGB(0,0,0))"
  2074. Column8.Format = "R"
  2075. Column8.InputMask = "999 999 999.99"
  2076. Column8.Name = "Column8"
  2077. Column9.FontSize = 8
  2078. Column9.Alignment = 2
  2079. Column9.ControlSource = "contrib_nipc1"
  2080. Column9.Width = 70
  2081. Column9.ReadOnly = .T.
  2082. Column9.Format = "R"
  2083. Column9.InputMask = "999 999 999"
  2084. Column9.Name = "Column9"
  2085. Column10.FontSize = 8
  2086. Column10.ColumnOrder = 12
  2087. Column10.ControlSource = "sindicato"
  2088. Column10.Width = 78
  2089. Column10.ReadOnly = .T.
  2090. Column10.DynamicForeColor = "iif(sindicato=0, RGB(255,255,255), RGB(0,0,0))"
  2091. Column10.Format = "R"
  2092. Column10.InputMask = "999 999 999.99"
  2093. Column10.Name = "Column12"
  2094. Column11.FontSize = 8
  2095. Column11.ColumnOrder = 13
  2096. Column11.ControlSource = "sobretaxa"
  2097. Column11.Width = 79
  2098. Column11.ReadOnly = .T.
  2099. Column11.DynamicForeColor = "iif(sobretaxa=0, RGB(255,255,255), RGB(0,0,0))"
  2100. Column11.Format = "R"
  2101. Column11.InputMask = "999 999 999.99"
  2102. Column11.Name = "Column13"
  2103. Column12.FontSize = 8
  2104. Column12.Alignment = 2
  2105. Column12.ColumnOrder = 10
  2106. Column12.ControlSource = "contrib_nipc2"
  2107. Column12.Width = 70
  2108. Column12.ReadOnly = .T.
  2109. Column12.Format = "R"
  2110. Column12.InputMask = "999 999 999"
  2111. Column12.Name = "Column10"
  2112. Column13.FontSize = 8
  2113. Column13.Alignment = 2
  2114. Column13.ColumnOrder = 11
  2115. Column13.ControlSource = "contrib_nipc3"
  2116. Column13.Width = 70
  2117. Column13.ReadOnly = .T.
  2118. Column13.Format = "R"
  2119. Column13.InputMask = "999 999 999"
  2120. Column13.Name = "Column11"
  2121. fl0409.Container1
  2122. Grid1
  2123. AutoSize = .T.
  2124. FontSize = 7
  2125. BackStyle = 0
  2126. Caption = "Sobretaxa"
  2127. Height = 14
  2128. Left = 857
  2129. Top = 65
  2130. Width = 44
  2131. TabIndex = 25
  2132. Name = "Label27"
  2133. fl0409.Container1
  2134. Label27
  2135. label
  2136. label
  2137. AutoSize = .T.
  2138. FontSize = 7
  2139. BackStyle = 0
  2140. Caption = "Reten
  2141. Height = 14
  2142. Left = 858
  2143. Top = 54
  2144. Width = 42
  2145. TabIndex = 24
  2146. Name = "Label26"
  2147. fl0409.Container1
  2148. Label26
  2149. label
  2150. label
  2151. AutoSize = .T.
  2152. FontSize = 7
  2153. BackStyle = 0
  2154. Caption = "Sindicais"
  2155. Height = 14
  2156. Left = 757
  2157. Top = 65
  2158. Width = 39
  2159. TabIndex = 28
  2160. Name = "Label25"
  2161. fl0409.Container1
  2162. Label25
  2163. label
  2164. label
  2165. AutoSize = .T.
  2166. FontSize = 7
  2167. BackStyle = 0
  2168. Caption = "Quotiza
  2169. Height = 14
  2170. Left = 750
  2171. Top = 54
  2172. Width = 53
  2173. TabIndex = 27
  2174. Name = "Label24"
  2175. fl0409.Container1
  2176. Label24
  2177. label
  2178. label
  2179. AutoSize = .T.
  2180. FontSize = 7
  2181. BackStyle = 0
  2182. Caption = "Obrigat
  2183. rias"
  2184. Height = 14
  2185. Left = 649
  2186. Top = 65
  2187. Width = 52
  2188. TabIndex = 26
  2189. Name = "Label23"
  2190. fl0409.Container1
  2191. Label23
  2192. label
  2193. label
  2194. AutoSize = .T.
  2195. FontSize = 7
  2196. BackStyle = 0
  2197. Caption = "Contribui
  2198. Height = 14
  2199. Left = 646
  2200. Top = 54
  2201. Width = 59
  2202. TabIndex = 20
  2203. Name = "Label12"
  2204. fl0409.Container1
  2205. Label12
  2206. label
  2207. label
  2208. AutoSize = .T.
  2209. FontSize = 7
  2210. BackStyle = 0
  2211. Caption = "IRS"
  2212. Height = 14
  2213. Left = 561
  2214. Top = 65
  2215. Width = 18
  2216. TabIndex = 21
  2217. Name = "Label11"
  2218. fl0409.Container1
  2219. Label11
  2220. label
  2221. label
  2222. AutoSize = .T.
  2223. FontSize = 7
  2224. BackStyle = 0
  2225. Caption = "Reten
  2226. Height = 14
  2227. Left = 551
  2228. Top = 54
  2229. Width = 42
  2230. TabIndex = 23
  2231. Name = "Label10"
  2232. fl0409.Container1
  2233. Label10
  2234. label
  2235. label
  2236. `FontSize = 8
  2237. Alignment = 3
  2238. BorderStyle = 1
  2239. Value = 0
  2240. ControlSource = "fl0409_v0405"
  2241. Format = "R"
  2242. Height = 19
  2243. InputMask = "9 999 999.99"
  2244. Left = 816
  2245. ReadOnly = .T.
  2246. SelectOnEntry = .T.
  2247. SpecialEffect = 1
  2248. TabIndex = 54
  2249. Top = 132
  2250. Width = 104
  2251. BackColor = 220,220,220
  2252. DisabledBackColor = 220,220,220
  2253. BorderColor = 192,192,192
  2254. Name = "V0405"
  2255. fl0409.Container1
  2256. V0405
  2257. textbox
  2258. textbox
  2259. `FontSize = 8
  2260. Alignment = 3
  2261. BorderStyle = 1
  2262. Value = 0
  2263. ControlSource = "fl0409_v0404"
  2264. Format = "R"
  2265. Height = 19
  2266. InputMask = "9 999 999.99"
  2267. Left = 713
  2268. ReadOnly = .T.
  2269. SelectOnEntry = .T.
  2270. SpecialEffect = 1
  2271. TabIndex = 57
  2272. Top = 132
  2273. Width = 104
  2274. BackColor = 220,220,220
  2275. DisabledBackColor = 220,220,220
  2276. BorderColor = 192,192,192
  2277. Name = "V0404"
  2278. fl0409.Container1
  2279. V0404
  2280. textbox
  2281. textbox
  2282. `FontSize = 8
  2283. Alignment = 3
  2284. BorderStyle = 1
  2285. Value = 0
  2286. ControlSource = "fl0409_v0403"
  2287. Format = "R"
  2288. Height = 19
  2289. InputMask = "9 999 999.99"
  2290. Left = 610
  2291. ReadOnly = .T.
  2292. SelectOnEntry = .T.
  2293. SpecialEffect = 1
  2294. TabIndex = 58
  2295. Top = 132
  2296. Width = 104
  2297. BackColor = 220,220,220
  2298. DisabledBackColor = 220,220,220
  2299. BorderColor = 192,192,192
  2300. Name = "V0403"
  2301. fl0409.Container1
  2302. V0403
  2303. textbox
  2304. textbox
  2305. `FontSize = 8
  2306. Alignment = 3
  2307. BorderStyle = 1
  2308. Value = 0
  2309. ControlSource = "fl0409_v0402"
  2310. Format = "R"
  2311. Height = 19
  2312. InputMask = "9 999 999.99"
  2313. Left = 507
  2314. ReadOnly = .T.
  2315. SelectOnEntry = .T.
  2316. SpecialEffect = 1
  2317. TabIndex = 55
  2318. Top = 132
  2319. Width = 104
  2320. BackColor = 220,220,220
  2321. DisabledBackColor = 220,220,220
  2322. BorderColor = 192,192,192
  2323. Name = "V0402"
  2324. fl0409.Container1
  2325. V0402
  2326. textbox
  2327. textbox
  2328. 7PROCEDURE InteractiveChange
  2329. thisform.soma
  2330. ENDPROC
  2331. bFontSize = 8
  2332. Alignment = 3
  2333. BorderStyle = 1
  2334. Value = 0
  2335. ControlSource = "fl0409_v0305"
  2336. Format = "R"
  2337. Height = 19
  2338. InputMask = "9 999 999.99"
  2339. Left = 816
  2340. ReadOnly = .T.
  2341. SelectOnEntry = .T.
  2342. SpecialEffect = 1
  2343. TabIndex = 34
  2344. Top = 114
  2345. Width = 104
  2346. DisabledBackColor = 255,255,255
  2347. DisabledForeColor = 0,0,0
  2348. BorderColor = 192,192,192
  2349. Name = "V0305"
  2350. fl0409.Container1
  2351. V0305
  2352. textbox
  2353. textbox
  2354. 7PROCEDURE InteractiveChange
  2355. thisform.soma
  2356. ENDPROC
  2357. bFontSize = 8
  2358. Alignment = 3
  2359. BorderStyle = 1
  2360. Value = 0
  2361. ControlSource = "fl0409_v0304"
  2362. Format = "R"
  2363. Height = 19
  2364. InputMask = "9 999 999.99"
  2365. Left = 713
  2366. ReadOnly = .T.
  2367. SelectOnEntry = .T.
  2368. SpecialEffect = 1
  2369. TabIndex = 42
  2370. Top = 114
  2371. Width = 104
  2372. DisabledBackColor = 255,255,255
  2373. DisabledForeColor = 0,0,0
  2374. BorderColor = 192,192,192
  2375. Name = "V0304"
  2376. fl0409.Container1
  2377. V0304
  2378. textbox
  2379. textbox
  2380. 7PROCEDURE InteractiveChange
  2381. thisform.soma
  2382. ENDPROC
  2383. bFontSize = 8
  2384. Alignment = 3
  2385. BorderStyle = 1
  2386. Value = 0
  2387. ControlSource = "fl0409_v0303"
  2388. Format = "R"
  2389. Height = 19
  2390. InputMask = "9 999 999.99"
  2391. Left = 610
  2392. ReadOnly = .T.
  2393. SelectOnEntry = .T.
  2394. SpecialEffect = 1
  2395. TabIndex = 30
  2396. Top = 114
  2397. Width = 104
  2398. DisabledBackColor = 255,255,255
  2399. DisabledForeColor = 0,0,0
  2400. BorderColor = 192,192,192
  2401. Name = "V0303"
  2402. fl0409.Container1
  2403. V0303
  2404. textbox
  2405. textbox
  2406. 7PROCEDURE InteractiveChange
  2407. thisform.soma
  2408. ENDPROC
  2409. bFontSize = 8
  2410. Alignment = 3
  2411. BorderStyle = 1
  2412. Value = 0
  2413. ControlSource = "fl0409_v0302"
  2414. Format = "R"
  2415. Height = 19
  2416. InputMask = "9 999 999.99"
  2417. Left = 507
  2418. ReadOnly = .T.
  2419. SelectOnEntry = .T.
  2420. SpecialEffect = 1
  2421. TabIndex = 31
  2422. Top = 114
  2423. Width = 104
  2424. DisabledBackColor = 255,255,255
  2425. DisabledForeColor = 0,0,0
  2426. BorderColor = 192,192,192
  2427. Name = "V0302"
  2428. fl0409.Container1
  2429. V0302
  2430. textbox
  2431. textbox
  2432. 7PROCEDURE InteractiveChange
  2433. thisform.soma
  2434. ENDPROC
  2435. aFontSize = 8
  2436. Alignment = 3
  2437. BorderStyle = 1
  2438. Value = 0
  2439. ControlSource = "fl0409_v0205"
  2440. Format = "R"
  2441. Height = 19
  2442. InputMask = "9 999 999.99"
  2443. Left = 816
  2444. ReadOnly = .T.
  2445. SelectOnEntry = .T.
  2446. SpecialEffect = 1
  2447. TabIndex = 33
  2448. Top = 96
  2449. Width = 104
  2450. DisabledBackColor = 255,255,255
  2451. DisabledForeColor = 0,0,0
  2452. BorderColor = 192,192,192
  2453. Name = "V0205"
  2454. fl0409.Container1
  2455. V0205
  2456. textbox
  2457. textbox
  2458. 7PROCEDURE InteractiveChange
  2459. thisform.soma
  2460. ENDPROC
  2461. aFontSize = 8
  2462. Alignment = 3
  2463. BorderStyle = 1
  2464. Value = 0
  2465. ControlSource = "fl0409_v0204"
  2466. Format = "R"
  2467. Height = 19
  2468. InputMask = "9 999 999.99"
  2469. Left = 713
  2470. ReadOnly = .T.
  2471. SelectOnEntry = .T.
  2472. SpecialEffect = 1
  2473. TabIndex = 38
  2474. Top = 96
  2475. Width = 104
  2476. DisabledBackColor = 255,255,255
  2477. DisabledForeColor = 0,0,0
  2478. BorderColor = 192,192,192
  2479. Name = "V0204"
  2480. fl0409.Container1
  2481. V0204
  2482. textbox
  2483. textbox
  2484. 7PROCEDURE InteractiveChange
  2485. thisform.soma
  2486. ENDPROC
  2487. aFontSize = 8
  2488. Alignment = 3
  2489. BorderStyle = 1
  2490. Value = 0
  2491. ControlSource = "fl0409_v0203"
  2492. Format = "R"
  2493. Height = 19
  2494. InputMask = "9 999 999.99"
  2495. Left = 610
  2496. ReadOnly = .T.
  2497. SelectOnEntry = .T.
  2498. SpecialEffect = 1
  2499. TabIndex = 39
  2500. Top = 96
  2501. Width = 104
  2502. DisabledBackColor = 255,255,255
  2503. DisabledForeColor = 0,0,0
  2504. BorderColor = 192,192,192
  2505. Name = "V0203"
  2506. fl0409.Container1
  2507. V0203
  2508. textbox
  2509. textbox
  2510. 7PROCEDURE InteractiveChange
  2511. thisform.soma
  2512. ENDPROC
  2513. aFontSize = 8
  2514. Alignment = 3
  2515. BorderStyle = 1
  2516. Value = 0
  2517. ControlSource = "fl0409_v0202"
  2518. Format = "R"
  2519. Height = 19
  2520. InputMask = "9 999 999.99"
  2521. Left = 507
  2522. ReadOnly = .T.
  2523. SelectOnEntry = .T.
  2524. SpecialEffect = 1
  2525. TabIndex = 32
  2526. Top = 96
  2527. Width = 104
  2528. DisabledBackColor = 255,255,255
  2529. DisabledForeColor = 0,0,0
  2530. BorderColor = 192,192,192
  2531. Name = "V0202"
  2532. fl0409.Container1
  2533. V0202
  2534. textbox
  2535. textbox
  2536. AutoSize = .T.
  2537. FontSize = 7
  2538. BackStyle = 0
  2539. Caption = "Rendimentos"
  2540. Height = 14
  2541. Left = 440
  2542. Top = 65
  2543. Width = 57
  2544. TabIndex = 29
  2545. Name = "Label9"
  2546. fl0409.Container1
  2547. Label9
  2548. label
  2549. label
  2550. THeight = 0
  2551. Left = 274
  2552. Top = 78
  2553. Width = 645
  2554. BorderColor = 0,0,0
  2555. Name = "Line6"
  2556. fl0409.Container1
  2557. Line6
  2558. ?Height = 29
  2559. Left = 816
  2560. Top = 50
  2561. Width = 0
  2562. Name = "Line13"
  2563. fl0409.Container1
  2564. Line13
  2565. >Height = 29
  2566. Left = 713
  2567. Top = 50
  2568. Width = 0
  2569. Name = "Line5"
  2570. fl0409.Container1
  2571. Line5
  2572. >Height = 29
  2573. Left = 610
  2574. Top = 50
  2575. Width = 0
  2576. Name = "Line4"
  2577. fl0409.Container1
  2578. Line4
  2579. >Height = 29
  2580. Left = 507
  2581. Top = 50
  2582. Width = 0
  2583. Name = "Line3"
  2584. fl0409.Container1
  2585. Line3
  2586. AutoSize = .T.
  2587. FontBold = .T.
  2588. FontSize = 7
  2589. BackStyle = 0
  2590. Caption = "05"
  2591. Height = 13
  2592. Left = 821
  2593. Top = 53
  2594. Width = 12
  2595. TabIndex = 52
  2596. ForeColor = 255,255,255
  2597. Name = "Label8"
  2598. fl0409.Container1
  2599. Label8
  2600. label
  2601. label
  2602. STop = 50
  2603. Left = 816
  2604. Height = 17
  2605. Width = 22
  2606. BackColor = 0,0,0
  2607. Name = "Shape6"
  2608. fl0409.Container1
  2609. Shape6
  2610. shape
  2611. shape
  2612. AutoSize = .T.
  2613. FontSize = 8
  2614. BackStyle = 0
  2615. Caption = "Ano / M
  2616. Height = 16
  2617. Left = 28
  2618. Top = 131
  2619. Width = 51
  2620. TabIndex = 82
  2621. Name = "Label7"
  2622. fl0409.Container1
  2623. Label7
  2624. label
  2625. label
  2626. AutoSize = .T.
  2627. FontBold = .T.
  2628. FontSize = 12
  2629. BackStyle = 0
  2630. Caption = "/"
  2631. Height = 22
  2632. Left = 144
  2633. Top = 130
  2634. Width = 6
  2635. TabIndex = 81
  2636. Name = "Label6"
  2637. fl0409.Container1
  2638. Label6
  2639. label
  2640. label
  2641. 7PROCEDURE InteractiveChange
  2642. thisform.soma
  2643. ENDPROC
  2644. aFontSize = 8
  2645. Alignment = 3
  2646. BorderStyle = 1
  2647. Value = 0
  2648. ControlSource = "fl0409_v0105"
  2649. Format = "R"
  2650. Height = 19
  2651. InputMask = "9 999 999.99"
  2652. Left = 816
  2653. ReadOnly = .T.
  2654. SelectOnEntry = .T.
  2655. SpecialEffect = 1
  2656. TabIndex = 41
  2657. Top = 78
  2658. Width = 104
  2659. DisabledBackColor = 255,255,255
  2660. DisabledForeColor = 0,0,0
  2661. BorderColor = 192,192,192
  2662. Name = "V0105"
  2663. fl0409.Container1
  2664. V0105
  2665. textbox
  2666. textbox
  2667. 7PROCEDURE InteractiveChange
  2668. thisform.soma
  2669. ENDPROC
  2670. aFontSize = 8
  2671. Alignment = 3
  2672. BorderStyle = 1
  2673. Value = 0
  2674. ControlSource = "fl0409_v0104"
  2675. Format = "R"
  2676. Height = 19
  2677. InputMask = "9 999 999.99"
  2678. Left = 713
  2679. ReadOnly = .T.
  2680. SelectOnEntry = .T.
  2681. SpecialEffect = 1
  2682. TabIndex = 40
  2683. Top = 78
  2684. Width = 104
  2685. DisabledBackColor = 255,255,255
  2686. DisabledForeColor = 0,0,0
  2687. BorderColor = 192,192,192
  2688. Name = "V0104"
  2689. fl0409.Container1
  2690. V0104
  2691. textbox
  2692. textbox
  2693. 7PROCEDURE InteractiveChange
  2694. thisform.soma
  2695. ENDPROC
  2696. aFontSize = 8
  2697. Alignment = 3
  2698. BorderStyle = 1
  2699. Value = 0
  2700. ControlSource = "fl0409_v0103"
  2701. Format = "R"
  2702. Height = 19
  2703. InputMask = "9 999 999.99"
  2704. Left = 610
  2705. ReadOnly = .T.
  2706. SelectOnEntry = .T.
  2707. SpecialEffect = 1
  2708. TabIndex = 36
  2709. Top = 78
  2710. Width = 104
  2711. DisabledBackColor = 255,255,255
  2712. DisabledForeColor = 0,0,0
  2713. BorderColor = 192,192,192
  2714. Name = "V0103"
  2715. fl0409.Container1
  2716. V0103
  2717. textbox
  2718. textbox
  2719. 7PROCEDURE InteractiveChange
  2720. thisform.soma
  2721. ENDPROC
  2722. aFontSize = 8
  2723. Alignment = 3
  2724. BorderStyle = 1
  2725. Value = 0
  2726. ControlSource = "fl0409_v0102"
  2727. Format = "R"
  2728. Height = 19
  2729. InputMask = "9 999 999.99"
  2730. Left = 507
  2731. ReadOnly = .T.
  2732. SelectOnEntry = .T.
  2733. SpecialEffect = 1
  2734. TabIndex = 35
  2735. Top = 78
  2736. Width = 104
  2737. DisabledBackColor = 255,255,255
  2738. DisabledForeColor = 0,0,0
  2739. BorderColor = 192,192,192
  2740. Name = "V0102"
  2741. fl0409.Container1
  2742. V0102
  2743. textbox
  2744. textbox
  2745. AutoSize = .T.
  2746. FontBold = .T.
  2747. FontSize = 7
  2748. BackStyle = 0
  2749. Caption = "01"
  2750. Height = 13
  2751. Left = 409
  2752. Top = 53
  2753. Width = 12
  2754. TabIndex = 43
  2755. ForeColor = 255,255,255
  2756. Name = "Label1"
  2757. fl0409.Container1
  2758. Label1
  2759. label
  2760. label
  2761. AutoSize = .T.
  2762. FontSize = 7
  2763. BackStyle = 0
  2764. Caption = "NIF do Representante Legal"
  2765. Height = 14
  2766. Left = 511
  2767. Top = 473
  2768. Width = 120
  2769. TabIndex = 75
  2770. Name = "Label36"
  2771. fl0409.Container1
  2772. Label36
  2773. label
  2774. label
  2775. AutoSize = .T.
  2776. FontSize = 7
  2777. BackStyle = 0
  2778. Caption = "NIF do T
  2779. cnico Oficial de Contas"
  2780. Height = 14
  2781. Left = 511
  2782. Top = 457
  2783. Width = 142
  2784. TabIndex = 68
  2785. Name = "Label13"
  2786. fl0409.Container1
  2787. Label13
  2788. label
  2789. label
  2790. AutoSize = .T.
  2791. FontBold = .F.
  2792. FontSize = 7
  2793. BackStyle = 0
  2794. Caption = "02"
  2795. Height = 14
  2796. Left = 686
  2797. Top = 475
  2798. Width = 12
  2799. TabIndex = 77
  2800. ForeColor = 255,255,255
  2801. Name = "Label63"
  2802. fl0409.Container1
  2803. Label63
  2804. label
  2805. label
  2806. UTop = 473
  2807. Left = 683
  2808. Height = 16
  2809. Width = 15
  2810. BackColor = 0,0,0
  2811. Name = "Shape37"
  2812. fl0409.Container1
  2813. Shape37
  2814. shape
  2815. shape
  2816. #FontBold = .T.
  2817. FontSize = 7
  2818. Alignment = 2
  2819. BorderStyle = 1
  2820. Value = 
  2821. ControlSource = "fl0409_nif_legal"
  2822. Format = "R"
  2823. Height = 16
  2824. InputMask = "999 999 999"
  2825. Left = 698
  2826. SelectOnEntry = .T.
  2827. SpecialEffect = 1
  2828. TabIndex = 76
  2829. Top = 473
  2830. Width = 91
  2831. BorderColor = 0,0,0
  2832. Name = "J_LEGAL"
  2833. fl0409.Container1
  2834. J_LEGAL
  2835. textbox
  2836. textbox
  2837. AutoSize = .T.
  2838. FontBold = .F.
  2839. FontSize = 7
  2840. BackStyle = 0
  2841. Caption = "01"
  2842. Height = 14
  2843. Left = 686
  2844. Top = 457
  2845. Width = 12
  2846. TabIndex = 69
  2847. ForeColor = 255,255,255
  2848. Name = "Label62"
  2849. fl0409.Container1
  2850. Label62
  2851. label
  2852. label
  2853. UTop = 455
  2854. Left = 683
  2855. Height = 16
  2856. Width = 15
  2857. BackColor = 0,0,0
  2858. Name = "Shape36"
  2859. fl0409.Container1
  2860. Shape36
  2861. shape
  2862. shape
  2863. FontBold = .T.
  2864. FontSize = 7
  2865. Alignment = 2
  2866. BorderStyle = 1
  2867. Value = 
  2868. ControlSource = "fl0409_j_toc"
  2869. Format = "R"
  2870. Height = 16
  2871. InputMask = "999 999 999"
  2872. Left = 698
  2873. SelectOnEntry = .T.
  2874. SpecialEffect = 1
  2875. TabIndex = 65
  2876. Top = 455
  2877. Width = 91
  2878. BorderColor = 0,0,0
  2879. Name = "J_TOC"
  2880. fl0409.Container1
  2881. J_TOC
  2882. textbox
  2883. textbox
  2884. AutoSize = .T.
  2885. FontSize = 6
  2886. BackStyle = 0
  2887. Caption = "IDENTIFICA
  2888. O DO REP. LEGAL E DO T.O.C."
  2889. Height = 12
  2890. Left = 515
  2891. Top = 435
  2892. Width = 169
  2893. TabIndex = 62
  2894. Name = "Label61"
  2895. fl0409.Container1
  2896. Label61
  2897. label
  2898. label
  2899. AutoSize = .T.
  2900. FontSize = 6
  2901. BackStyle = 0
  2902. Caption = "7"
  2903. Height = 12
  2904. Left = 490
  2905. Top = 435
  2906. Width = 6
  2907. TabIndex = 61
  2908. Name = "Label60"
  2909. fl0409.Container1
  2910. Label60
  2911. label
  2912. label
  2913. @Height = 0
  2914. Left = 484
  2915. Top = 446
  2916. Width = 19
  2917. Name = "Line25"
  2918. fl0409.Container1
  2919. Line25
  2920. \Top = 433
  2921. Left = 501
  2922. Height = 14
  2923. Width = 317
  2924. BackColor = 230,230,230
  2925. Name = "Shape35"
  2926. fl0409.Container1
  2927. Shape35
  2928. shape
  2929. shape
  2930. \Top = 433
  2931. Left = 484
  2932. Height = 66
  2933. Width = 334
  2934. BackColor = 255,255,255
  2935. Name = "Shape30"
  2936. fl0409.Container1
  2937. Shape30
  2938. shape
  2939. shape
  2940. AutoSize = .T.
  2941. FontSize = 7
  2942. BackStyle = 0
  2943. Caption = "Data do facto que determinou a obrig.de declarar ou alterar rend. j
  2944.  declarados"
  2945. Height = 14
  2946. Left = 24
  2947. Top = 481
  2948. Width = 331
  2949. TabIndex = 79
  2950. Name = "Label59"
  2951. fl0409.Container1
  2952. Label59
  2953. label
  2954. label
  2955. AutoSize = .T.
  2956. FontSize = 7
  2957. BackStyle = 0
  2958. Caption = "Decl. apresent. termos alinea d), n
  2959. 1, art.119
  2960.  CIRS"
  2961. Height = 14
  2962. Left = 24
  2963. Top = 466
  2964. Width = 219
  2965. TabIndex = 73
  2966. Name = "Label58"
  2967. fl0409.Container1
  2968. Label58
  2969. label
  2970. label
  2971. AutoSize = .T.
  2972. FontSize = 7
  2973. BackStyle = 0
  2974. Caption = "Declara
  2975. o de substitui
  2976. Height = 14
  2977. Left = 137
  2978. Top = 450
  2979. Width = 115
  2980. TabIndex = 67
  2981. Name = "Label57"
  2982. fl0409.Container1
  2983. Label57
  2984. label
  2985. label
  2986. AutoSize = .T.
  2987. FontSize = 7
  2988. BackStyle = 0
  2989. Caption = "1
  2990.  Declara
  2991. Height = 14
  2992. Left = 24
  2993. Top = 450
  2994. Width = 60
  2995. TabIndex = 66
  2996. Name = "Label51"
  2997. fl0409.Container1
  2998. Label51
  2999. label
  3000. label
  3001. AutoSize = .T.
  3002. FontBold = .F.
  3003. FontSize = 7
  3004. BackStyle = 0
  3005. Caption = "04"
  3006. Height = 14
  3007. Left = 360
  3008. Top = 481
  3009. Width = 12
  3010. TabIndex = 80
  3011. ForeColor = 255,255,255
  3012. Name = "Label56"
  3013. fl0409.Container1
  3014. Label56
  3015. label
  3016. label
  3017. UTop = 479
  3018. Left = 357
  3019. Height = 16
  3020. Width = 15
  3021. BackColor = 0,0,0
  3022. Name = "Shape34"
  3023. fl0409.Container1
  3024. Shape34
  3025. shape
  3026. shape
  3027. AutoSize = .T.
  3028. FontBold = .F.
  3029. FontSize = 7
  3030. BackStyle = 0
  3031. Caption = "03"
  3032. Height = 14
  3033. Left = 257
  3034. Top = 466
  3035. Width = 12
  3036. TabIndex = 74
  3037. ForeColor = 255,255,255
  3038. Name = "Label55"
  3039. fl0409.Container1
  3040. Label55
  3041. label
  3042. label
  3043. UTop = 465
  3044. Left = 254
  3045. Height = 13
  3046. Width = 15
  3047. BackColor = 0,0,0
  3048. Name = "Shape33"
  3049. fl0409.Container1
  3050. Shape33
  3051. shape
  3052. shape
  3053. AutoSize = .T.
  3054. FontSize = 7
  3055. BackStyle = 0
  3056. Caption = "02"
  3057. Height = 14
  3058. Left = 257
  3059. Top = 451
  3060. Width = 12
  3061. TabIndex = 71
  3062. ForeColor = 255,255,255
  3063. Name = "Label54"
  3064. fl0409.Container1
  3065. Label54
  3066. label
  3067. label
  3068. UTop = 450
  3069. Left = 254
  3070. Height = 13
  3071. Width = 15
  3072. BackColor = 0,0,0
  3073. Name = "Shape32"
  3074. fl0409.Container1
  3075. Shape32
  3076. shape
  3077. shape
  3078. AutoSize = .T.
  3079. FontSize = 7
  3080. BackStyle = 0
  3081. Caption = "01"
  3082. Height = 14
  3083. Left = 91
  3084. Top = 451
  3085. Width = 12
  3086. TabIndex = 70
  3087. ForeColor = 255,255,255
  3088. Name = "Label52"
  3089. fl0409.Container1
  3090. Label52
  3091. label
  3092. label
  3093. TTop = 450
  3094. Left = 88
  3095. Height = 13
  3096. Width = 15
  3097. BackColor = 0,0,0
  3098. Name = "Shape31"
  3099. fl0409.Container1
  3100. Shape31
  3101. shape
  3102. shape
  3103. }Top = 463
  3104. Left = 269
  3105. Height = 17
  3106. Width = 18
  3107. AutoSize = .T.
  3108. BackStyle = 0
  3109. Caption = ""
  3110. TabIndex = 72
  3111. Name = "Check3"
  3112. fl0409.Container1
  3113. Check3
  3114. checkbox
  3115. checkbox
  3116. PROCEDURE InteractiveChange
  3117. if this.Value = 1
  3118.     This.parent.Check1.Value = 0
  3119.     This.parent.Check1.Value = 1
  3120. endif
  3121. ENDPROC
  3122. }Top = 448
  3123. Left = 269
  3124. Height = 17
  3125. Width = 18
  3126. AutoSize = .T.
  3127. BackStyle = 0
  3128. Caption = ""
  3129. TabIndex = 64
  3130. Name = "Check2"
  3131. fl0409.Container1
  3132. Check2
  3133. checkbox
  3134. checkbox
  3135. PROCEDURE InteractiveChange
  3136. if this.Value = 1
  3137.     This.parent.Check2.Value = 0
  3138.     This.parent.Check2.Value = 1
  3139. endif
  3140. ENDPROC
  3141. fl0409.Container1
  3142. Check1
  3143. checkbox
  3144. checkbox
  3145. _reportname
  3146. nrlinhas
  3147. magnetico
  3148. entidade_ini
  3149. gravacao_ok
  3150. *limpa_cab 
  3151. *get_cab 
  3152. *limpa_totais 
  3153. *get_totais 
  3154. *x_cnt_tipo_ret 
  3155. *x_m39 
  3156. *x_get_ano_reporte 
  3157. *x_inclui_abono 
  3158. *x_get_subtipo 
  3159. *x_get_tipo 
  3160. *insere_linha 
  3161. *insere_intermedio 
  3162. *x_contribuicoes 
  3163. *insere_descontos 
  3164. *x_get_descontos 
  3165. *x_get_incidencias 
  3166. *calculo_percentual 
  3167. *ficheiro 
  3168. *x_get_grupo_soma 
  3169. *cursor_nif 
  3170. *cursor_nif_x 
  3171. *get_filename_serie 
  3172. *calculo_percentual_irs 
  3173. *chk_subsidio 
  3174. *x_get_descontos_contrib 
  3175. commandbutton
  3176. commandbutton
  3177. Command1
  3178. fl0409
  3179. Top = 508
  3180. Left = 320
  3181. Height = 37
  3182. Width = 88
  3183. FontSize = 8
  3184. Picture = ..\shared\icons\save.bmp
  3185. Caption = "Sup. Magn
  3186. tico"
  3187. TabIndex = 2
  3188. PicturePosition = 7
  3189. ZOrderSet = 22
  3190. Name = "Command1"
  3191. PROCEDURE Click
  3192. thisform.magnetico = .t.
  3193. this.parent._imprimir(.f.)
  3194. *!*    LOCAL lcfile
  3195. *!*    lcfile = ""
  3196. *!*    * Ficheiro da entidade em que se encontra
  3197. *!*    IF thisform.nrlinhas = 0
  3198. *!*        =MESSAGEBOX("A declara
  3199. o est
  3200.  vazia!", 0+48, "Aten
  3201. o...")
  3202. *!*    ELSE
  3203. *!*        p_path_destino = ""
  3204. *!*        do form fl0409_3
  3205. *!*        if !empty(p_path_destino)
  3206. *!*            thisform.ficheiro(p_path_destino)
  3207. *!*        endif
  3208. *!*    ENDIF
  3209. *!*    * Ficheiro das entidades seleccionadas
  3210. *!*    if thisform.chk_entid.value = 1
  3211. *!*        lcentid = p_codemp
  3212. *!*        select (thisform.csentidades1.cursor)
  3213. *!*        go top
  3214. *!*        scan for valido = 1
  3215. *!*            p_codemp = eval(thisform.csentidades1.cursor + ".codigo")
  3216. *!*            
  3217. *!*            if used("funci")
  3218. *!*                select funci
  3219. *!*                use
  3220. *!*            endif
  3221. *!*            if used("indep")
  3222. *!*                select indep
  3223. *!*                use
  3224. *!*            endif
  3225. *!*            if used("tproc")
  3226. *!*                select tproc
  3227. *!*                use
  3228. *!*            endif
  3229. *!*            if used("movim")
  3230. *!*                select movim
  3231. *!*                use
  3232. *!*            endif
  3233. *!*            
  3234. *!*            select 0
  3235. *!*            use (stuff(p_tab_funcionarios, 14, 3, p_codemp)) alias funci
  3236. *!*            select 0
  3237. *!*            use (stuff(p_tab_independentes, 14, 3, p_codemp)) alias indep
  3238. *!*            select 0
  3239. *!*            use (stuff(p_tab_processamentos, 14, 3, p_codemp)) alias tproc
  3240. *!*            select 0
  3241. *!*            use (stuff(p_tab_movimentos, 14, 3, p_codemp)) alias movim
  3242. *!*            =xseek(upper(p_codemp), "empresa", "key_1")
  3243. *!*            p_firma = empresa.firma
  3244. *!*            thisform.limpa_totais()
  3245. *!*            thisform.limpa_cab()
  3246. *!*            thisform.get_cab()
  3247. *!*            thisform._select(thisform._reportname, .f.)
  3248. *!*    *--------------------------------------------------------------------------
  3249. *!*            IF thisform.nrlinhas # 0
  3250. *!*                lcfile = thisform.get_filename_serie(p_path_destino)
  3251. *!*                if !empty(lcfile)
  3252. *!*                WAIT WINDOW lcfile
  3253. *!*                    thisform.ficheiro(lcfile)
  3254. *!*                endif
  3255. *!*            ENDIF
  3256. *!*    *--------------------------------------------------------------------------
  3257. *!*        endscan
  3258. *!*        p_codemp = lcentid
  3259. *!*        if used("funci")
  3260. *!*            select funci
  3261. *!*            use
  3262. *!*        endif
  3263. *!*        if used("indep")
  3264. *!*            select indep
  3265. *!*            use
  3266. *!*        endif
  3267. *!*        if used("tproc")
  3268. *!*            select tproc
  3269. *!*            use
  3270. *!*        endif
  3271. *!*        if used("movim")
  3272. *!*            select movim
  3273. *!*            use
  3274. *!*        endif
  3275. *!*        select 0
  3276. *!*        use (stuff(p_tab_funcionarios, 14, 3, p_codemp)) alias funci
  3277. *!*        select 0
  3278. *!*        use (stuff(p_tab_independentes, 14, 3, p_codemp)) alias indep
  3279. *!*        select 0
  3280. *!*        use (stuff(p_tab_processamentos, 14, 3, p_codemp)) alias tproc
  3281. *!*        select 0
  3282. *!*        use (stuff(p_tab_movimentos, 14, 3, p_codemp)) alias movim
  3283. *!*        =xseek(upper(p_codemp), "empresa", "key_1")
  3284. *!*        p_firma = empresa.firma
  3285. *!*    ENDIF
  3286. *!*    =Messagebox("Cria
  3287. o do Ficheiro efectuada...",0+64,"")
  3288. *!*    if thisform.chk_entid.value = 1
  3289. *!*        thisform.Release
  3290. *!*    ENDIF
  3291. ENDPROC
  3292. Top = 448
  3293. Left = 103
  3294. Height = 17
  3295. Width = 18
  3296. AutoSize = .T.
  3297. BackStyle = 0
  3298. Caption = ""
  3299. Value = 1
  3300. TabIndex = 63
  3301. Name = "Check1"
  3302. fl0409.Container1
  3303. J_DOBRIG
  3304. textbox
  3305. textbox
  3306. fl0409.Container1
  3307. Label38
  3308. label
  3309.     container
  3310.     container
  3311. Container1
  3312. fl0409
  3313. |Top = -1
  3314. Left = -1
  3315. Width = 928
  3316. Height = 506
  3317. TabIndex = 1
  3318. BackColor = 255,255,255
  3319. ZOrderSet = 10
  3320. Name = "Container1"
  3321.     container
  3322.     container
  3323. Container1
  3324. fl0409.Container1
  3325. STop = 158
  3326. Left = 6
  3327. Width = 914
  3328. Height = 47
  3329. TabIndex = 10
  3330. Name = "Container1"
  3331. Line1
  3332. fl0409.Container1.Container1
  3333. =Height = 48
  3334. Left = 279
  3335. Top = 0
  3336. Width = 0
  3337. Name = "Line1"
  3338. label
  3339. label
  3340. Label1
  3341. fl0409.Container1.Container1
  3342. AutoSize = .T.
  3343. FontSize = 8
  3344. BackStyle = 0
  3345. Caption = "NIF Titular"
  3346. Height = 16
  3347. Left = 15
  3348. Top = 15
  3349. Width = 49
  3350. Name = "Label1"
  3351. Line3
  3352. fl0409.Container1.Container1
  3353. <Height = 48
  3354. Left = 81
  3355. Top = 0
  3356. Width = 0
  3357. Name = "Line3"
  3358. label
  3359. label
  3360. Label2
  3361. fl0409.Container1.Container1
  3362. AutoSize = .T.
  3363. FontSize = 8
  3364. BackStyle = 0
  3365. Caption = "Rendimentos de"
  3366. Height = 16
  3367. Left = 107
  3368. Top = 1
  3369. Width = 79
  3370. Name = "Label2"
  3371. label
  3372. label
  3373. Label3
  3374. fl0409.Container1.Container1
  3375. AutoSize = .T.
  3376. FontSize = 8
  3377. BackStyle = 0
  3378. Caption = "Anos Anteriores"
  3379. Height = 16
  3380. Left = 105
  3381. Top = 13
  3382. Width = 82
  3383. Name = "Label3"
  3384. Line4
  3385. fl0409.Container1.Container1
  3386. =Height = 48
  3387. Left = 198
  3388. Top = 0
  3389. Width = 0
  3390. Name = "Line4"
  3391. label
  3392. label
  3393. Label4
  3394. fl0409.Container1.Container1
  3395. AutoSize = .T.
  3396. FontSize = 8
  3397. BackStyle = 0
  3398. Caption = "Valores"
  3399. Height = 16
  3400. Left = 104
  3401. Top = 30
  3402. Width = 40
  3403. Name = "Label4"
  3404. label
  3405. label
  3406. Label5
  3407. fl0409.Container1.Container1
  3408. ~AutoSize = .T.
  3409. FontSize = 8
  3410. BackStyle = 0
  3411. Caption = "Ano"
  3412. Height = 16
  3413. Left = 169
  3414. Top = 30
  3415. Width = 22
  3416. Name = "Label5"
  3417. label
  3418. label
  3419. Label6
  3420. fl0409.Container1.Container1
  3421. AutoSize = .T.
  3422. FontSize = 8
  3423. BackStyle = 0
  3424. Caption = "Rendimentos"
  3425. Height = 16
  3426. Left = 209
  3427. Top = 8
  3428. Width = 64
  3429. Name = "Label6"
  3430. label
  3431. label
  3432. Label7
  3433. fl0409.Container1.Container1
  3434. AutoSize = .T.
  3435. FontSize = 8
  3436. BackStyle = 0
  3437. Caption = "do Ano"
  3438. Height = 16
  3439. Left = 223
  3440. Top = 23
  3441. Width = 37
  3442. Name = "Label7"
  3443. label
  3444. label
  3445. Label8
  3446. fl0409.Container1.Container1
  3447. AutoSize = .T.
  3448. FontSize = 8
  3449. BackStyle = 0
  3450. Caption = "Tipo"
  3451. Height = 16
  3452. Left = 290
  3453. Top = 15
  3454. Width = 22
  3455. Name = "Label8"
  3456. label
  3457. label
  3458. Label9
  3459. fl0409.Container1.Container1
  3460. AutoSize = .T.
  3461. FontSize = 7
  3462. BackStyle = 0
  3463. Caption = "Local de"
  3464. Height = 14
  3465. Left = 324
  3466. Top = 9
  3467. Width = 37
  3468. Name = "Label9"
  3469. label
  3470. label
  3471. Label10
  3472. fl0409.Container1.Container1
  3473. AutoSize = .T.
  3474. FontSize = 7
  3475. BackStyle = 0
  3476. Caption = "Obten
  3477. Height = 14
  3478. Left = 325
  3479. Top = 24
  3480. Width = 35
  3481. Name = "Label10"
  3482. Line5
  3483. fl0409.Container1.Container1
  3484. =Height = 48
  3485. Left = 321
  3486. Top = 0
  3487. Width = 0
  3488. Name = "Line5"
  3489. Line6
  3490. fl0409.Container1.Container1
  3491. =Height = 48
  3492. Left = 363
  3493. Top = 0
  3494. Width = 0
  3495. Name = "Line6"
  3496. label
  3497. label
  3498. Label11
  3499. fl0409.Container1.Container1
  3500. AutoSize = .T.
  3501. FontSize = 8
  3502. BackStyle = 0
  3503. Caption = "Reten
  3504. Height = 16
  3505. Left = 379
  3506. Top = 8
  3507. Width = 48
  3508. Name = "Label11"
  3509. label
  3510. label
  3511. Label12
  3512. fl0409.Container1.Container1
  3513. AutoSize = .T.
  3514. FontSize = 8
  3515. BackStyle = 0
  3516. Caption = "IRS"
  3517. Height = 16
  3518. Left = 394
  3519. Top = 23
  3520. Width = 18
  3521. Name = "Label12"
  3522. Line7
  3523. fl0409.Container1.Container1
  3524. >Height = 20
  3525. Left = 161
  3526. Top = 28
  3527. Width = 0
  3528. Name = "Line7"
  3529. Line8
  3530. fl0409.Container1.Container1
  3531. >Height = 0
  3532. Left = 81
  3533. Top = 28
  3534. Width = 118
  3535. Name = "Line8"
  3536. Line2
  3537. fl0409.Container1.Container1
  3538. =Height = 48
  3539. Left = 443
  3540. Top = 0
  3541. Width = 0
  3542. Name = "Line2"
  3543. label
  3544. label
  3545. Label13
  3546. fl0409.Container1.Container1
  3547. AutoSize = .T.
  3548. FontSize = 8
  3549. BackStyle = 0
  3550. Caption = "Contribui
  3551. es Obrigat
  3552. rias"
  3553. Height = 16
  3554. Left = 533
  3555. Top = 6
  3556. Width = 130
  3557. Name = "Label13"
  3558. Line9
  3559. fl0409.Container1.Container1
  3560. =Height = 48
  3561. Left = 735
  3562. Top = 0
  3563. Width = 0
  3564. Name = "Line9"
  3565. label
  3566. label
  3567. Label15
  3568. fl0409.Container1.Container1
  3569. AutoSize = .T.
  3570. FontSize = 8
  3571. BackStyle = 0
  3572. Caption = "Valores"
  3573. Height = 16
  3574. Left = 467
  3575. Top = 30
  3576. Width = 40
  3577. Name = "Label15"
  3578. label
  3579. label
  3580. Label16
  3581. fl0409.Container1.Container1
  3582. AutoSize = .T.
  3583. FontSize = 8
  3584. BackStyle = 0
  3585. Caption = "NIPC Entid.1"
  3586. Height = 16
  3587. Left = 530
  3588. Top = 30
  3589. Width = 59
  3590. Name = "Label16"
  3591. Line10
  3592. fl0409.Container1.Container1
  3593. ?Height = 20
  3594. Left = 522
  3595. Top = 28
  3596. Width = 0
  3597. Name = "Line10"
  3598. Line11
  3599. fl0409.Container1.Container1
  3600. @Height = 0
  3601. Left = 443
  3602. Top = 28
  3603. Width = 293
  3604. Name = "Line11"
  3605. label
  3606. label
  3607. Label17
  3608. fl0409.Container1.Container1
  3609. AutoSize = .T.
  3610. FontSize = 8
  3611. BackStyle = 0
  3612. Caption = "Quotiza
  3613. Height = 16
  3614. Left = 744
  3615. Top = 8
  3616. Width = 63
  3617. Name = "Label17"
  3618. label
  3619. label
  3620. Label18
  3621. fl0409.Container1.Container1
  3622. AutoSize = .T.
  3623. FontSize = 8
  3624. BackStyle = 0
  3625. Caption = "Sindicais"
  3626. Height = 16
  3627. Left = 753
  3628. Top = 23
  3629. Width = 45
  3630. Name = "Label18"
  3631. Line12
  3632. fl0409.Container1.Container1
  3633. >Height = 48
  3634. Left = 814
  3635. Top = 0
  3636. Width = 0
  3637. Name = "Line12"
  3638. label
  3639. label
  3640. Label19
  3641. fl0409.Container1.Container1
  3642. AutoSize = .T.
  3643. FontSize = 8
  3644. BackStyle = 0
  3645. Caption = "Reten
  3646. Height = 16
  3647. Left = 838
  3648. Top = 8
  3649. Width = 48
  3650. Name = "Label19"
  3651. label
  3652. label
  3653. Label20
  3654. fl0409.Container1.Container1
  3655. AutoSize = .T.
  3656. FontSize = 8
  3657. BackStyle = 0
  3658. Caption = "Sobretaxa"
  3659. Height = 16
  3660. Left = 836
  3661. Top = 23
  3662. Width = 52
  3663. Name = "Label20"
  3664. Line13
  3665. fl0409.Container1.Container1
  3666. ?Height = 20
  3667. Left = 593
  3668. Top = 28
  3669. Width = 0
  3670. Name = "Line13"
  3671. Line14
  3672. fl0409.Container1.Container1
  3673. ?Height = 20
  3674. Left = 664
  3675. Top = 28
  3676. Width = 0
  3677. Name = "Line14"
  3678. label
  3679. label
  3680. Label21
  3681. fl0409.Container1.Container1
  3682. AutoSize = .T.
  3683. FontSize = 8
  3684. BackStyle = 0
  3685. Caption = "NIPC Entid.2"
  3686. Height = 16
  3687. Left = 599
  3688. Top = 30
  3689. Width = 59
  3690. Name = "Label21"
  3691. label
  3692. label
  3693. Label22
  3694. fl0409.Container1.Container1
  3695. AutoSize = .T.
  3696. FontSize = 8
  3697. BackStyle = 0
  3698. Caption = "NIPC Entid.3"
  3699. Height = 16
  3700. Left = 671
  3701. Top = 30
  3702. Width = 59
  3703. Name = "Label22"
  3704. shape
  3705. shape
  3706. Shape15
  3707. fl0409.Container1
  3708. ZTop = 112
  3709. Left = 6
  3710. Height = 39
  3711. Width = 255
  3712. BackColor = 255,255,255
  3713. Name = "Shape15"
  3714. shape
  3715. shape
  3716. Shape1
  3717. fl0409.Container1
  3718. STop = 50
  3719. Left = 404
  3720. Height = 17
  3721. Width = 22
  3722. BackColor = 0,0,0
  3723. Name = "Shape1"
  3724. shape
  3725. shape
  3726. Shape2
  3727. fl0409.Container1
  3728. STop = 50
  3729. Left = 507
  3730. Height = 17
  3731. Width = 22
  3732. BackColor = 0,0,0
  3733. Name = "Shape2"
  3734. shape
  3735. shape
  3736. Shape3
  3737. fl0409.Container1
  3738. STop = 50
  3739. Left = 610
  3740. Height = 17
  3741. Width = 22
  3742. BackColor = 0,0,0
  3743. Name = "Shape3"
  3744. shape
  3745. shape
  3746. Shape4
  3747. fl0409.Container1
  3748. STop = 50
  3749. Left = 713
  3750. Height = 17
  3751. Width = 22
  3752. BackColor = 0,0,0
  3753. Name = "Shape4"
  3754. label
  3755. label
  3756. Label2
  3757. fl0409.Container1
  3758. AutoSize = .T.
  3759. FontBold = .T.
  3760. FontSize = 7
  3761. BackStyle = 0
  3762. Caption = "02"
  3763. Height = 13
  3764. Left = 512
  3765. Top = 53
  3766. Width = 12
  3767. TabIndex = 46
  3768. ForeColor = 255,255,255
  3769. Name = "Label2"
  3770. label
  3771. label
  3772. Label3
  3773. fl0409.Container1
  3774. AutoSize = .T.
  3775. FontBold = .T.
  3776. FontSize = 7
  3777. BackStyle = 0
  3778. Caption = "03"
  3779. Height = 13
  3780. Left = 615
  3781. Top = 53
  3782. Width = 12
  3783. TabIndex = 49
  3784. ForeColor = 255,255,255
  3785. Name = "Label3"
  3786. label
  3787. label
  3788. Label4
  3789. fl0409.Container1
  3790. AutoSize = .T.
  3791. FontBold = .T.
  3792. FontSize = 7
  3793. BackStyle = 0
  3794. Caption = "04"
  3795. Height = 13
  3796. Left = 718
  3797. Top = 53
  3798. Width = 12
  3799. TabIndex = 51
  3800. ForeColor = 255,255,255
  3801. Name = "Label4"
  3802. textbox
  3803. textbox
  3804. V0101
  3805. fl0409.Container1
  3806. aFontSize = 8
  3807. Alignment = 3
  3808. BorderStyle = 1
  3809. Value = 0
  3810. ControlSource = "fl0409_v0101"
  3811. Format = "R"
  3812. Height = 19
  3813. InputMask = "9 999 999.99"
  3814. Left = 404
  3815. ReadOnly = .T.
  3816. SelectOnEntry = .T.
  3817. SpecialEffect = 1
  3818. TabIndex = 37
  3819. Top = 78
  3820. Width = 104
  3821. DisabledBackColor = 255,255,255
  3822. DisabledForeColor = 0,0,0
  3823. BorderColor = 192,192,192
  3824. Name = "V0101"
  3825. 7PROCEDURE InteractiveChange
  3826. thisform.soma
  3827. ENDPROC
  3828. AutoSize = .T.
  3829. FontSize = 6
  3830. BackStyle = 0
  3831. Caption = "TIPO DE DECLARA
  3832. Height = 12
  3833. Left = 213
  3834. Top = 435
  3835. Width = 89
  3836. TabIndex = 60
  3837. Name = "Label38"
  3838. label
  3839. fl0409.Container1
  3840. Label5
  3841. textbox
  3842. textbox
  3843. Text5
  3844. fl0409.Container1
  3845. FontBold = .T.
  3846. FontSize = 9
  3847. ControlSource = "fl0409_ano"
  3848. Format = "R"
  3849. Height = 19
  3850. InputMask = "9999"
  3851. Left = 101
  3852. SpecialEffect = 1
  3853. TabIndex = 7
  3854. Top = 129
  3855. Width = 40
  3856. BackColor = 255,215,215
  3857. ZOrderSet = 11
  3858. Name = "Text5"
  3859. LPROCEDURE Valid
  3860. thisform.container1.combo1.InteractiveChange()
  3861. ENDPROC
  3862. AutoSize = .T.
  3863. FontSize = 6
  3864. BackStyle = 0
  3865. Caption = "6"
  3866. Height = 12
  3867. Left = 13
  3868. Top = 435
  3869. Width = 6
  3870. TabIndex = 59
  3871. Name = "Label5"
  3872. label
  3873. label
  3874. >Height = 0
  3875. Left = 7
  3876. Top = 446
  3877. Width = 17
  3878. Name = "Line23"
  3879. textbox
  3880. textbox
  3881. V0201
  3882. fl0409.Container1
  3883. aFontSize = 8
  3884. Alignment = 3
  3885. BorderStyle = 1
  3886. Value = 0
  3887. ControlSource = "fl0409_v0201"
  3888. Format = "R"
  3889. Height = 19
  3890. InputMask = "9 999 999.99"
  3891. Left = 404
  3892. ReadOnly = .T.
  3893. SelectOnEntry = .T.
  3894. SpecialEffect = 1
  3895. TabIndex = 45
  3896. Top = 96
  3897. Width = 104
  3898. DisabledBackColor = 255,255,255
  3899. DisabledForeColor = 0,0,0
  3900. BorderColor = 192,192,192
  3901. Name = "V0201"
  3902. 7PROCEDURE InteractiveChange
  3903. thisform.soma
  3904. ENDPROC
  3905. fl0409.Container1
  3906. Line23
  3907. [Top = 433
  3908. Left = 24
  3909. Height = 14
  3910. Width = 446
  3911. BackColor = 230,230,230
  3912. Name = "Shape29"
  3913. fl0409.Container1
  3914. Shape29
  3915. shape
  3916. textbox
  3917. textbox
  3918. V0301
  3919. fl0409.Container1
  3920. bFontSize = 8
  3921. Alignment = 3
  3922. BorderStyle = 1
  3923. Value = 0
  3924. ControlSource = "fl0409_v0301"
  3925. Format = "R"
  3926. Height = 19
  3927. InputMask = "9 999 999.99"
  3928. Left = 404
  3929. ReadOnly = .T.
  3930. SelectOnEntry = .T.
  3931. SpecialEffect = 1
  3932. TabIndex = 48
  3933. Top = 114
  3934. Width = 104
  3935. DisabledBackColor = 255,255,255
  3936. DisabledForeColor = 0,0,0
  3937. BorderColor = 192,192,192
  3938. Name = "V0301"
  3939. 7PROCEDURE InteractiveChange
  3940. thisform.soma
  3941. ENDPROC
  3942. shape
  3943. YTop = 433
  3944. Left = 6
  3945. Height = 66
  3946. Width = 464
  3947. BackColor = 255,255,255
  3948. Name = "Shape5"
  3949. fl0409.Container1
  3950. Shape5
  3951. shape
  3952. shape
  3953. fl0409.Container1
  3954. Line22
  3955. textbox
  3956. textbox
  3957. V0401
  3958. fl0409.Container1
  3959. `FontSize = 8
  3960. Alignment = 3
  3961. BorderStyle = 1
  3962. Value = 0
  3963. ControlSource = "fl0409_v0401"
  3964. Format = "R"
  3965. Height = 19
  3966. InputMask = "9 999 999.99"
  3967. Left = 404
  3968. ReadOnly = .T.
  3969. SelectOnEntry = .T.
  3970. SpecialEffect = 1
  3971. TabIndex = 56
  3972. Top = 132
  3973. Width = 104
  3974. BackColor = 220,220,220
  3975. DisabledBackColor = 220,220,220
  3976. BorderColor = 192,192,192
  3977. Name = "V0401"
  3978. shape
  3979. shape
  3980. Shape14
  3981. fl0409.Container1
  3982. XTop = 5
  3983. Left = 6
  3984. Height = 27
  3985. Width = 914
  3986. BackColor = 255,255,255
  3987. Name = "Shape14"
  3988. label
  3989. label
  3990. Label14
  3991. fl0409.Container1
  3992. AutoSize = .T.
  3993. FontBold = .T.
  3994. FontSize = 10
  3995. BackStyle = 0
  3996. Caption = "DECLARA
  3997. OP MENSAL DE REMUNERA
  3998. ES (AT)"
  3999. Height = 18
  4000. Left = 304
  4001. Top = 11
  4002. Width = 320
  4003. TabIndex = 11
  4004. Name = "Label14"
  4005. shape
  4006. shape
  4007. Shape16
  4008. fl0409.Container1
  4009. YTop = 74
  4010. Left = 6
  4011. Height = 39
  4012. Width = 255
  4013. BackColor = 255,255,255
  4014. Name = "Shape16"
  4015. shape
  4016. shape
  4017. Shape17
  4018. fl0409.Container1
  4019. ZTop = 74
  4020. Left = 24
  4021. Height = 14
  4022. Width = 237
  4023. BackColor = 230,230,230
  4024. Name = "Shape17"
  4025. Line1
  4026. fl0409.Container1
  4027. <Height = 0
  4028. Left = 7
  4029. Top = 87
  4030. Width = 17
  4031. Name = "Line1"
  4032. label
  4033. label
  4034. Label17
  4035. fl0409.Container1
  4036. AutoSize = .T.
  4037. FontSize = 6
  4038. BackStyle = 0
  4039. Caption = "2"
  4040. Height = 12
  4041. Left = 13
  4042. Top = 76
  4043. Width = 6
  4044. TabIndex = 12
  4045. Name = "Label17"
  4046. label
  4047. label
  4048. Label18
  4049. fl0409.Container1
  4050. AutoSize = .T.
  4051. FontSize = 6
  4052. BackStyle = 0
  4053. Caption = "NUMERO DE IDENTIFICA
  4054. O FISCAL"
  4055. Height = 12
  4056. Left = 33
  4057. Top = 76
  4058. Width = 143
  4059. TabIndex = 13
  4060. Name = "Label18"
  4061. textbox
  4062. textbox
  4063. J_NIF
  4064. fl0409.Container1
  4065. FontBold = .T.
  4066. FontSize = 9
  4067. Alignment = 2
  4068. BorderStyle = 1
  4069. Value = 
  4070. ControlSource = "fl0409_nif"
  4071. Format = "R"
  4072. Height = 19
  4073. InputMask = "999 999 999"
  4074. Left = 70
  4075. SelectOnEntry = .T.
  4076. SpecialEffect = 1
  4077. TabIndex = 6
  4078. Top = 90
  4079. Width = 145
  4080. BorderColor = 0,0,0
  4081. Name = "J_NIF"
  4082. shape
  4083. shape
  4084. Shape18
  4085. fl0409.Container1
  4086. STop = 90
  4087. Left = 52
  4088. Height = 19
  4089. Width = 18
  4090. BackColor = 0,0,0
  4091. Name = "Shape18"
  4092. label
  4093. label
  4094. Label19
  4095. fl0409.Container1
  4096. AutoSize = .T.
  4097. FontBold = .T.
  4098. FontSize = 8
  4099. BackStyle = 0
  4100. Caption = "02"
  4101. Height = 16
  4102. Left = 55
  4103. Top = 92
  4104. Width = 14
  4105. TabIndex = 5
  4106. ForeColor = 255,255,255
  4107. Name = "Label19"
  4108. Line2
  4109. fl0409.Container1
  4110. =Height = 0
  4111. Left = 6
  4112. Top = 125
  4113. Width = 17
  4114. Name = "Line2"
  4115. label
  4116. label
  4117. Label20
  4118. fl0409.Container1
  4119. AutoSize = .T.
  4120. FontSize = 6
  4121. BackStyle = 0
  4122. Caption = "3"
  4123. Height = 12
  4124. Left = 13
  4125. Top = 114
  4126. Width = 6
  4127. TabIndex = 14
  4128. Name = "Label20"
  4129. shape
  4130. shape
  4131. Shape19
  4132. fl0409.Container1
  4133. [Top = 112
  4134. Left = 23
  4135. Height = 14
  4136. Width = 238
  4137. BackColor = 230,230,230
  4138. Name = "Shape19"
  4139. label
  4140. label
  4141. Label21
  4142. fl0409.Container1
  4143. AutoSize = .T.
  4144. FontSize = 6
  4145. BackStyle = 0
  4146. Caption = "PERIODO A QUE RESPEITA"
  4147. Height = 12
  4148. Left = 53
  4149. Top = 114
  4150. Width = 104
  4151. TabIndex = 15
  4152. Name = "Label21"
  4153. shape
  4154. shape
  4155. Shape20
  4156. fl0409.Container1
  4157. TTop = 129
  4158. Left = 84
  4159. Height = 19
  4160. Width = 18
  4161. BackColor = 0,0,0
  4162. Name = "Shape20"
  4163. label
  4164. label
  4165. Label22
  4166. fl0409.Container1
  4167. AutoSize = .T.
  4168. FontBold = .T.
  4169. FontSize = 8
  4170. BackStyle = 0
  4171. Caption = "03"
  4172. Height = 16
  4173. Left = 88
  4174. Top = 131
  4175. Width = 14
  4176. TabIndex = 16
  4177. ForeColor = 255,255,255
  4178. Name = "Label22"
  4179. shape
  4180. shape
  4181. Shape24
  4182. fl0409.Container1
  4183. [Top = 35
  4184. Left = 291
  4185. Height = 16
  4186. Width = 629
  4187. BackColor = 230,230,230
  4188. Name = "Shape24"
  4189. Line7
  4190. fl0409.Container1
  4191. >Height = 0
  4192. Left = 274
  4193. Top = 50
  4194. Width = 17
  4195. Name = "Line7"
  4196. label
  4197. label
  4198. Label30
  4199. fl0409.Container1
  4200. AutoSize = .T.
  4201. FontSize = 7
  4202. BackStyle = 0
  4203. Caption = "4"
  4204. Height = 14
  4205. Left = 280
  4206. Top = 37
  4207. Width = 7
  4208. TabIndex = 17
  4209. Name = "Label30"
  4210. label
  4211. label
  4212. Label31
  4213. fl0409.Container1
  4214. AutoSize = .T.
  4215. FontSize = 7
  4216. BackStyle = 0
  4217. Caption = "IMPORT
  4218. NCIAS RETIDAS"
  4219. Height = 14
  4220. Left = 569
  4221. Top = 38
  4222. Width = 115
  4223. TabIndex = 18
  4224. Name = "Label31"
  4225. label
  4226. label
  4227. Label32
  4228. fl0409.Container1
  4229. AutoSize = .T.
  4230. FontBold = .T.
  4231. FontSize = 7
  4232. BackStyle = 0
  4233. Caption = "TRABALHO DEPENDENTE"
  4234. Height = 13
  4235. Left = 279
  4236. Top = 59
  4237. Width = 117
  4238. TabIndex = 19
  4239. Name = "Label32"
  4240. label
  4241. label
  4242. Label33
  4243. fl0409.Container1
  4244. AutoSize = .T.
  4245. FontSize = 7
  4246. BackStyle = 0
  4247. Caption = "Valor dos"
  4248. Height = 14
  4249. Left = 448
  4250. Top = 54
  4251. Width = 41
  4252. TabIndex = 22
  4253. Name = "Label33"
  4254. Line8
  4255. fl0409.Container1
  4256. ZHeight = 0
  4257. Left = 274
  4258. Top = 96
  4259. Width = 134
  4260. BorderColor = 192,192,192
  4261. Name = "Line8"
  4262. Line9
  4263. fl0409.Container1
  4264. [Height = 0
  4265. Left = 274
  4266. Top = 114
  4267. Width = 134
  4268. BorderColor = 192,192,192
  4269. Name = "Line9"
  4270. Line10
  4271. fl0409.Container1
  4272. \Height = 0
  4273. Left = 274
  4274. Top = 132
  4275. Width = 134
  4276. BorderColor = 192,192,192
  4277. Name = "Line10"
  4278. label
  4279. label
  4280. Label34
  4281. fl0409.Container1
  4282. AutoSize = .T.
  4283. FontSize = 8
  4284. BackStyle = 0
  4285. Caption = "Rendimentos Sujeitos"
  4286. Height = 16
  4287. Left = 283
  4288. Top = 81
  4289. Width = 105
  4290. TabIndex = 44
  4291. Name = "Label34"
  4292. label
  4293. label
  4294. Label35
  4295. fl0409.Container1
  4296. AutoSize = .T.
  4297. FontSize = 8
  4298. BackStyle = 0
  4299. Caption = "Rendimentos Isentos"
  4300. Height = 16
  4301. Left = 283
  4302. Top = 99
  4303. Width = 102
  4304. TabIndex = 47
  4305. Name = "Label35"
  4306. label
  4307. label
  4308. Label37
  4309. fl0409.Container1
  4310. AutoSize = .T.
  4311. FontSize = 8
  4312. BackStyle = 0
  4313. Caption = "Rendim. N
  4314. o Sujeitos"
  4315. Height = 16
  4316. Left = 283
  4317. Top = 117
  4318. Width = 103
  4319. TabIndex = 50
  4320. Name = "Label37"
  4321. label
  4322. label
  4323. Label39
  4324. fl0409.Container1
  4325. AutoSize = .T.
  4326. FontSize = 8
  4327. BackStyle = 0
  4328. Caption = "Total"
  4329. Height = 16
  4330. Left = 283
  4331. Top = 135
  4332. Width = 25
  4333. TabIndex = 53
  4334. Name = "Label39"
  4335. shape
  4336. shape
  4337. Shape26
  4338. fl0409.Container1
  4339. YTop = 35
  4340. Left = 6
  4341. Height = 40
  4342. Width = 255
  4343. BackColor = 255,255,255
  4344. Name = "Shape26"
  4345. shape
  4346. shape
  4347. Shape27
  4348. fl0409.Container1
  4349. ZTop = 35
  4350. Left = 24
  4351. Height = 14
  4352. Width = 237
  4353. BackColor = 230,230,230
  4354. Name = "Shape27"
  4355. Line21
  4356. fl0409.Container1
  4357. =Height = 0
  4358. Left = 7
  4359. Top = 48
  4360. Width = 17
  4361. Name = "Line21"
  4362. label
  4363. label
  4364. Label15
  4365. fl0409.Container1
  4366. AutoSize = .T.
  4367. FontSize = 6
  4368. BackStyle = 0
  4369. Caption = "1"
  4370. Height = 12
  4371. Left = 13
  4372. Top = 37
  4373. Width = 6
  4374. TabIndex = 1
  4375. Name = "Label15"
  4376. label
  4377. label
  4378. Label16
  4379. fl0409.Container1
  4380. AutoSize = .T.
  4381. FontSize = 6
  4382. BackStyle = 0
  4383. Caption = "SERV. FINAN
  4384. REA DO DOMIC
  4385. Height = 12
  4386. Left = 29
  4387. Top = 37
  4388. Width = 147
  4389. TabIndex = 2
  4390. Name = "Label16"
  4391. textbox
  4392. textbox
  4393. J_FIN
  4394. fl0409.Container1
  4395. FontBold = .T.
  4396. FontSize = 9
  4397. Alignment = 2
  4398. BorderStyle = 1
  4399. Value = 
  4400. ControlSource = "fl0409_j_fin"
  4401. Format = "R"
  4402. Height = 19
  4403. InputMask = "9999"
  4404. Left = 178
  4405. SelectOnEntry = .T.
  4406. SpecialEffect = 1
  4407. TabIndex = 4
  4408. Top = 52
  4409. Width = 59
  4410. BorderColor = 0,0,0
  4411. Name = "J_FIN"
  4412. shape
  4413. shape
  4414. Shape28
  4415. fl0409.Container1
  4416. TTop = 52
  4417. Left = 160
  4418. Height = 19
  4419. Width = 18
  4420. BackColor = 0,0,0
  4421. Name = "Shape28"
  4422. label
  4423. label
  4424. Label49
  4425. fl0409.Container1
  4426. AutoSize = .T.
  4427. FontBold = .T.
  4428. FontSize = 8
  4429. BackStyle = 0
  4430. Caption = "01"
  4431. Height = 16
  4432. Left = 163
  4433. Top = 53
  4434. Width = 14
  4435. TabIndex = 3
  4436. ForeColor = 255,255,255
  4437. Name = "Label49"
  4438. label
  4439. label
  4440. Label50
  4441. fl0409.Container1
  4442. AutoSize = .T.
  4443. FontSize = 8
  4444. BackStyle = 0
  4445. Caption = "C
  4446. digo Servi
  4447. o Finan
  4448. Height = 16
  4449. Left = 30
  4450. Top = 55
  4451. Width = 122
  4452. TabIndex = 9
  4453. Name = "Label50"
  4454. ?Height = 29
  4455. Left = 404
  4456. Top = 50
  4457. Width = 0
  4458. Name = "Line22"
  4459. FontSize = 7
  4460. Alignment = 2
  4461. BorderStyle = 1
  4462. Value = {}
  4463. ControlSource = "fl0409_j_dobrig"
  4464. Format = "R"
  4465. Height = 16
  4466. InputMask = ""
  4467. Left = 372
  4468. SelectOnEntry = .T.
  4469. SpecialEffect = 1
  4470. TabIndex = 78
  4471. Top = 479
  4472. Width = 81
  4473. BorderColor = 0,0,0
  4474. Name = "J_DOBRIG"
  4475. FL0409_NIF_LEGAL
  4476. FL0409_J_FIN
  4477. FL0409_NIF
  4478. FL0409_1DECL
  4479. FL0409_ART119
  4480. FL0409_J_DOBRIG
  4481. FL0409_J_TOC
  4482. empresa
  4483. key_1
  4484. comuns\wtoc.dbf
  4485. key_1
  4486. key_1
  4487. LNTOC
  4488. P_CODEMP
  4489. FL0409_NIF_LEGAL
  4490. EMPRESA    
  4491. NIF_LEGAL
  4492. FL0409_J_FIN
  4493. CODREP
  4494. FL0409_NIF
  4495. IDTOC
  4496. P_PATH
  4497. KEY_1
  4498. XSEEK
  4499. FL0409_J_TOC
  4500. FL0409_V0101
  4501. FL0409_V0102
  4502. FL0409_V0103
  4503. FL0409_V0104
  4504. FL0409_V0105
  4505. FL0409_V0201
  4506. FL0409_V0202
  4507. FL0409_V0203
  4508. FL0409_V0204
  4509. FL0409_V0205
  4510. FL0409_V0301
  4511. FL0409_V0302
  4512. FL0409_V0303
  4513. FL0409_V0304
  4514. FL0409_V0305
  4515. FL0409_V0401
  4516. FL0409_V0402
  4517. FL0409_V0403
  4518. FL0409_V0404
  4519. FL0409_V0405n
  4520. cs99_listagem
  4521. cs_totais
  4522. THISFORM
  4523. X_GET_GRUPO_SOMA    
  4524. TIPO_REND
  4525. REND_ANTERIOR
  4526. REND_ANO
  4527. C_V0101
  4528. RETIDO
  4529. C_V0102
  4530. CONTRIB
  4531. C_V0103    
  4532. SINDICATO
  4533. C_V0104    
  4534. SOBRETAXA
  4535. C_V0105
  4536. C_V0201
  4537. C_V0202
  4538. C_V0203
  4539. C_V0204
  4540. C_V0205
  4541. C_V0301
  4542. C_V0302
  4543. C_V0303
  4544. C_V0304
  4545. C_V0305
  4546. CS99_LISTAGEM    
  4547. CS_TOTAIS
  4548. FL0409_V0101
  4549. FL0409_V0102
  4550. FL0409_V0103
  4551. FL0409_V0104
  4552. FL0409_V0105
  4553. FL0409_V0201
  4554. FL0409_V0202
  4555. FL0409_V0203
  4556. FL0409_V0204
  4557. FL0409_V0205
  4558. FL0409_V0301
  4559. FL0409_V0302
  4560. FL0409_V0303
  4561. FL0409_V0304
  4562. FL0409_V0305
  4563. FL0409_V0401
  4564. FL0409_V0402
  4565. FL0409_V0403
  4566. FL0409_V0404
  4567. FL0409_V0405
  4568. _LANC
  4569. _INDEP
  4570. LNLANC
  4571. LNINDEP
  4572. LBRETS
  4573. _PROCE
  4574. _ESTATIS    
  4575. LBRET_M39
  4576. _DESC
  4577. _DATA
  4578. LNANO    
  4579. LNPOS_INI    
  4580. LNPOS_FIM
  4581. _PROC
  4582. _ABONO
  4583. _TIPO
  4584. LBRET
  4585. _DESC
  4586. LCDESC
  4587. LCRET
  4588. LNLOC
  4589. _XPROC
  4590. _XCAT_REND
  4591. _XDESC
  4592. LCRET
  4593. X_GET_SUBTIPO
  4594. cs99_listagem
  4595. _ZONA
  4596. _TIPO_REND
  4597. _REND_ANTERIOR
  4598. _ANOS    
  4599. _REND_ANO
  4600. _RETIDO
  4601. _CONTRIB
  4602. _CONTRIB_NIPC1
  4603. _CONTRIB_NIPC2
  4604. _CONTRIB_NIPC3
  4605. _SINDICATO
  4606. _SOBRETAXA
  4607. ZONA    
  4608. TIPO_REND
  4609. REND_ANTERIOR
  4610. REND_ANO
  4611. RETIDO
  4612. CONTRIB
  4613. CONTRIB_NIPC1
  4614. CONTRIB_NIPC2
  4615. CONTRIB_NIPC3    
  4616. SINDICATO    
  4617. SOBRETAXA
  4618. cs95_listagem
  4619. _INIF
  4620. _ITIPO_REND
  4621. _IZONA
  4622. _IANO_REPORTE
  4623. _IVALOR
  4624. _IV_IRS
  4625. _IV_TSU
  4626. _IV_ADSE
  4627. _IV_CGA
  4628. _IV_SINDICATO
  4629. _IV_SOBRETAXA    
  4630. _ISUJ_IRS    
  4631. _ISUJ_TSU
  4632. _ISUJ_ADSE    
  4633. _ISUJ_CGA
  4634. _ISUJ_SINDICATO
  4635. _ISUJ_SOBRETAXA
  4636. TIPO_REND
  4637. ANO_REPORTE
  4638. VALOR
  4639. V_IRS
  4640. V_TSU
  4641. V_ADSE
  4642. V_CGA
  4643. V_SINDICATO
  4644. V_SOBRETAXA
  4645. SUJ_IRS
  4646. SUJ_TSU
  4647. SUJ_ADSE
  4648. SUJ_CGA
  4649. SUJ_SINDICATO
  4650. SUJ_SOBRETAXA
  4651. _VALOR
  4652. LBRET
  4653. CHK_DESCONTO
  4654. cs_descontos_x
  4655. _TIPO_REND
  4656. _V_IRS
  4657. _V_TSU
  4658. _V_ADSE
  4659. _V_CGA
  4660. _V_SINDICATO
  4661. _V_SOBRETAXA
  4662. _SUJ_IRS
  4663. _SUJ_TSU    
  4664. _SUJ_ADSE
  4665. _SUJ_CGA
  4666. _SUJ_SINDICATO
  4667. _SUJ_SOBRETAXA
  4668. TIPO_REND
  4669. V_IRS
  4670. V_TSU
  4671. V_ADSE
  4672. V_CGA
  4673. V_SINDICATO
  4674. V_SOBRETAXA
  4675. SUJ_IRS
  4676. SUJ_TSU
  4677. SUJ_ADSE
  4678. SUJ_CGA
  4679. SUJ_SINDICATO
  4680. SUJ_SOBRETAXAs
  4681. _TIPO_REND
  4682. PNDES_V_IRS
  4683. PNDES_TOT_IRS
  4684. CS_DESCONTOS
  4685. V_IRS
  4686. PNINCID_SUJ_IRS
  4687. PNINCID_SUJ_TSU
  4688. PNINCID_SUJ_ADSE
  4689. PNINCID_SUJ_CGA
  4690. PNINCID_SUJ_SINDICATO
  4691. PNINCID_SUJ_SOBRETAXA
  4692. CS95_LISTAGEM
  4693. SUJ_IRS
  4694. SUJ_TSU
  4695. SUJ_ADSE
  4696. SUJ_CGA
  4697. SUJ_SINDICATO
  4698. SUJ_SOBRETAXA
  4699. _VALOR
  4700. _TOTAL
  4701. _DESCONTADO
  4702. LNRET]
  4703. Aguade um momento...
  4704. 001ASCII02CCCC$iZ
  4705. CCC$H
  4706. @l 99_
  4707. CCC$%
  4708. @l 99_
  4709. 002DMR-AT
  4710. 00000000
  4711. @L 9999_
  4712. @L 99_
  4713. @L 99_
  4714. 000000000
  4715. 000000000
  4716. @L 9999999_
  4717. @L 9999_
  4718. 000000000
  4719. 000000000
  4720. 000000000
  4721. @L 9999999_
  4722. @L 999999999_
  4723. @L 999999999_
  4724. Entidade: C
  4725. A grava
  4726. o do ficheiro n
  4727. o foi efetuada corretamente.
  4728. Provavelmente o ficheiro est
  4729.  aberto noutra aplica
  4730. _DESTINO    
  4731. LCDESTINO
  4732. LCANO
  4733. LCMES
  4734. LDDATA_ALTERA
  4735. LCNIF
  4736. LNLINHA
  4737. LNTOTAL_RETIDAS
  4738. LNTOTAL_ANO
  4739. LNTOTAL_ANTERIORES
  4740. LNTOTAL_CONTRIBUICOES
  4741. LNTOTAL_SINDICATO
  4742. LNTOTAL_SOBRETAXA
  4743. FILEHANDLE
  4744. _TRDETALHE
  4745. _TRDECLARACAO
  4746. _TRFICHEIRO
  4747. LBGRAVACAO_OK
  4748. LNBYTES
  4749. THISFORM
  4750. CONTAINER1
  4751. J_NIF
  4752. VALUE
  4753. TEXT5
  4754. COMBO1
  4755. ENTIDADE_INI
  4756. P_CODEMP
  4757. J_DOBRIG
  4758. J_FIN
  4759. CHECK1
  4760. CHECK3
  4761. J_TOC
  4762. J_LEGAL
  4763. LZEROS_S_DMR
  4764. V0101
  4765. V0102
  4766. V0103
  4767. V0104
  4768. V0105
  4769. V0201
  4770. V0202
  4771. V0203
  4772. V0204
  4773. V0205
  4774. V0301
  4775. V0302
  4776. V0303
  4777. V0304
  4778. V0305
  4779. V0401
  4780. V0402
  4781. V0403
  4782. V0404
  4783. V0405
  4784. CS99_LISTAGEM
  4785. REND_ANTERIOR
  4786. REND_ANO
  4787. RETIDO
  4788. CONTRIB    
  4789. SINDICATO    
  4790. SOBRETAXA
  4791. ANOS    
  4792. TIPO_REND
  4793. CONTRIB_NIPC1
  4794. CONTRIB_NIPC2
  4795. CONTRIB_NIPC3
  4796. GRAVACAO_OK
  4797. _TIPO_REND
  4798. LCTIPO
  4799. LNRET    
  4800. LCSUBTIPO
  4801. indep
  4802. funci
  4803. cs_nif_colaboradores
  4804. FUNCI
  4805. INDEP
  4806. CS_NIF_COLABORADORES
  4807. KEY_1
  4808. CS99_LISTAGEM
  4809. CS_NIF_COLABORADORES
  4810. _FILE
  4811. LCRET
  4812. P_SS_POR_CODIGO
  4813. P_CODEMP
  4814. EMPRESA
  4815. FL0409_ANO
  4816. FL0409_MESm
  4817. _VALOR
  4818. _TOTAL
  4819. _DESCONTADO
  4820. LNRETW
  4821. _XPROC
  4822. _XABONO
  4823. _TPABONO
  4824. _UNIDADE
  4825. _TIPO
  4826. LBRET
  4827. PNDES_V_TSU
  4828. PNDES_V_ADSE
  4829. PNDES_V_CGA
  4830. PNDES_V_SINDICATO
  4831. PNDES_V_SOBRETAXA
  4832. PNDES_TOT_TSU
  4833. PNDES_TOT_ADSE
  4834. PNDES_TOT_CGA
  4835. PNDES_TOT_SINDICATO
  4836. PNDES_TOT_SOBRETAXA
  4837. CS_DESCONTOS_TOTAL_TSU
  4838. V_TSU
  4839. V_ADSE
  4840. V_CGA
  4841. V_SINDICATO
  4842. V_SOBRETAXA
  4843. empresa
  4844. key_1
  4845. A declara
  4846. o est
  4847.  vazia!
  4848. fl0409_3
  4849. .codigo
  4850. funci
  4851. indep
  4852. tproc
  4853. movim
  4854. empresa
  4855. key_1
  4856. funci
  4857. indep
  4858. tproc
  4859. movim
  4860. empresa
  4861. key_1
  4862. o do Ficheiro efectuada...
  4863. _IMPVIS
  4864. LBIMPVIS
  4865. T_ORD
  4866. LCENTID
  4867. LCFILE
  4868. XSEEK
  4869. P_CODEMP
  4870. THISFORM
  4871. NRLINHAS    
  4872. MAGNETICO
  4873. P_PATH_DESTINO
  4874. FL0409_3
  4875. FICHEIRO
  4876. CURSOR_NIF
  4877. _REPORTNAME
  4878. CURSOR_NIF_X
  4879. THIS    
  4880. CHK_ENTID
  4881. VALUE
  4882. CONTAINER1    
  4883. COBERTURA
  4884. HEIGHT
  4885. WIDTH
  4886. VISIBLE
  4887. CSENTIDADES1
  4888. CURSOR
  4889. VALIDO
  4890. FUNCI
  4891. INDEP
  4892. TPROC
  4893. MOVIM
  4894. P_TAB_FUNCIONARIOS
  4895. P_TAB_INDEPENDENTES
  4896. P_TAB_PROCESSAMENTOS
  4897. P_TAB_MOVIMENTOS
  4898. P_FIRMA
  4899. EMPRESA
  4900. FIRMA
  4901. LIMPA_TOTAIS    
  4902. LIMPA_CAB
  4903. GET_CAB
  4904. _SELECT
  4905. GET_FILENAME_SERIE
  4906. GRAVACAO_OK
  4907. RELEASE
  4908. Aguarde um momento...
  4909. cs95_listagem
  4910. cs_descontos_x
  4911. indep
  4912. funci
  4913. CCCCC
  4914. #!DMRAT=0C
  4915. cs_funcionarios
  4916. movimQ
  4917. tprocQ
  4918. cs_funcionariosQ
  4919. cs_retencoes_1
  4920. movimQ
  4921. tprocQ
  4922. cs_funcionariosQ
  4923. cs_retencoes_1
  4924. A  66
  4925. A  66
  4926. A  66
  4927. cs_descontos_x
  4928. cs_descontos
  4929. key_1
  4930. cs_descontos
  4931. cs_descontos_total_tsu
  4932. key_1
  4933. cs95_listagem
  4934. cs95_ano_corrente
  4935. cs95_listagem
  4936. cs95_anos_anteriores
  4937. cs95_anos_anteriores
  4938. cs95_ano_corrente
  4939. cs96_listagem
  4940. cs96_listagem
  4941. cs95_listagem
  4942. cs_descontos
  4943. cs95_listagem
  4944. cs_nif_topo
  4945. cs_descontos
  4946. cs95_listagem
  4947. cs_nif
  4948. cs_nif
  4949. _REPORTNAME
  4950. _IMPVIS
  4951. LCREPORTNAME
  4952. LBIMPVIS
  4953. LNANO_CONTROLO
  4954. LCNIF_CONTROLO
  4955. LNTRAB
  4956. LNVAZIO
  4957. LC_INIF
  4958. LC_ITIPO_REND
  4959. LC_IZONA
  4960. LN_IANO_REPORTE    
  4961. LN_IVALOR
  4962. LN_IDESCONT
  4963. LN_ISUJ_IRS
  4964. LN_ISUJ_TSU
  4965. LN_ISUJ_ADSE
  4966. LN_ISUJ_CGA
  4967. LN_ISUJ_SINDICATO
  4968. LN_ISUJ_SOBRETAXA    
  4969. LN_IV_IRS    
  4970. LN_IV_TSU
  4971. LN_IV_ADSE    
  4972. LN_IV_CGA
  4973. LN_IV_SINDICATO
  4974. LN_IV_SOBRETAXA    
  4975. LCLIN_NIF
  4976. LNLIN_REND
  4977. LCLIN_ZONA
  4978. LCLIN_TIPO_REND
  4979. LNLIN_REND_ANTERIOR
  4980. LNLIN_ANOS
  4981. LNLIN_REND_ANO
  4982. LNLIN_RETIDO
  4983. LNLIN_CONTRIB
  4984. LCLIN_CONTRIB_NIPC1
  4985. LCLIN_CONTRIB_NIPC2
  4986. LCLIN_CONTRIB_NIPC3
  4987. LNLIN_SINDICATO
  4988. LNLIN_SOBRETAXA
  4989. LCCPTS
  4990. PNDES_V_IRS
  4991. PNDES_V_TSU
  4992. PNDES_V_ADSE
  4993. PNDES_V_CGA
  4994. PNDES_V_SINDICATO
  4995. PNDES_V_SOBRETAXA
  4996. PNDES_TOT_IRS
  4997. PNDES_TOT_TSU
  4998. PNDES_TOT_ADSE
  4999. PNDES_TOT_CGA
  5000. PNDES_TOT_SINDICATO
  5001. PNDES_TOT_SOBRETAXA
  5002. PNINCID_SUJ_IRS
  5003. PNINCID_SUJ_TSU
  5004. PNINCID_SUJ_ADSE
  5005. PNINCID_SUJ_CGA
  5006. PNINCID_SUJ_SINDICATO
  5007. PNINCID_SUJ_SOBRETAXA
  5008. FL0409_MES
  5009. THISFORM
  5010. CONTAINER1
  5011. COMBO1
  5012. VALUE
  5013. CS99_LISTAGEM
  5014. CS95_LISTAGEM
  5015. TIPO_REND
  5016. ANO_REPORTE
  5017. VALOR
  5018. V_IRS
  5019. V_TSU
  5020. V_ADSE
  5021. V_CGA
  5022. V_SINDICATO
  5023. V_SOBRETAXA
  5024. SUJ_IRS
  5025. SUJ_TSU
  5026. SUJ_ADSE
  5027. SUJ_CGA
  5028. SUJ_SINDICATO
  5029. SUJ_SOBRETAXA
  5030. CS_DESCONTOS_X
  5031. LIMPA_TOTAIS
  5032. CNT_TIPO    
  5033. TABELAIRS
  5034. FUNCI
  5035. NRESID
  5036. INDEP
  5037. CS_FUNCIONARIOS
  5038. COMMAND1
  5039. ENABLED
  5040. XPROC
  5041. X_GET_ANO_REPORTE
  5042. X_GET_TIPO
  5043. CAT_REND
  5044. XABONO
  5045. TPABONO
  5046. VUNIT
  5047. UNIDADE
  5048. DESCONT
  5049. INCID
  5050. TP_IRS
  5051. MOVIM
  5052. TPROC
  5053. XFUNC
  5054. FL0409_ANO
  5055. X_CNT_TIPO_RET    
  5056. FALTA_AFC
  5057. X_M39
  5058. ESTATIS
  5059. X_INCLUI_ABONO
  5060. CS_RETENCOES_1
  5061. INSERE_INTERMEDIO
  5062. INSERE_DESCONTOS
  5063. CHK_DESCONTO
  5064. CS_DESCONTOS
  5065. KEY_1
  5066. CS_DESCONTOS_TOTAL_TSU
  5067. VALOR_ANTERIOR
  5068. ANO_ANTERIOR
  5069. CS95_ANO_CORRENTE
  5070. CS95_ANOS_ANTERIORES
  5071. CS96_LISTAGEM
  5072. DISTINCT
  5073. CS_NIF_TOPO
  5074. LCLIN_REND
  5075. X_GET_INCIDENCIAS
  5076. X_GET_DESCONTOS_CONTRIB
  5077. CS_NIF
  5078. X_GET_DESCONTOS
  5079. CALCULO_PERCENTUAL
  5080. FL0409_NIPC_SS
  5081. FL0409_NIPC_ADSE
  5082. FL0409_NIPC_CGA
  5083. INSERE_LINHA
  5084. CONTRIB    
  5085. SINDICATO    
  5086. SOBRETAXA
  5087. REND_ANTERIOR
  5088. REND_ANO
  5089. RETIDO
  5090. NRLINHAS
  5091. GET_TOTAIS
  5092. REFRESH
  5093.       (build 
  5094. _BUILD
  5095. THISFORM
  5096. CAPTION
  5097. LDDATA_PROC
  5098. FL0409_NIF_LEGAL
  5099. FL0409_J_FIN
  5100. FL0409_NIF
  5101. FL0409_1DECL
  5102. FL0409_ART119
  5103. FL0409_J_DOBRIG
  5104. FL0409_J_TOC
  5105. FL0409_ANO
  5106. FL0409_MES
  5107. P_IMPFIRSTTIME
  5108. FL0409_NIPC_SS
  5109. FL0409_NIPC_ADSE
  5110. FL0409_NIPC_CGA
  5111. P_PATH_DESTINO
  5112. FL0409_MODIF_CURSOR
  5113. P_SS_POR_CODIGO
  5114. FL0409_V0101
  5115. FL0409_V0102
  5116. FL0409_V0103
  5117. FL0409_V0104
  5118. FL0409_V0105
  5119. FL0409_V0201
  5120. FL0409_V0202
  5121. FL0409_V0203
  5122. FL0409_V0204
  5123. FL0409_V0205
  5124. FL0409_V0301
  5125. FL0409_V0302
  5126. FL0409_V0303
  5127. FL0409_V0304
  5128. FL0409_V0305
  5129. FL0409_V0401
  5130. FL0409_V0402
  5131. FL0409_V0403
  5132. FL0409_V0404
  5133. FL0409_V0405
  5134. LAST_PROC_DATE
  5135. CONTAINER1
  5136. TEXT5
  5137. VALUE
  5138. COMBO1
  5139. NIPC_SS    
  5140. NIPC_ADSE
  5141. NIPC_CGA
  5142. LIMPA_TOTAIS
  5143. THIS    
  5144. LIMPA_CAB
  5145. GET_CAB
  5146. INTERACTIVECHANGE
  5147. SETFOCUS    
  5148. FICHSSCOD
  5149. ENTIDADE_INI
  5150. P_CODEMP
  5151. FL0409_NIF_LEGAL
  5152. FL0409_J_FIN
  5153. FL0409_NIF
  5154. FL0409_1DECL
  5155. FL0409_ART119
  5156. FL0409_J_DOBRIG
  5157. FL0409_J_TOC
  5158. FL0409_ANO
  5159. FL0409_MES
  5160. P_IMPFIRSTTIME
  5161. FL0409_NIPC_SS
  5162. FL0409_NIPC_ADSE
  5163. FL0409_NIPC_CGA
  5164. P_PATH_DESTINO
  5165. FL0409_MODIF_CURSOR
  5166. P_SS_POR_CODIGO
  5167. FL0409_V0101
  5168. FL0409_V0102
  5169. FL0409_V0103
  5170. FL0409_V0104
  5171. FL0409_V0105
  5172. FL0409_V0201
  5173. FL0409_V0202
  5174. FL0409_V0203
  5175. FL0409_V0204
  5176. FL0409_V0205
  5177. FL0409_V0301
  5178. FL0409_V0302
  5179. FL0409_V0303
  5180. FL0409_V0304
  5181. FL0409_V0305
  5182. FL0409_V0401
  5183. FL0409_V0402
  5184. FL0409_V0403
  5185. FL0409_V0404
  5186. FL0409_V0405r
  5187. Janeiro
  5188. Fevereiro
  5189. Abril
  5190. Junho
  5191. Julho
  5192. Agosto
  5193. Setembro
  5194. Outubro
  5195. Novembro
  5196. Dezembro
  5197. -- Anual --
  5198. cs99_listagem
  5199. P_MES_DMR
  5200. CS99_LISTAGEM
  5201. ZONA    
  5202. TIPO_REND
  5203. REND_ANTERIOR
  5204. REND_ANO
  5205. RETIDO
  5206. CONTRIB
  5207. CONTRIB_NIPC1
  5208. CONTRIB_NIPC2
  5209. CONTRIB_NIPC3    
  5210. SINDICATO    
  5211. SOBRETAXA
  5212. KEY_1
  5213. CS99_LISTAGEM
  5214. THISFORM    
  5215. MAGNETICO
  5216. THISFORM    
  5217. MAGNETICO    
  5218. limpa_cab,
  5219. get_cab
  5220. limpa_totais
  5221. get_totaisd
  5222. x_cnt_tipo_ret
  5223. x_m39
  5224. x_get_ano_reporteh
  5225. x_inclui_abonop
  5226. x_get_subtipo
  5227. x_get_tipoY
  5228. insere_linha#
  5229. insere_intermedio
  5230. x_contribuicoes
  5231. insere_descontos_
  5232. x_get_descontosh
  5233. x_get_incidencias"
  5234. calculo_percentual
  5235. ficheiroa
  5236. x_get_grupo_soma
  5237. cursor_nifi.
  5238. cursor_nif_xA/
  5239. get_filename_seriei/
  5240. calculo_percentual_irsD0
  5241. chk_subsidio
  5242. x_get_descontos_contribg2
  5243. _imprimir
  5244. _select
  5245. Init>l
  5246. Destroy
  5247. Unload
  5248. Command3.Click
  5249. Command5.Click1w
  5250. PLATFORM
  5251. UNIQUEID
  5252. TIMESTAMP
  5253. CLASS
  5254. CLASSLOC
  5255. BASECLASS
  5256. OBJNAME
  5257. PARENT
  5258. PROPERTIES
  5259. PROTECTED
  5260. METHODS
  5261. OBJCODE
  5262. RESERVED1
  5263. RESERVED2
  5264. RESERVED3
  5265. RESERVED4
  5266. RESERVED5
  5267. RESERVED6
  5268. RESERVED7
  5269. RESERVED8
  5270.  COMMENT Screen              
  5271.  WINDOWS _3ON0QME3B1109680936
  5272.  WINDOWS _3ON0QME3C1111264529
  5273.  WINDOWS _3ON0QME3B1111262620
  5274.  WINDOWS _3ON0R480M1110790930h
  5275.  WINDOWS _3ON0R480N1110790930C
  5276.  WINDOWS _3ON0R480O1110790930#
  5277.  WINDOWS _3ON0R480P1111262620
  5278.  WINDOWS _3ON0R480Q1111262620
  5279.  WINDOWS _3ON0R480R1111262620
  5280.  WINDOWS _3ON0R480S1111262620
  5281.  WINDOWS _3ON0R480T1111262620m
  5282.  WINDOWS _3ON0R480U1111262620g
  5283.  WINDOWS _3ON0R480V1111262620C
  5284.  WINDOWS _3ON0R480W11112626207
  5285.  WINDOWS _3ON0R480X1111262620
  5286.  WINDOWS _3ON0QME3B1111262620
  5287.  WINDOWS _3ON0R480Z1111262620
  5288.  WINDOWS _3ON0R48101110790930
  5289.  WINDOWS _3ON0R48111110790930o
  5290.  WINDOWS _3ON0R48121111262620S
  5291.  WINDOWS _3ON0R48131111262620/
  5292.  WINDOWS _3ON0R48141111262620
  5293.  WINDOWS _3ON0R48151111262620
  5294.  WINDOWS _3ON0QME3B1111262620
  5295.  WINDOWS _3ON0R48171111262620
  5296.  WINDOWS _3ON0R48181111262620
  5297.  WINDOWS _3ON0R48191111262620p 
  5298.  WINDOWS _3ON0R481A1111262620A!
  5299.  WINDOWS _3ON0R481B1111262620!"
  5300.  WINDOWS _3ON0R481C1111262620
  5301.  WINDOWS _3ON0R481D1111262620
  5302.  WINDOWS _3ON0QME3B1111262620
  5303.  WINDOWS _3ON0QME3B11112626205%
  5304.  WINDOWS _3ON0QME3B1111262620
  5305.  WINDOWS _3ON0QME3B1111262620A&
  5306.  WINDOWS _3ON0QME3B1111262620
  5307.  WINDOWS _3ON0QME3B1111262620M'
  5308.  WINDOWS _3ON0QME3B1111262620
  5309.  WINDOWS _3ON0V2RGN1111262620Y(
  5310.  WINDOWS _3ON0V2RGO1111262620
  5311.  WINDOWS _3ON0QME3C1111262620f)
  5312.  WINDOWS _3OS0WYLGB1111262620;*
  5313.  WINDOWS _3OS0WYLGC1111262620
  5314.  WINDOWS _3OS0WYLGD1111262620
  5315.  WINDOWS _3OS0WYLGE1111262620
  5316.  WINDOWS _3ON0QME3B1110790930
  5317.  WINDOWS _3ON0QME3E1110791499v.
  5318.  WINDOWS _3ON0QME3B1111264485[/
  5319.  WINDOWS _3ON0V2RGP1111262620`
  5320.  COMMENT RESERVED            
  5321. VERSION =   3.00
  5322. dataenvironment
  5323. dataenvironment
  5324. Dataenvironment
  5325. YTop = 0
  5326. Left = 0
  5327. Width = 0
  5328. Height = 0
  5329. DataSource = .NULL.
  5330. Name = "Dataenvironment"
  5331. FL0409_2
  5332. Height = 229
  5333. Width = 803
  5334. DoCreate = .T.
  5335. AutoCenter = .T.
  5336. Caption = "Inserir titular"
  5337. ControlBox = .F.
  5338. WindowType = 1
  5339. modo = 
  5340. Name = "FL0409_2"
  5341. PROCEDURE Init
  5342. LPARAMETERS _modo, _left, _top
  5343. thisform.modo = _modo
  5344. thisform.Left = _left + 60
  5345. thisform.Top = _top + 60
  5346. ENDPROC
  5347. PROCEDURE Activate
  5348. IF thisform.modo = "D"
  5349.     thisform.Caption = "Eliminar..."
  5350.     thisform.command1.Enabled = .f.
  5351.     thisform.command2.Enabled = .f.
  5352.     IF MESSAGEBOX("Eliminar este registo?", 4+32, "Aten
  5353. o...") = 6
  5354.         SELECT cs99_listagem
  5355.         DELETE
  5356.         fl0409_modif_cursor = 1
  5357.     ENDIF
  5358.     thisform.Release
  5359.     IF thisform.modo = "I"
  5360.         thisform.Caption = "Inserir..."
  5361.     ELSE
  5362.         thisform.Caption = "Modificar..."
  5363.         thisform.text1.Enabled = .f.
  5364.     ENDIF
  5365. ENDIF
  5366. *!*    nif, zona, tipo_rend, rend_anterior, anos, rend_ano, retido, contrib, contrib_nipc1, contrib_nipc2, ;
  5367. *!*                               contrib_nipc3, sindicato, sobretaxa
  5368. ENDPROC
  5369. THISFORM
  5370. RELEASE
  5371. Click,
  5372. VALUE
  5373. Valid,
  5374. VALUE
  5375. Valid,
  5376. cArial, 0, 9, 5, 15, 12, 32, 3, 0
  5377. Arial, 0, 8, 5, 14, 11, 29, 3, 0
  5378. Arial, 1, 9, 6, 15, 12, 32, 3, 0
  5379. FL0409_2
  5380. Command2
  5381.     container
  5382.     container
  5383. Container1
  5384. FL0409_2
  5385. kTop = 53
  5386. Left = 8
  5387. Width = 788
  5388. Height = 133
  5389. TabIndex = 3
  5390. BackColor = 255,255,255
  5391. Name = "Container1"
  5392. label
  5393. label
  5394. Label3
  5395. FL0409_2.Container1
  5396. AutoSize = .T.
  5397. FontSize = 8
  5398. BackStyle = 0
  5399. Caption = "Valores"
  5400. Height = 16
  5401. Left = 27
  5402. Top = 43
  5403. Width = 40
  5404. TabIndex = 15
  5405. Name = "Label3"
  5406. textbox
  5407. textbox
  5408. Text2
  5409. FL0409_2.Container1
  5410. FontSize = 8
  5411. Alignment = 3
  5412. ControlSource = "m0409_2.rend_anterior"
  5413. Height = 21
  5414. Left = 5
  5415. TabIndex = 19
  5416. Top = 62
  5417. Width = 80
  5418. Name = "Text2"
  5419. label
  5420. label
  5421. Label4
  5422. FL0409_2.Container1
  5423. AutoSize = .T.
  5424. FontSize = 8
  5425. BackStyle = 0
  5426. Caption = "Ano"
  5427. Height = 16
  5428. Left = 96
  5429. Top = 43
  5430. Width = 22
  5431. TabIndex = 16
  5432. Name = "Label4"
  5433. textbox
  5434. textbox
  5435. Text3
  5436. FL0409_2.Container1
  5437. FontSize = 8
  5438. ControlSource = "m0409_2.anos"
  5439. Format = "R"
  5440. Height = 21
  5441. InputMask = "9999"
  5442. Left = 88
  5443. TabIndex = 20
  5444. Top = 62
  5445. Width = 40
  5446. Name = "Text3"
  5447. label
  5448. label
  5449. Label5
  5450. FL0409_2.Container1
  5451. AutoSize = .T.
  5452. FontSize = 8
  5453. BackStyle = 0
  5454. Caption = "Rendimentos"
  5455. Height = 16
  5456. Left = 143
  5457. Top = 17
  5458. Width = 64
  5459. TabIndex = 3
  5460. Name = "Label5"
  5461. textbox
  5462. textbox
  5463. Text4
  5464. FL0409_2.Container1
  5465. FontSize = 8
  5466. ControlSource = "m0409_2.rend_ano"
  5467. Height = 21
  5468. Left = 135
  5469. TabIndex = 21
  5470. Top = 62
  5471. Width = 80
  5472. Name = "Text4"
  5473. label
  5474. label
  5475. Label6
  5476. FL0409_2.Container1
  5477. AutoSize = .T.
  5478. FontSize = 8
  5479. BackStyle = 0
  5480. Caption = "Tipo de"
  5481. Height = 16
  5482. Left = 235
  5483. Top = 17
  5484. Width = 37
  5485. TabIndex = 4
  5486. Name = "Label6"
  5487. textbox
  5488. textbox
  5489. Text5
  5490. FL0409_2.Container1
  5491. FontSize = 8
  5492. Alignment = 3
  5493. ControlSource = "m0409_2.tipo_rend"
  5494. Height = 21
  5495. Left = 236
  5496. TabIndex = 22
  5497. Top = 62
  5498. Width = 34
  5499. Name = "Text5"
  5500. <PROCEDURE Valid
  5501. this.Value = UPPER(this.value)
  5502. ENDPROC
  5503. .PROCEDURE Click
  5504. thisform.Release
  5505. ENDPROC
  5506. Top = 196
  5507. Left = 716
  5508. Height = 25
  5509. Width = 80
  5510. FontSize = 8
  5511. Cancel = .T.
  5512. Caption = "\<Cancelar"
  5513. TabIndex = 5
  5514. Name = "Command2"
  5515. commandbutton
  5516. label
  5517. label
  5518. Label7
  5519. FL0409_2.Container1
  5520. AutoSize = .T.
  5521. FontSize = 8
  5522. BackStyle = 0
  5523. Caption = "Local de"
  5524. Height = 16
  5525. Left = 293
  5526. Top = 17
  5527. Width = 43
  5528. TabIndex = 5
  5529. Name = "Label7"
  5530. textbox
  5531. textbox
  5532. Text6
  5533. FL0409_2.Container1
  5534. FontSize = 8
  5535. Alignment = 3
  5536. ControlSource = "m0409_2.zona"
  5537. Height = 21
  5538. Left = 297
  5539. TabIndex = 23
  5540. Top = 62
  5541. Width = 34
  5542. Name = "Text6"
  5543. <PROCEDURE Valid
  5544. this.Value = UPPER(this.value)
  5545. ENDPROC
  5546. commandbutton
  5547. uTop = 196
  5548. Left = 632
  5549. Height = 25
  5550. Width = 80
  5551. FontSize = 8
  5552. Caption = "\<Gravar"
  5553. TabIndex = 4
  5554. Name = "Command1"
  5555. FL0409_2
  5556. Command1
  5557. commandbutton
  5558. FL0409_2
  5559. label
  5560. label
  5561. Label8
  5562. FL0409_2.Container1
  5563. AutoSize = .T.
  5564. FontSize = 8
  5565. BackStyle = 0
  5566. Caption = "Reten
  5567. o IRS"
  5568. Height = 16
  5569. Left = 351
  5570. Top = 33
  5571. Width = 67
  5572. TabIndex = 12
  5573. Name = "Label8"
  5574. textbox
  5575. textbox
  5576. Text7
  5577. FL0409_2.Container1
  5578. ~FontSize = 8
  5579. ControlSource = "m0409_2.retido"
  5580. Height = 21
  5581. Left = 344
  5582. TabIndex = 24
  5583. Top = 62
  5584. Width = 80
  5585. Name = "Text7"
  5586. label
  5587. label
  5588. Label9
  5589. FL0409_2.Container1
  5590. AutoSize = .T.
  5591. FontSize = 8
  5592. BackStyle = 0
  5593. Caption = "Valores"
  5594. Height = 16
  5595. Left = 452
  5596. Top = 43
  5597. Width = 40
  5598. TabIndex = 17
  5599. Name = "Label9"
  5600. textbox
  5601. textbox
  5602. Text8
  5603. FL0409_2.Container1
  5604. FontSize = 8
  5605. ControlSource = "m0409_2.contrib"
  5606. Height = 21
  5607. Left = 432
  5608. TabIndex = 25
  5609. Top = 62
  5610. Width = 80
  5611. Name = "Text8"
  5612. label
  5613. label
  5614. Label10
  5615. FL0409_2.Container1
  5616. AutoSize = .T.
  5617. FontSize = 8
  5618. BackStyle = 0
  5619. Caption = "Rendimentos de"
  5620. Height = 16
  5621. Left = 28
  5622. Top = 7
  5623. Width = 79
  5624. TabIndex = 1
  5625. Name = "Label10"
  5626. label
  5627. label
  5628. Label11
  5629. FL0409_2.Container1
  5630. AutoSize = .T.
  5631. FontSize = 8
  5632. BackStyle = 0
  5633. Caption = "anos anteriores"
  5634. Height = 16
  5635. Left = 28
  5636. Top = 20
  5637. Width = 78
  5638. TabIndex = 8
  5639. Name = "Label11"
  5640. label
  5641. label
  5642. Label12
  5643. FL0409_2.Container1
  5644. AutoSize = .T.
  5645. FontSize = 8
  5646. BackStyle = 0
  5647. Caption = "do Ano"
  5648. Height = 16
  5649. Left = 157
  5650. Top = 33
  5651. Width = 37
  5652. TabIndex = 9
  5653. Name = "Label12"
  5654. label
  5655. label
  5656. Label13
  5657. FL0409_2.Container1
  5658. AutoSize = .T.
  5659. FontSize = 8
  5660. BackStyle = 0
  5661. Caption = "Rendimentos"
  5662. Height = 16
  5663. Left = 221
  5664. Top = 33
  5665. Width = 64
  5666. TabIndex = 10
  5667. Name = "Label13"
  5668. label
  5669. label
  5670. Label14
  5671. FL0409_2.Container1
  5672. AutoSize = .T.
  5673. FontSize = 8
  5674. BackStyle = 0
  5675. Caption = "Obten
  5676. Height = 16
  5677. Left = 290
  5678. Top = 33
  5679. Width = 49
  5680. TabIndex = 11
  5681. Name = "Label14"
  5682. label
  5683. label
  5684. Label15
  5685. FL0409_2.Container1
  5686. AutoSize = .T.
  5687. FontSize = 8
  5688. BackStyle = 0
  5689. Caption = "NIPC"
  5690. Height = 16
  5691. Left = 559
  5692. Top = 43
  5693. Width = 24
  5694. TabIndex = 18
  5695. Name = "Label15"
  5696. textbox
  5697. textbox
  5698. Text9
  5699. FL0409_2.Container1
  5700. FontSize = 8
  5701. ControlSource = "m0409_2.contrib_nipc1"
  5702. Height = 21
  5703. Left = 530
  5704. TabIndex = 26
  5705. Top = 62
  5706. Width = 75
  5707. Name = "Text9"
  5708. label
  5709. label
  5710. Label16
  5711. FL0409_2.Container1
  5712. AutoSize = .T.
  5713. FontSize = 8
  5714. BackStyle = 0
  5715. Caption = "Contribui
  5716. es Obrigat
  5717. rias"
  5718. Height = 16
  5719. Left = 445
  5720. Top = 13
  5721. Width = 130
  5722. TabIndex = 2
  5723. Name = "Label16"
  5724. label
  5725. label
  5726. Label17
  5727. FL0409_2.Container1
  5728. AutoSize = .T.
  5729. FontSize = 8
  5730. BackStyle = 0
  5731. Caption = "Quotiza
  5732. Height = 16
  5733. Left = 627
  5734. Top = 17
  5735. Width = 63
  5736. TabIndex = 6
  5737. Name = "Label17"
  5738. textbox
  5739. textbox
  5740. Text10
  5741. FL0409_2.Container1
  5742. FontSize = 8
  5743. ControlSource = "m0409_2.sindicato"
  5744. Height = 21
  5745. Left = 618
  5746. TabIndex = 27
  5747. Top = 62
  5748. Width = 80
  5749. Name = "Text10"
  5750. label
  5751. label
  5752. Label18
  5753. FL0409_2.Container1
  5754. AutoSize = .T.
  5755. FontSize = 8
  5756. BackStyle = 0
  5757. Caption = "Sindicais"
  5758. Height = 16
  5759. Left = 636
  5760. Top = 33
  5761. Width = 45
  5762. TabIndex = 13
  5763. Name = "Label18"
  5764. label
  5765. label
  5766. Label19
  5767. FL0409_2.Container1
  5768. AutoSize = .T.
  5769. FontSize = 8
  5770. BackStyle = 0
  5771. Caption = "Reten
  5772. Height = 16
  5773. Left = 720
  5774. Top = 17
  5775. Width = 48
  5776. TabIndex = 7
  5777. Name = "Label19"
  5778. textbox
  5779. textbox
  5780. Text11
  5781. FL0409_2.Container1
  5782. FontSize = 8
  5783. ControlSource = "m0409_2.sobretaxa"
  5784. Height = 21
  5785. Left = 704
  5786. TabIndex = 28
  5787. Top = 62
  5788. Width = 80
  5789. Name = "Text11"
  5790. label
  5791. label
  5792. Label20
  5793. FL0409_2.Container1
  5794. AutoSize = .T.
  5795. FontSize = 8
  5796. BackStyle = 0
  5797. Caption = "Sobretaxa"
  5798. Height = 16
  5799. Left = 718
  5800. Top = 33
  5801. Width = 52
  5802. TabIndex = 14
  5803. Name = "Label20"
  5804. Line1
  5805. FL0409_2.Container1
  5806. =Height = 0
  5807. Left = 0
  5808. Top = 38
  5809. Width = 132
  5810. Name = "Line1"
  5811. Line2
  5812. FL0409_2.Container1
  5813. >Height = 132
  5814. Left = 131
  5815. Top = 1
  5816. Width = 0
  5817. Name = "Line2"
  5818. Line3
  5819. FL0409_2.Container1
  5820. >Height = 132
  5821. Left = 218
  5822. Top = 1
  5823. Width = 0
  5824. Name = "Line3"
  5825. Line4
  5826. FL0409_2.Container1
  5827. >Height = 132
  5828. Left = 286
  5829. Top = 1
  5830. Width = 0
  5831. Name = "Line4"
  5832. Line5
  5833. FL0409_2.Container1
  5834. >Height = 132
  5835. Left = 340
  5836. Top = 1
  5837. Width = 0
  5838. Name = "Line5"
  5839. Line6
  5840. FL0409_2.Container1
  5841. >Height = 132
  5842. Left = 427
  5843. Top = 1
  5844. Width = 0
  5845. Name = "Line6"
  5846. Line7
  5847. FL0409_2.Container1
  5848. >Height = 132
  5849. Left = 614
  5850. Top = 1
  5851. Width = 0
  5852. Name = "Line7"
  5853. Line8
  5854. FL0409_2.Container1
  5855. >Height = 132
  5856. Left = 701
  5857. Top = 1
  5858. Width = 0
  5859. Name = "Line8"
  5860. Line9
  5861. FL0409_2.Container1
  5862. ?Height = 0
  5863. Left = 427
  5864. Top = 38
  5865. Width = 188
  5866. Name = "Line9"
  5867. label
  5868. label
  5869. Label1
  5870. FL0409_2.Container1
  5871. AutoSize = .T.
  5872. FontSize = 8
  5873. BackStyle = 0
  5874. Caption = "1"
  5875. Height = 16
  5876. Left = 520
  5877. Top = 65
  5878. Width = 8
  5879. TabIndex = 29
  5880. Name = "Label1"
  5881. textbox
  5882. textbox
  5883. Text1
  5884. FL0409_2.Container1
  5885. FontSize = 8
  5886. ControlSource = "m0409_2.contrib_nipc2"
  5887. Height = 21
  5888. Left = 530
  5889. TabIndex = 30
  5890. Top = 82
  5891. Width = 75
  5892. Name = "Text1"
  5893. label
  5894. label
  5895. Label2
  5896. FL0409_2.Container1
  5897. AutoSize = .T.
  5898. FontSize = 8
  5899. BackStyle = 0
  5900. Caption = "2"
  5901. Height = 16
  5902. Left = 520
  5903. Top = 85
  5904. Width = 8
  5905. TabIndex = 31
  5906. Name = "Label2"
  5907. textbox
  5908. textbox
  5909. Text12
  5910. FL0409_2.Container1
  5911. FontSize = 8
  5912. ControlSource = "m0409_2.contrib_nipc3"
  5913. Height = 21
  5914. Left = 530
  5915. TabIndex = 32
  5916. Top = 102
  5917. Width = 75
  5918. Name = "Text12"
  5919. label
  5920. label
  5921. Label21
  5922. FL0409_2.Container1
  5923. AutoSize = .T.
  5924. FontSize = 8
  5925. BackStyle = 0
  5926. Caption = "3"
  5927. Height = 16
  5928. Left = 520
  5929. Top = 105
  5930. Width = 8
  5931. TabIndex = 33
  5932. Name = "Label21"
  5933. label
  5934. label
  5935. Label1
  5936. FL0409_2
  5937. AutoSize = .T.
  5938. FontBold = .T.
  5939. FontSize = 9
  5940. BackStyle = 0
  5941. Caption = "NIF do Titular"
  5942. Height = 17
  5943. Left = 8
  5944. Top = 16
  5945. Width = 75
  5946. TabIndex = 2
  5947. Name = "Label1"
  5948. textbox
  5949. textbox
  5950. Text1
  5951. FontBold = .T.
  5952. FontSize = 9
  5953. ControlSource = "m0409_2.nif"
  5954. Format = "R"
  5955. Height = 23
  5956. InputMask = "999 999 999"
  5957. Left = 87
  5958. TabIndex = 1
  5959. Top = 13
  5960. Width = 87
  5961. Name = "Text1"
  5962. commandbutton
  5963. PROCEDURE Click
  5964. IF m0409_2.zona = "C" OR m0409_2.zona = "RA" OR m0409_2.zona = "RM" OR m0409_2.zona = "E"
  5965.     IF LEFT(m0409_2.tipo_rend, 1) = "A"
  5966.         IF thisform.modo = "E"    
  5967.             gather memo name m0409_2
  5968.             fl0409_modif_cursor = 1
  5969.         ELSE
  5970.             append blank
  5971.             gather memo name m0409_2
  5972.             fl0409_modif_cursor = 1
  5973.         ENDIF
  5974.         thisform.Release
  5975.     ELSE
  5976.         =MESSAGEBOX("O tipo de rendimento indicado, est
  5977.  incorreto!", 0+48, "Aten
  5978. o...")
  5979.         thisform.container1.text5.SetFocus
  5980.     ENDIF
  5981.     =MESSAGEBOX("O local de obten
  5982. o dos rendimentos indicado," + CHR(13) + ;
  5983.                 "est
  5984.  incorreto!", 0+48, "Aten
  5985. o...")
  5986.     thisform.container1.text6.SetFocus
  5987. ENDIF
  5988. ENDPROC
  5989. O tipo de rendimento indicado, est
  5990.  incorreto!
  5991. O local de obten
  5992. o dos rendimentos indicado,C
  5993.  incorreto!
  5994. M0409_2
  5995. ZONA    
  5996. TIPO_REND
  5997. THISFORM
  5998. FL0409_MODIF_CURSOR
  5999. RELEASE
  6000. CONTAINER1
  6001. TEXT5
  6002. SETFOCUS
  6003. TEXT6
  6004. Click,
  6005. _MODO
  6006. _LEFT
  6007. THISFORM
  6008. Eliminar...
  6009. Eliminar este registo?
  6010. Inserir...
  6011. Modificar...
  6012. THISFORM
  6013. CAPTION
  6014. COMMAND1
  6015. ENABLED
  6016. COMMAND2
  6017. CS99_LISTAGEM
  6018. FL0409_MODIF_CURSOR
  6019. RELEASE
  6020. TEXT1
  6021. Init,
  6022. Activate
  6023. 112.007
  6024.  poss
  6025. vel continuar!C
  6026. o incompat
  6027. fl0409
  6028. LCVER_MINIMA
  6029. LCBUILD
  6030. P_VERSAO
  6031. FL0409
  6032. FL0409_2
  6033. PLATFORM
  6034. UNIQUEID
  6035. TIMESTAMP
  6036. CLASS
  6037. CLASSLOC
  6038. BASECLASS
  6039. OBJNAME
  6040. PARENT
  6041. PROPERTIES
  6042. PROTECTED
  6043. METHODS
  6044. OBJCODE
  6045. RESERVED1
  6046. RESERVED2
  6047. RESERVED3
  6048. RESERVED4
  6049. RESERVED5
  6050. RESERVED6
  6051. RESERVED7
  6052. RESERVED8
  6053.  COMMENT Class               
  6054.  WINDOWS _0570QZW71 686125751O
  6055.  WINDOWS _0570QZW76 686125751
  6056.  WINDOWS _0570QZW7B 686125751t    
  6057.  WINDOWS _0570QZW7F 686125751
  6058.  WINDOWS _0570QZW7K 686125751
  6059.  WINDOWS _0570QZW7P 68612575136
  6060.  WINDOWS _0570QZW7T 686125751}5
  6061.  WINDOWS _0570QZW7Y 686125751
  6062.  WINDOWS _0570QZW82 686125751
  6063.  WINDOWS _0570QZW87 686125751X3
  6064.  WINDOWS _0570QZW8C 686125751
  6065.  WINDOWS _0570QZW8G 686125751
  6066.  WINDOWS _0570QZW9J 686125751(1
  6067.  WINDOWS _0570QZW9O 686125751q0
  6068.  WINDOWS _0570QZW9T 686125751
  6069.  WINDOWS _0570QZW9X 686125751
  6070.  WINDOWS _0570QZWA2 686125751@.
  6071.  WINDOWS _0570QZWA6 686125751
  6072.  WINDOWS _0570QZWAB 686125751
  6073.  WINDOWS _0570QZWAG 686125751
  6074.  WINDOWS _0570QZWAK 686125751R+
  6075.  WINDOWS _0570QZWAP 686125751
  6076.  WINDOWS _0570QZWAU 686125751
  6077.  WINDOWS _0570QZWAY 686125751
  6078.  WINDOWS _0570QZWB3 686125751d(
  6079.  WINDOWS _0570QZWB8 686125751
  6080.  WINDOWS _0570QZWBC 686125751
  6081.  WINDOWS _0570QZWBH 6861257511&
  6082.  WINDOWS _0570QZWBM 686125751u%
  6083.  WINDOWS _0570QZWBQ 686125751
  6084.  WINDOWS _0570QZWBV 686125751
  6085.  WINDOWS _0570QZWC0 686125751C#
  6086.  WINDOWS _0570QZWC4 686125751
  6087.  WINDOWS _0570QZWC9 686125751
  6088.  WINDOWS _0570QZWCD 686125751
  6089.  WINDOWS _0570QZWCI 686125751T 
  6090.  WINDOWS _0570QZWCN 686125752
  6091.  WINDOWS _0570QZWCR 686125752
  6092.  WINDOWS _0570QZWCW 686125752
  6093.  WINDOWS _0570QZWD0 686125752<
  6094.  WINDOWS _0570QZWD5 686125752
  6095.  WINDOWS _0570QZWD9 686125752
  6096.  WINDOWS _0570QZWDE 686125752    
  6097.  WINDOWS _0570QZWDJ 686125752M
  6098.  WINDOWS _0570QZWDO 686125752
  6099.  COMMENT RESERVED            
  6100.  WINDOWS _04Y0L8RC7 989623569
  6101.  WINDOWS _04Y0L9PE2 9896235693
  6102.  WINDOWS _04Y0L9PEA 685395834
  6103.  COMMENT RESERVED            
  6104.  WINDOWS _04Y0L7NFM1127317257
  6105.  WINDOWS _04Y0L7NFP1127317257
  6106.  WINDOWS _04Y0L7NFS1127317257
  6107.  WINDOWS _04Y0L7NFU1127317257
  6108.  WINDOWS _04Y0L7NFW 685395640
  6109.  WINDOWS _04Y0L7NFY1127317257
  6110.  WINDOWS _04Y0L7NG0 685395640%
  6111.  COMMENT RESERVED            
  6112. VERSION =   3.00
  6113. BArial, 0, 9, 5, 15, 12, 32, 3, 0
  6114. Arial, 0, 8, 5, 14, 11, 29, 3, 0
  6115. frmlista
  6116. Pixels
  6117. Class
  6118. frmlista
  6119. +Top = 240
  6120. Left = 12
  6121. Name = "resizable1"
  6122. frmlista
  6123. resizable1
  6124. custom
  6125. res1.vcx
  6126.     resizable
  6127. STop = 229
  6128. Left = 10
  6129. Height = 2
  6130. Width = 389
  6131. SpecialEffect = 0
  6132. Name = "Shape1"
  6133. frmlista
  6134. Shape1
  6135. shape
  6136. shape
  6137. \projectos\gdg2000\shared\forms\frmfont
  6138. Click,
  6139. PARENT    
  6140. _IMPRIMIR
  6141. Click,
  6142. TPROCEDURE Click
  6143. do form \projectos\gdg2000\shared\forms\frmfont noshow
  6144. ENDPROC
  6145. Top = 117
  6146. Left = 361
  6147. Height = 49
  6148. Width = 38
  6149. FontSize = 8
  6150. Picture = ..\icons\font02.ico
  6151. Caption = "Fonte"
  6152. TabIndex = 21
  6153. Name = "Command6"
  6154. frmlista
  6155. Command6
  6156. commandbutton
  6157. commandbutton
  6158. THISFORM
  6159. RELEASE
  6160. Click,
  6161. 8PROCEDURE Click
  6162. this.parent._imprimir(.f.)
  6163. ENDPROC
  6164. Top = 236
  6165. Left = 171
  6166. Height = 37
  6167. Width = 65
  6168. FontSize = 8
  6169. Picture = ..\icons\monitor.bmp
  6170. Caption = "\<Visualizar"
  6171. TabIndex = 18
  6172. PicturePosition = 7
  6173. Name = "Command5"
  6174. frmlista
  6175. Command5
  6176. commandbutton
  6177. commandbutton
  6178. pPROCEDURE Activate
  6179. this.cbmes = month(this.data)
  6180. this.cbano = year(this.data)
  6181. dow(fdom(this.data))
  6182. ENDPROC
  6183. calendario
  6184. checkbox
  6185. checkbox
  6186. calendario
  6187. .PROCEDURE Click
  6188. thisform.release
  6189. ENDPROC
  6190. Top = 236
  6191. Left = 236
  6192. Height = 37
  6193. Width = 65
  6194. FontSize = 8
  6195. Picture = ..\icons\close.bmp
  6196. Cancel = .T.
  6197. Caption = "\<Cancelar"
  6198. TabIndex = 19
  6199. PicturePosition = 7
  6200. Name = "Command4"
  6201. frmlista
  6202. Command4
  6203. commandbutton
  6204. commandbutton
  6205. PARENT    
  6206. _IMPRIMIR
  6207. Click,
  6208. frmlista
  6209. Command3
  6210. frmentid
  6211. LCOBJENTID
  6212. VALUE
  6213. CCURSOR
  6214. THISFORM
  6215. CSENTIDADES1
  6216. CURSOR
  6217. InteractiveChange,
  6218. THISFORM
  6219. MULTISELECTION
  6220. Click,
  6221. checkbox
  6222. checkbox
  6223. calendario
  6224. multiselec
  6225. checkbox
  6226. 8PROCEDURE Click
  6227. this.parent._imprimir(.t.)
  6228. ENDPROC
  6229. Top = 236
  6230. Left = 106
  6231. Height = 37
  6232. Width = 65
  6233. FontSize = 8
  6234. Picture = ..\icons\print.bmp
  6235. Caption = "\<Imprimir"
  6236. TabIndex = 17
  6237. PicturePosition = 7
  6238. Name = "Command3"
  6239. commandbutton
  6240. commandbutton
  6241. *_imprimir 
  6242. yTop = 0
  6243. Left = 0
  6244. Height = 274
  6245. Width = 405
  6246. DoCreate = .T.
  6247. Caption = ""
  6248. Icon = ..\icons\text.ico
  6249. Name = "frmlista"
  6250. clsforms.vcx
  6251. DoCreate = .T.
  6252. Name = "frmlista_e"
  6253. Command3.Name = "Command3"
  6254. Command4.Top = 236
  6255. Command4.Name = "Command4"
  6256. Command5.Name = "Command5"
  6257. Command6.Name = "Command6"
  6258. Shape1.Left = 10
  6259. Shape1.Name = "Shape1"
  6260. resizable1.Name = "resizable1"
  6261. *_select 
  6262. checkbox
  6263. BArial, 0, 9, 5, 15, 12, 13, 3, 0
  6264. Arial, 0, 8, 5, 14, 11, 12, 3, 0
  6265. calendario
  6266. Pixels
  6267. Class
  6268. calendario
  6269. nFontSize = 8
  6270. Height = 20
  6271. Left = 192
  6272. SpecialEffect = 1
  6273. TabIndex = 2
  6274. Top = 12
  6275. Width = 72
  6276. Name = "cbano"
  6277. calendario
  6278. cbano
  6279. combobox
  6280. combobox
  6281. FontSize = 8
  6282. RowSourceType = 1
  6283. RowSource = "Janeiro,Fevereiro,Mar
  6284. o,Abril,Maio,Junho,Julho,Agosto,Setembro,Outubro,Novembro,Dezembro"
  6285. Height = 20
  6286. Left = 48
  6287. SpecialEffect = 1
  6288. Style = 2
  6289. TabIndex = 1
  6290. Top = 12
  6291. Width = 100
  6292. Name = "cbmes"
  6293. calendario
  6294. cbmes
  6295. combobox
  6296. combobox
  6297. wTop = 200
  6298. Left = 212
  6299. Height = 30
  6300. Width = 30
  6301. FontSize = 8
  6302. Caption = "D42"
  6303. Style = 1
  6304. TabIndex = 44
  6305. Name = "D42"
  6306. calendario
  6307. checkbox
  6308. checkbox
  6309. wTop = 200
  6310. Left = 122
  6311. Height = 30
  6312. Width = 30
  6313. FontSize = 8
  6314. Caption = "D39"
  6315. Style = 1
  6316. TabIndex = 41
  6317. Name = "D39"
  6318. calendario
  6319. checkbox
  6320. checkbox
  6321. vTop = 200
  6322. Left = 62
  6323. Height = 30
  6324. Width = 30
  6325. FontSize = 8
  6326. Caption = "D37"
  6327. Style = 1
  6328. TabIndex = 39
  6329. Name = "D37"
  6330. calendario
  6331. checkbox
  6332. checkbox
  6333. wTop = 200
  6334. Left = 152
  6335. Height = 30
  6336. Width = 30
  6337. FontSize = 8
  6338. Caption = "D40"
  6339. Style = 1
  6340. TabIndex = 42
  6341. Name = "D40"
  6342. calendario
  6343. checkbox
  6344. checkbox
  6345. wTop = 200
  6346. Left = 182
  6347. Height = 30
  6348. Width = 30
  6349. FontSize = 8
  6350. Caption = "D41"
  6351. Style = 1
  6352. TabIndex = 43
  6353. Name = "D41"
  6354. calendario
  6355. checkbox
  6356. checkbox
  6357. frmlista_e
  6358. Pixels
  6359. calendario
  6360. _IMPVIS
  6361. LCREPORTNAME
  6362. LBIMPVIS
  6363. THISFORM
  6364. RELEASE
  6365. _statusbar
  6366. _toolbar
  6367. LOFORMS
  6368. LNFORMSCOUNT
  6369. APPLICATION
  6370. FORMS
  6371. CLASS
  6372. THISFORM
  6373. AUTOCENTER
  6374. RESIZABLE1
  6375. ADJUSTCONTROLS    
  6376. _imprimir,
  6377. Resize
  6378. Top = 236
  6379. Left = 334
  6380. Height = 16
  6381. Width = 65
  6382. FontSize = 8
  6383. AutoSize = .T.
  6384. Alignment = 0
  6385. Caption = "Entidades"
  6386. TabIndex = 20
  6387. Name = "chk_entid"
  6388. 8DoCreate = .T.
  6389. Caption = "Form1"
  6390. Name = "calendario"
  6391. Class
  6392. frmlista
  6393. frmlista_e
  6394. APROCEDURE Click
  6395. if thisform.multiselection
  6396. endif
  6397. ENDPROC
  6398. rTop = 50
  6399. Left = 32
  6400. Height = 30
  6401. Width = 30
  6402. FontSize = 8
  6403. Caption = "D1"
  6404. Style = 1
  6405. TabIndex = 3
  6406. Name = "D1"
  6407. BArial, 0, 9, 5, 15, 12, 32, 3, 0
  6408. Arial, 0, 8, 5, 14, 11, 29, 3, 0
  6409. FTop = 240
  6410. Left = 36
  6411. Height = 17
  6412. Width = 36
  6413. Name = "Csentidades1"
  6414. frmlista_e
  6415. Csentidades1
  6416. custom
  6417. clsdata.vcx
  6418. csentidades
  6419. frmlista_e
  6420.     chk_entid
  6421. checkbox
  6422. checkbox
  6423. vTop = 200
  6424. Left = 92
  6425. Height = 30
  6426. Width = 30
  6427. FontSize = 8
  6428. Caption = "D38"
  6429. Style = 1
  6430. TabIndex = 40
  6431. Name = "D38"
  6432. checkbox
  6433. checkbox
  6434. vTop = 200
  6435. Left = 32
  6436. Height = 30
  6437. Width = 30
  6438. FontSize = 8
  6439. Caption = "D36"
  6440. Style = 1
  6441. TabIndex = 38
  6442. Name = "D36"
  6443. calendario
  6444. checkbox
  6445. checkbox
  6446. wTop = 170
  6447. Left = 182
  6448. Height = 30
  6449. Width = 30
  6450. FontSize = 8
  6451. Caption = "D34"
  6452. Style = 1
  6453. TabIndex = 36
  6454. Name = "D34"
  6455. calendario
  6456. checkbox
  6457. checkbox
  6458. wTop = 170
  6459. Left = 122
  6460. Height = 30
  6461. Width = 30
  6462. FontSize = 8
  6463. Caption = "D32"
  6464. Style = 1
  6465. TabIndex = 34
  6466. Name = "D32"
  6467. calendario
  6468. checkbox
  6469. checkbox
  6470. vTop = 170
  6471. Left = 62
  6472. Height = 30
  6473. Width = 30
  6474. FontSize = 8
  6475. Caption = "D30"
  6476. Style = 1
  6477. TabIndex = 32
  6478. Name = "D30"
  6479. calendario
  6480. checkbox
  6481. checkbox
  6482. wTop = 170
  6483. Left = 212
  6484. Height = 30
  6485. Width = 30
  6486. FontSize = 8
  6487. Caption = "D35"
  6488. Style = 1
  6489. TabIndex = 37
  6490. Name = "D35"
  6491. calendario
  6492. checkbox
  6493. checkbox
  6494. wTop = 170
  6495. Left = 152
  6496. Height = 30
  6497. Width = 30
  6498. FontSize = 8
  6499. Caption = "D33"
  6500. Style = 1
  6501. TabIndex = 35
  6502. Name = "D33"
  6503. calendario
  6504. checkbox
  6505. checkbox
  6506. vTop = 170
  6507. Left = 92
  6508. Height = 30
  6509. Width = 30
  6510. FontSize = 8
  6511. Caption = "D31"
  6512. Style = 1
  6513. TabIndex = 33
  6514. Name = "D31"
  6515. calendario
  6516. checkbox
  6517. checkbox
  6518. vTop = 170
  6519. Left = 32
  6520. Height = 30
  6521. Width = 30
  6522. FontSize = 8
  6523. Caption = "D29"
  6524. Style = 1
  6525. TabIndex = 31
  6526. Name = "D29"
  6527. calendario
  6528. checkbox
  6529. checkbox
  6530. wTop = 140
  6531. Left = 182
  6532. Height = 30
  6533. Width = 30
  6534. FontSize = 8
  6535. Caption = "D27"
  6536. Style = 1
  6537. TabIndex = 29
  6538. Name = "D27"
  6539. calendario
  6540. checkbox
  6541. checkbox
  6542. wTop = 140
  6543. Left = 122
  6544. Height = 30
  6545. Width = 30
  6546. FontSize = 8
  6547. Caption = "D25"
  6548. Style = 1
  6549. TabIndex = 27
  6550. Name = "D25"
  6551. calendario
  6552. checkbox
  6553. checkbox
  6554. vTop = 140
  6555. Left = 62
  6556. Height = 30
  6557. Width = 30
  6558. FontSize = 8
  6559. Caption = "D23"
  6560. Style = 1
  6561. TabIndex = 25
  6562. Name = "D23"
  6563. calendario
  6564. checkbox
  6565. checkbox
  6566. wTop = 140
  6567. Left = 212
  6568. Height = 30
  6569. Width = 30
  6570. FontSize = 8
  6571. Caption = "D28"
  6572. Style = 1
  6573. TabIndex = 30
  6574. Name = "D28"
  6575. calendario
  6576. checkbox
  6577. checkbox
  6578. wTop = 140
  6579. Left = 152
  6580. Height = 30
  6581. Width = 30
  6582. FontSize = 8
  6583. Caption = "D26"
  6584. Style = 1
  6585. TabIndex = 28
  6586. Name = "D26"
  6587. calendario
  6588. checkbox
  6589. checkbox
  6590. vTop = 140
  6591. Left = 92
  6592. Height = 30
  6593. Width = 30
  6594. FontSize = 8
  6595. Caption = "D24"
  6596. Style = 1
  6597. TabIndex = 26
  6598. Name = "D24"
  6599. calendario
  6600. checkbox
  6601. checkbox
  6602. vTop = 140
  6603. Left = 32
  6604. Height = 30
  6605. Width = 30
  6606. FontSize = 8
  6607. Caption = "D22"
  6608. Style = 1
  6609. TabIndex = 24
  6610. Name = "D22"
  6611. calendario
  6612. checkbox
  6613. checkbox
  6614. wTop = 110
  6615. Left = 182
  6616. Height = 30
  6617. Width = 30
  6618. FontSize = 8
  6619. Caption = "D20"
  6620. Style = 1
  6621. TabIndex = 22
  6622. Name = "D20"
  6623. calendario
  6624. checkbox
  6625. checkbox
  6626. wTop = 110
  6627. Left = 122
  6628. Height = 30
  6629. Width = 30
  6630. FontSize = 8
  6631. Caption = "D18"
  6632. Style = 1
  6633. TabIndex = 20
  6634. Name = "D18"
  6635. calendario
  6636. checkbox
  6637. checkbox
  6638. vTop = 110
  6639. Left = 62
  6640. Height = 30
  6641. Width = 30
  6642. FontSize = 8
  6643. Caption = "D16"
  6644. Style = 1
  6645. TabIndex = 18
  6646. Name = "D16"
  6647. calendario
  6648. checkbox
  6649. checkbox
  6650. wTop = 110
  6651. Left = 212
  6652. Height = 30
  6653. Width = 30
  6654. FontSize = 8
  6655. Caption = "D21"
  6656. Style = 1
  6657. TabIndex = 23
  6658. Name = "D21"
  6659. calendario
  6660. checkbox
  6661. checkbox
  6662. wTop = 110
  6663. Left = 152
  6664. Height = 30
  6665. Width = 30
  6666. FontSize = 8
  6667. Caption = "D19"
  6668. Style = 1
  6669. TabIndex = 21
  6670. Name = "D19"
  6671. calendario
  6672. checkbox
  6673. checkbox
  6674. vTop = 110
  6675. Left = 92
  6676. Height = 30
  6677. Width = 30
  6678. FontSize = 8
  6679. Caption = "D17"
  6680. Style = 1
  6681. TabIndex = 19
  6682. Name = "D17"
  6683. calendario
  6684. checkbox
  6685. checkbox
  6686. vTop = 110
  6687. Left = 32
  6688. Height = 30
  6689. Width = 30
  6690. FontSize = 8
  6691. Caption = "D15"
  6692. Style = 1
  6693. TabIndex = 17
  6694. Name = "D15"
  6695. calendario
  6696. checkbox
  6697. checkbox
  6698. vTop = 80
  6699. Left = 182
  6700. Height = 30
  6701. Width = 30
  6702. FontSize = 8
  6703. Caption = "D13"
  6704. Style = 1
  6705. TabIndex = 15
  6706. Name = "D13"
  6707. calendario
  6708. checkbox
  6709. checkbox
  6710. vTop = 80
  6711. Left = 122
  6712. Height = 30
  6713. Width = 30
  6714. FontSize = 8
  6715. Caption = "D11"
  6716. Style = 1
  6717. TabIndex = 13
  6718. Name = "D11"
  6719. calendario
  6720. checkbox
  6721. checkbox
  6722. sTop = 80
  6723. Left = 62
  6724. Height = 30
  6725. Width = 30
  6726. FontSize = 8
  6727. Caption = "D9"
  6728. Style = 1
  6729. TabIndex = 11
  6730. Name = "D9"
  6731. calendario
  6732. checkbox
  6733. checkbox
  6734. vTop = 80
  6735. Left = 212
  6736. Height = 30
  6737. Width = 30
  6738. FontSize = 8
  6739. Caption = "D14"
  6740. Style = 1
  6741. TabIndex = 16
  6742. Name = "D14"
  6743. calendario
  6744. checkbox
  6745. checkbox
  6746. vTop = 80
  6747. Left = 152
  6748. Height = 30
  6749. Width = 30
  6750. FontSize = 8
  6751. Caption = "D12"
  6752. Style = 1
  6753. TabIndex = 14
  6754. Name = "D12"
  6755. calendario
  6756. checkbox
  6757. checkbox
  6758. uTop = 80
  6759. Left = 92
  6760. Height = 30
  6761. Width = 30
  6762. FontSize = 8
  6763. Caption = "D10"
  6764. Style = 1
  6765. TabIndex = 12
  6766. Name = "D10"
  6767. calendario
  6768. checkbox
  6769. checkbox
  6770. sTop = 80
  6771. Left = 32
  6772. Height = 30
  6773. Width = 30
  6774. FontSize = 8
  6775. Caption = "D8"
  6776. Style = 1
  6777. TabIndex = 10
  6778. Name = "D8"
  6779. calendario
  6780. checkbox
  6781. checkbox
  6782. sTop = 50
  6783. Left = 182
  6784. Height = 30
  6785. Width = 30
  6786. FontSize = 8
  6787. Caption = "D6"
  6788. Style = 1
  6789. TabIndex = 8
  6790. Name = "D6"
  6791. calendario
  6792. checkbox
  6793. checkbox
  6794. sTop = 50
  6795. Left = 122
  6796. Height = 30
  6797. Width = 30
  6798. FontSize = 8
  6799. Caption = "D4"
  6800. Style = 1
  6801. TabIndex = 6
  6802. Name = "D4"
  6803. calendario
  6804. checkbox
  6805. checkbox
  6806. rTop = 50
  6807. Left = 62
  6808. Height = 30
  6809. Width = 30
  6810. FontSize = 8
  6811. Caption = "D2"
  6812. Style = 1
  6813. TabIndex = 4
  6814. Name = "D2"
  6815. calendario
  6816. checkbox
  6817. checkbox
  6818. sTop = 50
  6819. Left = 212
  6820. Height = 30
  6821. Width = 30
  6822. FontSize = 8
  6823. Caption = "D7"
  6824. Style = 1
  6825. TabIndex = 9
  6826. Name = "D7"
  6827. calendario
  6828. checkbox
  6829. checkbox
  6830. sTop = 50
  6831. Left = 152
  6832. Height = 30
  6833. Width = 30
  6834. FontSize = 8
  6835. Caption = "D5"
  6836. Style = 1
  6837. TabIndex = 7
  6838. Name = "D5"
  6839. rTop = 50
  6840. Left = 92
  6841. Height = 30
  6842. Width = 30
  6843. FontSize = 8
  6844. Caption = "D3"
  6845. Style = 1
  6846. TabIndex = 5
  6847. Name = "D3"
  6848. CBMES
  6849. CBANO
  6850. Activate,
  6851. )PROCEDURE InteractiveChange
  6852. local lcobjentid
  6853. if this.value = 1
  6854.     lcobjentid = createobject("frmentid")
  6855.     lcobjentid.cCursor = (thisform.csEntidades1.cursor)
  6856.     lcobjentid.top = thisform.top + 20
  6857.     lcobjentid.left = thisform.left + 20
  6858.     lcobjentid.show
  6859.     release lcobjentid
  6860. endif
  6861. ENDPROC
  6862. OPROCEDURE _imprimir
  6863. lparam _impvis
  6864. local lcreportname, lbimpvis
  6865. lbimpvis = _impvis
  6866. lcreportname = ""
  6867. =imp(lcreportname, "", lbimpvis)
  6868. thisform.release
  6869. ENDPROC
  6870. PROCEDURE Init
  6871. local loForms, lnFormsCount
  6872. lnFormsCount = 0
  6873. for each loForms in application.Forms
  6874.     if loForms.class <> "_statusbar" and loForms.class <> "_toolbar"
  6875.         lnFormsCount = lnFormsCount + 1
  6876.     endif
  6877. endfor
  6878. if !thisform.autocenter
  6879.     thisform.top = mod(lnFormsCount,7)*20
  6880.     thisform.left = mod(lnFormsCount,14)*20
  6881. endif
  6882. ENDPROC
  6883. PROCEDURE Resize
  6884. this.resizable1.adjustcontrols
  6885. ENDPROC
  6886. wwwwwwwwwwpp
  6887. wwwww
  6888. PLATFORM
  6889. UNIQUEID
  6890. TIMESTAMP
  6891. CLASS
  6892. CLASSLOC
  6893. BASECLASS
  6894. OBJNAME
  6895. PARENT
  6896. PROPERTIES
  6897. PROTECTED
  6898. METHODS
  6899. OBJCODE
  6900. RESERVED1
  6901. RESERVED2
  6902. RESERVED3
  6903. RESERVED4
  6904. RESERVED5
  6905. RESERVED6
  6906. RESERVED7
  6907. RESERVED8
  6908.  COMMENT Class               
  6909.  WINDOWS _R8H0IIKJU 584668360
  6910.  COMMENT RESERVED            
  6911. VERSION =   3.00
  6912. custom
  6913.     resizable
  6914. Pixels
  6915. Class for maintain autoresizing
  6916. Class
  6917.     resizable
  6918. custom
  6919. Height = 19
  6920. Width = 27
  6921. initialresize = .T.
  6922. initialformheight = 0
  6923. initialformwidth = 0
  6924. repositionlist = Commandbutton Combobox Checkbox Listbox Form Grid Textbox Label Shape Editbox Olecontrol Pageframe Image Spinner Container Olecontrol
  6925. resizelist = Commandbutton Combobox Checkbox Listbox Form Grid Textbox Label Shape Editbox Olecontrol Pageframe Image Spinner Container Olecontrol Column
  6926. Name = "resizable"
  6927. initialresize
  6928. initialformheight
  6929. initialformwidth
  6930. lnheightdiff
  6931. lnwidthdiff
  6932. addtoarray
  6933. setsize
  6934. loopthroughcontrols
  6935. acontrolstats
  6936. setposition
  6937. initialresize Is this the first time the controls are being adjusted?
  6938. initialformheight
  6939. initialformwidth
  6940. repositionlist
  6941. resizelist
  6942. lnheightdiff
  6943. lnwidthdiff
  6944. *adjustcontrols call from resize event of a form to adjust the placement and size of contained objects.
  6945. *addtoarray 
  6946. *setsize 
  6947. *loopthroughcontrols 
  6948. *reset Resets the Timer control so that it starts counting from 0.
  6949. ^acontrolstats[1,5] 
  6950. *setposition 
  6951. INITIALIZE_AND_ADJUST
  6952. ADJUST
  6953. INITIALRESIZE
  6954. LOOPTHROUGHCONTROLS
  6955. oControl.Topb
  6956. oControl.Leftb
  6957. oControl.Heightb
  6958. oControl.Widthb
  6959. oControl.FontSizeb
  6960. OCONTROL
  6961. ACONTROLSTATS
  6962. INITIALFORMHEIGHT
  6963. INITIALFORMWIDTH
  6964. HEIGHT
  6965. WIDTH
  6966. FONTSIZE
  6967. oControl.Widthb
  6968. Textbox Spinner
  6969. oControl.Heightb
  6970. OCONTROL
  6971. WIDTH
  6972. THISFORM
  6973. ACONTROLSTATS
  6974. LNWIDTHDIFF    
  6975. BASECLASS
  6976. HEIGHT
  6977. LNHEIGHTDIFFa
  6978. DECIMALv
  6979. INITIALIZE_AND_ADJUST
  6980. Pageframe
  6981. INITIALIZE_AND_ADJUST
  6982. INITIALIZE_AND_ADJUST
  6983. Container
  6984. INITIALIZE_AND_ADJUST
  6985. CTASK
  6986. NOLDDECIMAL
  6987. PARENT
  6988. LOCKSCREEN
  6989. CONTROLCOUNT
  6990. OCONTROL
  6991. CONTROLS
  6992. ADDTOARRAY    
  6993. BASECLASS
  6994. RESIZELIST
  6995. SETSIZE
  6996. REPOSITIONLIST
  6997. SETPOSITION
  6998. PAGECOUNT
  6999. PAGES
  7000. COLUMNCOUNT
  7001. COLUMNSM
  7002. INITIALRESIZE
  7003. ACONTROLSTATS
  7004. INITIALFORMHEIGHT
  7005. THISFORM
  7006. HEIGHT
  7007. INITIALFORMWIDTH
  7008. WIDTH
  7009. oControl.Topb
  7010. oControl.Leftb
  7011. OCONTROL
  7012. THISFORM
  7013. HEIGHT
  7014. ACONTROLSTATS
  7015. LNHEIGHTDIFF
  7016. WIDTH
  7017. LNWIDTHDIFF
  7018. LNHEIGHT
  7019. LNWIDTH
  7020. LNSCREENWIDTH
  7021. LNSCREENHEIGHT
  7022. LNHEIGHTDIFF
  7023. LNWIDTHDIFF
  7024. INITIALFORMHEIGHT
  7025. THISFORM
  7026. HEIGHT
  7027. INITIALFORMWIDTH
  7028. WIDTH
  7029. adjustcontrols,
  7030. addtoarray
  7031. setsize
  7032. loopthroughcontrols    
  7033. reset>    
  7034. setposition
  7035. PLATFORM
  7036. UNIQUEID
  7037. TIMESTAMP
  7038. CLASS
  7039. CLASSLOC
  7040. BASECLASS
  7041. OBJNAME
  7042. PARENT
  7043. PROPERTIES
  7044. PROTECTED
  7045. METHODS
  7046. OBJCODE
  7047. RESERVED1
  7048. RESERVED2
  7049. RESERVED3
  7050. RESERVED4
  7051. RESERVED5
  7052. RESERVED6
  7053. RESERVED7
  7054. RESERVED8
  7055.  COMMENT Class               
  7056.  WINDOWS _04U0KYTNY 989623507
  7057.  COMMENT RESERVED            
  7058. VERSION =   3.00
  7059. ICSNAicsna
  7060. mod_imo = 1
  7061. mod_org = 1
  7062. mod_sal = 1 and arrirs < 4
  7063. mod_nor = 1
  7064. mod_ave = 1
  7065. o foi indicado nenhum modulo na classe CSENTIDADES em CLSDATA
  7066. Erro...
  7067. select idempresa as codigo,  firma as descricao,  1 as valido  from empresa  where &lcexpr and upper(idempresa) <> upper(p_codemp) order by codigo  into cursor (lccursor)
  7068. key_1
  7069. LCCURSOR
  7070. LCMODULO
  7071. LCEXPR
  7072. MODULO
  7073. CURSOR
  7074. CODIGO    
  7075. DESCRICAO
  7076. VALIDO
  7077. KEY_2
  7078. KEY_1
  7079. CURSOR
  7080. Init,
  7081. Destroy
  7082. csentidades
  7083. Pixels
  7084. Class
  7085. custom
  7086. csentidades
  7087. cursor Alias do cursor onde s
  7088. o escolhidas as entidades a listar
  7089. modulo Indica que dever
  7090. o ser seleccionadas as entidades do modulo indicado. C=Contabilidade; I=Imobilizado; S=Sal
  7091. rios; N=N
  7092. o Organizada; A=Aven
  7093. ]PROCEDURE Init
  7094. local lccursor, lcmodulo, lcexpr
  7095. lccursor = sys(2015)
  7096. lcmodulo = iif((this.modulo $ "ICSNAicsna"), upper(this.modulo), "")
  7097. do case
  7098.     case lcmodulo = "I"
  7099.         lcexpr = "mod_imo = 1"
  7100.     case lcmodulo = "C"
  7101.         lcexpr = "mod_org = 1"
  7102.     case lcmodulo = "S"
  7103.         lcexpr = "mod_sal = 1 and arrirs < 4"
  7104.     case lcmodulo = "N"
  7105.         lcexpr = "mod_nor = 1"
  7106.     case lcmodulo = "A"
  7107.         lcexpr = "mod_ave = 1"
  7108. endcase
  7109. if empty(lcmodulo)
  7110.     =messagebox("N
  7111. o foi indicado nenhum modulo na classe CSENTIDADES em CLSDATA", 0+16, "Erro...")
  7112.     create cursor (this.cursor) (codigo C(3), descricao C(60), valido N(1))
  7113.     index on descricao tag key_2
  7114.     index on codigo tag key_1
  7115.     select idempresa as codigo, ;
  7116.            firma as descricao, ;
  7117.            1 as valido ;
  7118.            from empresa ;
  7119.            where &lcexpr and upper(idempresa) <> upper(p_codemp);
  7120.            order by codigo ;
  7121.            into cursor (lccursor)
  7122.     select (this.cursor)        
  7123.     append from dbf(lccursor)
  7124.     select (lccursor)
  7125.     select (this.cursor)
  7126.     set order to key_1
  7127.     go top
  7128. endif
  7129. ENDPROC
  7130. PROCEDURE Destroy
  7131. select (this.cursor)
  7132. ENDPROC
  7133. custom
  7134. EHeight = 17
  7135. Width = 62
  7136. cursor = 
  7137. modulo = 
  7138. Name = "csentidades"
  7139. PLATFORM
  7140. UNIQUEID
  7141. TIMESTAMP
  7142. CLASS
  7143. CLASSLOC
  7144. BASECLASS
  7145. OBJNAME
  7146. PARENT
  7147. PROPERTIES
  7148. PROTECTED
  7149. METHODS
  7150. OBJCODE
  7151. RESERVED1
  7152. RESERVED2
  7153. RESERVED3
  7154. RESERVED4
  7155. RESERVED5
  7156. RESERVED6
  7157. RESERVED7
  7158. RESERVED8
  7159.  COMMENT Screen              
  7160.  WINDOWS _28M127UCE 930975290
  7161.  WINDOWS _28M127UCF1112241536
  7162.  WINDOWS _28M127UCG1110347045
  7163.  WINDOWS _28M127UCH 943818122
  7164.  WINDOWS _28M129JUE 943818122
  7165.  WINDOWS _28M129JUF 943818122^
  7166.  WINDOWS _28M129JUG1046250387
  7167.  COMMENT RESERVED            
  7168. VERSION =   3.00
  7169. dataenvironment
  7170. dataenvironment
  7171. Dataenvironment
  7172. YTop = 0
  7173. Left = 0
  7174. Width = 0
  7175. Height = 0
  7176. DataSource = .NULL.
  7177. Name = "Dataenvironment"
  7178. FL0409_3
  7179. Height = 123
  7180. Width = 401
  7181. DoCreate = .T.
  7182. AutoCenter = .T.
  7183. Caption = "Gravar suporte magn
  7184. tico"
  7185. ControlBox = .F.
  7186. WindowType = 1
  7187. _file = 
  7188. wpath_old = 
  7189. wpath = 
  7190. modelo = DMR_
  7191. extencao = .txt
  7192. Name = "FL0409_3"
  7193. PROCEDURE le_config
  7194. if file(thisform._file)
  7195.     public laconfig[1]
  7196.     restore from (thisform._file) additive
  7197.     if alen("laconfig") < 35
  7198.         public laconfig[35]
  7199.     endif        
  7200.     this.wpath = iif(empty(laconfig[22]), "C:\", laconfig[22])
  7201.     public laconfig[35]
  7202.     this.wpath = "C:\"
  7203. endif
  7204. ENDPROC
  7205. PROCEDURE Destroy
  7206. laconfig[22] = this.wpath
  7207. save to (thisform._file) all like laconfig*
  7208. ENDPROC
  7209. PROCEDURE Init
  7210. lparam _opc
  7211. if parameters() < 1
  7212.     thisform.modelo = "DMR_"
  7213.     thisform.extencao = ".txt"
  7214. endif
  7215. public p_default
  7216. thisform._file = addbs(alltrim(p_path)) + "comuns\sconfig.mem"
  7217. thisform.le_config()
  7218. thisform.text1.Value = addbs(alltrim(justpath(thisform.text1.Value))) + ;
  7219.                        thisform.modelo + IIF(p_ss_por_codigo=1, p_codemp, alltrim(p_nif)) + "_" + ;
  7220.                        PADL(ALLTRIM(STR(fl0409_ano)), 4, "0") + PADL(ALLTRIM(STR(fl0409_mes)), 2, "0") + ;
  7221.                        thisform.extencao
  7222. p_default = set("DEFAULT")
  7223. this.wpath_old = sys(2003)
  7224. ENDPROC
  7225. Seleccione o destino
  7226. Modelo 10 - Suporte magn
  7227. LCPATH
  7228. PARENT
  7229. TEXT1
  7230. VALUE
  7231. THISFORM
  7232. MODELO
  7233. P_NIF
  7234. EXTENCAO    
  7235. P_DEFAULT
  7236. Click,
  7237. THISFORM
  7238. RELEASE
  7239. Click,
  7240. o indicou um nome para o ficheiro
  7241. laconfig*
  7242. THISFORM
  7243. TEXT1
  7244. VALUE
  7245. P_PATH_DESTINO
  7246. WPATH
  7247. LACONFIG
  7248. _FILE
  7249. RELEASE
  7250. Click,
  7251. 8_file
  7252. wpath_old
  7253. wpath
  7254. modelo
  7255. extencao
  7256. *le_config 
  7257. commandbutton
  7258. commandbutton
  7259. Command1
  7260. FL0409_3
  7261. tTop = 80
  7262. Left = 215
  7263. Height = 25
  7264. Width = 80
  7265. FontSize = 8
  7266. Caption = "\<Gravar"
  7267. TabIndex = 4
  7268. Name = "Command1"
  7269. #PROCEDURE Click
  7270. if empty(justfname(thisform.text1.Value))
  7271.     =messagebox("N
  7272. o indicou um nome para o ficheiro", 0+48,"Aten
  7273. o...")
  7274.     p_path_destino = thisform.wpath
  7275.     laconfig[22] = thisform.wpath
  7276.     save to (thisform._file) all like laconfig*
  7277.     thisform.Release
  7278. endif
  7279. ENDPROC
  7280. cArial, 0, 9, 5, 15, 12, 32, 3, 0
  7281. Arial, 0, 8, 5, 14, 11, 29, 3, 0
  7282. Arial, 1, 9, 6, 15, 12, 32, 3, 0
  7283. uTop = 41
  7284. Left = 354
  7285. Height = 21
  7286. Width = 24
  7287. FontBold = .T.
  7288. Caption = ". . ."
  7289. TabIndex = 2
  7290. Name = "cmdDlgOpen"
  7291. FL0409_3
  7292. cmdDlgOpen
  7293. commandbutton
  7294. commandbutton
  7295. FL0409_3
  7296. Text1
  7297. textbox
  7298. textbox
  7299. FL0409_3
  7300. Label8
  7301. label
  7302. label
  7303. FL0409_3
  7304. commandbutton
  7305. commandbutton
  7306. Command2
  7307. Top = 80
  7308. Left = 298
  7309. Height = 25
  7310. Width = 80
  7311. FontSize = 8
  7312. Cancel = .T.
  7313. Caption = "\<Cancelar"
  7314. TabIndex = 5
  7315. Name = "Command2"
  7316. .PROCEDURE Click
  7317. thisform.Release
  7318. ENDPROC
  7319. FontSize = 8
  7320. BorderStyle = 0
  7321. Value = C:\
  7322. ControlSource = "thisform.wpath"
  7323. Height = 19
  7324. Left = 26
  7325. SpecialEffect = 1
  7326. TabIndex = 3
  7327. Top = 42
  7328. Width = 323
  7329. ZOrderSet = 27
  7330. Name = "Text1"
  7331. AutoSize = .T.
  7332. FontSize = 8
  7333. Caption = "Destino"
  7334. Height = 16
  7335. Left = 26
  7336. Top = 25
  7337. Width = 38
  7338. TabIndex = 1
  7339. ZOrderSet = 26
  7340. Name = "Label8"
  7341. PROCEDURE Click
  7342. local lcpath
  7343. lcpath = This.Parent.Text1.value
  7344. *!*    This.Parent.Text1.value = chosedir("Modelo 10 - Suporte magn
  7345. tico", "Seleccione o destino", lcpath) + ;
  7346. *!*                              thisform.modelo + alltrim(p_nif) + thisform.extencao
  7347. This.Parent.Text1.value = getdir(lcpath, "Seleccione o destino", "Modelo 10 - Suporte magn
  7348. tico") + ;
  7349.                           thisform.modelo + alltrim(p_nif) + thisform.extencao
  7350. set default to (p_default)
  7351. *cd (thisform.wpath)
  7352. ENDPROC
  7353. laconfig
  7354. THISFORM
  7355. _FILE
  7356. LACONFIG
  7357. WPATH5
  7358. laconfig*
  7359. LACONFIG
  7360. WPATH
  7361. THISFORM
  7362. _FILE
  7363. comuns\sconfig.mem
  7364. DEFAULTv
  7365. THISFORM
  7366. MODELO
  7367. EXTENCAO    
  7368. P_DEFAULT
  7369. _FILE
  7370. P_PATH    
  7371. LE_CONFIG
  7372. TEXT1
  7373. VALUE
  7374. P_SS_POR_CODIGO
  7375. P_CODEMP
  7376. P_NIF
  7377. FL0409_ANO
  7378. FL0409_MES
  7379. THIS    
  7380. WPATH_OLD    
  7381. le_config,
  7382. Destroy
  7383. Initm
  7384. fl0409.scx
  7385. fl0409.sct
  7386. fl0409_2.scx
  7387. fl0409_2.sct
  7388. appdecmensal_at.prg
  7389. c:\gdg\temp\
  7390. appdecmensal_at.fxp
  7391. ..\shared\classes\
  7392. clsforms.vcx
  7393. clsforms.vct
  7394. ..\shared\icons\
  7395. text.ico
  7396. print.bmp
  7397. close.bmp
  7398. monitor.bmp
  7399. font02.ico
  7400. res1.vcx
  7401. res1.vct
  7402. clsdata.vcx
  7403. clsdata.vct
  7404. fl0409_3.scx
  7405. fl0409_3.sct
  7406. save.bmp
  7407.