Pus uma CheckListBox num Form com QuickReport e nada que faço para uma autenticação da cerot.
É o seguinte.
Tenho um campo que retorna 'A Vista' ou 'A Prazo' como opções de pagamento,
Eu quero autenticar o seguinte:
Se o campo tiver valor de 'A Prazo', a CheckListBox aparece no QuickReport.
Caso cotrario a CheckListBox não aparece.
Estou usando o código abaixo mas num está fucionando:
procedure TRPedidos.QRDBText5Print(sender: TObject; var Value: String);
begin
// IF QryPedidosCondicaoPgto.Value = 'A Prazo' then
IF QryPedidosCondicaoPgto.AsString = 'A Prazo' then
begin
CLBpgto.Visible := True;
CPedidos.InicializaListaPgto;
end
else
begin
CLBpgto.Visible := False;
end;
end;
Obs: o campo que recebe o QryPedidosCondicaoPgto.AsString é QRDBTextCondicaoPgto
Como fazer isso?
Eu descobri.
Parece que a CheckListBox não funciona no QuickReport.
Então terei que verificar quais opções estão selecioadas e colocalas como strig num componente de texto.
Pergunta
Carlos Rocha
Pus uma CheckListBox num Form com QuickReport e nada que faço para uma autenticação da cerot.
É o seguinte.
Tenho um campo que retorna 'A Vista' ou 'A Prazo' como opções de pagamento,
Eu quero autenticar o seguinte:
Se o campo tiver valor de 'A Prazo', a CheckListBox aparece no QuickReport.
Caso cotrario a CheckListBox não aparece.
Estou usando o código abaixo mas num está fucionando:
Obs: o campo que recebe o QryPedidosCondicaoPgto.AsString é QRDBTextCondicaoPgto
Como fazer isso?
Eu descobri.
Parece que a CheckListBox não funciona no QuickReport.
Então terei que verificar quais opções estão selecioadas e colocalas como strig num componente de texto.
Mas como?
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.