Integrazione di immagini da schedario in un report |
|
|
|
|
|
||
Integrazione di immagini da schedario in un report |
|
|
|
|
|
|
|
|
||
Integrazione di immagini da schedario in un report
Nell'esempio si prevede di integrare nella stampa lanci alcune immagini definite come allegati dei prodotti finiti lanciati
Esempio di sintassi per estrarre 3 immagini rispettivamente nello schedario con codice allegato 001, 002 e 003
var
sSQL , sFile : String;
begin
sSQL :=
'SELECT '+
' RTRIM(ASH.ALLEGATO) '+
'FROM '+
' ART_SCHEDARIO ASH , '+
' INT_SCHEDARIO ISH '+
'WHERE ASH.ID_INT_SCHEDARIO = ISH.ID_INT_SCHEDARIO '+
' AND ISH.CODICE = ' + QuotedStr( '001' ) + (indica il codice dello schedario)
' AND ASH.ID_ARTICOLI = ' + Dati['ID_ARTICOLI']; (indica il campo contenente l'ID articolo per la ricerca dell'immagine. Nell'esempio è rilevato dalla pipeline Dati)
sFile := DoStringQuery( sSQL );
laImg1.Caption := sFile;
if usr_ImgPf1.Visible then
begin
if sFile <> '' then
usr_ImgPf1.Picture.LoadFromFile( sFile )
else
usr_ImgPf1.Picture.Assign( nil );
end; (La sintassi serve per non caricare l'immagine nel caso in cui il campo sia stato definito invisibile)
sSQL :=
'SELECT '+
' RTRIM(ASH.ALLEGATO) '+
'FROM '+
' ART_SCHEDARIO ASH , '+
' INT_SCHEDARIO ISH '+
'WHERE ASH.ID_INT_SCHEDARIO = ISH.ID_INT_SCHEDARIO '+
' AND ISH.CODICE = ' + QuotedStr( '002' ) +
' AND ASH.ID_ARTICOLI = ' + Dati['ID_ARTICOLI'];
sFile := DoStringQuery( sSQL );
laImg2.Caption := sFile;
if usr_ImgPf2.Visible then
begin
if sFile <> '' then
usr_ImgPf2.Picture.LoadFromFile( sFile )
else
usr_ImgPf2.Picture.Assign( nil );
end;
sSQL :=
'SELECT '+
' RTRIM(ASH.ALLEGATO) '+
'FROM '+
' ART_SCHEDARIO ASH , '+
' INT_SCHEDARIO ISH '+
'WHERE ASH.ID_INT_SCHEDARIO = ISH.ID_INT_SCHEDARIO '+
' AND ISH.CODICE = ' + QuotedStr( '003' ) +
' AND ASH.ID_ARTICOLI = ' + Dati['ID_ARTICOLI'];
sFile := DoStringQuery( sSQL );
laImg3.Caption := sFile;
if usr_ImgPf3.Visible then
begin
if sFile <> '' then
usr_ImgPf3.Picture.LoadFromFile( sFile )
else
usr_ImgPf3.Picture.Assign( nil );
end;
end;
