Scribd
Cargar
11 vistas2 páginas

Base para Informe

Este documento describe los pasos para generar un informe de datos de artículos. Establece variables como el título del informe, la tabla y campo de ordenación. Verifica si hay datos para imprimir y devuelve un cursor con los resultados filtrados y ordenados entre los códigos de artículo especificados.

Cargado por

YELITZA MORILLO
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
11 vistas2 páginas

Base para Informe

Este documento describe los pasos para generar un informe de datos de artículos. Establece variables como el título del informe, la tabla y campo de ordenación. Verifica si hay datos para imprimir y devuelve un cursor con los resultados filtrados y ordenados entre los códigos de artículo especificados.

Cargado por

YELITZA MORILLO
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Base para Informe - PROFIT

PROCEDURE Init
SET DATE TO British
SET CENTURY ON
*//
SET DATASESSION TO
*// Titulo del Reporte
tNom_rep = UPPER(Alltrim(TNombre_Report)) && Value del Titulo : Reporte
*//
Do Tit_Rep With 8
*// Variable para Respuesta si Existe Informacion a Imprimir
Local llContinue
*//
ttabla = "art."
tfrom = "art"

*// Ordenar
IF rNumero = 1
orden = "Art.Co_Art"
ENDIF
IF rNumero = 2
orden = "Art.Art_Des"
ENDIF
*// Sql Server
IF serversql

ELSE && Tabla Tradicional Fox

SELECT &ttabla.*;
FROM &tfrom;
WHERE &ttabla.co_art BETWEEN ?tdesde[1] AND ?thasta[1];
ORDER BY &Orden INTO CURSOR vreportes

sele vreportes
brow

ENDIF

llContinue= .T.
IF !mensaje_report("vreportes") && Mensaje : No Hay Informacon que Imprimir
llContinue = .F.
ENDIF
RETURN(llContinue)

ENDPROC

PROCEDURE BeforeOpenTables
SET DELE ON
*//
Do open_Dat With This
*//
Return
ENDPROC

* SELECT &ttabla.*,;
* cat_art.cat_des,colores.des_col,lin_art.lin_des,[Link],;
* sub_lin.subl_des,prov.prov_des,proceden.des_proc;
* FROM &tfrom,bldatos!cat_art,bldatos!colores,bldatos!lin_art,;
* bldatos!sub_lin,bldatos!prov,bldatos!proceden,bldatos!tabulado;
* WHERE &ttabla.co_art=cat_art.co_cat;
* AND &ttabla.co_color=colores.co_col;
* AND &ttabla.co_lin=lin_art.co_lin;
* AND (&ttabla.co_subl=sub_lin.co_subl AND &ttabla.co_lin=sub_lin.co_lin );
* AND &ttabla.co_prov=prov.co_prov;
* AND &[Link]=proceden.cod_proc;
* AND &ttabla.tipo_imp=[Link];
* AND &ttabla.co_art BETWEEN ?tdesde[1] AND ?thasta[1];
* ORDER BY &Orden INTO CURSOR vreportes

También podría gustarte