public static TList_LanPatrimonio Busca(string vID_Patrimonio,
string vID_Lancto,
string vCD_Empresa,
string vDT_Inicio,
string vDT_Final,
bool vFiltroReprocessa,
bool vST_Reprocessa,
decimal vID_LoteCTB,
string vTipo)
{
TpBusca[] vBusca = new TpBusca[0];
if (vID_Patrimonio.Trim() != "")
{
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.ID_Patrimonio";
vBusca[vBusca.Length - 1].vOperador = "=";
vBusca[vBusca.Length - 1].vVL_Busca = vID_Patrimonio;
}
if (vTipo.Trim() != "")
{
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.TP_Lancto";
vBusca[vBusca.Length - 1].vOperador = "=";
vBusca[vBusca.Length - 1].vVL_Busca = "'" + vTipo.Trim() + "'";
}
if (vID_Lancto.Trim() != "")
{
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.ID_Lancto";
vBusca[vBusca.Length - 1].vOperador = "=";
vBusca[vBusca.Length - 1].vVL_Busca = vID_Lancto;
}
if (vDT_Inicio.Trim() != "" && vDT_Inicio != " / /")
{
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.DT_Lancto";
vBusca[vBusca.Length - 1].vOperador = ">=";
vBusca[vBusca.Length - 1].vVL_Busca = "'" + vDT_Inicio.Trim() + "'";
}
if (vDT_Final.Trim() != "" && vDT_Final != " / /")
{
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.DT_Lancto";
vBusca[vBusca.Length - 1].vOperador = "<=";
vBusca[vBusca.Length - 1].vVL_Busca = "'" + vDT_Final.Trim() + "'";
}
if (vCD_Empresa.Trim() != string.Empty)
{
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "b.cd_empresa";
vBusca[vBusca.Length - 1].vOperador = "=";
vBusca[vBusca.Length - 1].vVL_Busca = "'" + vCD_Empresa.Trim() + "'";
}
if (vFiltroReprocessa)
{
if (vST_Reprocessa)
{
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.ID_LoteCTB";
vBusca[vBusca.Length - 1].vOperador = "is";
vBusca[vBusca.Length - 1].vVL_Busca = "not null";
}
else
{
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.ID_LoteCTB";
vBusca[vBusca.Length - 1].vOperador = "is";
vBusca[vBusca.Length - 1].vVL_Busca = "null";
}
}
TCD_LanPatrimonio qtb_LanPatrimonio = new TCD_LanPatrimonio();
return(qtb_LanPatrimonio.Select(vBusca, 0, ""));
}
