controle de taloes de passagem

Question

Galera estou com um problema de verifica��o de consistencia e queria uma id�ia de vcs!!tenho uma tabela taloes.. que tem os seguinte campos..EX. de cadastro de tal�esSerie  Numtalao  vlPassagem       ...

Jonas_giron · Answer

por que vc n�o passa um select para contar esses registros ex:

// contar os registros

qr_conta.close;
qr_conta.sql.clear;
qr_conta.sql.add(�select count(serie) as quantia_registro from entrada_movimento�);
qr_conta.sql.add(�where serie =:cod_serie�);
qr_conta.parambyname(�cod_serie�).value := �A1�;
qr_conta.open;

assim ele vai te trazer a quantia de cada serie que vc estiver informando
podendo conferir, se os tal�es tiverem 100 folhas com a select acima voce pode confrontar os resultados.

//verificar se existe o registro

qr_conta.close;
qr_conta.sql.clear;
qr_conta.sql.add(�select count(serie) as quantia_registro from entrada_movimento�);
qr_conta.sql.add(�where serie =:cod_serie and ValorPassagem =:val_passagem and Inicial =:val_inicial and Final =:val_final and Pagantes =:val_pagantes and Total =:val_total�);
qr_conta.parambyname(�cod_serie�).value := �A1�;
qr_conta.parambyname(�val_passagem�).value := �2,30�;
qr_conta.parambyname(�val_inicial�).value := �1�;
qr_conta.parambyname(�val_final�).value := �60�;
qr_conta.parambyname(�val_total�).value := �120�;
qr_conta.open;

if qr_conta.fieldbyname(�quantia_registro�).value > 0 then begin
showmessage(�j� Exixte um registro com esses dados�);
exit;
end;

// ver se este tal�o � do motorista

qr_conta.close;
qr_conta.sql.clear;
qr_conta.sql.add(�select (serie) as id_talao from cadastro_taloes�);
qr_conta.sql.add(�where codmotorista =:cod_motorista�);
qr_conta.parambyname(�cod_motorista�).value := �1�;
qr_conta.open;

if qr_conta.fieldbyname(�id_talao�).value <> A1 then begin
showmessage(�este Tal�o n�o faz parte deste motorista�);
exit;
end;

F�rum controle de taloes de passagem #320998