public static string Gravar(TRegistro_ApontamentoProducao val, BancoDados.TObjetoBanco banco) { bool st_transacao = false; TCD_ApontamentoProducao qtb_apontamento = new TCD_ApontamentoProducao(); try { if (banco == null) { st_transacao = qtb_apontamento.CriarBanco_Dados(true); } else { qtb_apontamento.Banco_Dados = banco; } if (val.LFormulaApontamento.Count < 1) { throw new Exception("Erro: Não existe formula apontamento para processar apontamento produção."); } //Verificar custo fixo string moeda_padrao = TCN_CadParamGer.BuscaVL_String_Empresa("CD_MOEDA_PADRAO", val.Cd_empresa, qtb_apontamento.Banco_Dados); if (moeda_padrao.Trim().Equals(string.Empty)) { throw new Exception("Erro gravar apontamento produção: falta configurar moeda padrão para realizar calculo do custo fixo."); } //Gravar apontamento producao val.St_registro = "1"; val.Id_apontamento = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(qtb_apontamento.Gravar(val), "@P_ID_APONTAMENTO")); List <TRegistro_CustoFixo_Direto> lCustoMoeda = val.LFormulaApontamento[0].LCustoFixo.FindAll(p => p.Cd_moeda.Trim() != moeda_padrao.Trim()); lCustoMoeda.ForEach(p => { //Verificar se existe cotacao para este custo object obj = new TCD_CotacaoMoeda(qtb_apontamento.Banco_Dados).BuscarEscalar( new TpBusca[] { new TpBusca() { vNM_Campo = "a.cd_moeda", vOperador = "=", vVL_Busca = "'" + p.Cd_moeda.Trim() + "'" }, new TpBusca() { vNM_Campo = "a.cd_moedaresult", vOperador = "=", vVL_Busca = "'" + moeda_padrao.Trim() + "'" }, new TpBusca() { vNM_Campo = "a.data", vOperador = "=", vVL_Busca = "'" + string.Format(new System.Globalization.CultureInfo("en-US", true), Convert.ToDateTime(val.Dt_apontamento.Value).ToString("yyyyMMdd")) + "'" } }, "1"); if (obj != null) { if (!obj.ToString().Equals("1")) { throw new Exception("Erro gravar apontamento produção: Não existe cotação para a moeda de origem " + p.Cd_moeda.Trim() + ", \r\n" + "moeda de destino " + moeda_padrao.Trim() + ", data de cotação " + val.Dt_apontamentostr.Trim()); } } else { throw new Exception("Erro gravar apontamento produção: Não existe cotação para a moeda de origem " + p.Cd_moeda.Trim() + ", \r\n" + "moeda de destino " + moeda_padrao.Trim() + ", data de cotação " + val.Dt_apontamentostr.Trim()); } }); CalcularCustoMPD(val, qtb_apontamento.Banco_Dados); //Processar estoque produto acabado ProcessarEstoqueProdutoAcabado(val, val.Qtd_batch, val.Vl_custo_mpd, qtb_apontamento.Banco_Dados); //Processar estoque materia-prima TCN_FichaTec_MPrima.ProcessarEstoqueFichaTec_MPrima(val.LFormulaApontamento[0].LFichaTec_MPrima, val.Qtd_batch, val.Dt_apontamento, val.LFormulaApontamento[0].St_decomposicao, qtb_apontamento.Banco_Dados).ForEach(p => val.LApontamentoEstoque.Add(p)); //Gravar apontamento X Estoque val.LApontamentoEstoque.ForEach(p => { p.Id_apontamento = val.Id_apontamento; TCN_Apontamento_Estoque.GravarApontamentoEstoque(p, qtb_apontamento.Banco_Dados); }); //Gravar apontamento X Custo Fixo val.LFormulaApontamento[0].LCustoFixo.ForEach(p => { TCN_Apontamento_CustoFixo.GravarApontamentoCustoFixo( new TRegistro_Apontamento_CustoFixo() { Id_apontamento = val.Id_apontamento, Id_custo = p.Id_custo, Vl_custo = p.Vl_custo_calculado, Indice_monetario = p.Indice_monetario }, qtb_apontamento.Banco_Dados); }); //Gravar Formula Materia Prima val.LFormulaApontamento[0].LFichaTec_MPrima.ForEach(p => TCN_Apontamento_MPrima.Gravar(new TRegistro_Apontamento_MPrima() { Id_apontamento = val.Id_apontamento.HasValue ? val.Id_apontamento.Value : decimal.Zero, Id_mprima = decimal.Zero, Cd_produto = p.Cd_produto, Cd_unidade = p.Cd_unidade, Cd_local = p.Cd_local, Qtd_produto = p.Qtd_produto, Pc_quebratec = p.Pc_quebra_tec, Id_apontamentomprima = p.Id_apontamentomprima }, qtb_apontamento.Banco_Dados)); if (val.Id_ordem != null) { //Gravar Apontamento X Ordem de Producao TCN_OrdemProducao_X_Apontamento.Gravar( new TRegistro_OrdemProducao_X_Apontamento() { Id_apontamento = val.Id_apontamento, Id_ordem = val.Id_ordem }, qtb_apontamento.Banco_Dados); } //Gravar Mov Rastreabilidade val.lMov.ForEach(p => { p.Cd_empresa = val.Cd_empresa; p.Id_apontamento = val.Id_apontamento; TCN_MovRastreabilidade.Gravar(p, qtb_apontamento.Banco_Dados); }); if (val.Id_ordem.HasValue) { //Buscar Nº Série TList_SerieProduto lSerie = new TCD_SerieProduto(qtb_apontamento.Banco_Dados).Select( new TpBusca[] { new TpBusca() { vNM_Campo = "a.cd_empresa", vOperador = "=", vVL_Busca = "'" + val.Cd_empresa.Trim() + "'" }, new TpBusca() { vNM_Campo = "a.id_ordem", vOperador = "=", vVL_Busca = val.Id_ordemstr } }, 0, string.Empty); //Processar Numero se Serie if (lSerie.Count > 0) { lSerie.ForEach(p => { p.St_registro = "P"; TCN_SerieProduto.Gravar(p, qtb_apontamento.Banco_Dados); }); } } if (st_transacao) { qtb_apontamento.Banco_Dados.Commit_Tran(); } return(val.Id_apontamentostr); } catch (Exception ex) { if (st_transacao) { qtb_apontamento.Banco_Dados.RollBack_Tran(); } throw new Exception("Erro: " + ex.Message); } finally { if (st_transacao) { qtb_apontamento.deletarBanco_Dados(); } } }
public static string Deletar(TRegistro_ApontamentoProducao val, BancoDados.TObjetoBanco banco) { bool st_transacao = false; TCD_ApontamentoProducao qtb_apontamento = new TCD_ApontamentoProducao(); try { if (banco == null) { st_transacao = qtb_apontamento.CriarBanco_Dados(true); } else { qtb_apontamento.Banco_Dados = banco; } //Excluir Apontamento MPrima val.lMPrimaApontamento.ForEach(p => TCN_Apontamento_MPrima.Excluir(p, qtb_apontamento.Banco_Dados)); val.LApontamentoEstoque.ForEach(p => //Excluir apontamento X Estoque //O metodo deletarapontamento ja vai cancelar os estoques correspondentes TCN_Apontamento_Estoque.DeletarApontamentoEstoque(p, qtb_apontamento.Banco_Dados)); //Excluir Apontamento Custo Fixo val.LCustoFixo.ForEach(p => TCN_Apontamento_CustoFixo.DeletarApontamentoCustoFixo(p, qtb_apontamento.Banco_Dados)); //Excluir Ordem Producao X Apontamento val.lOrdem.ForEach(p => TCN_OrdemProducao_X_Apontamento.Excluir( new TRegistro_OrdemProducao_X_Apontamento() { Id_apontamento = val.Id_apontamento, Id_ordem = p.Id_ordem }, qtb_apontamento.Banco_Dados) ); //Excluir Numero Serie val.lSerie.ForEach(p => { if (new CamadaDados.Faturamento.Pedido.TCD_ItensExpedicao(qtb_apontamento.Banco_Dados).BuscarEscalar( new TpBusca[] { new TpBusca() { vNM_Campo = "a.id_serie", vOperador = "=", vVL_Busca = p.Id_seriestr } }, "1") != null) { throw new Exception("Numero série <" + p.Nr_serie.Trim() + ">, ja foi utilizado no faturamento."); } TCN_SerieProduto.Excluir(p, qtb_apontamento.Banco_Dados); }); //Deletar apontamento producao qtb_apontamento.Deletar(val); if (st_transacao) { qtb_apontamento.Banco_Dados.Commit_Tran(); } return("OK"); } catch (Exception ex) { if (st_transacao) { qtb_apontamento.Banco_Dados.RollBack_Tran(); } throw new Exception("Erro: " + ex.Message); } finally { if (st_transacao) { qtb_apontamento.deletarBanco_Dados(); } } }
public static string Excluir(TRegistro_Apontamento_MPrima val, BancoDados.TObjetoBanco banco) { bool st_transacao = false; TCD_Apontamento_MPrima qtb_apont = new TCD_Apontamento_MPrima(); try { if (banco == null) { st_transacao = qtb_apont.CriarBanco_Dados(true); } else { qtb_apont.Banco_Dados = banco; } //Excluir materia prima qtb_apont.Excluir(val); //Verificar se era um subconjunto if (val.Id_apontamentomprima != null) { //Buscar apontamento materia prima TRegistro_ApontamentoProducao rApontamento = TCN_ApontamentoProducao.Buscar(val.Id_apontamentomprima.Value.ToString(), string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, 1, string.Empty, qtb_apont.Banco_Dados)[0]; rApontamento.LApontamentoEstoque = TCN_Apontamento_Estoque.Buscar(rApontamento.Id_apontamentostr, string.Empty, string.Empty, string.Empty, 0, string.Empty, qtb_apont.Banco_Dados); rApontamento.LCustoFixo = TCN_Apontamento_CustoFixo.Buscar(rApontamento.Id_apontamentostr, string.Empty, 0, string.Empty, qtb_apont.Banco_Dados); //Buscar Materia Prima Apontamento rApontamento.lMPrimaApontamento = Buscar(rApontamento.Id_apontamentostr, qtb_apont.Banco_Dados); //Buscar custo fixo apontamento rApontamento.LCustoFixo = TCN_Apontamento_CustoFixo.Buscar(rApontamento.Id_apontamentostr, string.Empty, 0, string.Empty, qtb_apont.Banco_Dados); //Chamar metodo excluir apontamento TCN_ApontamentoProducao.Deletar(rApontamento, qtb_apont.Banco_Dados); } if (st_transacao) { qtb_apont.Banco_Dados.Commit_Tran(); } return("OK"); } catch (Exception ex) { if (st_transacao) { qtb_apont.Banco_Dados.RollBack_Tran(); } throw new Exception("Erro excluir materia prima apontamento: " + ex.Message.Trim()); } finally { if (st_transacao) { qtb_apont.deletarBanco_Dados(); } } }