Checklistbox E Quickreport

[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:

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.

Mas como?

[Pirambu!]

Carlos Rocha, se entendir direito você estar tentando dizer no Relatório a forma de pagamento se é 'A Vista' ou 'A Prazo',

tenta colocar um qrlabel e após excultar a query você faz assim:

QryPedidos.close;
QryPedidos....
QryPedidos.open;

qrlabel1.caption := QryPedidos.fieldbyname('CondicaoPgto').value;

Vê se é isso?

[Carlos Rocha]

O Michels:

Preciso te amolar só mais um pouquinho. É o seguinte:

Lembra de que a CheckListBox agora grava no banco valores como '0 2 3 6', e não mais '15 dias 30 dias'??????

Pois é.

Preciso agora de uma função que leia em separado cada uma das opçoes e jogue no QuickReports para um campo de texto dessa forma:

Se o valor do banco vier '0 2 3 6' a função converta para 'Voce escolheu: 15 dias, 45 dias, 60 dias, 120 dias.'

15 dias

30 dias

45 dias

60 dias

75 dias

90 dias

120 dias

Só falta isso pra minha aplicação ficar pronta.

Muito Obrigado.

Um abraço.

Carlos Rocha

[Micheus]

Pus uma CheckListBox num Form com QuickReport e nada que faço para uma autenticação da certo.

...

Eu descobri.

Parece que a CheckListBox não funciona no QuickReport.

Carlos Rocha, que bom que descobriu sozinho.

Mas apenas para ficar claro a qualquer um que acompanhe este tópico: ao relatório QuickReport só podem ser adicionados componentes provenientes de sua paleta. Qualquer outra coisa, não estará ligada ao quick, mas sim ao form que o "hospeda".

Carlos Rocha, se entendir direito você estar tentando dizer no Relatório a forma de pagamento se é 'A Vista' ou 'A Prazo',

tenta colocar um qrlabel e após excultar a query você faz assim:

QryPedidos.close;
QryPedidos....
QryPedidos.open;

qrlabel1.caption := QryPedidos.fieldbyname('CondicaoPgto').value;

Vê se é isso?

Pirambu!, a idéia será por aí mesmo. No caso específico deste campo o Carlos Rocha poderia utilizar direto um TQRDBText ligado ao campo QryPedidosCondicaoPgto. Mas no que se refere aos prazos anteriormente marcados nas caixas, daí teria que utilizar o procedimento que você citou. A exemplo do que sugeri no tutorial que postei em resposta ao outro postdele, poderia ser utilizado um procedimento para inicializar o texto a ser passado ao QRLabel que você sugeriu:

function ConvertPrazos(OpcStr :string) :string;
const
  Delimitador = ',';
  Prazos :array[0..6] of string =
          (' 15 dias,', ' 30 dias,', ' 45 dias,',
           ' 60 dias,', ' 75 dias,', ' 90 dias,',
           '120 dias,');
var
  Idx :Integer;
begin
  Result := '';
  while OpcStr <> '' do
  begin
    Idx := Pos(Delimitador, OpcStr);
   // não encontrar o delimitador, significa que o
   // resto da string contém o último valor
    if Idx = 0 then
     // neste caso, marcamos posição como posterior ao último caracter
      Idx := Length(OpcStr) +1;
   // Concatena prazo
    Result := Result +Prazos[StrToInt(Copy(OpcStr, 1, Idx -1))];
   // elimina o item já processado da lista - em OpsStr
    Delete(OpcStr, 1, Idx);
  end;
  SetLength(Result, Length(Result) -1);;
end;

...
procedure TQRForm.QRBandBeforePrint(.....);
begin
 // habilita impressão dos prazos apenas se esta foi a opção cadastrada
  QRLabelPrazo.Enabled := QryPedidosCondicaoPgto.AsString = 'A Prazo';
 // monta o texto apenas se vai imprir esta opção
  if QRLabelPrazo.Enabled then
    QRLabelPrazo.Caption := ConvertPrazos(QryPedidosPrazoPgto.AsString); // suponde este o nome do campo
end;

Isso levando em conta que foram gravados dos índices marcados no CheckListBox, porque se foram armazenados os textos ,não há necessidade disto - é direto o campo no TQRDBText.

O Michels:

Preciso te amolar só mais um pouquinho. É o seguinte:

Lembra de que a CheckListBox agora grava no banco valores como '0 2 3 6', e não mais '15 dias 30 dias'??????

...

Carlos Rocha, esta parte da "conversa" o pessoal aqui não conhece - não misture as coisas! <_<

Quem lhe deu uma resposta neste post foi o Pirambu! não eu. ;)

Abraços

[Carlos Rocha]

Essa não funcionou pois o que tem gravado no banco são os índices e não as opções de meses.

Function ConvertPrazos(OpcStr :string) :string;
const
  Delimitador = ' ';
  Prazos :array[0..6] of string = (' 15 dias,', ' 30 dias,', ' 45 dias,', ' 60 dias,', ' 75 dias,', ' 90 dias,', '120 dias,');
var
  Idx :Integer;
begin
  Result := '';
  while OpcStr <> '' do
  begin
    Idx := Pos(Delimitador, OpcStr);
   // não encontrar o delimitador, significa que o
   // resto da string contém o último valor
    if Idx = 0 then
     // neste caso, marcamos posição como posterior ao último caracter
      Idx := Length(OpcStr) +1;
   // Concatena prazo
    Result := Result +Prazos[StrToInt(Copy(OpcStr, 1, Idx -1))];
   // elimina o item já processado da lista - em OpsStr
    Delete(OpcStr, 1, Idx);
  end;
  SetLength(Result, Length(Result) -1);;
end;

procedure TRPedidos.PageHeaderBand1BeforePrint(Sender: TQRCustomBand;  var PrintBand: Boolean);
begin
// habilita impressão dos prazos apenas se esta foi a opção cadastrada
  QRLabel18.Enabled := QryPedidosCondicaoPgto.AsString = 'A Prazo';
// monta o texto apenas se vai imprir esta opção
  if QRLabel18.Enabled then
    QRLabel18.Caption := ConvertPrazos(QryPedidosListaPgto.AsString); // suponde este o nome do campo
end;

Deu certo.

Obrigado.