API tools faq
paste
Advertisement
IcaroPeretti

FRCR120

IcaroPeretti
May 9th, 2022
200
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.30 KB | None | 0 0
raw download clone embed print report
  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
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!