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();
}
}
}
}
