Example #1
0
        public override int buscarRegistros()
        {
            TList_CotacaoMoeda lista = TCN_CotacaoMoeda.Buscar(CD_Moeda.Text,
                                                               CD_moedaResult.Text,
                                                               null);

            if (lista != null)
            {
                if (lista.Count > 0)
                {
                    this.Lista           = lista;
                    bsCotacao.DataSource = lista;
                }
                else
                if ((vTP_Modo == TTpModo.tm_Standby) || (vTP_Modo == TTpModo.tm_busca))
                {
                    bsCotacao.Clear();
                }
                return(lista.Count);
            }
            else
            {
                return(0);
            }
        }
Example #2
0
 public override string gravarRegistro()
 {
     if (pDados.validarCampoObrigatorio())
     {
         return(TCN_CotacaoMoeda.GravarCotacao(bsCotacao.Current as TRegistro_CotacaoMoeda, null));
     }
     else
     {
         return(string.Empty);
     }
 }
Example #3
0
 public static void CalcularCustoFixo(TRegistro_ApontamentoProducao val, BancoDados.TObjetoBanco banco)
 {
     if (val != null)
     {
         if (val.LFormulaApontamento.Count > 0)
         {
             val.LFormulaApontamento[0].LCustoFixo.ForEach(p =>
             {
                 if (p.Vl_custo > 0)
                 {
                     string moeda_padrao = TCN_CadParamGer.BuscaVL_String_Empresa("CD_MOEDA_PADRAO", val.Cd_empresa, banco);
                     if (moeda_padrao.Trim().Equals(string.Empty))
                     {
                         throw new Exception("Erro calcular custo fixo: falta configurar moeda padrĂ£o.");
                     }
                     if (p.Cd_moeda.Trim().Equals(moeda_padrao.Trim()))
                     {
                         p.Vl_custo_calculado = p.Vl_custo * val.Qtd_batch;
                     }
                     else if (val.Dt_apontamento != null)
                     {
                         decimal indice       = decimal.Zero;
                         p.Vl_custo_calculado = TCN_CotacaoMoeda.ConvertMoeda(p.Cd_moeda,
                                                                              moeda_padrao,
                                                                              val.Dt_apontamento.Value,
                                                                              false,
                                                                              p.Vl_custo,
                                                                              ref indice,
                                                                              banco) * val.Qtd_batch;
                         p.Indice_monetario = indice;
                     }
                 }
             });
             val.Vl_custo_fixodireto = val.LFormulaApontamento[0].LCustoFixo.Sum(p => p.Vl_custo_calculado);
         }
     }
 }