Definir Cursor Cur_E501Tcp; Definir Cursor Cur_E095For; Definir Cursor Cur_E002Tpt; Definir Cursor Cur_E501McpB; Definir Cursor Cur_E501Mcp; Definir Cursor Cur_e501Mcp; Definir Cursor Cur_Usu_T500Mut; Definir Cursor Cur_E600Cco; Definir Cursor Cur_E002Htt; Definir Cursor Cur_E047Ntg; Definir Cursor Cur_e095hfo; Definir alfa VCplBas11S; Definir alfa VCplBas13S; Definir alfa SNumTit; Definir alfa SCodTpt; Definir alfa SCplAux; Definir alfa SNomFor; Definir alfa STptRlc; Definir alfa SRecSom; Definir alfa STitRlc; Definir alfa STitCmp; Definir alfa STptCmp; Definir alfa STipBxa; Definir alfa sEntMut; sEntMut = ""; @ A entrada é Mutuo? (S/N) @ Definir alfa sNumCco; sNumCco = ""; Definir alfa sAdtRelMut; sAdtRelMut = ""; @ Adiantamento relacionado é de Mutuo? (S/N) @ Definir alfa sCpaRelMut; sCpaRelMut = ""; @ Contas a Pagar relacionado é de Mutuo? (S/N) @ Definir alfa sCtbTpt; NCodFor = E501MCP.CodFor; NCodEmp = E501Mcp.CodEmp; NCodFil = E501Mcp.CodFil; SNumTit = E501Mcp.NumTit; SCodTpt = E501Mcp.CodTpt; NSeqMov = E501Mcp.SeqMov; nFilRlc = E501Mcp.FilRlc; STptRlc = E501Mcp.TptRlc; STitRlc = E501Mcp.NumRlc; nForRlc = E501Mcp.ForRlc; SCplAux = ""; NCodCli = 0; STipBxa = ""; sNumCco = E501Mcp.NumCco; /**************** Verifica se contabiliza pela natureza de gasto ****************/ Cur_E501McpB.SQL "SELECT \ CODEMP \ FROM \ E501MCP \ WHERE \ 0=1 \ UNION \ SELECT \ DISTINCT 1 \ FROM \ E501MCP \ WHERE \ CodFor IN (3, 9, 12, 21, 25, 39, 43, 79, 87, 90, 107, 137, 149, 160, 174, 192, 198, 215, 271, 313, 346, 371, 372, 388, 419, 440, 451, 466, 537, 544, 552, 566, 20286, 574, 565, 615, 623, 29070, 739, 742, 756, \ 757, 759, 761, 804, 928, 947, 973, 976, 985, 993, 999, 1055, 1385, 1501, 1520, 1637, 2374, 2407, 2421, 2745, 3450, 3642, 4003, 8826, 4443, 38097, 5217, 5563, 5613, 5681, 5673, 31084, 5768, 5805, 5892, 5970, \ 6151, 6187, 6191, 6280, 6347, 6480, 6555, 6557, 6608, 6698, 6703, 6729, 6774, 6933, 7071, 7174, 7181, 7238, 7299, 7328, 7349, 7392, 7563, 31015, 18846, 36971, 7572, 31753, 7655, 7659, 7686, 7767, 7847, 7865, \ 7867, 7879, 8256, 8358, 8469, 8510, 8744, 8792, 8794, 8808, 8859, 8960, 9165, 9214, 9275, 9309, 9313, 9342, 9345, 9428, 9512, 34153, 9575, 9576, 9609, 9832, 9912, 16321, 9969, 37227, 31589, 10536, 10686, \ 10693, 10840, 10864, 10874, 10890, 11009, 11019, 11044, 10938, 11241, 11288, 11315, 11391, 11404, 11927, 11948, 12068, 12077, 28028, 12225, 12364, 12380, 37913, 37940, 12550, 12552, 12603, 40875, 12607, 12623, 12628, \ 12806, 12958, 13200, 13201, 13204, 13217, 13229, 13364, 13387, 16923, 13441, 13503, 13556, 13585, 13594, 13621, 13624, 13636, 13637, 38482, 38514, 13643, 13649, 13651, 8311, 13652, 13682, 13685, 13692, 13702, \ 13703, 13723, 13754, 13773, 13812, 13818, 13826, 13920, 13965, 13982, 14039, 14074, 14091, 14092, 28677, 14120, 14121, 14122, 14123, 14125, 14126, 34512, 21991, 38373, 14130, 14131, 14136, 14137, 14141, 9317, 14191, \ 14254, 14256, 14265, 14280, 14292, 14293, 14295, 14411, 14414, 14437, 14438, 14850, 15019, 15026, 15038, 15087, 15230, 36934, 15312, 5801, 15331, 15446, 15447, 15450, 30393, 15452, 18736, 15453, 31499, 15458, 15469, \ 15472, 15478, 15482, 15483, 15508, 15560, 12232, 15566, 15600, 15669, 15670, 15675, 15681, 15689, 15690, 15691, 15779, 15948, 15984, 16054, 37856, 16084, 30857, 16111, 40409, 16112, 16143, 14186, 16144, 16148, 16154, \ 16176, 16177, 16178, 16230, 16246, 16249, 16297, 16312, 16319, 16320, 16343, 16357, 18959, 16401, 16404, 16405, 16431, 16438, 16463, 16465, 16479, 36469, 33927, 16487, 16494, 17212, 28693, 16500, 16522, 16532, 16539, \ 16580, 16584, 16587, 16596, 16610, 16629, 16646, 16676, 16788, 16806, 16813, 6726, 16843, 16856, 16877, 16911, 16921, 32245, 16929, 16936, 37792, 16949, 16957, 28514, 16932, 16967, 36479, 16977, 16985, 17005, 17015, \ 17030, 17037, 17059, 17070, 17071, 17074, 17079, 17096, 17105, 31300, 34023, 32614, 29810, 17115, 17120, 17131, 17165, 17195, 17196, 17230, 17231, 17234, 17280, 17283, 17292, 17300, 17301, 17326, 17339, 17345, \ 17354, 17356, 17379, 17397, 17407, 17433, 17449, 17467, 31081, 17482, 17485, 32894, 17486, 17487, 17497, 17509, 17515, 17516, 17517, 17521, 17526, 6362, 6351, 17528, 17529, 17530, 17534, 14270, 17544, 17561, 17563, \ 17572, 17582, 17587, 17588, 17594, 17633, 17638, 17640, 28449, 17652, 17655, 31081, 27748, 4508, 17657, 17661, 17687, 17689, 17712, 17714, 17765, 17774, 28499, 28500, 17778, 17781, 17787, 17789, 17839, 17841, 17843, 17874, \ 17876, 17877, 17878, 17879, 17880, 17881, 17882, 17891, 17893, 17901, 29277, 17902, 17905, 31076, 17927, 17934, 17935, 17966, 17975, 17976, 17977, 17983, 17984, 30736, 17985, 37398, 18001, 18032, 18033, 12605, 18034, \ 18035, 18037, 18038, 18047, 18051, 18059, 18064, 18066, 18072, 18078, 18082, 18083, 18091, 18094, 18106, 18114, 18116, 18117, 18122, 25173, 18125, 18129, 37364, 27438, 37397, 18133, 35569, 18138, 18145, 18157, 18159, \ 18170, 18171, 18179, 18193, 18194, 18197, 18199, 18204, 31858, 7286 , 18208, 18209, 18212, 18215, 18216, 18217, 18218, 18226, 18229, 18234, 18235, 632, 18255, 18257, 31115, 18265, 18277, 18292, 18327, 18328, 39127, 39237, \ 18363, 18380, 18381, 18397, 18444, 18450, 18471, 18477, 18481, 18513, 90277, 18515, 18532, 18534, 18537, 18538, 18563, 18565, 18602, 18608, 29048, 18621, 18645, 18929, 18648, 20119, 20120, 18667, 18671, 18680, 18693, \ 18703, 18706, 18726, 18749, 18756, 18757, 18758, 18759, 18787, 26990, 28049, 27584, 24896, 18794, 18796, 18797, 18800, 18801, 18805, 18813, 18851, 18873, 18882, 29146, 18887, 18926, 18956, 19041, 19404, 19407, 19419, \ 19432, 19458, 19463, 19476, 19478, 19490, 19508, 19558, 19560, 35674, 19562, 19579, 19583, 19603, 19608, 19610, 19651, 19662, 19727, 32689, 19817, 19829, 19835, 19919, 19493, 19930, 19951, 19952, 13011, 19953, 16003, \ 19964, 19965, 19966, 19967, 19974, 19975, 20032, 20041, 20094, 20095, 20096, 20108, 20117, 14111, 24806, 20123, 20124, 20130, 20138, 20144, 20145, 35879, 29832, 20146, 20149, 20152, 26863, 20189, 20190, 20383, 20390, \ 20401, 20411, 20433, 20445, 20475, 20482, 20483, 20500, 20502, 20521, 36030, 20523, 29097, 29685, 20589, 20599, 20629, 20664, 20733, 20734, 20735, 20736, 20801, 20802, 15659, 20852, 28036, 20853, 20854, 20855, 20861, \ 20869, 20896, 20906, 20912, 20927, 20931, 20989, 21012, 21041, 21043, 21064, 21065, 21244, 21297, 21323, 21330, 21358, 21359, 32319, 21370, 21371, 21384, 37158, 21396, 32441, 27732, 20744, 21564, 21662, 21670, 21671, \ 21691, 21749, 21773, 21778, 21782, 21840, 21862, 21967, 16486, 21968, 22121, 22229, 22581, 22662, 30720, 23257, 23355, 23441, 23610, 23641, 23720, 23721, 23722, 23797, 33740, 19491, 23845, 27604, 23985, 24248, 24315, \ 24554, 24797, 24875, 25200, 25252, 25393, 25442, 25861, 25882, 29833, 30777, 25949, 25950, 25953, 25989, 26183, 26229, 26330, 26370, 26415, 26467, 26737, 34588, 26794, 26795, 33948, 33797, 26805, 534, 27094, 27115, 27302, \ 27444, 27786, 27795, 27818, 27846, 27852, 28002, 28025, 28231, 28236, 26990, 28879, 30260, 30273, 31212, 28322, 28346, 28348, 28368, 28398, 28577, 28630, 28648, 28650, 28716, 28717, 28727, 28734, 28742, 28907, 28938, \ 29117, 29366, 29418, 30808, 31145, 33312, 34097, 50180, 30148, 50181, 91169, 13180, 24210, 20934, 28160, 20935, 20937, 20938, 21053, 21144, 21146, 21161, 21162, 21177, 21221, 21221, 21253, 21275, 20203, 33870, 33932, \ 20206, 20265, 20301, 20302, 20303, 20368, 20382, 18966, 18967, 18978, 18979, 15681, 18983, 18984, 18985, 18986, 18987, 18988, 18992, 19036, 19044, 34346, 34575, 34969, 19062, 30658, 19063, 19064, 19065, 19066, 19067, \ 19068, 19114, 19136, 19137, 19185, 19307, 19308, 19309, 19312, 19349, 19360, 27340, 19376, 18910, 26916, 18913, 37438, 18914, 13837, 36031, 19195, 15453, 18923, 21296, 5935, 34191, 6191, 12068, 16587, 16357, 17594, 23722, \ 29080, 35001, 19508, 20938, 26524, 26525, 30334, 32802, 12432, 12077, 1003, 29560, 28950, 38277, 36893, 30720, 27506, 33772, 14254, 31313, 38264, 14146, 25173, 33844, 35031, 35511, 36902, 37260, 37334, 37338, 37347, 37474, \ 37515, 37545, 37557, 37558, 37560, 37573, 37635, 37643, 37741, 37743, 37770, 37786, 14253, 12508, 30955, 41951, 14146, 27894, 6369, 37810, 37848, 38116, 38186, 38214, 38333, 38358, 38378, 38389, 38440, 38484, 38516, \ 38528, 38768, 38768, 38872, 38874, 38956, 33791, 39028, 33775, 31479, 8519, 34038, 39113, 32457, 21148, 158, 7639) AND \ CodTpt IN ('01', '02', '400', '13S', 'ADT', 'COF', 'CSL', 'DEP', 'DFA', 'DIA', 'DIF', 'ITR', 'FAI', 'FDE', 'FER', 'FGT', 'FPI', 'FPG', 'CHD', 'FRT', 'FUN', 'ICA', 'ICM', 'ICS', 'IGT', 'INS', \ 'IPV', 'IRF', 'IRP', 'IPT', 'ISS', 'COM', 'LIC', 'LUC', 'MUL', 'PEN', 'PIS', 'CRB', 'RES', 'CRB','SES') AND \ CodFor = :nCodFor AND \ CodTpt = :sCodTpt"; Cur_E501McpB.AbrirCursor(); se(Cur_E501McpB.Achou) Inicio Cur_E047Ntg.SQL "Select e047Ntg.CtaRdv \ From e047Ntg, e501tcp \ Where e501Tcp.CodEmp = e047Ntg.CodEmp And \ e501Tcp.CodNtg = e047Ntg.CodNtg And \ e501Tcp.CodEmp = :nCodEmp And \ e501Tcp.CodFil = :nCodFil And \ e501Tcp.NumTit = :sNumTit And \ e501Tcp.CodTpt = :sCodTpt And \ e501Tcp.CodFor = :nCodFor"; Cur_E047Ntg.AbrirCursor(); Se (Cur_E047Ntg.Achou) Inicio VCtaDeb1 = Cur_E047Ntg.CtaRdv; Fim; Cur_E047Ntg.FecharCursor(); Fim; Cur_E501McpB.FecharCursor();