private void afterNovo()
{
using (TFInfracoes fInfracao = new TFInfracoes())
{
if (fInfracao.ShowDialog() == DialogResult.OK)
{
if (fInfracao.rInfracoes != null)
{
//Buscar config abast
CamadaDados.Frota.Cadastros.TList_CfgFrota lCfg =
CamadaNegocio.Frota.Cadastros.TCN_CfgFrota.Buscar(fInfracao.rInfracoes.Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
null);
if (!string.IsNullOrEmpty(lCfg[0].Tp_duplicata))
{
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = fInfracao.rInfracoes.Cd_empresa;
fDup.vNm_empresa = fInfracao.rInfracoes.Nm_empresa;
if (lCfg.Count > 0)
{
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 = fInfracao.rInfracoes.Dt_infracaostr;
fDup.vVl_documento = fInfracao.rInfracoes.Vl_infracao;
fDup.vNr_docto = fInfracao.rInfracoes.Cd_infracao;
fDup.vSt_ecf = true;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
fInfracao.rInfracoes.rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
}
}
}
}
try
{
CamadaNegocio.Frota.Cadastros.TCN_Infracoes.Gravar(fInfracao.rInfracoes, null);
MessageBox.Show("Infração gravada com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.LimparRegistro();
id_infracao.Text = fInfracao.rInfracoes.Id_infracaostr;
this.afterBusca();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
}
private void FaturarComissao()
{
using (TFFaturarComissao fFat = new TFFaturarComissao())
{
if (fFat.ShowDialog() == DialogResult.OK)
{
if (fFat.lComissao != null)
{
try
{
//Chamar tela de duplicata para comissao
using (Financeiro.TFLanDuplicata fDuplicata = new Financeiro.TFLanDuplicata())
{
fDuplicata.vNr_pedido = null;
fDuplicata.vCd_empresa = fFat.lComissao[0].Cd_empresa;
fDuplicata.vNm_empresa = fFat.lComissao[0].Nm_empresa;
fDuplicata.vCd_clifor = fFat.lComissao[0].Cd_vendedor;
fDuplicata.vNm_clifor = fFat.lComissao[0].Nm_vendedor;
fDuplicata.vCd_endereco = fFat.lComissao[0].Cd_endvendedor;
fDuplicata.vTp_mov = "P";
fDuplicata.vVl_documento = fFat.lComissao.Sum(p => p.Vl_saldofaturar);
fDuplicata.cd_empresa.Enabled = false;
fDuplicata.bb_empresa.Enabled = false;
fDuplicata.cd_clifor.Enabled = false;
fDuplicata.bb_clifor.Enabled = false;
fDuplicata.cd_endereco.Enabled = false;
fDuplicata.bb_endereco.Enabled = false;
fDuplicata.vl_documento_index.Enabled = false;
if (fDuplicata.ShowDialog() == System.Windows.Forms.DialogResult.OK)
{
CamadaNegocio.Faturamento.Comissao.TCN_Fechamento_Comissao.ProcessarComissao(fFat.lComissao,
fDuplicata.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata,
null);
MessageBox.Show("Comissões processadas com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.afterBusca();
}
else
{
throw new Exception("Obrigatorio informar financeiro para processar comissões.");
}
}
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
}
private void BB_Gravar_Click(object sender, EventArgs e)
{
if (bsExecDespesa.Current != null)
{
using (Financeiro.TFLanDuplicata dp = new Financeiro.TFLanDuplicata())
{
dp.vVl_documento = (bsExecDespesa.Current as TRegistro_ExecDespesas).vl_executado;
dp.vCd_empresa = (bsExecDespesa.Current as TRegistro_ExecDespesas).Cd_empresa;
//Buscar Moeda Padrao
CamadaDados.Financeiro.Cadastros.TList_Moeda tabela =
CamadaNegocio.ConfigGer.TCN_CadParamGer_X_Empresa.BuscarMoedaPadrao((bsExecDespesa.Current as TRegistro_ExecDespesas).Cd_empresa, null);
if (tabela != null)
{
if (tabela.Count > 0)
{
dp.vCd_moeda = tabela[0].Cd_moeda;
dp.vDs_moeda = tabela[0].Ds_moeda_singular;
dp.vSigla_moeda = tabela[0].Sigla;
dp.vCd_moeda_padrao = tabela[0].Cd_moeda;
dp.vDs_moeda_padrao = tabela[0].Ds_moeda_singular;
dp.vSigla_moeda_padrao = tabela[0].Sigla;
}
}
dp.vDt_emissao = CamadaDados.UtilData.Data_Servidor().ToString("dd/MM/yyyy");
if (dp.ShowDialog() == DialogResult.OK)
{
CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup = new CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata();
rDup = dp.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
(bsExecDespesa.Current as TRegistro_ExecDespesas).rDuplicata = rDup;
(bsExecDespesa.Current as TRegistro_ExecDespesas).nr_lancto = Convert.ToDecimal(dp.nr_lancto);
(bsExecDespesa.Current as TRegistro_ExecDespesas).Id_orcamento = rdespesa.Id_orcamento;
(bsExecDespesa.Current as TRegistro_ExecDespesas).Cd_empresa = rdespesa.Cd_empresa;
(bsExecDespesa.Current as TRegistro_ExecDespesas).Nr_versao = rdespesa.Nr_versao;
(bsExecDespesa.Current as TRegistro_ExecDespesas).id_despesa = Convert.ToDecimal(rdespesa.Id_despesa);
TCN_ExecDespesas.Gravar(bsExecDespesa.Current as TRegistro_ExecDespesas, null);
this.DialogResult = DialogResult.OK;
MessageBox.Show("Duplicata gravada com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
}
}
private void bbBuscar_Click(object sender, EventArgs e)
{
if (bsDespesas.Current != null)
{
if (panelDados2.validarCampoObrigatorio())
{
if (tp_pagamento.SelectedIndex.Equals(0) && string.IsNullOrWhiteSpace(cd_fornecedor.Text))
{
MessageBox.Show("Obrigatório informar fornecedor para tipo de pagamento selecionado.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
cd_fornecedor.Focus();
return;
}
else if (tp_pagamento.SelectedIndex.Equals(1) && string.IsNullOrWhiteSpace(cd_funcionario.Text))
{
MessageBox.Show("Obrigatório informar funcionário para tipo de pagamento selecionado.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
cd_funcionario.Focus();
return;
}
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Cd_empresa = vCd_Empresa;
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Id_orcamentostr = vId_Orcamento;
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_versaostr = vNr_Versao;
//Buscar config abast
CamadaDados.Empreendimento.Cadastro.TList_CadCFGEmpreendimento lCfg =
CamadaNegocio.Empreendimento.Cadastro.TCN_CadCFGEmpreendimento.Busca((bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Cd_empresa,
string.Empty,
null);
if (lCfg.Count > 0)
{
if (string.IsNullOrEmpty(lCfg[0].tp_dup))
{
MessageBox.Show("Não existe Tp.duplicata na CFG.empreendimento cadastrada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
else
{
MessageBox.Show("Não existe CFG.empreendimento cadastrado para a empresa informada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
//Despesa de funcionário com abatimento de adiantamento
if (tp_pagamento.SelectedIndex.Equals(1))
{
//Buscar conf. adiantamento
CamadaDados.Financeiro.Cadastros.TList_ConfigAdto lCnfAdto = CamadaNegocio.Financeiro.Cadastros.TCN_CadConfigAdto.Buscar(vCd_Empresa, string.Empty, string.Empty, string.Empty, string.Empty, 0, string.Empty, null);
if (lCnfAdto.Count.Equals(0))
{
MessageBox.Show("Não existe CFG.adiantamento cadastrado para a empresa informada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return;
}
CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup = new CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata();
rDup.Cd_empresa = vCd_Empresa;
rDup.Cd_clifor = cd_funcionario.Text;
object lEndClifor = new CamadaDados.Financeiro.Cadastros.TCD_CadEndereco().BuscarEscalar(new Utils.TpBusca[] { new Utils.TpBusca()
{
vNM_Campo = "a.cd_clifor", vOperador = "=", vVL_Busca = "'" + rDup.Cd_clifor.Trim() + "'"
} }, "a.cd_endereco");
if (!lEndClifor.Equals(null))
{
rDup.Cd_endereco = lEndClifor.ToString().Trim();
}
rDup.Tp_docto = 2; //Duplicata
rDup.Tp_duplicata = "01";
rDup.Tp_mov = lCnfAdto[0].Tp_mov_ADTO_C;
rDup.Cd_historico = rDup.Cd_historico_Dup = vCd_Historico = lCnfAdto[0].Cd_historico_ADTO_C;
rDup.Cd_portador = lCnfAdto[0].CD_Portador;
rDup.Dt_emissao = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao;
rDup.Vl_documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado;
rDup.Nr_docto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_docto;
DataTable rCond = new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().Buscar(null, 1);
rDup.Cd_condpgto = rCond.Rows[0].ItemArray[0].ToString();
rDup.Cd_moeda = rCond.Rows[0].ItemArray[5].ToString();
rDup.Cd_juro = rCond.Rows[0].ItemArray[9].ToString();
rDup.Qt_parcelas = 0;
DataTable cd_contager = new CamadaDados.Financeiro.Cadastros.TCD_CadContaGer().Buscar(null, 1);
if (cd_contager != null)
{
rDup.Cd_contager = cd_contager.Rows[0].ItemArray[0].ToString();
}
rDup.Parcelas.Add(new CamadaDados.Financeiro.Duplicata.TRegistro_LanParcela()
{
Vl_parcela = rDup.Vl_documento, Dt_vencto = rDup.Dt_emissao, Cd_parcela = 1
});
rDup.lCred.AddRange(CamadaNegocio.Financeiro.Adiantamento.TCN_LanAdiantamento.Buscar(string.Empty,
rDup.Cd_empresa,
rDup.Cd_clifor,
string.Empty,
"'C'",
string.Empty,
decimal.Zero,
string.Empty,
string.Empty,
decimal.Zero,
decimal.Zero,
false,
false,
true,
string.Empty,
false,
false,
string.Empty,
string.Empty,
0,
string.Empty,
null));
if (rDup.lCred.Count.Equals(0))
{
MessageBox.Show("Funcionário não possui adiantamento quitado para efetuar o débito de saldo.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return;
}
//Validar saldo a devolver do funcionário
rDup.lCred.ForEach(p =>
{
if (rDup.Vl_documento <= p.Vl_total_devolver)
{
rDup.cVl_adiantamento = rDup.Vl_documento;
}
});
if (rDup.cVl_adiantamento.Equals(0))
{
MessageBox.Show("Crédito do funcionário é menor do que o valor da despesa."); return;
}
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).rDuplicata = rDup;
}
else
{
//Procedimento para despesa da empresa
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = vCd_Empresa;
fDup.vNm_empresa = vNm_empresa;
fDup.vCd_clifor = tp_pagamento.SelectedIndex.Equals(1) ? cd_funcionario.Text : cd_fornecedor.Text;
fDup.vNm_clifor = tp_pagamento.SelectedIndex.Equals(1) ? nm_funcionario.Text : nm_fornecedor.Text;
//Buscar endereco
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(fDup.vCd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
fDup.vCd_endereco = lEnd[0].Cd_endereco;
fDup.vDs_endereco = lEnd[0].Ds_endereco;
}
if (lCfg.Count > 0)
{
if (string.IsNullOrEmpty(lCfg[0].tp_dup))
{
MessageBox.Show("Não existe Tp.duplicata na CFG.empreendimento cadastrada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
fDup.vTp_docto = lCfg[0].tp_docto;
fDup.vDs_tpdocto = lCfg[0].ds_docto;
fDup.vTp_duplicata = string.Empty;
fDup.vDs_tpduplicata = string.Empty;
fDup.vTp_mov = "P";
fDup.vDt_emissao = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucaostr;
fDup.vVl_documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado;
fDup.vNr_docto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_docto;
fDup.St_bloquearccusto = true;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).rDuplicata = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
vCd_Historico = fDup.vCd_historico;
}
}
else
{
MessageBox.Show("Não existe configuração frota para lançar duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("CRESULTADO_EMPRESA",
vCd_Empresa,
null).Trim().ToUpper().Equals("S"))
{
//Verificar se historico possui centro resultado cadastrado
object obj = new CamadaDados.Financeiro.Cadastros.TCD_CadHistorico().BuscarEscalar(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "a.cd_historico",
vOperador = "=",
vVL_Busca = "'" + vCd_Historico.Trim() + "'"
}
}, "a.cd_centroresult");
if (obj == null ? false : !string.IsNullOrEmpty(obj.ToString()))
{
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).lCCusto.Add(
new CamadaDados.Financeiro.CCustoLan.TRegistro_LanCCustoLancto()
{
Cd_empresa = vCd_Empresa,
Cd_centroresult = obj.ToString(),
Vl_lancto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado,
Dt_lancto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao,
Tp_registro = "A"
});
}
else
{
using (Financeiro.TFRateioCResultado fRateio = new Financeiro.TFRateioCResultado())
{
fRateio.vVl_Documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado;
fRateio.Tp_mov = "P";
fRateio.Dt_movimento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao;
if (fRateio.ShowDialog() == DialogResult.OK)
{
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).lCCusto = fRateio.lCResultado;
}
else
{
return;
}
}
}
}
try
{
CamadaNegocio.Empreendimento.TCN_ExecDespesas.Gravar(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas, null);
MessageBox.Show("Despesa gravada com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.DialogResult = DialogResult.OK;
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
private void Processar()
{
if (bsAcerto.Current != null)
{
if ((bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).St_registro.Trim().ToUpper().Equals("P"))
{
MessageBox.Show("Acerto ja se encontra PROCESSADO.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (MessageBox.Show("Confirma processamento do acerto?", "Pergunta", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
== DialogResult.Yes)
{
if ((bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Vl_sobradinheiro > decimal.Zero)
{
using (Financeiro.TFLanCaixa fCaixa = new Financeiro.TFLanCaixa())
{
fCaixa.Text = "CAIXA SOBRA DINHEIRO";
fCaixa.dsLanCaixa.AddNew();
(fCaixa.dsLanCaixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_LanCaixa).Cd_Empresa = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Cd_empresa;
(fCaixa.dsLanCaixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_LanCaixa).Nm_empresa = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Nm_empresa;
//buscar cfg frota
CamadaDados.Frota.Cadastros.TList_CfgFrota lCfg =
CamadaNegocio.Frota.Cadastros.TCN_CfgFrota.Buscar((bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
null);
if (lCfg.Count > 0)
{
if (!string.IsNullOrEmpty(lCfg[0].Cd_contager))
{
(fCaixa.dsLanCaixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_LanCaixa).Cd_ContaGer = lCfg[0].Cd_contager;
(fCaixa.dsLanCaixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_LanCaixa).Ds_ContaGer = lCfg[0].Ds_contager;
fCaixa.CD_ContaGer.Enabled = false;
fCaixa.BB_ContaGer.Enabled = false;
}
}
fCaixa.RB_Receber.Checked = true;
fCaixa.RB_Pagar.Enabled = false;
fCaixa.RB_Receber.Enabled = false;
(fCaixa.dsLanCaixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_LanCaixa).Vl_RECEBER = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Vl_sobradinheiro;
fCaixa.VL_Receber.Enabled = false;
if (fCaixa.ShowDialog() == DialogResult.OK)
{
if (fCaixa.dsLanCaixa.Current != null)
{
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rCaixa = fCaixa.dsLanCaixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_LanCaixa;
if (MessageBox.Show("Deseja gerar credito com a sobra de dinheiro?", "Pergunta", MessageBoxButtons.YesNo,
MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) == DialogResult.Yes)
{
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto = new CamadaDados.Financeiro.Adiantamento.TRegistro_LanAdiantamento();
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.Cd_empresa = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Cd_empresa;
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.Cd_clifor = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Cd_motorista;
//endereco
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar((bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.CD_Endereco = lEnd[0].Cd_endereco;
}
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.Tp_movimento = "C";
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.Dt_lancto = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rCaixa.Dt_lancto;
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.Vl_adto = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rCaixa.Vl_RECEBER;
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.ST_ADTO = "A";
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.TP_Lancto = "R";
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rAdto.Cd_contager_qt = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rCaixa.Cd_ContaGer;
}
}
else
{
MessageBox.Show("Obrigatorio informar caixa.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
else
{
MessageBox.Show("Obrigatorio informar caixa.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
if ((bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Vl_resultado < decimal.Zero)
{
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.Text = "DUPLICATA A PAGAR PARA O MOTORISTA";
//Empresa
fDup.vCd_empresa = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Cd_empresa;
fDup.vNm_empresa = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Nm_empresa;
fDup.cd_empresa.Enabled = false;
fDup.bb_empresa.Enabled = false;
//Cliente
fDup.vCd_clifor = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Cd_motorista;
fDup.vNm_clifor = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Nm_motorista;
fDup.cd_clifor.Enabled = false;
fDup.bb_clifor.Enabled = false;
//endereco
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(fDup.vCd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
fDup.vCd_endereco = lEnd[0].Cd_endereco;
fDup.vDs_endereco = lEnd[0].Ds_endereco;
fDup.cd_endereco.Enabled = false;
fDup.bb_endereco.Enabled = false;
}
fDup.vTp_mov = "P";
fDup.vVl_documento = Math.Abs((bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Vl_resultado);
fDup.vl_documento_index.Enabled = false;
fDup.vNr_docto = "AC" + (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Id_acertostr;
fDup.vDt_emissao = CamadaDados.UtilData.Data_Servidor().ToString("dd/MM/yyyy");
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
}
else
{
if (MessageBox.Show("Deseja Processar o Acerto sem gerar Financeiro!.", "Pergunta", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) == DialogResult.No)
{
return;
}
}
}
}
(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).lCartaFrete.ForEach(p =>
{
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.Text = "DUPLICATA CARTA FRETE Nº" + p.Nr_cartafretestr;
//Empresa
fDup.vCd_empresa = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Cd_empresa;
fDup.vNm_empresa = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Nm_empresa;
fDup.cd_empresa.Enabled = false;
fDup.bb_empresa.Enabled = false;
fDup.vTp_mov = "P";
fDup.vVl_documento = p.Vl_documento;
fDup.vl_documento_index.Enabled = false;
fDup.vNr_docto = "CARTAFRETE" + p.Nr_cartafretestr;
fDup.vDt_emissao = CamadaDados.UtilData.Data_Servidor().ToString("dd/MM/yyyy");
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
p.rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
}
else
{
if (MessageBox.Show("Deseja Processar o Acerto sem gerar Financeiro!.", "Pergunta", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) == DialogResult.No)
{
return;
}
}
}
});
try
{
CamadaNegocio.Frota.TCN_AcertoMotorista.ProcessarAcerto(bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista, null);
MessageBox.Show("Acerto processado com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.LimparFiltros();
id_acerto.Text = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Id_acertostr;
cd_empresa.Text = (bsAcerto.Current as CamadaDados.Frota.TRegistro_AcertoMotorista).Cd_empresa;
this.afterBusca();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
private void afterNovo()
{
using (TFAbastAvulso fAbast = new TFAbastAvulso())
{
if (fAbast.ShowDialog() == DialogResult.OK)
{
if (fAbast.rAbast != null)
{
if (fAbast.rAbast.Tp_abastecimento.Trim().ToUpper().Equals("T") &&
fAbast.rAbast.Tp_pagamento.Trim().ToUpper().Equals("E"))
{
//Buscar config abast
CamadaDados.Frota.Cadastros.TList_CfgFrota lCfg =
CamadaNegocio.Frota.Cadastros.TCN_CfgFrota.Buscar(fAbast.rAbast.Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
null);
if (!string.IsNullOrEmpty(lCfg[0].Tp_duplicata) && !string.IsNullOrEmpty(fAbast.vCd_clifor))
{
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = fAbast.rAbast.Cd_empresa;
fDup.vNm_empresa = fAbast.rAbast.Nm_empresa;
fDup.vCd_clifor = fAbast.vCd_clifor;
fDup.vNm_clifor = fAbast.rAbast.Nm_fornecedor;
fDup.vCd_endereco = fAbast.vCd_endereco;
fDup.vDs_endereco = fAbast.vDs_endereco;
if (lCfg.Count > 0)
{
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 = fAbast.rAbast.Dt_abastecimentostr;
fDup.vVl_documento = fAbast.rAbast.Vl_subtotal;
fDup.vNr_docto = fAbast.rAbast.Nr_notafiscal;
fDup.vSt_ecf = true;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
fAbast.rAbast.rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
}
}
}
}
}
try
{
fAbast.rAbast.Tp_captura = "M";
fAbast.rAbast.Tp_registro = "A";
CamadaNegocio.Frota.TCN_AbastVeiculo.Gravar(fAbast.rAbast, null);
MessageBox.Show("Abastecimento gravado com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
LimparFiltros();
id_abastecimento.Text = fAbast.rAbast.Id_abastecimentostr;
afterBusca();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
}
private void afterNovo()
{
using (TFOutrasReceitas fReceita = new TFOutrasReceitas())
{
if (fReceita.ShowDialog() == DialogResult.OK)
{
if (fReceita.rReceita != null)
{
try
{
if (fReceita.vl_docto != decimal.Zero)
{
//Lançar Duplicata
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vSt_ctrc = true;
fDup.vCd_empresa = fReceita.rReceita.Cd_empresa;
fDup.vNm_empresa = fReceita.rReceita.Nm_empresa;
fDup.vCd_clifor = fReceita.rReceita.Cd_clifor;
fDup.vNm_clifor = fReceita.rReceita.Nm_clifor;
//Buscar endereco clifor
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(fReceita.rReceita.Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
fDup.vCd_endereco = lEnd[0].Cd_endereco;
fDup.vDs_endereco = lEnd[0].Ds_endereco;
}
fDup.vTp_mov = "R";
//Buscar TP.Duplicata
CamadaDados.Financeiro.Cadastros.TList_CadTpDuplicata lTpDup =
new CamadaDados.Financeiro.Cadastros.TCD_CadTpDuplicata().Select(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "a.tp_mov",
vOperador = "=",
vVL_Busca = "'R'"
}
}, 1, string.Empty);
fDup.vTp_duplicata = lTpDup.Count > 0 ? lTpDup[0].Tp_duplicata : string.Empty;
fDup.vDs_tpduplicata = lTpDup.Count > 0 ? lTpDup[0].Ds_tpduplicata : string.Empty;
fDup.vDt_emissao = fReceita.rReceita.Dt_receitastr;
fDup.vVl_documento = fReceita.vl_docto;
fDup.vNr_docto = "RECEITA" + fReceita.rReceita.Dt_receitastr;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
fReceita.rReceita.rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
else
{
MessageBox.Show("Obrigatório gravar Duplicata para lançar receita!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
else
{
MessageBox.Show("Obrigatório gravar Duplicata para lançar receita!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
CamadaNegocio.Frota.TCN_OutrasReceitas.Gravar(fReceita.rReceita, null);
MessageBox.Show("Receita gravada com sucesso!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.LimparCampos();
id_receita.Text = fReceita.rReceita.Id_receitastr;
cd_empresa.Text = fReceita.rReceita.Cd_empresa;
this.afterBusca();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
}
public override void afterGrava()
{
try
{
base.afterGrava();
if (validaGravaPsAvulsa())
{
if ((ps_bruto.Value > 0) && (ps_tara.Value > 0) && (vl_taxa.Value > 0))
{
//Buscar configuracao financeira
CamadaDados.Balanca.Cadastros.TList_CFGFinPsAvulsa lCfg =
CamadaNegocio.Balanca.Cadastros.TCN_CFGFinPsAvulsa.Buscar((bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Cd_empresa,
(bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Tp_pesagem,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
0,
string.Empty,
null);
if (lCfg.Count < 1)
{
MessageBox.Show("Não existe configuração para gerar financeiro para a pesagem avulsa.\r\n" +
"Configuração obrigtoria para gerar financeiro da taxa. Ticket não será fechado.",
"Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
//Gerar financeiro da taxa
using (Financeiro.TFLanDuplicata fDuplicata = new Financeiro.TFLanDuplicata())
{
fDuplicata.vCd_empresa = lCfg[0].Cd_empresa;
fDuplicata.vNm_empresa = lCfg[0].Nm_empresa;
fDuplicata.vCd_clifor = (bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Cd_clifor.Trim() != string.Empty ?
(bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Cd_clifor : lCfg[0].Cd_cliforpadrao;
fDuplicata.vNm_clifor = (bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Cd_clifor.Trim() != string.Empty ?
(bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Nm_clifor : lCfg[0].Nm_cliforpadrao;
if ((bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Cd_clifor.Trim() != string.Empty)
{
//Buscar primeiro endereco do cadastro do cliente
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar((bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
fDuplicata.vCd_endereco = lEnd[0].Cd_endereco;
fDuplicata.vDs_endereco = lEnd[0].Ds_endereco;
}
}
else
{
fDuplicata.vCd_endereco = lCfg[0].Cd_endpadrao;
fDuplicata.vDs_endereco = lCfg[0].Ds_endpadrao;
}
fDuplicata.vTp_docto = lCfg[0].Tp_doctostr;
fDuplicata.vDs_tpdocto = lCfg[0].Ds_tpdocto;
fDuplicata.vTp_duplicata = lCfg[0].Tp_duplicata;
fDuplicata.vDs_tpduplicata = lCfg[0].Ds_tpduplicata;
fDuplicata.vTp_mov = lCfg[0].Tp_mov;
fDuplicata.vCd_condpgto = lCfg[0].Cd_condpgto;
fDuplicata.vDs_condpgto = lCfg[0].Ds_condpgto;
fDuplicata.vCd_contagerliq = lCfg[0].Cd_contager;
fDuplicata.vCd_juro = lCfg[0].Cd_juro;
fDuplicata.vDs_juro = lCfg[0].Ds_juro;
fDuplicata.vCd_moeda = lCfg[0].Cd_moeda;
fDuplicata.vDs_moeda = lCfg[0].Ds_moeda;
fDuplicata.vCd_portador = lCfg[0].Cd_portador;
fDuplicata.vDs_portador = lCfg[0].Ds_portador;
fDuplicata.vNr_docto = (bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Id_ticket.ToString();
fDuplicata.vDt_emissao = (bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Dt_brutostring;
fDuplicata.vVl_documento = (bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Vl_taxa;
fDuplicata.vDs_observacao = "TAXA COBRANCA PESAGEM AVULSA DO CLIENTE " + (bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Nm_clifor.Trim();
fDuplicata.vCd_historico = lCfg[0].Cd_historico;
fDuplicata.vDs_historico = lCfg[0].Ds_historico;
fDuplicata.vSt_ctrc = true;
if (fDuplicata.ShowDialog() == DialogResult.OK)
{
if (fDuplicata.dsDuplicata.Current != null)
{
(bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).lDup.Add(
(fDuplicata.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata));
}
else
{
MessageBox.Show("Obrigatorio informar financeiro para fechar pesagem avulsa.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
else
{
MessageBox.Show("Obrigatorio informar financeiro para fechar pesagem avulsa.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
}
CamadaNegocio.Balanca.TCN_PesagemAvulsa.Gravar(bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa, null);
bsPsAvulsa.ResetCurrentItem();
if ((ps_bruto.Value > 0) && (ps_tara.Value > 0))
{
MessageBox.Show("Pesagem Finalizada com Sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
else if (TpModo.Equals(TTpModo.tm_Insert))
{
MessageBox.Show("Pesagem aberta com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
else
{
MessageBox.Show("Pesagem alterada com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
bsPsAvulsa.ResetCurrentItem();
TpModo = TTpModo.tm_Standby;
ativaPage((bsPsAvulsa.Current as CamadaDados.Balanca.TRegistro_PesagemAvulsa).Tp_modo);
modoBotoes();
pTopEsquerdo.HabilitarControls(false, TpModo);
pPsAvulsa.HabilitarControls(false, TpModo);
if (tcCentral.TabPages.Contains(tpPesagem))
{
tcCentral.SelectedTab = tpPesagem;
}
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message.Trim());
}
}
private void afterGrava()
{
if (bsItens.Current == null)
{
MessageBox.Show("Obrigatório informar novo item para realizar troca.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (string.IsNullOrEmpty(edtMotivoTroca.Text))
{
MessageBox.Show("Obrigatório informar motivo da troca.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
edtMotivoTroca.Focus();
return;
}
//Buscar local de armazenagem
object obj = new CamadaDados.Estoque.Cadastros.TCD_CadLocalArm_X_Produto().BuscarEscalar(
new TpBusca[] { new TpBusca {
vNM_Campo = "a.cd_produto", vOperador = "=", vVL_Busca = "'" + (bsItens.Current as TRegistro_Orcamento_Item).Cd_produto.Trim() + "'"
} },
"a.cd_local");
if (obj == null ? true : string.IsNullOrEmpty(obj.ToString()))
{
(bsItens.Current as TRegistro_Orcamento_Item).Cd_local =
new CamadaDados.Faturamento.Cadastros.TCD_CFGOrcamento().BuscarEscalar(
new TpBusca[] { new TpBusca {
vNM_Campo = "a.cd_empresa", vOperador = "=", vVL_Busca = "'" + rOrc.Cd_empresa.Trim() + "'"
} },
"a.cd_local")?.ToString();
}
else
{
(bsItens.Current as TRegistro_Orcamento_Item).Cd_local = obj.ToString();
}
if (rItemTroca.Vl_subtotalliq < (bsItens.Current as TRegistro_Orcamento_Item).Vl_subtotalliq)
{
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = rOrc.Cd_empresa;
fDup.vNm_empresa = rOrc.Nm_empresa;
fDup.vCd_clifor = rOrc.Cd_clifor;
fDup.vNm_clifor = rOrc.Nm_clifor;
fDup.vCd_endereco = rOrc.Cd_endereco;
fDup.vDs_endereco = rOrc.Ds_endereco;
fDup.vTp_mov = "R";
fDup.vNr_docto = rOrc.Nr_orcamentostr;
fDup.vVl_documento = (bsItens.Current as TRegistro_Orcamento_Item).Vl_subtotalliq - rItemTroca.Vl_subtotalliq;
fDup.cd_empresa.Enabled = false;
fDup.bb_empresa.Enabled = false;
fDup.cd_clifor.Enabled = false;
fDup.bb_clifor.Enabled = false;
fDup.cd_endereco.Enabled = false;
fDup.bb_endereco.Enabled = false;
fDup.vl_documento_index.Enabled = false;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Current != null)
{
rDup = fDup.dsDuplicata.Current as TRegistro_LanDuplicata;
}
else
{
MessageBox.Show("Obrigatório gerar duplicata para saldo devedor.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
else
{
MessageBox.Show("Obrigatório gerar duplicata para saldo devedor.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
if (!CamadaNegocio.Diversos.TCN_Usuario_RegraEspecial.ValidaRegra(Utils.Parametros.pubLogin, "PERMITIR TROCA ITEM PROPOSTA", null))
{
using (Parametros.Diversos.TFRegraUsuario fRegra = new Parametros.Diversos.TFRegraUsuario())
{
fRegra.Login = Utils.Parametros.pubLogin;
fRegra.Ds_regraespecial = "PERMITIR TROCA ITEM PROPOSTA";
if (fRegra.ShowDialog() == DialogResult.Cancel)
{
MessageBox.Show("Obrigatório informar LOGIN com permissão para realizar troca", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
else
{
pLogin = fRegra.Login;
}
}
}
DialogResult = DialogResult.OK;
}
private void btn_manutencao_Click(object sender, EventArgs e)
{
if (bsPneus.Current != null)
{
if ((bsPneus.Current as TRegistro_LanPneu).St_registro.ToUpper().Equals("M"))
{
MessageBox.Show("Pneu já se encontra em MANUTENÇÃO!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else if ((bsPneus.Current as TRegistro_LanPneu).St_registro.ToUpper().Equals("R"))
{
int hodometro = 0;
using (Componentes.TFQuantidade fQtde = new Componentes.TFQuantidade())
{
fQtde.Ds_label = "Hodometro final";
TpBusca[] tpBuscas = new TpBusca[0];
Estruturas.CriarParametro(ref tpBuscas, "a.cd_empresa", (bsPneus.Current as TRegistro_LanPneu).Cd_empresa);
Estruturas.CriarParametro(ref tpBuscas, "a.id_pneu", (bsPneus.Current as TRegistro_LanPneu).Id_pneustr);
Estruturas.CriarParametro(ref tpBuscas, "a.id_veiculo", (bsPneus.Current as TRegistro_LanPneu).Id_veiculo);
Estruturas.CriarParametro(ref tpBuscas, "a.id_rodado", (bsPneus.Current as TRegistro_LanPneu).Id_rodado);
fQtde.Vl_default = Convert.ToDecimal(new CamadaDados.Frota.TCD_MovPneu().BuscarEscalar(tpBuscas, "a.hodometro", "id_mov desc").ToString());
fQtde.Vl_Minimo = fQtde.Vl_default;
fQtde.Casas_decimais = 0;
fQtde.St_permitirValorZero = false;
if (fQtde.ShowDialog() == DialogResult.OK)
{
hodometro = Convert.ToInt32(fQtde.Quantidade);
}
else
{
MessageBox.Show("Obrigatório informar hodometro para desativação!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
TCN_LanPneu.EnvioAlmoxarifado(bsPneus.Current as TRegistro_LanPneu, hodometro, null);
}
try
{
using (TFDadosMovPneu fDadosMovPneu = new TFDadosMovPneu())
{
if (fDadosMovPneu.ShowDialog() == DialogResult.OK)
{
if (fDadosMovPneu.rMovPneu != null)
{
try
{
TList_CfgFrota lCfg = TCN_CfgFrota.Buscar((bsPneus.Current as TRegistro_LanPneu).Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
null);
if (!string.IsNullOrEmpty(lCfg[0].Tp_duplicata))
{
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = (bsPneus.Current as TRegistro_LanPneu).Cd_empresa;
fDup.vNm_empresa = (bsPneus.Current as TRegistro_LanPneu).Nm_empresa;
fDup.vCd_clifor = string.Empty;
fDup.vNm_clifor = string.Empty;
//Buscar endereco clifor oficina
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(fDup.vCd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
fDup.vCd_endereco = lEnd[0].Cd_endereco;
fDup.vDs_endereco = lEnd[0].Ds_endereco;
}
if (lCfg.Count > 0)
{
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 = fDadosMovPneu.rMovPneu.Dt_movimentostr;
fDup.vVl_documento = fDadosMovPneu.rMovPneu.Valor_OS;
fDup.vNr_docto = fDadosMovPneu.rMovPneu.Nr_OS;
fDup.vSt_ecf = true;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
fDadosMovPneu.rMovPneu.rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
}
else
{
MessageBox.Show("Obrigatório informar duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
}
fDadosMovPneu.rMovPneu.Cd_empresa = (bsPneus.Current as TRegistro_LanPneu).Cd_empresa;
fDadosMovPneu.rMovPneu.Cd_produto = (bsPneus.Current as TRegistro_LanPneu).Cd_produto;
fDadosMovPneu.rMovPneu.Id_pneu = (bsPneus.Current as TRegistro_LanPneu).Id_pneu;
fDadosMovPneu.rMovPneu.St_rodando = "N";
CamadaNegocio.Frota.TCN_MovPneu.GravarManutencao(fDadosMovPneu.rMovPneu, (bsPneus.Current as TRegistro_LanPneu), null);
MessageBox.Show("Pneu enviado para a manutenção!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
afterBusca();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
private void afterGrava()
{
if (bsAbastComposto.Count > 0)
{
CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup = null;
if ((bsAbastComposto.List as IEnumerable <CamadaDados.Frota.TRegistro_AbastVeiculo>).ToList().Exists(x => x.Tp_pagamento.Trim().ToUpper().Equals("E")))
{
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = (bsAbastComposto.Current as CamadaDados.Frota.TRegistro_AbastVeiculo).Cd_empresa;
fDup.vNm_empresa = (bsAbastComposto.Current as CamadaDados.Frota.TRegistro_AbastVeiculo).Nm_empresa;
fDup.vCd_clifor = (bsAbastComposto.Current as CamadaDados.Frota.TRegistro_AbastVeiculo).Cd_fornecedor;
fDup.vNm_clifor = (bsAbastComposto.Current as CamadaDados.Frota.TRegistro_AbastVeiculo).Nm_fornecedor;
//Buscar config abast
CamadaDados.Frota.Cadastros.TList_CfgFrota lCfg =
CamadaNegocio.Frota.Cadastros.TCN_CfgFrota.Buscar((bsAbastComposto.Current as CamadaDados.Frota.TRegistro_AbastVeiculo).Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
null);
if (lCfg.Count > 0)
{
if (string.IsNullOrEmpty(lCfg[0].Tp_duplicata))
{
MessageBox.Show("Não existe Tp.duplicata na CFG.Frota cadastrada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
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 = CamadaDados.UtilData.Data_Servidor().ToString("dd/MM/yyyy");
fDup.vVl_documento = (bsAbastComposto.List as IEnumerable <CamadaDados.Frota.TRegistro_AbastVeiculo>).ToList().Where(x => x.Tp_pagamento.Trim().ToUpper().Equals("E")).Sum(x => x.Vl_subtotal);
fDup.vNr_docto = "AGPABAST";
fDup.vSt_ecf = true;
fDup.St_bloquearccusto = true; //Centro Resultado sera lancado pelo modulo frota
fDup.St_editardataemissao = true;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
rDup.Vl_documento_padrao = (bsAbastComposto.List as IEnumerable <CamadaDados.Frota.TRegistro_AbastVeiculo>).ToList().Where(x => x.Tp_pagamento.Trim().ToUpper().Equals("E")).Sum(x => x.Vl_subtotal);
rDup.Parcelas[0].Vl_parcela_padrao = rDup.Parcelas[0].Vl_parcela;
}
}
}
else
{
MessageBox.Show("Não existe configuração frota para lançar duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
try
{
CamadaNegocio.Frota.TCN_AbastVeiculo.Gravar((bsAbastComposto.List as IEnumerable <CamadaDados.Frota.TRegistro_AbastVeiculo>).ToList(), rDup, null);
MessageBox.Show("Abastecimentos gravados com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
bb_novo_abastecimento.Enabled = true;
bb_alterar_abastecimento.Enabled = true;
bb_gravar_abastecimento.Enabled = false;
bb_excluir_abastecimento.Enabled = true;
bsAbastComposto.Clear();
pAbastecimento.HabilitarControls(false, Utils.TTpModo.tm_Standby);
pAbastecimento.LimparRegistro();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
private void GerarDup()
{
if (bsLocTerceiro.Current != null)
{
if ((bsLocTerceiro.Current as TRegistro_LocTerceiro).St_permutabool)
{
MessageBox.Show("Não é possível gerar financeiro de contrato que possui permuta!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (!(bsLocTerceiro.Current as TRegistro_LocTerceiro).St_registro.Trim().ToUpper().Equals("C"))
{
using (Financeiro.TFLanDuplicata fDuplicata = new Financeiro.TFLanDuplicata())
{
fDuplicata.vCd_empresa = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Cd_empresa;
fDuplicata.vNm_empresa = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Nm_empresa;
fDuplicata.vCd_clifor = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Cd_fornecedor;
fDuplicata.vNm_clifor = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Nm_fornecedor;
fDuplicata.vCd_endereco = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Cd_endereco;
fDuplicata.vDs_endereco = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Ds_endereco;
//Buscar Moeda Padrao
TList_Moeda tabela =
CamadaNegocio.ConfigGer.TCN_CadParamGer_X_Empresa.BuscarMoedaPadrao((bsLocTerceiro.Current as TRegistro_LocTerceiro).Cd_empresa, null);
if (tabela != null)
{
if (tabela.Count > 0)
{
fDuplicata.vCd_moeda = tabela[0].Cd_moeda;
fDuplicata.vDs_moeda = tabela[0].Cd_moeda;
}
}
fDuplicata.vTp_mov = "P";
fDuplicata.vVl_documento = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Vl_contrato;
fDuplicata.vDt_emissao = CamadaDados.UtilData.Data_Servidor().ToString("dd/MM/yyyy");
fDuplicata.vSt_finPed = true;
if (fDuplicata.ShowDialog() == DialogResult.OK)
{
try
{
(bsLocTerceiro.Current as TRegistro_LocTerceiro).lDup.Add(
fDuplicata.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata);
CamadaNegocio.Locacao.TCN_LocTerceiro.GravaDuplicata(bsLocTerceiro.Current as TRegistro_LocTerceiro, null);
afterBusca();
}
catch (Exception ex)
{
MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
else
{
MessageBox.Show("Obrigatorio informar Financeiro para Gerar Duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
else
{
MessageBox.Show("Não é possivel Gerar Duplicata em Pedido Cancelado!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
private void afterNovo()
{
using (TFManutencao fManut = new TFManutencao())
{
if (fManut.ShowDialog() == DialogResult.OK)
{
if (fManut.rManutencao != null)
{
if (!fManut.st_consumointerno && !string.IsNullOrEmpty(fManut.rManutencao.Cd_cliforOficina))
{
//Buscar config abast
CamadaDados.Frota.Cadastros.TList_CfgFrota lCfg =
CamadaNegocio.Frota.Cadastros.TCN_CfgFrota.Buscar(fManut.rManutencao.Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
null);
if (!string.IsNullOrEmpty(lCfg[0].Tp_duplicata))
{
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = fManut.rManutencao.Cd_empresa;
fDup.vNm_empresa = fManut.rManutencao.Nm_empresa;
fDup.vCd_clifor = fManut.rManutencao.Cd_cliforOficina;
fDup.vNm_clifor = fManut.rManutencao.Nm_cliforOficina;
//Buscar endereco clifor oficina
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(fManut.rManutencao.Cd_cliforOficina,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
fDup.vCd_endereco = lEnd[0].Cd_endereco;
fDup.vDs_endereco = lEnd[0].Ds_endereco;
}
if (lCfg.Count > 0)
{
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 = fManut.rManutencao.Dt_realizadastr;
fDup.vVl_documento = fManut.rManutencao.Vl_realizada;
fDup.vNr_docto = fManut.rManutencao.Nr_notafiscal;
fDup.vSt_ecf = true;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
fManut.rManutencao.rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
}
}
}
}
}
try
{
CamadaNegocio.Frota.Cadastros.TCN_ManutencaoVeiculo.Gravar(fManut.rManutencao, null);
MessageBox.Show("Manutenção gravada com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.LimparFiltros();
id_manutencao.Text = fManut.rManutencao.Id_manutencaostr;
id_veiculo.Text = fManut.rManutencao.Id_veiculostr;
this.afterBusca();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
}
private void afterNovoC()
{
using (TFDespComposta fDesp = new TFDespComposta())
{
if (fDesp.ShowDialog() == DialogResult.OK)
{
if (fDesp.lManutencao != null)
{
CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup = null;
//Buscar config abast
CamadaDados.Frota.Cadastros.TList_CfgFrota lCfg =
CamadaNegocio.Frota.Cadastros.TCN_CfgFrota.Buscar(fDesp.lManutencao[0].Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
null);
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = fDesp.lManutencao[0].Cd_empresa;
fDup.vNm_empresa = fDesp.lManutencao[0].Nm_empresa;
fDup.vCd_clifor = fDesp.lManutencao[0].Cd_cliforOficina;
fDup.vNm_clifor = fDesp.lManutencao[0].Nm_cliforOficina;
//Buscar endereco clifor oficina
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(fDesp.lManutencao[0].Cd_cliforOficina,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
fDup.vCd_endereco = lEnd[0].Cd_endereco;
fDup.vDs_endereco = lEnd[0].Ds_endereco;
}
if (lCfg.Count > 0)
{
if (string.IsNullOrEmpty(lCfg[0].Tp_duplicata))
{
MessageBox.Show("Não existe Tp.duplicata na CFG.Frota cadastrada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
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 = CamadaDados.UtilData.Data_Servidor().ToString("dd/MM/yyyy");
fDup.vVl_documento = (fDesp.lManutencao as IEnumerable <CamadaDados.Frota.Cadastros.TRegistro_ManutencaoVeiculo>)
.ToList().Sum(x => x.Vl_realizada);
fDup.vNr_docto = "AGPDESP"; //agrupamento despesas
fDup.vSt_ecf = true;
fDup.St_bloquearccusto = true; //Centro Resultado sera lancado pelo modulo frota
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
rDup = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
rDup.Vl_documento_padrao = (fDesp.lManutencao as IEnumerable <CamadaDados.Frota.Cadastros.TRegistro_ManutencaoVeiculo>)
.ToList().Sum(x => x.Vl_realizada);
rDup.Parcelas[0].Vl_parcela_padrao = rDup.Parcelas[0].Vl_parcela;
}
}
else
{
return;
}
}
else
{
MessageBox.Show("Não existe configuração frota para lançar duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
try
{
CamadaNegocio.Frota.Cadastros.TCN_ManutencaoVeiculo.Gravar(fDesp.lManutencao, rDup, null);
MessageBox.Show("Manutenção gravada com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.LimparFiltros();
id_manutencao.Text = fDesp.lManutencao[0].Id_manutencaostr;
id_veiculo.Text = fDesp.lManutencao[0].Id_veiculostr;
this.afterBusca();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
}
