private void TFLan_Transfere_Caixa_Load(object sender, EventArgs e)
{
if (!string.IsNullOrEmpty(Utils.Parametros.pubCultura))
{
Idioma.TIdioma.AjustaCultura(this);
}
pnl_Transfere.set_FormatZero();
this.Icon = ResourcesUtils.TecnoAliance_ICO;
pValores.BackColor = SettingsUtils.Default.COLOR_1;
if (BS_Transfere_Caixa.Current != null)
{
//Buscar moeda da conta entrada
CamadaDados.Financeiro.Cadastros.TList_Moeda lMoeda =
new CamadaDados.Financeiro.Cadastros.TCD_Moeda().Select(
new TpBusca[]
{
new TpBusca()
{
vNM_Campo = string.Empty,
vOperador = "exists",
vVL_Busca = "(select 1 from tb_fin_contager x " +
"where x.cd_moeda = a.cd_moeda " +
"and x.cd_contager = '" + (BS_Transfere_Caixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_Lan_Transfere_Caixa).CD_ContaGer_Saida.Trim() + "')"
}
}, 0, string.Empty);
if (lMoeda.Count > 0)
{
(BS_Transfere_Caixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_Lan_Transfere_Caixa).Cd_moeda_saida = lMoeda[0].Cd_moeda;
(BS_Transfere_Caixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_Lan_Transfere_Caixa).Ds_moeda_saida = lMoeda[0].Ds_moeda_singular;
(BS_Transfere_Caixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_Lan_Transfere_Caixa).Sigla_moeda_saida = lMoeda[0].Sigla;
BS_Transfere_Caixa.ResetCurrentItem();
}
}
}
private void BuscarMoedaDestino()
{
if (!string.IsNullOrEmpty(CD_ContaGer_Saida.Text))
{
CamadaDados.Financeiro.Cadastros.TList_Moeda lMoeda =
new CamadaDados.Financeiro.Cadastros.TCD_Moeda().Select(
new TpBusca[]
{
new TpBusca()
{
vNM_Campo = string.Empty,
vOperador = "exists",
vVL_Busca = "(select 1 from tb_fin_contager x " +
"where x.cd_moeda = a.cd_moeda " +
"and x.cd_contager = '" + CD_ContaGer.Text.Trim() + "')"
}
}, 0, string.Empty);
if (lMoeda.Count > 0)
{
(BS_Transfere_Caixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_Lan_Transfere_Caixa).Cd_moeda_entrada = lMoeda[0].Cd_moeda;
(BS_Transfere_Caixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_Lan_Transfere_Caixa).Ds_moeda_entrada = lMoeda[0].Ds_moeda_singular;
(BS_Transfere_Caixa.Current as CamadaDados.Financeiro.Caixa.TRegistro_Lan_Transfere_Caixa).Sigla_moeda_entrada = lMoeda[0].Sigla;
BS_Transfere_Caixa.ResetCurrentItem();
}
}
}
