private void afterBusca()
{
if (cbEmpresa.SelectedValue == null)
{
MessageBox.Show("Obrigatorio informar empresa.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
cbEmpresa.Focus();
return;
}
Utils.TpBusca[] filtro = new Utils.TpBusca[4];
//Empresa
filtro[0].vNM_Campo = "a.cd_empresa";
filtro[0].vOperador = "=";
filtro[0].vVL_Busca = "'" + cbEmpresa.SelectedValue.ToString() + "'";
//Status
filtro[1].vNM_Campo = "isnull(a.st_registro, 'A')";
filtro[1].vOperador = "<>";
filtro[1].vVL_Busca = "'E'";
//Periodo
filtro[2].vNM_Campo = "CONVERT(DATETIME,FLOOR(CONVERT(NUMERIC(30,10), case when a.dt_encerramento is null then getdate() else a.dt_encerramento end)))";
filtro[2].vOperador = ">=";
filtro[2].vVL_Busca = "CONVERT(DATETIME,FLOOR(CONVERT(NUMERIC(30,10),getdate())))";
//Contratos não suspensos
filtro[3].vNM_Campo = string.Empty;
filtro[3].vOperador = "not exists";
filtro[3].vVL_Busca = "(select 1 from tb_ose_suspcontrato x " +
"where x.cd_empresa = a.cd_empresa " +
"and x.nr_contrato = a.nr_contrato " +
"and convert(datetime, floor(convert(numeric(30,10), x.dt_inisuspenso))) <= " +
"convert(datetime, floor(convert(numeric(30,10), getdate()))) " +
"and (x.dt_finsuspenso is null or convert(datetime, floor(convert(numeric(30,10), isnull(x.dt_finsuspenso, getdate())))) >= " +
"convert(datetime, floor(convert(numeric(30,10), getdate())))))";
//Carne
if (St_gerarCarne)
{
Array.Resize(ref filtro, filtro.Length + 1);
filtro[filtro.Length - 1].vNM_Campo = "isnull(a.cd_condpgtocarne, '')";
filtro[filtro.Length - 1].vOperador = "<>";
filtro[filtro.Length - 1].vVL_Busca = "''";
}
else
{
Array.Resize(ref filtro, filtro.Length + 1);
filtro[filtro.Length - 1].vNM_Campo = string.Empty;
filtro[filtro.Length - 1].vOperador = "not exists";
filtro[filtro.Length - 1].vVL_Busca = "(select 1 from tb_ose_contrato_x_nf x " +
"inner join tb_fat_notafiscal y " +
"on x.cd_empresa = y.cd_empresa " +
"and x.nr_lanctofiscal = y.nr_lanctofiscal " +
"and isnull(y.st_registro, 'A') <> 'C' " +
"where x.cd_empresa = a.cd_empresa " +
"and x.nr_contrato = a.nr_contrato " +
"and month(y.dt_emissao) = " + dtPeriodo.Value.Month.ToString() + " " +
"and year(y.dt_emissao) = " + dtPeriodo.Value.Year.ToString() + ")";
}
CamadaDados.Servicos.TList_Contrato lContrato = new CamadaDados.Servicos.TCD_Contrato().Select(filtro, 0, string.Empty);
tot_contrato.Value = lContrato.Sum(p => p.Vl_contrato);
tot_faturar.Value = tot_contrato.Value;
bsContrato.DataSource = lContrato;
}
private void TFLanContrato_Load(object sender, EventArgs e)
{
Utils.ShapeGrid.RestoreShape(this, dataGridDefault1);
Utils.ShapeGrid.RestoreShape(this, gContrato);
Icon = Utils.ResourcesUtils.TecnoAliance_ICO;
pFiltro.set_FormatZero();
//Buscar contratos carne vencidos
object obj = new CamadaDados.Servicos.TCD_Contrato().BuscarEscalar(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "isnull(a.cd_condpgtocarne, '')",
vOperador = "<>",
vVL_Busca = "''"
},
new Utils.TpBusca()
{
vNM_Campo = "isnull(a.st_registro, 'A')",
vOperador = "=",
vVL_Busca = "'A'"
},
new Utils.TpBusca()
{
vNM_Campo = string.Empty,
vOperador = "not exists",
vVL_Busca = "(select 1 from tb_ose_contrato_x_carne x " +
"inner join tb_fin_duplicata y " +
"on x.cd_empresa = y.cd_empresa " +
"and x.nr_lancto = y.nr_lancto " +
"and isnull(y.st_registro, 'A') <> 'C' " +
"inner join tb_fin_parcela z " +
"on x.cd_empresa = z.cd_empresa " +
"and x.nr_lancto = z.nr_lancto " +
"and month(z.dt_vencto) >= month(getdate()) " +
"and year(z.dt_vencto) >= year(getdate()) " +
"where x.cd_empresa = a.cd_empresa " +
"and x.nr_contrato = a.nr_contrato)"
}
}, "count(a.nr_contrato)");
tslCarneVenc.Text = obj == null ? string.Empty : obj.ToString();
}
