SELECT 
/* Datos Factura */
'FAC' AS TD,EMIBCOD,PRRCOD,FCGNRO,FCGFEC,FCGLCON,FCGLCODART,FCGLDESART,FCGLCONC,FCGLUNI,FCGLPREC,FCGLDTO,Round(FCGLUNI*(FCGLPREC*(1-(FCGLDTO/100))),2) AS FCGLTOTAL,FCGLIVAC,' ' AS ALBARAN,
/* Datos imputacin de Costos */
/* Obra */
FCGLCOSTO,FCGLOBR,FCGLCAP,FCGLDES,FCGLCODUNI, 
/* Promocin */
FCGLPROM,FCGLPRE,FCGLPAR,FCGLSUB 
FROM COSFAOL
WHERE FCGALBFAC = 'F' 
UNION
SELECT 
/* Datos Factura */
'ALB' AS TD,FACALB1.EMIBCOD,FACALB1.PRRCOD,FACALB1.FNRO,FACALB1.FFEC,FCGLCON,FCGLCODART,FCGLDESART,FCGLCONC,FCGLUNI,FCGLPREC,FCGLDTO,Round(FCGLUNI*(FCGLPREC*(1-(FCGLDTO/100))),2) AS FCGLTOTAL,FCGLIVAC,FCGNRO AS ALBARAN,
/* Datos Imputacin de Costos */
/* Obra */
FCGLCOSTO,FCGLOBR,FCGLCAP,FCGLDES,FCGLCODUNI,   
/* Promocin */
FCGLPROM,FCGLPRE,FCGLPAR,FCGLSUB 
FROM COSFAOL INNER JOIN FACALB1 ON (COSFAOL.EMIBCOD=FACALB1.EMIBCOD AND COSFAOL.PRRCOD=FACALB1.PRRCOD AND COSFAOL.FCGNRO=FACALB1.FLNRO AND COSFAOL.FCGFEC=FACALB1.FLFEC) 
WHERE COSFAOL.FCGALBFAC = 'A' AND FACALB1.FCALBFAC='F';



