SHARE
TWEET

Untitled

a guest Jun 27th, 2019 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.
RAW Paste Data
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
 
Top