private void LancarFinanceiro() { if (bsEmpreendimento.Current != null) { if ((bsEmpreendimento.Current as CamadaDados.Financeiro.Empreendimento.TRegistro_Empreendimento).St_registro.Trim().ToUpper().Equals("A")) { using (TFLanDuplicata fDuplicata = new TFLanDuplicata()) { fDuplicata.vCd_empresa = (bsEmpreendimento.Current as CamadaDados.Financeiro.Empreendimento.TRegistro_Empreendimento).Cd_empresa; fDuplicata.vNm_empresa = (bsEmpreendimento.Current as CamadaDados.Financeiro.Empreendimento.TRegistro_Empreendimento).Nm_empresa; fDuplicata.cd_empresa.Enabled = false; fDuplicata.bb_empresa.Enabled = false; fDuplicata.St_empreendimento = true; if (fDuplicata.ShowDialog() == DialogResult.OK) { //Ratear Centro de Custo if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("CRESULTADO_PROVISAO", (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Cd_empresa, null).Trim().ToUpper().Equals("S")) { using (TFRateioCResultado fRateio = new TFRateioCResultado()) { fRateio.vVl_Documento = (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Vl_documento_padrao; //fDupCCusto.Id_empreendimento = (bsEmpreendimento.Current as CamadaDados.Financeiro.Empreendimento.TRegistro_Empreendimento).Id_empreendimento.Value.ToString(); fRateio.Tp_mov = (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Tp_mov; fRateio.ShowDialog(); (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).lCustoLancto = fRateio.lCResultado; (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).lCustoLanctoDel = fRateio.lCResultadoDel; } } try { string ret = TCN_LanDuplicata.GravarDuplicata((fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata), false, null); if (ret.Trim() != "") { string lan = CamadaDados.TDataQuery.getPubVariavel(ret, "@P_NR_LANCTO"); MessageBox.Show("Lançamento Financeiro nr:" + lan + " Gravado com Sucesso!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); CamadaDados.Financeiro.Bloqueto.blListaTitulo lBloqueto = CamadaNegocio.Financeiro.Bloqueto.TCN_Titulo.Buscar((fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Cd_empresa, (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Nr_lancto, decimal.Zero, decimal.Zero, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, decimal.Zero, decimal.Zero, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, false, 0, null); if (lBloqueto.Count > 0) { //Chamar tela de impressao para o bloqueto using (TFGerenciadorImpressao fImp = new TFGerenciadorImpressao()) { fImp.St_enabled_enviaremail = true; fImp.pCd_clifor = (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Cd_clifor; fImp.pMensagem = "BLOQUETOS DO DOCUMENTO Nº" + (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Nr_docto; if ((fImp.ShowDialog() == DialogResult.OK) || (fImp.pSt_enviaremail)) { TCN_LayoutBloqueto.Imprime_Bloqueto(false, lBloqueto, fImp.pSt_imprimir, fImp.pSt_visualizar, fImp.pSt_enviaremail, fImp.pSt_exportPdf, fImp.Path_exportPdf, fImp.pDestinatarios, "BLOQUETO(S) DO DOCUMENTO Nº " + (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Nr_docto, fImp.pDs_mensagem, false); } } } } } catch (Exception ex) { MessageBox.Show(ex.Message.Trim()); } } } } else { MessageBox.Show("Não é permitido lançar financeiro para empreendimento com status diferente <ATIVO>.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); } } else { MessageBox.Show("Necessario selecionar empreendimento para lançar financeiro.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); } }
private void BB_Novo_Click(object sender, EventArgs e) { using (TFLanCaixa FLanCaixa = new TFLanCaixa()) { FLanCaixa.dsLanCaixa.DataSource = bindingSourceCaixa; FLanCaixa.dsLanCaixa.AddNew(); (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Vl_Anterior = VL_DifCX.Value; (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Cd_ContaGer = cbContaGer.SelectedItem != null?cbContaGer.SelectedValue.ToString() : string.Empty; if (FLanCaixa.ShowDialog() == DialogResult.OK) { //Lancar Centro Resultado if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("CRESULTADO_EMPRESA", (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Cd_Empresa, null).Trim().ToUpper().Equals("S")) { //Verificar se historico possui centro resultado cadastrado object obj = new TCD_CadHistorico().BuscarEscalar( new TpBusca[] { new TpBusca() { vNM_Campo = "a.cd_historico", vOperador = "=", vVL_Busca = "'" + (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Cd_Historico.Trim() + "'" } }, "a.cd_centroresult"); if (obj == null ? false : !string.IsNullOrEmpty(obj.ToString())) { (bindingSourceCaixa.Current as TRegistro_LanCaixa).lCustoLancto.Add( new CamadaDados.Financeiro.CCustoLan.TRegistro_LanCCustoLancto() { Cd_empresa = (bindingSourceCaixa.Current as TRegistro_LanCaixa).Cd_Empresa, Cd_centroresult = obj.ToString(), Vl_lancto = (bindingSourceCaixa.Current as TRegistro_LanCaixa).Vl_PAGAR > decimal.Zero ? (bindingSourceCaixa.Current as TRegistro_LanCaixa).Vl_PAGAR : (bindingSourceCaixa.Current as TRegistro_LanCaixa).Vl_RECEBER, Dt_lancto = (bindingSourceCaixa.Current as TRegistro_LanCaixa).Dt_lancto, Tp_registro = "A" }); } else { using (TFRateioCResultado fRateio = new TFRateioCResultado()) { fRateio.vVl_Documento = (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Vl_PAGAR > decimal.Zero ? (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Vl_PAGAR : (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Vl_RECEBER; fRateio.Tp_mov = (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Vl_PAGAR > decimal.Zero ? "P" : "R"; fRateio.Dt_movimento = (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).Dt_lancto; fRateio.ShowDialog(); (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).lCustoLancto = fRateio.lCResultado; (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).lCustoLanDel = fRateio.lCResultadoDel; } } } try { //Setar como lancamento caixa avulso (FLanCaixa.dsLanCaixa.Current as TRegistro_LanCaixa).St_avulso = "S"; TCN_LanCaixa.GravaLanCaixa((bindingSourceCaixa.Current as TRegistro_LanCaixa), null); afterBusca(); } catch (Exception ex) { MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); FLanCaixa.dsLanCaixa.CancelEdit(); } } else { FLanCaixa.dsLanCaixa.CancelEdit(); } } }
private void InserirDespesas() { using (TFDespesasViagem fDesp = new TFDespesasViagem()) { if (fDesp.ShowDialog() == DialogResult.OK) { if (fDesp.rDespesas != null) { if (fDesp.rDespesas.Tp_pagamento.Trim().ToUpper().Equals("1")) { using (TFLanDuplicata fDup = new TFLanDuplicata()) { fDup.vCd_empresa = (bsViagem.Current as CamadaDados.Financeiro.Viagem.TRegistro_Viagem).Cd_empresa; fDup.vNm_empresa = (bsViagem.Current as CamadaDados.Financeiro.Viagem.TRegistro_Viagem).Nm_empresa; fDup.vCd_clifor = fDesp.vCD_Clifor; fDup.vNm_clifor = fDesp.rDespesas.Nm_fornecedor; //Buscar Endereço CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd = new CamadaDados.Financeiro.Cadastros.TCD_CadEndereco().Select( new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = "a.cd_clifor", vOperador = "=", vVL_Busca = "'" + fDesp.vCD_Clifor.Trim() + "'" } }, 1, string.Empty); if (lEnd.Count > 0) { fDup.vCd_endereco = lEnd[0].Cd_endereco; fDup.vDs_endereco = lEnd[0].Ds_endereco; } //fDup.vTp_docto = lCfg[0].Tp_doctostr; //fDup.vDs_tpdocto = lCfg[0].Ds_tpdocto; //fDup.vTp_duplicata = lCfg[0].Tp_duplicata; //fDup.vDs_tpduplicata = lCfg[0].Ds_tpduplicata; fDup.vTp_mov = "P"; //fDup.vCd_historico = lCfg[0].Cd_historico; //fDup.vDs_historico = lCfg[0].Ds_historico; fDup.vDt_emissao = fDesp.rDespesas.Dt_despesastr; fDup.vVl_documento = fDesp.rDespesas.Vl_subtotal; fDup.vNr_docto = fDesp.rDespesas.Nr_notafiscal; fDup.vSt_finPed = true; fDup.St_bloquearccusto = true;//Centro Resultado sera lancado pela despesa da viagem if (fDup.ShowDialog() == DialogResult.OK) { if (fDup.dsDuplicata.Count > 0) { fDesp.rDespesas.rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata; } else { MessageBox.Show("Obrigatório gerar duplicata para incluir despesa!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return; } } else { MessageBox.Show("Obrigatório gerar duplicata para incluir despesa!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return; } } } if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("CRESULTADO_EMPRESA", (bsViagem.Current as CamadaDados.Financeiro.Viagem.TRegistro_Viagem).Cd_empresa, null).Trim().ToUpper().Equals("S")) { using (TFRateioCResultado fRateio = new TFRateioCResultado()) { fRateio.vVl_Documento = fDesp.rDespesas.Vl_subtotal; fRateio.Tp_mov = "P"; fRateio.Dt_movimento = fDesp.rDespesas.Dt_despesa; fRateio.ShowDialog(); fDesp.rDespesas.lCCusto = fRateio.lCResultado; } } (bsViagem.Current as CamadaDados.Financeiro.Viagem.TRegistro_Viagem).lDespesas.Add(fDesp.rDespesas); bsViagem.ResetCurrentItem(); } } } }