public static TList_FichaTecOS MontarFichaTecOS(string Cd_produto,
string Cd_empresa,
decimal Quantidade,
BancoDados.TObjetoBanco banco)
{
//Buscar ficha tecnica do produto
CamadaDados.Estoque.Cadastros.TList_FichaTecProduto lFicha =
CamadaNegocio.Estoque.Cadastros.TCN_FichaTecProduto.Buscar(Cd_produto,
string.Empty,
banco);
if (lFicha.Count > 0)
{
TList_FichaTecOS lFichaOrc = new TList_FichaTecOS();
lFicha.ForEach(p =>
{
lFichaOrc.Add(new TRegistro_FichaTecOS()
{
Cd_item = p.Cd_item,
Ds_item = p.Ds_item,
Quantidade = p.Quantidade * Quantidade,
});
});
return(lFichaOrc);
}
else
{
throw new Exception("Não existe ficha tecnica cadastrada para o produto " + Cd_produto.Trim());
}
}
private void PrintFichaTec()
{
if (bsFichaTec.Count > 0)
{
FormRelPadrao.Relatorio Relatorio = new FormRelPadrao.Relatorio();
Relatorio.Altera_Relatorio = Altera_Relatorio;
//DADOS PERTINENTES PARA A GERAÇÂO DO RELATORIO
Relatorio.Nome_Relatorio = "REL_EST_FICHATECNICA";
Relatorio.NM_Classe = "REL_EST_FICHATECNICA";
Relatorio.Ident = "REL_EST_FICHATECNICA";
//Buscar ficha tecnica produto
CamadaDados.Estoque.Cadastros.TList_FichaTecProduto lFicha =
CamadaNegocio.Estoque.Cadastros.TCN_FichaTecProduto.Buscar((bsProduto.Current as TRegistro_CadProduto).CD_Produto,
string.Empty,
null);
CamadaNegocio.Estoque.Cadastros.TCN_FichaTecProduto.MontarFichaTec(string.Empty, string.Empty, lFicha, null);
BindingSource bsFicha = new BindingSource();
bsFicha.DataSource = lFicha;
Relatorio.DTS_Relatorio = bsFicha;
if (!Altera_Relatorio)
{
//Chamar tela de gerenciamento de impressao
using (FormRelPadrao.TFGerenciadorImpressao fImp = new FormRelPadrao.TFGerenciadorImpressao())
{
fImp.St_enabled_enviaremail = true;
fImp.pCd_clifor = string.Empty;
fImp.pMensagem = "FICHA TECNICA DO PRODUTO " + (bsProduto.Current as TRegistro_CadProduto).DS_Produto;
if ((fImp.ShowDialog() == DialogResult.OK) || (fImp.pSt_enviaremail))
{
Relatorio.Gera_Relatorio((bsProduto.Current as TRegistro_CadProduto).CD_Produto,
fImp.pSt_imprimir,
fImp.pSt_visualizar,
fImp.pSt_enviaremail,
fImp.pSt_exportPdf,
fImp.Path_exportPdf,
fImp.pDestinatarios,
null,
"FICHA TECNICA DO PRODUTO " + (bsProduto.Current as TRegistro_CadProduto).DS_Produto,
fImp.pDs_mensagem);
}
}
}
else
{
Relatorio.Gera_Relatorio();
Altera_Relatorio = false;
}
}
}
