ayuda con una consulta

[[Delphius]]

Empezado por oscarac

jejeje
muy buena aclaracion

sabemos que el SQL es el lenguaje mas no la base de datos ... pero algunos de nosotros "abreviamos" el termino..

OK, entonces también abreviaré a MySQL, PostgreSQL, y FirebirdSQL con SQL así evitamos cualquier confusión. ¡Listo, todos los motores a partir de hoy se llamarán SQL!

¡Si hay que ser... para hacer semejante cosa!

No hay vueltas... no es que seamos intolerantes, es que hay que hacer un esfuerzo por hablar bien, y eso hace también al tema de ser un buen profesional.
El caso que expone rgstuamigo es más común de lo que se piensa. Hacen ya demasiado mal, y denigran la profesión ¡Hay tanto que asegura que SQL es un motor de base de datos!

Las cosas como son, por favor... nada de inventar abreviaciones; ¡quedás peor!

Saludos,

[[oscarac]]

ok
Aclarado 1, Aclarado 2....

ahora tratemos de ayudar a leofuentes21

[leofuentes21]

todavia no me funciona. ya le cambie los labels por los qrdbtext y la propieda dataset tiene qry1 y datafield los campo.
2)El qreport tengo la propiedad dataset qry1.

ok. lo que yo quiero es inyectarle a la qry1 la consulta(el codigo que esta en los comentarios anteriores) desde otro form que es lo que he estado intentando y no me muestra la informacion en el reporte.

ya prove hacer consulta a la qry en el reporte y lo ace bien pero del otro form que es donde tengo la consulta en un button no lo hace,no me funciona.no me muestra datos,no se si hice algo malo o si no me doy a explicar bien.

[[oscarac]]

en el reporte (supongo qr......pas) has colocado el
use frm......pas ? donde "usas" el formulario donde esta el query?

yo normalmente "armo" una cadena mas o menos de esta manera

Código Delphi [-]
   strSql := 'select Left(M.cuenta, ' + edtDigito.Text + ') As Cuenta,' +
               ' SUM (Case when DH = ' + QuotedStr('D') + ' then u_IMP else 0.00 End) AS DEBE, ' +
               ' SUM (Case when DH = ' + QuotedStr('H') +  ' then u_IMP else 0.00 End) AS HABER ' +
               ' from TblMovimientoContable M ' +
               ' where M.Empresa = ' + QuotedStr(dmGlobal.g_CodigoEmpresa) + ' and M.Periodo = ' + QuotedStr(dmGlobal.g_Periodo) +
               ' group by Left(M.CUENTA, ' + edtDigito.Text + ') Order by Left(M.CUENTA, ' + edtDigito.Text + ')';
     if qrBalanceComprobacionMensual = Nil then
        qrBalanceComprobacionMensual := TqrBalanceComprobacionMensual.Create(Nil);
      with qrBalanceComprobacionMensual do
      begin
        qrLabelCompany.Caption := dmGlobal.g_NombreEmpresa;
        qrlRuc.Caption := dmGlobal.g_RUCEmpresa;
        rSubTitulo.Caption := 'Mensual del mes de ' + NombreMes (StrtoInT (dmGlobal.g_Mes)) + ' - ' + Copy (dmGlobal.g_Periodo,1,4);
        begin
            qryBalanceComprobacionMensual.Sql.Clear;
            qryBalanceComprobacionMensual.SQL.Add(strSql);
            qryBalanceComprobacionMensual.Open;
            if qryBalanceComprobacionMensual.IsEmpty then
              MessageDlg('No existen Movimientos en el mes',mtWarning,[mbRetry],0)
            else
              preview;
            qryBalanceComprobacionMensual.Close;
          end
      end;
      FreeAndNil(qrBalanceComprobacionMensual);

algo asi....
quiza debas poner lineas del codigo tanto del form como del reporte para entender mejor

[leofuentes21]

OK. mira
LAS FECHAS LAS INGRESO EN LOS DATATIMEPICKER.
este es mi codigo que tengo en el button del form

Código Delphi [-]
with frmReporteFecha.qry1 do
        begin
        Active:=false;
        SQL.Clear;
        SQL.Text:='SELECT FECHASOLICITUD,DOCUMENTO,DESCCLIENTE FROM TSCBAST WHERE((FECHASOLICITUD >='+QuotedStr(DateToStr(dtp1.Date))
                  +') AND (FECHASOLICITUD<='+QuotedStr(DateToStr(dtp2.Date))+'))';
        Active:=True;
        end;
        frmReporteFecha:=TfrmREPORTEFECHA.CREATE(NIL);
        try
        frmReporteFecha.qrdbtxtFECHASOLICITUD.Caption:=DATETOSTR(dtp1.Date);
          frmReporteFecha.qrdbtxtFECHASOLICITUD1.Caption:=DATETOSTR(dtp2.Date);
        frmReporteFecha.qrdbtxtDOCUMENTO.Caption:=frmReporteFecha.qry1.fieldbyname('DOCUMENTO').AsString;
        frmReporteFecha.qrdbtxtDESCCLIENTE.Caption:=frmReporteFecha.qry1.fieldbyname('DESCCLIENTE').AsString  ;
        frmReporteFecha.Reportefecha.preview;
        finally
        frmReporteFecha.Reportefecha.Free;
        end;

y en oTro form es donde tengo el reporte donde esta el quickport y la qry1.
el qreport dataset tengo enlasado a la qry, los qrdbtext los prodiedad dataset enlasada a la qry1 y datafield a ls campos. No se que esta mal o que mas puedo hacer.?

[[oscarac]]

trata de "aislar" tu data empaqueta solo el form y el reporte y subelo al ftp para revisarlo

[rgstuamigo]

Bueno es un tema que se ha tratado muchas veces, por ejemplo para ejecutar una consulta SQL entre dos fechas puedes ver éste hilo por ejemplo.
Para que lo podamos enviar al reporte sencilamente debemos asignar el dataset(Query,Table,etc) específico a nuestro componente QuickRep y utilizar una banda detalle en la que tengamos componentes como QRDBText por ejemplo (uno por cada columna o campo de nuestra consulta SQL), a los cuales tambien hay que asignarles el mismo DataSet(Propiedad DataSet) he indicarle el campo(columna) atraves de la propiedad DataField con la que van a trabajar.
Al abrir(Active=True) el dataset y darle una vista previa(Preview) al reporte, ya se podrá visualizar e imprimir todos los registros obtenidos en la consulta. Y eso es todo...
Saludos...