コード例 #1
0
 private static decimal CalcularCustoMPD(TList_FichaTec_MPrima val,
                                         string Dt_apontamento,
                                         decimal Qtd_batch,
                                         BancoDados.TObjetoBanco banco)
 {
     val.ForEach(p =>
     {
         if (p.Id_formulacao_mprima != null)
         {
             //Buscar lista de materia-prima
             TList_FichaTec_MPrima lMPrima = TCN_FichaTec_MPrima.Buscar(p.Cd_empresa,
                                                                        p.Id_formulacao_mprimastr,
                                                                        string.Empty,
                                                                        string.Empty,
                                                                        string.Empty,
                                                                        0,
                                                                        string.Empty,
                                                                        banco);
             //Chamar o metodo CalcularCustoMPD recursivamente
             p.Vl_custo      = CalcularCustoMPD(lMPrima, Dt_apontamento, Qtd_batch, banco);
             p.Vl_customedio = Math.Round(p.Vl_custo / p.Qtd_produto / Qtd_batch, 2);
         }
         else
         {
             p.Vl_customedio = TCN_CadConvUnidade.ConvertUnid(p.Cd_unidade,
                                                              p.Cd_unid_produto,
                                                              TCN_LanEstoque.BuscarVlEstoqueUltimaCompra(p.Cd_empresa, p.Cd_produto, banco), 5, banco);
             p.Vl_custo = Math.Round(p.Vl_customedio * p.Qtd_produto * Qtd_batch, 2);
         }
     });
     return(val.Sum(p => p.Vl_custo));
 }
コード例 #2
0
        public static string Gravar(TRegistro_FormulaApontamento val, BancoDados.TObjetoBanco banco)
        {
            bool st_transacao = false;
            TCD_FormulaApontamento qtb_formula = new TCD_FormulaApontamento();

            try
            {
                if (banco == null)
                {
                    st_transacao = qtb_formula.CriarBanco_Dados(true);
                }
                else
                {
                    qtb_formula.Banco_Dados = banco;
                }
                //Gravar Formula Apontamento
                val.Id_formulacao = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(qtb_formula.Gravar(val), "@P_ID_FORMULACAO"));
                //Deletar Ficha Tecnica MPrima
                val.LFichaTec_MPrimaDel.ForEach(p => TCN_FichaTec_MPrima.Excluir(p, qtb_formula.Banco_Dados));
                //Gravar Ficha Tecnica MPrima
                val.LFichaTec_MPrima.ForEach(p =>
                {
                    p.Cd_empresa    = val.Cd_empresa;
                    p.Id_formulacao = val.Id_formulacao;
                    TCN_FichaTec_MPrima.Gravar(p, qtb_formula.Banco_Dados);
                });
                //Deletar Custo Fixo Direto
                val.LCustoFixoDel.ForEach(p => TCN_CustoFixo_Direto.DeletarCustoFixo_Direto(p, qtb_formula.Banco_Dados));
                //Gravar Custo Fixo Direto
                val.LCustoFixo.ForEach(p =>
                {
                    p.Cd_empresa    = val.Cd_empresa;
                    p.Id_formulacao = val.Id_formulacao;
                    TCN_CustoFixo_Direto.GravarCustoFixo_Direto(p, qtb_formula.Banco_Dados);
                });
                if (st_transacao)
                {
                    qtb_formula.Banco_Dados.Commit_Tran();
                }
                return(val.Id_formulacaostr);
            }
            catch (Exception ex)
            {
                if (st_transacao)
                {
                    qtb_formula.Banco_Dados.RollBack_Tran();
                }
                throw new Exception("Erro: " + ex.Message);
            }
            finally
            {
                if (st_transacao)
                {
                    qtb_formula.deletarBanco_Dados();
                }
            }
        }
