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();
}
}
}
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 ImprimirCopiaCheque(CamadaDados.Financeiro.Titulo.TList_RegLanTitulo ListaTitulo)
{
if (ListaTitulo.Count > decimal.Zero)
{
using (FormRelPadrao.TFGerenciadorImpressao fImp = new FormRelPadrao.TFGerenciadorImpressao())
{
FormRelPadrao.Relatorio Rel = new FormRelPadrao.Relatorio();
Rel.Altera_Relatorio = Altera_Relatorio;
BindingSource bs_cheque = new BindingSource();
bs_cheque.DataSource = ListaTitulo.OrderBy(p => p.Nr_cheque).ToList();
Rel.DTS_Relatorio = bs_cheque;
Rel.Ident = "TFCopiaCheque";
Rel.NM_Classe = "TFConsultaTitulo";
Rel.Modulo = string.Empty;
fImp.St_enabled_enviaremail = true;
fImp.pCd_clifor = string.Empty;
fImp.pMensagem = "CÓPIA CHEQUE";
//Buscar Empresa
BindingSource BinEmpresa = new BindingSource();
BinEmpresa.DataSource = CamadaNegocio.Diversos.TCN_CadEmpresa.Busca(ListaTitulo[0].Cd_empresa, string.Empty, string.Empty, null);
//Buscar moeda para impressao dos cheques
ListaTitulo.ForEach(p =>
{
//Buscar moeda da conta gerencial
CamadaDados.Financeiro.Cadastros.TList_Moeda lMoeda =
new CamadaDados.Financeiro.Cadastros.TCD_Moeda().Select(
new Utils.TpBusca[]
{
new Utils.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 = '" + p.Cd_contager + "')"
}
}, 1, string.Empty);
if (lMoeda.Count > 0)
{
p.Ds_moeda = lMoeda[0].Ds_moeda_singular;
p.Ds_moeda_plural = lMoeda[0].Ds_moeda_plural;
}
});
Rel.Adiciona_DataSource("BIMEMPRESA", BinEmpresa);
if (Altera_Relatorio)
{
Rel.Gera_Relatorio(string.Empty,
fImp.pSt_imprimir,
fImp.pSt_visualizar,
fImp.pSt_enviaremail,
fImp.pSt_exportPdf,
fImp.Path_exportPdf,
fImp.pDestinatarios,
null,
"CÓPIA CHEQUE",
fImp.pDs_mensagem);
Altera_Relatorio = false;
}
else
if ((fImp.ShowDialog() == DialogResult.OK) || (fImp.pSt_enviaremail))
{
Rel.Gera_Relatorio(string.Empty,
fImp.pSt_imprimir,
fImp.pSt_visualizar,
fImp.pSt_enviaremail,
fImp.pSt_exportPdf,
fImp.Path_exportPdf,
fImp.pDestinatarios,
null,
"CÓPIA CHEQUE",
fImp.pDs_mensagem);
}
}
}
}
