private void VerificarDisponibilidadeMPrima()
{
using (Proc_Commoditties.TFDisponibilidadeMPrima fDisponibilidade = new Proc_Commoditties.TFDisponibilidadeMPrima())
{
fDisponibilidade.ShowDialog();
}
}
private void verificarEstoqueToolStripMenuItem_Click(object sender, EventArgs e)
{
if (bsOrdemProduzir.Current != null)
{
if ((bsOrdemProduzir.Current as TRegistro_OrdemProducao).Qtd_saldoproduzir > decimal.Zero)
{
using (Proc_Commoditties.TFDisponibilidadeMPrima fDisponibilidade = new Proc_Commoditties.TFDisponibilidadeMPrima())
{
fDisponibilidade.pCd_empresa = (bsOrdemProduzir.Current as TRegistro_OrdemProducao).Cd_empresa;
fDisponibilidade.pCd_produto = (bsOrdemProduzir.Current as TRegistro_OrdemProducao).Cd_produto;
fDisponibilidade.pCd_unidade = (bsOrdemProduzir.Current as TRegistro_OrdemProducao).Cd_unidade;
fDisponibilidade.pId_formulacao = (bsOrdemProduzir.Current as TRegistro_OrdemProducao).Id_formulacaostr;
fDisponibilidade.pDs_formula = (bsOrdemProduzir.Current as TRegistro_OrdemProducao).Ds_formula;
fDisponibilidade.pId_ordem = (bsOrdemProduzir.Current as TRegistro_OrdemProducao).Id_ordem.ToString();
fDisponibilidade.pQtd_programada = (bsOrdemProduzir.Current as TRegistro_OrdemProducao).Qtd_saldoproduzir;
fDisponibilidade.ShowDialog();
}
}
else
{
MessageBox.Show("Ordem produção não possui saldo para produzir.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
}
private void VerificarDisponibilidadeMPrima()
{
if (bsFormulaApontamento.Current != null)
{
using (Proc_Commoditties.TFDisponibilidadeMPrima fDisponibilidade = new Proc_Commoditties.TFDisponibilidadeMPrima())
{
fDisponibilidade.pCd_empresa = (bsFormulaApontamento.Current as TRegistro_FormulaApontamento).Cd_empresa;
fDisponibilidade.pId_formulacao = (bsFormulaApontamento.Current as TRegistro_FormulaApontamento).Id_formulacaostr;
fDisponibilidade.pDs_formula = (bsFormulaApontamento.Current as TRegistro_FormulaApontamento).Ds_formula;
fDisponibilidade.ShowDialog();
}
}
}
private void bb_custoprod_Click(object sender, EventArgs e)
{
if (bsItens.Current != null && cbEmpresa.SelectedItem != null && cbTabPreco.SelectedItem != null)
{
if (new CamadaDados.Estoque.Cadastros.TCD_CadTpProduto().BuscarEscalar(
new TpBusca[]
{
new TpBusca()
{
vNM_Campo = string.Empty,
vOperador = string.Empty,
vVL_Busca = "(isnull(a.st_semente, 'N') = 'S') or (isnull(a.st_industrializado, 'N') = 'S')"
},
new TpBusca()
{
vNM_Campo = string.Empty,
vOperador = "exists",
vVL_Busca = "(select 1 from tb_est_produto x " +
"where x.tp_produto = a.tp_produto " +
"and x.cd_produto = '" + (bsItens.Current as CamadaDados.Estoque.TRegistro_ProdutoPreco).Cd_produto.Trim() + "')"
}
}, "1") != null)
{
//Buscar lista de formulas
CamadaDados.Producao.Producao.TList_FormulaApontamento lFormula =
CamadaNegocio.Producao.Producao.TCN_FormulaApontamento.Buscar(cbEmpresa.SelectedValue.ToString(),
string.Empty,
string.Empty,
string.Empty,
string.Empty,
(bsItens.Current as CamadaDados.Estoque.TRegistro_ProdutoPreco).Cd_produto,
string.Empty,
0,
string.Empty,
null);
if (lFormula.Count > 0)
{
if (lFormula.Count.Equals(1))
{
vl_custoprod.Value = CamadaNegocio.Producao.Producao.TCN_FormulaApontamento.CalcularCustoProducao(lFormula[0]);
}
else
{
using (Proc_Commoditties.TFDisponibilidadeMPrima fDisponibilidade = new Proc_Commoditties.TFDisponibilidadeMPrima())
{
fDisponibilidade.pCd_empresa = cbEmpresa.SelectedValue.ToString();
fDisponibilidade.pCd_produto = (bsItens.Current as CamadaDados.Estoque.TRegistro_ProdutoPreco).Cd_produto;
fDisponibilidade.ShowDialog();
vl_custoprod.Value = fDisponibilidade.Vl_custoProducao;
}
}
}
}
else if (new CamadaDados.Estoque.Cadastros.TCD_CadTpProduto().BuscarEscalar(
new TpBusca[]
{
new TpBusca()
{
vNM_Campo = "isnull(a.st_composto, 'N')",
vOperador = "=",
vVL_Busca = "'S'"
},
new TpBusca()
{
vNM_Campo = string.Empty,
vOperador = "exists",
vVL_Busca = "(select 1 from tb_est_produto x " +
"where x.tp_produto = a.tp_produto " +
"and x.cd_produto = '" + (bsItens.Current as CamadaDados.Estoque.TRegistro_ProdutoPreco).Cd_produto.Trim() + "')"
}
}, "1") != null)
{
//Calcular custo produto
CamadaDados.Estoque.Cadastros.TList_FichaTecProduto lFicha =
CamadaNegocio.Estoque.Cadastros.TCN_FichaTecProduto.Buscar((bsItens.Current as CamadaDados.Estoque.TRegistro_ProdutoPreco).Cd_produto,
string.Empty,
null);
CamadaNegocio.Estoque.Cadastros.TCN_FichaTecProduto.MontarFichaTec(cbEmpresa.SelectedValue.ToString(), cbTabPreco.SelectedValue.ToString(), lFicha, null);
vl_custoprod.Value = lFicha.Sum(p => p.Vl_subtotalservico);
}
}
}