コード例 #3
0
        public static string Excluir(TRegistro_FormulaApontamento val, BancoDados.TObjetoBanco banco)
        {
            bool st_transacao = false;
            TCD_FormulaApontamento qtb_formula = new TCD_FormulaApontamento();

            try
            {
                if (banco == null)
                {
                    st_transacao = qtb_formula.CriarBanco_Dados(true);
                }
                else
                {
                    qtb_formula.Banco_Dados = banco;
                }
                //Deletar custo fixo
                val.LCustoFixo.ForEach(p => TCN_CustoFixo_Direto.DeletarCustoFixo_Direto(p, qtb_formula.Banco_Dados));
                val.LCustoFixoDel.ForEach(p => TCN_CustoFixo_Direto.DeletarCustoFixo_Direto(p, qtb_formula.Banco_Dados));
                //Deletar Ficha Tecnica MPrima
                val.LFichaTec_MPrima.ForEach(p => TCN_FichaTec_MPrima.Excluir(p, qtb_formula.Banco_Dados));
                val.LFichaTec_MPrimaDel.ForEach(p => TCN_FichaTec_MPrima.Excluir(p, qtb_formula.Banco_Dados));
                //Deletar Formula Apontamento
                qtb_formula.Excluir(val);
                if (st_transacao)
                {
                    qtb_formula.Banco_Dados.Commit_Tran();
                }
                return("OK");
            }
            catch (Exception ex)
            {
                if (st_transacao)
                {
                    qtb_formula.Banco_Dados.RollBack_Tran();
                }
                throw new Exception("Erro: " + ex.Message);
            }
            finally
            {
                if (st_transacao)
                {
                    qtb_formula.deletarBanco_Dados();
                }
            }
        }
