Advertisement
IcaroPeretti

FRCR120

May 9th, 2022
40
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. /*** Contas a Receber - Títulos Abertos por Cliente ***/
  2. /*** FIRT004 ***/
  3. /*** Atualizado em Maio/2002 pelo Consultor Edward Duwe ***/
  4.  
  5. Definir alfa DatIniStr;
  6. Definir alfa DatFimStr;
  7. Definir alfa Cond;
  8. Definir alfa VDesSom;
  9. Definir Numero ETipSom;
  10. ConsFloatB = 0;
  11. ConsMedAtr = 0;
  12. ConsNormal = 0;
  13. Cond = "";
  14.  
  15. PrimeiroItem = 1;
  16.  
  17. FDatBas = EDatBas;
  18. Se (FDatBas = 0)
  19. FDatBas = DatSis;
  20.  
  21. /*** Considerar Abertos ***/
  22.  
  23. Cond = "(E301Tcr.VlrAbe > 0 )";
  24. InsClauSQLWhere ("DETALHE_1", Cond);
  25.  
  26. Cond = "";
  27. Se (ETipSom = 'D') @ Soma Duplicatas @
  28. Inicio
  29. Cond = " AND (E002TPT.RecSom = 'D')";
  30. VDesSom = "Duplicatas";
  31. Fim;
  32. senao
  33. Se (ETipSom = 'O') @ Soma Outros @
  34. Inicio
  35. Cond = " AND (E002TPT.RecSom = 'O')";
  36. VDesSom = "Outros";
  37. Fim;
  38. senao
  39. Se (ETipSom = 'C') @ Soma Creditos @
  40. Inicio
  41. Cond = " AND (E002TPT.RecSom = 'C')";
  42. VDesSom = "Créditos";
  43. Fim;
  44. senao
  45. Se (ETipSom = 'P') @ Soma Duplicatas e Outros @
  46. Inicio
  47. Cond = " AND ((E002TPT.RecSom = 'D') OR (E002TPT.RecSom = 'O'))";
  48. VDesSom = "Duplicatas e Outros";
  49. Fim;
  50. senao
  51. Se (ETipSom = 'T') @ Soma Duplicatas, Outros e Creditos @
  52. Inicio
  53. Cond = " ";
  54. VDesSom = "Duplicatas, Outros e Créditos";
  55. Fim;
  56. senao
  57. inicio
  58. Mensagem(Retorna,"Tipo de Soma Inexistente, [&OK]");
  59. Cancel(1);
  60. fim;
  61. InsClauSQLWhere ("DETALHE_1", Cond);
  62.  
  63. /*** Considerar Efetivos/Previstos ***/
  64.  
  65. /*
  66. ConverteDataToDb(EVctIni,DatIniStr);
  67. ConverteDataToDb(EVctFim,DatFimStr);
  68. */
  69.  
  70. FVctIni = EVctIni;
  71. FVctFim = EVctFim;
  72.  
  73. Se (ELisMod = 1)
  74. Inicio
  75. Cond = " AND (E001TNS.CODEMP = E301TCR.CODEMP" +
  76. " AND E001TNS.CODTNS = E301TCR.CODTNS AND E001TNS.LISMOD = 'CRE')";
  77. InsClauSqlWhere("Detalhe_1",Cond);
  78. Fim;
  79. Senao
  80. Se (ELisMod = 2)
  81. Inicio
  82. Cond = " AND (E001TNS.CODEMP = E301TCR.CODEMP" +
  83. " AND E001TNS.CODTNS = E301TCR.CODTNS AND E001TNS.LISMOD = 'CRP')";
  84. InsClauSqlWhere("Detalhe_1",Cond);
  85. Fim;
  86.  
  87. /*** Considerar Float Bancário e/ou Média de Atraso ***/
  88.  
  89. Se (ETipVct = 1)
  90. Inicio
  91. Se ((EFloBan = 'S') ou (EMedAtr = 'S'))
  92. Inicio
  93. Se ((EFloBan = 'S') e (EMedAtr = 'S'))
  94. Inicio
  95. Se ((EVctIni > 0) e (EVctFim > 0))
  96. Inicio
  97. ConsFloatB = 1;
  98. ConsMedAtr = 1;
  99. Cond = " AND ((E301TCR.DATPPT + E039POR.FLOBAN + " +
  100. "E085HCL.MEDATR >= " + DatIniStr + ")" +
  101. " AND (E301TCR.DATPPT + E039POR.FLOBAN + " +
  102. "E085HCL.MEDATR <= " + DatFimStr + "))";
  103. Fim;
  104. Senao
  105. Inicio
  106. Se (EVctIni > 0)
  107. Inicio
  108. ConsFloatB = 1;
  109. ConsMedAtr = 1;
  110. Cond = " AND (E301TCR.DATPPT + E039POR.FLOBAN + " +
  111. "E085HCL.MEDATR >= " + DatIniStr + ")";
  112. Fim;
  113. Senao
  114. Inicio
  115. Se (EVctFim > 0)
  116. Inicio
  117. ConsFloatB = 1;
  118. ConsMedAtr = 1;
  119. Cond = " AND (E301TCR.DATPPT + E039POR.FLOBAN + " +
  120. "E085HCL.MEDATR <= " + DatFimStr + ")";
  121. Fim;
  122. Fim;
  123. Fim;
  124. Fim;
  125. Senao
  126. Inicio
  127. Se (EFloBan = 'S')
  128. Inicio
  129. Se ((EVctIni > 0) e (EVctFim > 0))
  130. Inicio
  131. ConsFloatB = 1;
  132. Cond = " AND ((E301TCR.DATPPT + " +
  133. "E039POR.FLOBAN >= " + DatIniStr + ")" +
  134. " AND (E301TCR.DATPPT + " +
  135. "E039POR.FLOBAN <= " + DatFimStr + "))";
  136. Fim;
  137. Senao
  138. Inicio
  139. Se (EVctIni > 0)
  140. Inicio
  141. ConsFloatB = 1;
  142. Cond = " AND (E301TCR.DATPPT + " +
  143. "E039POR.FLOBAN >= " + DatIniStr + ")";
  144. Fim;
  145. Senao
  146. Inicio
  147. Se (EVctFim > 0)
  148. Inicio
  149. ConsFloatB = 1;
  150. EVctIni = EDatBas - 10;
  151. ConverteDataToDb(EVctIni,DatIniStr);
  152. Cond = " AND ((E301TCR.DATPPT + " +
  153. "E039POR.FLOBAN >= " + DatIniStr + ")" +
  154. " AND (E301TCR.DATPPT + " +
  155. "E039POR.FLOBAN <= " + DatFimStr + "))";
  156. Fim;
  157. Senao
  158. Inicio
  159. ConsFloatB = 1;
  160. EVctIni = EDatBas - 10;
  161. ConverteDataToDb(EVctIni,DatIniStr);
  162. Cond = " AND (E301TCR.DATPPT + " +
  163. "E039POR.FLOBAN >= " + DatIniStr + ")";
  164. Fim;
  165. Fim;
  166. Fim;
  167. Fim;
  168. Senao
  169. Inicio
  170. Se (EMedAtr = 'S')
  171. Inicio
  172. Se ((EVctIni > 0) e (EVctFim > 0))
  173. Inicio
  174. ConsMedAtr = 1;
  175. Cond = " AND ((E301TCR.DATPPT + " +
  176. "E085HCL.MEDATR >= " + DatIniStr + ")" +
  177. " AND (E301TCR.DATPPT + " +
  178. "E085HCL.MEDATR <= " + DatFimStr + "))";
  179. Fim;
  180. Senao
  181. Inicio
  182. Se (EVctIni > 0)
  183. Inicio
  184. ConsMedAtr = 1;
  185. Cond = " AND (E301TCR.DATPPT + " +
  186. "E085HCL.MEDATR >= " + DatIniStr + ")";
  187. Fim;
  188. Senao
  189. Inicio
  190. Se (EVctFim > 0)
  191. Inicio
  192. ConsMedAtr = 1;
  193. Cond = " AND (E301TCR.DATPPT + " +
  194. "E085HCL.MEDATR <= " + DatFimStr + ")";
  195. Fim;
  196. Fim;
  197. Fim;
  198. Fim;
  199. Fim;
  200. Fim;
  201. Fim;
  202. Senao
  203. Inicio
  204. Se ((EVctIni > 0) e (EVctFim > 0))
  205. Inicio
  206. ConsNormal = 1;
  207. Cond = " AND ((E301TCR.DATPPT >= " + DatIniStr + ")" +
  208. " AND (E301TCR.DATPPT <= " + DatFimStr + "))";
  209. Fim;
  210. Senao
  211. Inicio
  212. Se (EVctIni > 0)
  213. Inicio
  214. ConsNormal = 1;
  215. Cond = " AND (E301TCR.DATPPT >= " + DatIniStr + ")";
  216. Fim;
  217. Senao
  218. Inicio
  219. Se (EVctFim > 0)
  220. Inicio
  221. ConsNormal = 1;
  222. Cond = " AND (E301TCR.DATPPT <= " + DatFimStr + ")";
  223. Fim;
  224. Fim;
  225. Fim;
  226. Fim;
  227. Fim;
  228. Senao
  229. Inicio
  230. Se (ETipVct = 2)
  231. Inicio
  232. Se ((EFloBan = 'S') ou (EMedAtr = 'S'))
  233. Inicio
  234. Se ((EFloBan = 'S') e (EMedAtr = 'S'))
  235. Inicio
  236. Se ((EVctIni > 0) e (EVctFim > 0))
  237. Inicio
  238. ConsFloatB = 1;
  239. ConsMedAtr = 1;
  240. Cond = " AND ((E301TCR.VCTPRO + E039POR.FLOBAN + " +
  241. "E085HCL.MEDATR >= " + DatIniStr + ")" +
  242. " AND (E301TCR.VCTPRO + E039POR.FLOBAN + " +
  243. "E085HCL.MEDATR <= " + DatFimStr + "))";
  244. Fim;
  245. Senao
  246. Inicio
  247. Se (EVctIni > 0)
  248. Inicio
  249. ConsFloatB = 1;
  250. ConsMedAtr = 1;
  251. Cond = " AND (E301TCR.VCTPRO + E039POR.FLOBAN + " +
  252. "E085HCL.MEDATR >= " + DatIniStr + ")";
  253. Fim;
  254. Senao
  255. Inicio
  256. Se (EVctFim > 0)
  257. Inicio
  258. ConsFloatB = 1;
  259. ConsMedAtr = 1;
  260. Cond = " AND (E301TCR.VCTPRO + E039POR.FLOBAN + " +
  261. "E085HCL.MEDATR <= " + DatFimStr + ")";
  262. Fim;
  263. Fim;
  264. Fim;
  265. Fim;
  266. Senao
  267. Inicio
  268. Se (EFloBan = 'S')
  269. Inicio
  270. Se ((EVctIni > 0) e (EVctFim > 0))
  271. Inicio
  272. ConsFloatB = 1;
  273. Cond = " AND ((E301TCR.VCTPRO + " +
  274. "E039POR.FLOBAN >= " + DatIniStr + ")" +
  275. " AND (E301TCR.VCTPRO + " +
  276. "E039POR.FLOBAN <= " + DatFimStr + "))";
  277. Fim;
  278. Senao
  279. Inicio
  280. Se (EVctIni > 0)
  281. Inicio
  282. ConsFloatB = 1;
  283. Cond = " AND (E301TCR.VCTPRO + " +
  284. "E039POR.FLOBAN >= " + DatIniStr + ")";
  285. Fim;
  286. Senao
  287. Inicio
  288. Se (EVctFim > 0)
  289. Inicio
  290. ConsFloatB = 1;
  291. EDatBas = EVctIni - 10;
  292. ConverteDataToDb(EVctIni,DatIniStr);
  293. Cond = " AND ((E301TCR.VCTPRO + " +
  294. "E039POR.FLOBAN >= " + DatIniStr + ")" +
  295. " AND (E301TCR.VCTPRO + " +
  296. "E039POR.FLOBAN <= " + DatFimStr + "))";
  297. Fim;
  298. Senao
  299. Inicio
  300. ConsFloatB = 1;
  301. EVctIni = EDatBas - 10;
  302. ConverteDataToDb(EVctIni,DatIniStr);
  303. Cond = " AND (E301TCR.VCTPRO + " +
  304. "E039POR.FLOBAN >= " + DatIniStr + ")";
  305. Fim;
  306. Fim;
  307. Fim;
  308. Fim;
  309. Senao
  310. Inicio
  311. Se (EMedAtr = 'S')
  312. Inicio
  313. Se ((EVctIni>0) e (EVctFim>0))
  314. Inicio
  315. ConsMedAtr = 1;
  316. Cond = " AND ((E301TCR.VCTPRO + " +
  317. "E085HCL.MEDATR >= " + DatIniStr + ")" +
  318. " AND (E301TCR.VCTPRO + " +
  319. "E085HCL.MEDATR <= " + DatFimStr + "))";
  320. Fim;
  321. Senao
  322. Inicio
  323. Se (EVctIni > 0)
  324. Inicio
  325. ConsMedAtr = 1;
  326. Cond = " AND (E301TCR.VCTPRO + " +
  327. "E085HCL.MEDATR >= " + DatIniStr + ")";
  328. Fim;
  329. Senao
  330. Inicio
  331. Se (EVctFim > 0)
  332. Inicio
  333. ConsMedAtr = 1;
  334. Cond = " AND (E301TCR.VCTPRO + " +
  335. "E085HCL.MEDATR <= " +
  336. "" + DatFimStr + ")";
  337. Fim;
  338. Fim;
  339. Fim;
  340. Fim;
  341. Fim;
  342. Fim;
  343. Fim;
  344. Senao
  345. Inicio
  346. Se ((EVctIni > 0) e (EVctFim > 0))
  347. Inicio
  348. ConsNormal = 1;
  349. Cond = " AND ((E301TCR.VCTPRO >= " + DatIniStr + ")" +
  350. " AND (E301TCR.VCTPRO <= " + DatFimStr + "))";
  351. Fim;
  352. Senao
  353. Inicio
  354. Se (EVctIni > 0)
  355. Inicio
  356. ConsNormal = 1;
  357. Cond = " AND (E301TCR.VCTPRO >= " + DatIniStr + ")";
  358. Fim;
  359. Senao
  360. Inicio
  361. Se (EVctFim > 0)
  362. Inicio
  363. ConsNormal = 1;
  364. Cond = " AND (E301TCR.VCTPRO <= " + DatFimStr + ")";
  365. Fim;
  366. Fim;
  367. Fim;
  368. Fim;
  369. Fim;
  370. Fim;
  371.  
  372. Se ((ConsFloatB = 1) ou (ConsMedAtr = 1) ou (ConsNormal = 1))
  373. InsClauSQLWhere ("DETALHE_1", Cond);
  374.  
  375.  
  376.  
Advertisement
RAW Paste Data Copied
Advertisement