//---------------------------------------------------------------------------
void __fastcall TSup1011::addLineExecute(TObject *Sender)
{
//Adiciona uma linha no GRID de itens
QyFornecProduto->BeforeInsert = NULL; //Desativando evento de bloqueio de INSERT manual
QyFornecProduto->Insert();
QyFornecProduto->BeforeInsert = &QyFornecProdutoBeforeInsert;
QyFornecProduto->FieldByName("cod_fornecedor")->AsString = QyCnsFornecedor->FieldByName("cod_fornecedor")->AsString;
QyFornecProduto->FieldByName("cod_produto")->Value = VarAsType(Variant::Empty(), varNull);
QyFornecProduto->FieldByName("den_produto")->Value = VarAsType(Variant::Empty(), varNull);
QyFornecProduto->FieldByName("preco_compra")->AsFloat = 0;
QyFornecProduto->FieldByName("data_atualizacao")->AsDateTime = Now();
QyFornecProduto->Post();
grdAddProduto->SetFocus();
grdAddProduto->SelectedField = QyFornecProduto->FieldByName("cod_produto");
}
//---------------------------------------------------------------------------
void __fastcall TIssueListGridForm::tvItemsStylesGetContentStyle(
TcxCustomGridTableView *Sender, TcxCustomGridRecord *ARecord,
TcxCustomGridTableItem *AItem, TcxStyle *&AStyle)
{
if (!IsDependsOnData)
return;
int AStatus = -1;
if (ARecord && AItem)
if (!VarIsNull(((TcxCustomGridRecord*)ARecord)->Values[tvItemsSTATUS->Index]))
AStatus = VarAsType(((TcxCustomGridRecord*)ARecord)->Values[tvItemsSTATUS->Index], varInteger);
switch (AStatus) {
case 1: AStyle = dmMain->stNew;
break;
case 2: AStyle = dmMain->stPostponed;
break;
case 3: AStyle = dmMain->stFixed;
break;
case 4: AStyle = dmMain->stRejected;
}
}
