public static decimal ConvertMoeda(string Cd_moeda_origem, string Cd_moeda_destino, DateTime Data, bool St_cotacaoMenor, decimal Vl_origem, ref decimal Indice, BancoDados.TObjetoBanco banco) { if (Cd_moeda_destino.Trim().Equals(Cd_moeda_origem.Trim())) { return(Vl_origem); } TList_CotacaoMoeda lCotacao = new TCD_CotacaoMoeda(banco).Select( new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = "a.cd_moeda", vOperador = "=", vVL_Busca = "'" + Cd_moeda_origem.Trim() + "'" }, new Utils.TpBusca() { vNM_Campo = "a.cd_Moedaresult", vOperador = "=", vVL_Busca = "'" + Cd_moeda_destino.Trim() + "'" }, new Utils.TpBusca() { vNM_Campo = "a.data", vOperador = St_cotacaoMenor ? "<=" : "=", vVL_Busca = "'" + string.Format(new System.Globalization.CultureInfo("en-US", true), Data.ToString("yyyyMMdd")) + (St_cotacaoMenor ? " 23:59:59'" : "'") } }, 1, string.Empty); if (lCotacao.Count > 0) { if (lCotacao[0].Op.Trim().Equals("*")) { return(Vl_origem * lCotacao[0].Valor); } else if (lCotacao[0].Op.Trim().Equals("/")) { return(Vl_origem / lCotacao[0].Valor); } else { return(Vl_origem); } } else { throw new Exception("Não existe cotação para a moeda de origem " + Cd_moeda_origem.Trim() + ", \r\n" + "moeda de destino " + Cd_moeda_destino.Trim() + ", \r\n" + "data da cotação " + Data.ToString("dd/MM/yyyy")); } }
public static string ExcluirCotacao(TRegistro_CotacaoMoeda val, BancoDados.TObjetoBanco banco) { bool st_transacao = false; TCD_CotacaoMoeda qtb_cotacao = new TCD_CotacaoMoeda(); try { if (banco == null) { st_transacao = qtb_cotacao.CriarBanco_Dados(true); } else { qtb_cotacao.Banco_Dados = banco; } qtb_cotacao.ExcluirCotacao(val); if (st_transacao) { qtb_cotacao.Banco_Dados.Commit_Tran(); } return("OK"); } catch (Exception ex) { if (st_transacao) { qtb_cotacao.Banco_Dados.RollBack_Tran(); } throw new Exception("Erro excluir cotacao: " + ex.Message.Trim()); } finally { if (st_transacao) { qtb_cotacao.deletarBanco_Dados(); } } }
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(); } } }