API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 27th, 2019
117
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.89 KB | None | 0 0
raw download clone embed print report
  1. unit ufrm_Pincipal;
  2.  
  3. interface
  4.  
  5. uses
  6. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  7. System.Classes, Vcl.Graphics,
  8. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxLookAndFeels,
  9. cxLookAndFeelPainters, Vcl.Menus, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  10. dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
  11. dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  12. dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  13. dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
  14. dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
  15. dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  16. dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  17. dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
  18. dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
  19. dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  20. dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  21. dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
  22. dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
  23. dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
  24. dxSkinXmas2008Blue, Data.DB, JvCsvData, Vcl.StdCtrls, cxButtons,
  25. u_Funcoes, MemDS, DBAccess, Uni, UniProvider, MySQLUniProvider, Vcl.ComCtrls;
  26.  
  27. type
  28. TForm1 = class(TForm)
  29. OpenDialogCSV: TOpenDialog;
  30. a_receber: TcxButton;
  31. TabFinanceiro: TJvCsvDataSet;
  32. Fin_Mov: TUniQuery;
  33. tabparc: TUniQuery;
  34. UniSQL1: TUniSQL;
  35. Conexao: TUniConnection;
  36. UniSQL2: TUniSQL;
  37. Fin_Movid: TLargeintField;
  38. Fin_Movfin_operacao: TStringField;
  39. Fin_Movdt_emissao: TDateField;
  40. Fin_Movnumero_documento: TStringField;
  41. Fin_Movnf_numero: TFloatField;
  42. Fin_Movnf_serie: TStringField;
  43. Fin_Movnf_mod: TStringField;
  44. Fin_Movnf_chave: TStringField;
  45. Fin_Movvalor: TFloatField;
  46. Fin_Movcontabil_historico_id: TIntegerField;
  47. Fin_Movhistorico_narrativa: TStringField;
  48. Fin_Movpessoa_id: TIntegerField;
  49. Fin_Movcontabil_conta_debito_id: TIntegerField;
  50. Fin_Movcontabil_conta_credito_id: TIntegerField;
  51. Fin_Movconciliado: TStringField;
  52. Fin_Movcancelado: TStringField;
  53. Fin_Movtipo: TStringField;
  54. Fin_Movregistrar_modulo_contabil: TStringField;
  55. Fin_Movtransferencia: TStringField;
  56. Fin_Movpossui_instrucao_protesto: TStringField;
  57. Fin_Movfin_planoconta_id: TIntegerField;
  58. Fin_Movfin_subplanoconta_id: TIntegerField;
  59. Fin_Movqtde_parcelas: TIntegerField;
  60. Fin_Movtipo_lancamento: TStringField;
  61. Fin_Movsituacao: TStringField;
  62. Fin_Movempresa_id: TIntegerField;
  63. Fin_Movcontrole_fin: TLargeintField;
  64. Fin_Movcodigo_barras: TStringField;
  65. Fin_Movfin_obs: TMemoField;
  66. Fin_Movfin_centrocusto_id: TIntegerField;
  67. Fin_Movfin_centrocusto_rateado: TStringField;
  68. Fin_Movprazo_id: TIntegerField;
  69. Fin_Movnota_naturezaoperacao_id: TIntegerField;
  70. Fin_Movfin_modalidade_id: TIntegerField;
  71. Fin_Movperiodicidade: TStringField;
  72. Fin_Movmoney_id: TIntegerField;
  73. Fin_Movnota_cabecalho_id: TLargeintField;
  74. Fin_Movnota_pontodevenda_id: TIntegerField;
  75. Fin_Movcaixa_diario_id: TLargeintField;
  76. Fin_Movnfse_cabecalho_id: TLargeintField;
  77. Fin_Movold_codigo_plano: TIntegerField;
  78. Fin_Movold_codigo_subplano: TIntegerField;
  79. Fin_Movold_planoconta: TStringField;
  80. Fin_Movold_subplano: TStringField;
  81. Fin_Movcontrato_software_id: TIntegerField;
  82. Fin_Movfin_marcador_id: TIntegerField;
  83. Fin_Movtag: TStringField;
  84. Fin_Movrest_terminal_id: TIntegerField;
  85. Fin_Movrest_turno_id: TLargeintField;
  86. Fin_Movturno_dthr_abertura: TDateTimeField;
  87. Fin_Movturno_dthr_fechamento: TDateTimeField;
  88. Fin_Movcx_caixa_id: TLargeintField;
  89. Fin_Movecf_numero_serie: TStringField;
  90. Fin_Movecf_numero: TIntegerField;
  91. Fin_Movcx_caixa_atual_id: TLargeintField;
  92. Fin_Movcx_nome_id: TIntegerField;
  93. Fin_Movcx_nome_atual_id: TIntegerField;
  94. tabparcid: TLargeintField;
  95. tabparcfin_mov_id: TLargeintField;
  96. tabparcfin_modalidade_id: TIntegerField;
  97. tabparccartao_bandeira_id: TIntegerField;
  98. tabparctipo_cartao: TStringField;
  99. tabparcparcela: TIntegerField;
  100. tabparcvencimento: TDateField;
  101. tabparcvalor_parcela: TFloatField;
  102. tabparcjuros_perc: TFloatField;
  103. tabparcmulta_perc: TFloatField;
  104. tabparcdesconto_perc: TFloatField;
  105. tabparcjuros: TFloatField;
  106. tabparcmulta: TFloatField;
  107. tabparcdesconto: TFloatField;
  108. tabparcvalor_final: TFloatField;
  109. tabparcparcela_situacao: TStringField;
  110. tabparcfin_conta_id: TIntegerField;
  111. tabparcnumero_doc_parc: TStringField;
  112. tabparcobs_parcela: TStringField;
  113. tabparcparcela_dt_baixa: TDateField;
  114. tabparcparcela_dthr_registro_baixa: TDateTimeField;
  115. tabparcfin_baixa_controle_id: TLargeintField;
  116. tabparcfin_taxa_qtd_parcelas: TIntegerField;
  117. tabparcfin_taxa_cartao_perc: TFloatField;
  118. tabparcfin_taxa_cartao_valor: TFloatField;
  119. tabparcfin_cartao_parcelante: TStringField;
  120. tabparcfin_localcobranca_id: TIntegerField;
  121. tabparctitulo_descontado: TStringField;
  122. tabparcmoney_id: TIntegerField;
  123. tabparcmoney_filial_id: TIntegerField;
  124. tabparcsituacao_entrega_doc: TStringField;
  125. tabparccaixa_diario_id: TLargeintField;
  126. tabparcch_compensacao: TStringField;
  127. tabparcch_banco: TStringField;
  128. tabparcch_agencia: TStringField;
  129. tabparcch_agencia_digito: TStringField;
  130. tabparcch_contacorrente: TStringField;
  131. tabparcch_contacorrente_digito: TStringField;
  132. tabparcch_numero: TStringField;
  133. tabparcch_numero_digito: TStringField;
  134. tabparcch_nome: TStringField;
  135. tabparcch_terceiro: TStringField;
  136. tabparcch_cpf_cnpj: TStringField;
  137. tabparcch_fone: TStringField;
  138. tabparcch_obs: TStringField;
  139. tabparccartao_doc: TLargeintField;
  140. tabparccartao_aut: TStringField;
  141. tabparcnota_dup_id: TIntegerField;
  142. tabparcch_emissao: TDateField;
  143. tabparcboleto_configuracao_id: TIntegerField;
  144. tabparcboleto_nossonumero: TLargeintField;
  145. tabparcboleto_desc_real_ate_venc: TFloatField;
  146. tabparcboleto_desc_perc_ate_venc: TFloatField;
  147. tabparcboleto_desc_vencimento: TDateField;
  148. tabparcprotestado: TStringField;
  149. tabparcfin_cartao_operadora_id: TIntegerField;
  150. tabparcdt_operacao: TDateTimeField;
  151. tabparccobrado_multa: TFloatField;
  152. tabparccobrado_juros: TFloatField;
  153. tabparcobservacoes: TMemoField;
  154. tabparcobservacoes_internas: TMemoField;
  155. tabparcrecalculado: TStringField;
  156. tabparcultima_notificacao: TDateField;
  157. tabparcqtde_segundas_vias: TIntegerField;
  158. tabparcbloquear_notificacao_automatica: TStringField;
  159. tabparcold_vencimento_original: TDateField;
  160. tabparcold_valor_original: TFloatField;
  161. tabparcold_valor_final: TFloatField;
  162. tabparcdata_competencia: TDateField;
  163. tabparcqtd_notificacoes: TIntegerField;
  164. tabparcparcelavinculada_id: TLargeintField;
  165. tabparcvinculo: TLargeintField;
  166. tabparcboleto_protestar: TStringField;
  167. tabparcrest_dthr_recebimento: TDateTimeField;
  168. tabparcrest_venda_diaria_id: TLargeintField;
  169. tabparccx_caixa_id: TLargeintField;
  170. tabparcbloquear_notificacao: TStringField;
  171. tabparccx_caixa_atual_id: TLargeintField;
  172. tabparccx_nome_id: TIntegerField;
  173. tabparccx_nome_atual_id: TIntegerField;
  174. tabparcliberado_contabilidade: TStringField;
  175. tabparcrecibo_id: TIntegerField;
  176. tabcli: TUniQuery;
  177. tabcliid: TIntegerField;
  178. tabcligenero: TStringField;
  179. tabcliregime: TStringField;
  180. tabclinome: TStringField;
  181. tabclinome_fantasia: TStringField;
  182. tabclicnpj: TStringField;
  183. tabcliie: TStringField;
  184. tabclicep: TStringField;
  185. tabcliendereco: TStringField;
  186. tabclinumero: TStringField;
  187. tabclicomplemento: TStringField;
  188. tabclibairro: TStringField;
  189. tabclitelefone: TStringField;
  190. tabclifax: TStringField;
  191. tabclicelular: TStringField;
  192. tabclimotivo_status: TStringField;
  193. tabclistatus: TStringField;
  194. tabcligrupo_pessoa_id: TIntegerField;
  195. tabcliuf: TStringField;
  196. tabclicidade_id: TIntegerField;
  197. tabclilogin: TStringField;
  198. tabclisenha: TStringField;
  199. tabclidt_cadastro: TDateField;
  200. tabclidt_nascimento: TDateField;
  201. tabclicontato: TStringField;
  202. tabcliref_01: TStringField;
  203. tabcliref_02: TStringField;
  204. tabcliref_03: TStringField;
  205. tabcliref_04: TStringField;
  206. tabcliref_entrega: TStringField;
  207. tabcliemail_principal: TStringField;
  208. tabclilimite_credito: TFloatField;
  209. tabclispc: TStringField;
  210. tabclidt_consultaspc: TDateField;
  211. tabclivendedorpadrao_id: TIntegerField;
  212. tabcliobservacoes: TMemoField;
  213. tabclicodigo_interno: TStringField;
  214. tabclitipo_cliente: TStringField;
  215. tabclitipo_fornecedor: TStringField;
  216. tabclitipo_transportadora: TStringField;
  217. tabclitipo_funcionario: TStringField;
  218. tabclitipo_vendedor: TStringField;
  219. tabclitipo_usuario: TStringField;
  220. tabclitipo_outros: TStringField;
  221. tabclitipo_outros_descricao: TStringField;
  222. tabcligrupousuario_id: TIntegerField;
  223. tabclisalario: TFloatField;
  224. tabclidt_registro: TDateField;
  225. tabclicargo: TStringField;
  226. tabclirefcontato: TStringField;
  227. tabclitipo_tecnico: TStringField;
  228. tabclitipo_locador: TStringField;
  229. tabclitipo_locatario: TStringField;
  230. tabcliregimetributario_descricao: TStringField;
  231. tabclicnae: TIntegerField;
  232. tabclicodigo_externo: TIntegerField;
  233. tabcliativar_agenda: TStringField;
  234. tabclicodigo_vendedor: TIntegerField;
  235. tabclitransportadora_uf_placa: TStringField;
  236. tabclitransportadora_placa: TStringField;
  237. tabclitipo_revenda: TStringField;
  238. tabclitransportadora_padrao_id: TIntegerField;
  239. tabclisegmento_id: TIntegerField;
  240. tabclimedia_volume: TFloatField;
  241. tabclimedia_valor: TFloatField;
  242. tabclimedia_afericao: TDateField;
  243. tabclimedia_periodo_inicial: TDateField;
  244. tabclimedia_periodo_final: TDateField;
  245. tabclimedia_qtde_movimentacoes: TIntegerField;
  246. tabclisincronizado: TStringField;
  247. tabcliadministradora_cartao: TStringField;
  248. tabclipai: TStringField;
  249. tabclimae: TStringField;
  250. tabcliconjuge: TStringField;
  251. tabcliconjuge_cpf: TStringField;
  252. tabcliconjuge_cel: TStringField;
  253. tabcliconjuge_empresa: TStringField;
  254. tabclilocal_trabalho: TStringField;
  255. tabclidt_ultimamov: TDateField;
  256. tabclivendedor_comissao: TFloatField;
  257. tabcliext_codigo_cliente: TIntegerField;
  258. tabcliext_codigo_fornecedor: TIntegerField;
  259. tabcliext_codigo_vendedor: TIntegerField;
  260. tabcliliberar_venda_prazo: TStringField;
  261. tabcliacesso_grupo_id: TIntegerField;
  262. tabcliadministrador: TStringField;
  263. tabclipessoa_avatar: TMemoField;
  264. tabcliacesso_datahora: TDateTimeField;
  265. tabcliacesso_ip: TStringField;
  266. tabclicobranca_endereco: TStringField;
  267. tabclicobranca_numero: TStringField;
  268. tabclicobranca_complemento: TStringField;
  269. tabclicobranca_bairro: TStringField;
  270. tabclicobranca_telefone1: TStringField;
  271. tabclicobranca_telefone2: TStringField;
  272. tabclicobranca_telefone3: TStringField;
  273. tabclicobranca_contato: TStringField;
  274. tabclicobranca_email: TStringField;
  275. tabclicobranca_cep: TStringField;
  276. tabclicobranca_uf: TStringField;
  277. tabclicobranca_cidade_id: TIntegerField;
  278. tabclicod_cnae_principal: TStringField;
  279. tabclisf_capitalsocial: TFloatField;
  280. tabclisf_capitalintegralizado: TFloatField;
  281. tabclisf_capitalgiro: TFloatField;
  282. tabclisf_imobilizado: TFloatField;
  283. tabclicobranca_ref_entrega: TStringField;
  284. tabcliurl: TStringField;
  285. tabcliconfig_email_smtp: TStringField;
  286. tabcliconfig_email_smtp_porta: TIntegerField;
  287. tabcliconfig_email_usuario: TStringField;
  288. tabcliconfig_email_senha: TStringField;
  289. tabcliconfig_email_pop: TStringField;
  290. tabcliconfig_email_pop_porta: TSmallintField;
  291. tabcliconfig_email_smtp_ssl: TStringField;
  292. tabcliconfig_email_pop_ssl: TStringField;
  293. tabcliconfig_email_pop_usuario: TStringField;
  294. tabcliconfig_email_pop_senha: TStringField;
  295. tabcliincentivador_cultural: TStringField;
  296. tabcliinscricao_municipal: TStringField;
  297. tabclioptante_simplesnacional: TStringField;
  298. tabclireter_iss: TStringField;
  299. tabcliregiao_id: TIntegerField;
  300. tabclipessoa_classificacao_id: TIntegerField;
  301. tabcliqualificacao_financeira: TStringField;
  302. tabclilatitude: TFloatField;
  303. tabclilongitude: TFloatField;
  304. tabclilatitude_cobranca: TFloatField;
  305. tabclilongitude_cobranca: TFloatField;
  306. tabclick_geo_principal_ok: TStringField;
  307. tabclick_geo_cobranca_ok: TStringField;
  308. tabclidt_status: TDateField;
  309. tabclidt_revisao_cadastro: TDateField;
  310. tabclicnae_descricao: TStringField;
  311. tabclisituacao_receita: TStringField;
  312. tabclinatureza_juridica: TStringField;
  313. tabclitipo: TStringField;
  314. tabclicnae_fiscal: TStringField;
  315. tabcliroadmap_mostrado: TStringField;
  316. tabcliliberar_bi: TStringField;
  317. tabclibloquear_automatico: TStringField;
  318. tabclibloqueado_automatico: TStringField;
  319. tabcliagenda_workstart: TTimeField;
  320. tabcliagenda_workfinish: TTimeField;
  321. tabcliagenda_workdays_dsunday: TStringField;
  322. tabcliagenda_workdays_dmonday: TStringField;
  323. tabcliagenda_workdays_dtuesday: TStringField;
  324. tabcliagenda_workdays_dtwednesday: TStringField;
  325. tabcliagenda_workdays_dthursday: TStringField;
  326. tabcliagenda_workdays_dfriday: TStringField;
  327. tabcliagenda_workdays_dsaturday: TStringField;
  328. tabclicodigo_importacao: TIntegerField;
  329. tabclicodigo_restaurante: TIntegerField;
  330. tabclirestaurante_nivel_acesso: TStringField;
  331. tabcliultima_notificacao_email: TDateField;
  332. tabcliempresa_padrao_id: TIntegerField;
  333. tabclidia_vencimento_carteira: TSmallintField;
  334. tabcliws_map_id: TIntegerField;
  335. tabclicontrato_nivel_acesso: TIntegerField;
  336. tabcliboleto_protestar: TStringField;
  337. tabclipessoa_tabela_desconto_id: TIntegerField;
  338. tabclicx_turno_id: TIntegerField;
  339. tabclioperador_cx: TStringField;
  340. tabcliecf_integrado: TStringField;
  341. tabclicod_operador_restaurante: TStringField;
  342. tabcliie_suframa: TStringField;
  343. tabclitab_preco_id: TIntegerField;
  344. tabclilista_emails_ativar: TStringField;
  345. tabclilista_emails_ativar_cobranca_antes: TStringField;
  346. tabclilista_emails_ativar_cobranca_apos: TStringField;
  347. tabclilista_emails_bloqueada_ate: TDateField;
  348. tabclicb_contabilidade: TStringField;
  349. tabclicontribuinte_icms: TStringField;
  350. tabcliusuario_id: TIntegerField;
  351. MySQLUniProvider1: TMySQLUniProvider;
  352. a_pagar: TcxButton;
  353. RichEdit1: TRichEdit;
  354. TabFinanceiroEMISSAO: TStringField;
  355. TabFinanceiroCODIGO_CLIENTE: TIntegerField;
  356. TabFinanceiroNOME: TStringField;
  357. TabFinanceiroNUMERO_DOC: TStringField;
  358. TabFinanceiroVENCIMENTO: TDateField;
  359. TabFinanceiroVALOR: TFloatField;
  360. TabFinanceiroCONTA_ID: TIntegerField;
  361. TabFinanceiroPLANO_ID: TIntegerField;
  362. TabFinanceiroSUBPLANO_ID: TIntegerField;
  363. TabFinanceiroMODALIDADE_ID: TIntegerField;
  364. procedure a_receberClick(Sender: TObject);
  365. procedure a_pagarClick(Sender: TObject);
  366. private
  367. { Private declarations }
  368. public
  369. { Public declarations }
  370. end;
  371.  
  372. var
  373. Form1: TForm1;
  374.  
  375. implementation
  376.  
  377. {$R *.dfm}
  378.  
  379. procedure TForm1.a_pagarClick(Sender: TObject);
  380. var
  381. _logslista: tstrings;
  382. i: integer;
  383. x: integer;
  384. begin
  385. inherited;
  386. _logslista := tstringlist.create;
  387. try
  388. TabFinanceiro.LoadsFromFile := True;
  389. TabFinanceiro.FileName := 'C:\pagar.csv';
  390. TabFinanceiro.open;
  391. TabFinanceiro.first;
  392. tabparc.open;
  393. tabparc.DisableControls;
  394. _logslista.add
  395. ('EMISSAO;CODIGO_CLIENTE;NOME;NUMERO_DOC;VENCIMENTO;VALOR;CONTA_ID;PLANO_ID;SUBPLANO_ID;MODALIDADE_ID');
  396. x := TabFinanceiro.RecordCount;
  397. i := 1;
  398. while not TabFinanceiro.eof do
  399. begin
  400. tabcli.close;
  401. tabcli.Params[0].asinteger := TabFinanceiroCODIGO_CLIENTE.asinteger;
  402. tabcli.open;
  403. if tabcli.isempty then
  404. begin
  405. _logslista.add('NAO-ENCONTRADO;' + TabFinanceiroCODIGO_CLIENTE.AsString
  406. + ';' + TabFinanceiroNOME.AsString + ';' +
  407. TabFinanceiroNUMERO_DOC.AsString + ';' +
  408. TabFinanceiroVENCIMENTO.AsString + ';' + TabFinanceiroVALOR.AsString +
  409. ';' + TabFinanceiroCONTA_ID.AsString + ';' +
  410. TabFinanceiroPLANO_ID.AsString + ';' +
  411. TabFinanceiroSUBPLANO_ID.AsString + ';' +
  412. TabFinanceiroMODALIDADE_ID.AsString);
  413. end
  414. else
  415. begin
  416. if TabFinanceiroNOME.value <> TabFinanceiroNOME.value then
  417. _logslista.add('NOME-DIFERENTE;' + TabFinanceiroEMISSAO.AsString + ';'
  418. + TabFinanceiroCODIGO_CLIENTE.AsString + ';' +
  419. TabFinanceiroNOME.AsString + ';' + TabFinanceiroNUMERO_DOC.AsString
  420. + ';' + TabFinanceiroVENCIMENTO.AsString + ';' +
  421. TabFinanceiroVALOR.AsString + ';' + TabFinanceiroCONTA_ID.AsString +
  422. ';' + TabFinanceiroPLANO_ID.AsString + ';' +
  423. TabFinanceiroSUBPLANO_ID.AsString + ';' +
  424. TabFinanceiroMODALIDADE_ID.AsString)
  425. else
  426. begin
  427.  
  428. // Conta
  429. Fin_Mov.insert;
  430. //Fin_Movdt_emissao.value := TabFinanceiroEMISSAO.value;
  431. Fin_Movdt_emissao.value := strtodate(TabFinanceiroEMISSAO.AsString);
  432. Fin_Movhistorico_narrativa.value := 'CONTAS A PAGAR';
  433. Fin_Movfin_operacao.value := 'D';
  434. Fin_Movnumero_documento.value := TabFinanceiroNUMERO_DOC.value;
  435. Fin_Movpossui_instrucao_protesto.value := 'N';
  436. Fin_Movvalor.value := 0;
  437. Fin_Movcancelado.value := 'N';
  438. Fin_Movsituacao.value := 'P';
  439. Fin_Movpessoa_id.value := TabFinanceiroCODIGO_CLIENTE.asinteger;
  440. Fin_Movperiodicidade.value := 'V';
  441. Fin_Movempresa_id.value := 1;
  442. Fin_Movnota_pontodevenda_id.value := 1;
  443. Fin_Movfin_planoconta_id.value := TabFinanceiroPLANO_ID.value;
  444. // Fin_Movfin_planoconta_id.value := strtointdef(TabFinanceiroPLANO_ID.value, 10);
  445. Fin_Movfin_subplanoconta_id.value := TabFinanceiroSUBPLANO_ID.value;
  446. // Fin_Movfin_subplanoconta_id.value :=strtointdef(TabFinanceiroSUBPLANO_ID.value, 102);
  447. Fin_Movtransferencia.value := 'N';
  448. Fin_Movfin_centrocusto_id.value := 1;
  449. Fin_Mov.post;
  450.  
  451. // Parcela
  452. tabparc.insert;
  453. tabparcfin_mov_id.value := Fin_Movid.value;
  454. tabparcdata_competencia.value := Fin_Movdt_emissao.value;
  455. tabparcvencimento.value := TabFinanceiroVENCIMENTO.value;
  456. // tabparcvencimento.value := strtodate(TabFinanceiroVENCIMENTO.value);
  457. tabparcparcela.value := 1;
  458. tabparcnumero_doc_parc.value := TabFinanceiroNUMERO_DOC.value;
  459. tabparcparcela_situacao.value := 'P';
  460. tabparctitulo_descontado.value := 'N';
  461. tabparcsituacao_entrega_doc.Clear;
  462. tabparcfin_conta_id.value := TabFinanceiroCONTA_ID.value;
  463. // tabparcfin_conta_id.value := strtointdef(TabFinanceiroCONTA_ID.value, 2);
  464. tabparcfin_modalidade_id.value := TabFinanceiroMODALIDADE_ID.value;
  465. // tabparcfin_modalidade_id.value := strtointdef(TabFinanceiroMODALIDADE_ID.value, 15);
  466. tabparcvalor_parcela.value :=
  467. strtofloat(formatavalor(TabFinanceiroVALOR.AsString));
  468. // tabparcvalor_final.value := strtofloat(formatavalor(TabFinanceiroVALOR.value));
  469. // tabparcvalor_parcela.value := strtofloat(formatavalor(TabFinanceiroVALOR.value));
  470. tabparcvalor_final.value :=
  471. strtofloat(formatavalor(TabFinanceiroVALOR.AsString));
  472. tabparc.post;
  473.  
  474. end;
  475. end;
  476. TabFinanceiro.next;
  477. inc(i);
  478. end;
  479. Fin_Mov.enableControls;
  480. tabparc.enableControls;
  481. tabparc.close;
  482. TabFinanceiro.close;
  483. finally
  484. _logslista.SaveToFile(ExtractFilePath(Application.ExeName) +
  485. 'pagar.csv');
  486. //showmessage(ExtractFilePath(Application.ExeName) + 'pagar.csv');
  487. FreeAndNil(_logslista);
  488. end;
  489. end;
  490.  
  491. procedure TForm1.a_receberClick(Sender: TObject);
  492.  
  493. var
  494. _logslista: tstrings;
  495. i: integer;
  496. x: integer;
  497. begin
  498. inherited;
  499. _logslista := tstringlist.create;
  500. try
  501. TabFinanceiro.LoadsFromFile := True;
  502. TabFinanceiro.FileName := 'C:\receber.csv';
  503. TabFinanceiro.open;
  504. TabFinanceiro.first;
  505. tabparc.open;
  506. tabparc.DisableControls;
  507. _logslista.add
  508. ('EMISSAO;CODIGO_CLIENTE;NOME;NUMERO_DOC;VENCIMENTO;VALOR;CONTA_ID;PLANO_ID;SUBPLANO_ID;MODALIDADE_ID');
  509. x := TabFinanceiro.RecordCount;
  510. i := 1;
  511. while not TabFinanceiro.eof do
  512. begin
  513. tabcli.close;
  514. tabcli.Params[0].asinteger := TabFinanceiroCODIGO_CLIENTE.asinteger;
  515. tabcli.open;
  516. if tabcli.isempty then
  517. begin
  518. _logslista.add('NAO-ENCONTRADO;' + TabFinanceiroCODIGO_CLIENTE.AsString
  519. + ';' + TabFinanceiroNOME.AsString + ';' +
  520. TabFinanceiroNUMERO_DOC.AsString + ';' +
  521. TabFinanceiroVENCIMENTO.AsString + ';' + TabFinanceiroVALOR.AsString +
  522. ';' + TabFinanceiroCONTA_ID.AsString + ';' +
  523. TabFinanceiroPLANO_ID.AsString + ';' +
  524. TabFinanceiroSUBPLANO_ID.AsString + ';' +
  525. TabFinanceiroMODALIDADE_ID.AsString);
  526. end
  527. else
  528. begin
  529. if TabFinanceiroNOME.value <> TabFinanceiroNOME.value then
  530. _logslista.add('NOME-DIFERENTE;' + TabFinanceiroEMISSAO.AsString + ';'
  531. + TabFinanceiroCODIGO_CLIENTE.AsString + ';' +
  532. TabFinanceiroNOME.AsString + ';' + TabFinanceiroNUMERO_DOC.AsString
  533. + ';' + TabFinanceiroVENCIMENTO.AsString + ';' +
  534. TabFinanceiroVALOR.AsString + ';' + TabFinanceiroCONTA_ID.AsString +
  535. ';' + TabFinanceiroPLANO_ID.AsString + ';' +
  536. TabFinanceiroSUBPLANO_ID.AsString + ';' +
  537. TabFinanceiroMODALIDADE_ID.AsString)
  538. else
  539. begin
  540.  
  541. // Conta
  542. Fin_Mov.insert;
  543. //Fin_Movdt_emissao.value := TabFinanceiroEMISSAO.value;
  544. Fin_Movdt_emissao.value := strtodate(TabFinanceiroEMISSAO.value);
  545. Fin_Movhistorico_narrativa.value := 'CONTAS A RECEBER';
  546. Fin_Movfin_operacao.value := 'C';
  547. Fin_Movnumero_documento.value := TabFinanceiroNUMERO_DOC.value;
  548. Fin_Movpossui_instrucao_protesto.value := 'N';
  549. Fin_Movvalor.value := 0;
  550. Fin_Movcancelado.value := 'N';
  551. Fin_Movsituacao.value := 'P';
  552. Fin_Movpessoa_id.value := TabFinanceiroCODIGO_CLIENTE.asinteger;
  553. Fin_Movperiodicidade.value := 'V';
  554. Fin_Movempresa_id.value := 1;
  555. Fin_Movnota_pontodevenda_id.value := 1;
  556. Fin_Movfin_planoconta_id.value := TabFinanceiroPLANO_ID.value;
  557. // Fin_Movfin_planoconta_id.value := strtointdef(TabFinanceiroPLANO_ID.value, 10);
  558. Fin_Movfin_subplanoconta_id.value := TabFinanceiroSUBPLANO_ID.value;
  559. // Fin_Movfin_subplanoconta_id.value :=strtointdef(TabFinanceiroSUBPLANO_ID.value, 102);
  560. Fin_Movtransferencia.value := 'N';
  561. Fin_Movfin_centrocusto_id.value := 1;
  562. Fin_Mov.post;
  563.  
  564. // Parcela
  565. tabparc.insert;
  566. tabparcfin_mov_id.value := Fin_Movid.value;
  567. tabparcdata_competencia.value := Fin_Movdt_emissao.value;
  568. tabparcvencimento.value := TabFinanceiroVENCIMENTO.value;
  569. // tabparcvencimento.value := strtodate(TabFinanceiroVENCIMENTO.value);
  570. tabparcparcela.value := 1;
  571. tabparcnumero_doc_parc.value := TabFinanceiroNUMERO_DOC.value;
  572. tabparcparcela_situacao.value := 'P';
  573. tabparctitulo_descontado.value := 'N';
  574. tabparcsituacao_entrega_doc.Clear;
  575. tabparcfin_conta_id.value := TabFinanceiroCONTA_ID.value;
  576. // tabparcfin_conta_id.value := strtointdef(TabFinanceiroCONTA_ID.value, 2);
  577. tabparcfin_modalidade_id.value := TabFinanceiroMODALIDADE_ID.value;
  578. // tabparcfin_modalidade_id.value := strtointdef(TabFinanceiroMODALIDADE_ID.value, 15);
  579. tabparcvalor_parcela.value :=
  580. strtofloat(formatavalor(TabFinanceiroVALOR.AsString));
  581. // tabparcvalor_final.value := strtofloat(formatavalor(TabFinanceiroVALOR.value));
  582. // tabparcvalor_parcela.value := strtofloat(formatavalor(TabFinanceiroVALOR.value));
  583. tabparcvalor_final.value :=
  584. strtofloat(formatavalor(TabFinanceiroVALOR.AsString));
  585. tabparc.post;
  586.  
  587. end;
  588. end;
  589.  
  590. TabFinanceiro.next;
  591. inc(i);
  592. end;
  593. Fin_Mov.enableControls;
  594. tabparc.enableControls;
  595. tabparc.close;
  596. TabFinanceiro.close;
  597. finally
  598. _logslista.SaveToFile(ExtractFilePath(Application.ExeName) +
  599. 'logs_importacao_financeiro.csv');
  600. showmessage(ExtractFilePath(Application.ExeName) +
  601. 'logs_importacao_financeiro.csv');
  602. FreeAndNil(_logslista);
  603. end;
  604. end;
  605.  
  606. end.
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!