F�rum Loop de Mensalidade #432224

09/01/2013

Ol� pessoal, preciso muito da ajuda de voc�s, o neg�cio � o seguinte, no meu sistema tenho um loop de gera��o de mensalidade, onde passo como par�metro o c�digo do aluno, o c�digo da matricula do aluno e a data de inscri��o do aluno, da seguinte maneira:

//Query respons�vel para pegar a data de inscri��o e o codigo da matricula do aluno
  qryDataInscricao.Close;
  qryDataInscricao.Parameters.ParamByName('codigo').Value := codigoaluno;
  qryDataInscricao.Open;

  if ((DBEdit3.Text <> '')and(DBEdit4.Text <> '' )) then
    begin
      codigoMatricula := StrToInt(DBEdit4.Text);
      dataInscricao := StrToDateTime(DBEdit3.Text);
    end

A� sim, depois de "jogado" nas vari�veis os dados que eu preciso eu fa�o o loop assim:

      while i <= Quant_mes do
        begin

          qryInsertMensalidade.Parameters.ParamByName('codigo_paciente').Value := codigoaluno;
          qryInsertMensalidade.Parameters.ParamByName('codigo_matricula').Value := codigoMatricula;
          qryInsertMensalidade.Parameters.ParamByName('data_vencimento').Value :=  IncMonth(dataInscricao,(i));
          qryInsertMensalidade.Parameters.ParamByName('descricao').Value := 'MENSALIDADE - ' + DBEdit1.Text;
          qryInsertMensalidade.Parameters.ParamByName('valor').Value := qryDataInscricaovalor_mensal.Value;

          datarepetida := qryInsertMensalidade.Parameters.ParamByName('data_vencimento').Value;

          qryExisteDebito.Close;
          qryExisteDebito.Parameters.ParamByName('codigoPaciente').Value := codigoaluno;
          qryExisteDebito.Parameters.ParamByName('dataVencimento').Value := datarepetida;
          qryExisteDebito.Open;

        //Se tiver mensalidade para este m�s n�o dever� gerar o mesmo
          if not qryExisteDebito.Locate('data_vencimento',datarepetida,[]) then
            begin
              qryInsertMensalidade.ExecSQL;
            end;


          qryGrid.Next;

          i := i + 1;

        end;//fim do while

Mas o problema � o seguinte, quando um mesmo aluno se matricula em duas modalidades ou mais, ele fica com dois c�digos de matricula e duas datas de inscri��o, que � o correto mesmo, por�m eu n�o pensei nisso antes, minha d�vida �: como eu fa�o pra gerar as mensalidades com as duas matriculas??

Eu uso Delphi7, SQLServer 2005, ADOQuery e Datasource

Desde j� agrade�o!

Klaus

Curtir t�pico

+ 0

Responder

Posts

10/01/2013

Walter Desidera

Voc� pode fazer um loop na tabela de matriculas e depois fazer o seu mesmo loop na tabela de menssalidades tipo. Um loop dentro de outro loop:

//Loop 1
qryDataInscricao.First;
while not(TabelaDadosAluno.eof) to
begin
//Loop 2
 For i:=0 to pred(NumeroDeMenssalidade) do
  with TabelaMenssalidade.Parameters do
    begin
    Parameters.ParamByName('codigo_paciente').Value := codigoaluno;
    Parameters.ParamByName('codigo_matricula').Value := codigoMatricula;
    ...
  end;
TabelaDadosdoAluno.Next;
end;

O primeiro loop corre a tabela de matriculas passando o c�digo/matricula do aluno que entra no o segundo inserindo os dados das mensalidades. Um linha da tabela matriculas, insere v�rias mensalidades.

Espero ter ajudado =)

Responder

Gostei + 0