[ederfcr]

Envío código adicional para compresión:

Código Delphi [-]
  rs2 := TADODataSet.Create(nil);
  rs2.Connection := connection2;
  rs2.CursorType := ctStatic;
  rs2.LockType := ltOptimistic;
  rs2.CommandText := 'SELECT COUNT(*) AS CANTREG FROM plancli WHERE CC = ' + ccusu;
  rs2.Open();