コード例 #4
0
        public static TList_Apontamento_Estoque ProcessarEstoqueFichaTec_MPrima(TList_FichaTec_MPrima val,
                                                                                decimal Qtd_batch,
                                                                                DateTime?Dt_estoque,
                                                                                bool St_decomposicao,
                                                                                BancoDados.TObjetoBanco banco)
        {
            bool st_transacao             = false;
            TCD_FichaTec_MPrima qtb_ficha = new TCD_FichaTec_MPrima();

            try
            {
                if (banco == null)
                {
                    st_transacao = qtb_ficha.CriarBanco_Dados(true);
                }
                else
                {
                    qtb_ficha.Banco_Dados = banco;
                }
                TList_Apontamento_Estoque lEstoque = new TList_Apontamento_Estoque();
                val.ForEach(p =>
                {
                    #region if produto composto e formula for nula
                    if ((new CamadaDados.Estoque.Cadastros.TCD_CadProduto(qtb_ficha.Banco_Dados).ProdutoComposto(p.Cd_produto)) && (p.Id_formulacao_mprima == null))
                    {
                        TRegistro_ApontamentoProducao rApontamento = new TRegistro_ApontamentoProducao();
                        rApontamento.Cd_empresa          = p.Cd_empresa;
                        rApontamento.Dt_apontamento      = Dt_estoque;
                        rApontamento.Dt_validade         = Dt_estoque;
                        rApontamento.Qtd_batch           = p.Qtd_produto * Qtd_batch;
                        rApontamento.LFormulaApontamento = new TList_FormulaApontamento()
                        {
                            TCN_FormulaApontamento.CriarFormulaApontamentoProd(p.Cd_empresa,
                                                                               p.Cd_produto,
                                                                               p.Cd_unidade,
                                                                               p.Cd_local,
                                                                               //St_decomposicao,
                                                                               qtb_ficha.Banco_Dados)
                        };
                        //Gravar Formula Apontamento
                        rApontamento.LFormulaApontamento.ForEach(x =>
                        {
                            x.St_decomposicao = St_decomposicao;
                            TCN_FormulaApontamento.Gravar(x, qtb_ficha.Banco_Dados);
                        });
                        //Calcular custo MPD
                        TCN_ApontamentoProducao.CalcularCustoMPD(rApontamento, qtb_ficha.Banco_Dados);
                        //Calcular custo fixo
                        TCN_ApontamentoProducao.CalcularCustoFixo(rApontamento, qtb_ficha.Banco_Dados);
                        //Chamar metodo Gravar Apontamento recursivamente
                        p.Id_apontamentomprima = Convert.ToDecimal(TCN_ApontamentoProducao.Gravar(rApontamento,
                                                                                                  qtb_ficha.Banco_Dados));
                    }
                    #endregion
                    #region else if formula diferente de nulll
                    else if (p.Id_formulacao_mprima != null)
                    {
                        //Buscar formula apontamento
                        TRegistro_ApontamentoProducao rApontamento = new TRegistro_ApontamentoProducao();
                        rApontamento.Cd_empresa          = p.Cd_empresa;
                        rApontamento.Dt_apontamento      = Dt_estoque;
                        rApontamento.Dt_validade         = Dt_estoque;
                        rApontamento.Qtd_batch           = p.Qtd_produto * Qtd_batch;
                        rApontamento.LFormulaApontamento = TCN_FormulaApontamento.Buscar(p.Cd_empresa,
                                                                                         p.Id_formulacao_mprimastr,
                                                                                         string.Empty,
                                                                                         string.Empty,
                                                                                         string.Empty,
                                                                                         string.Empty,
                                                                                         string.Empty,
                                                                                         0,
                                                                                         string.Empty,
                                                                                         qtb_ficha.Banco_Dados);
                        //Buscar ficha tecnica da formula
                        rApontamento.LFormulaApontamento[0].LFichaTec_MPrima =
                            TCN_FichaTec_MPrima.Buscar(p.Cd_empresa,
                                                       p.Id_formulacao_mprimastr,
                                                       string.Empty,
                                                       string.Empty,
                                                       string.Empty,
                                                       0,
                                                       string.Empty,
                                                       qtb_ficha.Banco_Dados);
                        //Buscar Custo
                        rApontamento.LFormulaApontamento[0].LCustoFixo =
                            TCN_CustoFixo_Direto.Buscar(p.Cd_empresa,
                                                        p.Id_formulacao_mprimastr,
                                                        string.Empty,
                                                        string.Empty,
                                                        string.Empty,
                                                        0,
                                                        string.Empty,
                                                        qtb_ficha.Banco_Dados);

                        rApontamento.Qtd_batch = Math.Round(p.Qtd_produto / TCN_CadConvUnidade.ConvertUnid(rApontamento.LFormulaApontamento[0].Cd_unidade,
                                                                                                           rApontamento.LFormulaApontamento[0].Cd_unidProduto,
                                                                                                           rApontamento.LFormulaApontamento[0].Qt_produto,
                                                                                                           3, qtb_ficha.Banco_Dados), 0);
                        //Calcular custo MPD
                        TCN_ApontamentoProducao.CalcularCustoMPD(rApontamento, qtb_ficha.Banco_Dados);
                        //Calcular custo fixo
                        TCN_ApontamentoProducao.CalcularCustoFixo(rApontamento, qtb_ficha.Banco_Dados);
                        //Chamar metodo Gravar Apontamento recursivamente
                        p.Id_apontamentomprima = Convert.ToDecimal(TCN_ApontamentoProducao.Gravar(rApontamento,
                                                                                                  qtb_ficha.Banco_Dados));
                    }
                    #endregion

                    //Gravar estoque
                    TRegistro_LanEstoque rEstoque = new TRegistro_LanEstoque();
                    rEstoque.Cd_empresa           = p.Cd_empresa;
                    rEstoque.Cd_local             = p.Cd_local;
                    rEstoque.Cd_produto           = p.Cd_produto;
                    rEstoque.Ds_observacao        = "ESTOQUE GRAVADO AUTOMATICAMENTE PELO APONTAMENTO DE PRODUCAO";
                    rEstoque.Dt_lancto            = Dt_estoque;
                    rEstoque.Tp_movimento         = !St_decomposicao ? "S" : "E";
                    rEstoque.Qtd_entrada          = St_decomposicao ? TCN_CadConvUnidade.ConvertUnid(p.Cd_unidade,
                                                                                                     p.Cd_unid_produto,
                                                                                                     p.Qtd_produto * Qtd_batch,
                                                                                                     3,
                                                                                                     qtb_ficha.Banco_Dados) : decimal.Zero;
                    rEstoque.Qtd_saida = !St_decomposicao ? TCN_CadConvUnidade.ConvertUnid(p.Cd_unidade,
                                                                                           p.Cd_unid_produto,
                                                                                           p.Qtd_produto * Qtd_batch,
                                                                                           3,
                                                                                           qtb_ficha.Banco_Dados) : decimal.Zero;
                    rEstoque.Vl_unitario = p.Vl_unitario;
                    rEstoque.Vl_subtotal = rEstoque.Vl_unitario * (St_decomposicao ? rEstoque.Qtd_entrada : rEstoque.Qtd_saida);
                    rEstoque.Tp_lancto   = "N";
                    TCN_LanEstoque.GravarEstoque(rEstoque, qtb_ficha.Banco_Dados);
                    lEstoque.Add(new TRegistro_Apontamento_Estoque()
                    {
                        Cd_empresa       = p.Cd_empresa,
                        Cd_produto       = p.Cd_produto,
                        Id_lanctoestoque = rEstoque.Id_lanctoestoque,
                        Vl_custocontabil = p.Vl_custo
                    });
                });
                if (st_transacao)
                {
                    qtb_ficha.Banco_Dados.Commit_Tran();
                }
                return(lEstoque);
            }
            catch (Exception ex)
            {
                if (st_transacao)
                {
                    qtb_ficha.Banco_Dados.RollBack_Tran();
                }
                throw new Exception("Erro: " + ex.Message.Trim());
            }
            finally
            {
                if (st_transacao)
                {
                    qtb_ficha.deletarBanco_Dados();
                }
            }
        }
コード例 #5
0
        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();
                }
            }
        }