https://kb.sagedev.it/index.php?action=history&feed=atom&title=Testata%2FDettaglioTestata/Dettaglio - Revision history2026-07-02T14:46:44ZRevision history for this page on the wikiMediaWiki 1.35.1https://kb.sagedev.it/index.php?title=Testata/Dettaglio&diff=73&oldid=prevMwadmin at 08:40, 31 May 20192019-05-31T08:40:18Z<p></p>
<p><b>New page</b></p><div><br />
<br />
In una videata di testa/Dettaglio non è possibile utilizzare un campo in testata come filtro dei record<br />
<br />
Per la fase di importazione/esportazione vedere la voce apposita in [[ImportExport#Caso_testata.2Fdettaglio|import/export]]<br />
<br />
Esempio di codice (utilizzato per esempio per le certificazioni prodotto)<br />
<br />
<br />
<br />
<pre><br />
# CAMPI DA DICHIARARE NELLA VIDEATA DI DETTAGLIO<br />
# UPDFLG C 4 (nascosto)<br />
# CREFLG C 4 (nascosto)<br />
# <chiave di riga> L 8 (nascosto; vengono attribuiti valori multipli di 1000;<br />
# deve essere presente anche nella TABELLA di dettaglio)<br />
# per esempio<br />
# YIDRIGA L 8 <br />
# <br />
# In videata di dettaglio non vanno inseriti i campi chiave di testata perchè altrimenti non vengono valorizzati nel record<br />
#<br />
# CAMPO NBLIG: <br />
# - da inserire nella tabella di dettaglio (tipo ABS, Inserito)<br />
# - da mettere nella colonna Parametro nel blocco Riquadro della videata usato per i dettagli<br />
# - impostare come azioni del campo NBLIG:<br />
# C DIVLINCONT (controllo inserimento riga)<br />
# post_riga DIVLINNUM (attribuzione numero riga)<br />
# queste azioni hanno un parametro LIG (in comune) che deve essere valorizzato con <chiave di riga> (YIDRIGA)<br />
#<br />
# Definire nell'oggetto legato alla tabella di testata, nel folder ambiente, la tabella di dettaglio<br />
#<br />
# NB: nelle codice delle azioni campo usare (nolign-1) come indice (per es. [M:YCC1]YSEQMAR(nolign-1)=VALEUR )<br />
# se si fa transclass invece il nolign è valido senza fare -1 (vedi nolign)<br />
####################################################################<br />
#<br />
####################################################################<br />
$ACTION<br />
Case ACTION<br />
When "OUVRE" : Gosub OUVRE<br />
When "FILTRE" : Gosub FILTRE<br />
When "SETBOUT" : Gosub SETBOUT<br />
When "CREATION" : Gosub CREATION<br />
When "APRES_CRE" : Gosub APRES_CRE<br />
When "LIENS" : Gosub LIENS<br />
When "MODIF" : Gosub MODIF<br />
When "APRES_MOD" : Gosub APRES_MOD<br />
When "ANNULE" : Gosub ANNULE<br />
When "DEFLIG" : Gosub DEFLIG<br />
When "INICRE_LIG" : Gosub INI_LIG <br />
When "INIMOD_LIG" : Gosub INI_LIG <br />
When Default<br />
Endcase<br />
Return<br />
####################################################################<br />
$OUVRE<br />
Gosub DECLARE From TABLEAUX<br />
Return<br />
####################################################################<br />
$FILTRE<br />
Default File [YPH] #Abbreviazione tabella di Testata <br />
Return<br />
####################################################################<br />
$SETBOUT<br />
If GREP = ""<br />
CHAINE+="A"<br />
Else<br />
Call VIREBOUT(CHAINE,"A") From GOBJET <br />
Endif<br />
Return<br />
####################################################################<br />
$CREATION<br />
Gosub CREATION From TABLEAUX<br />
If GOK < 1 Return Endif<br />
Return<br />
#################################################################### <br />
$APRES_CRE <br />
# -- Ricarico degli indicatori UPDFLG e CREFLG # <br />
Gosub LIENS From TABLEAUX <br />
Return<br />
####################################################################<br />
$LIENS<br />
# -- Carico delle righe nella tabella<br />
Gosub LIENS From TABLEAUX<br />
<br />
#in questo punto tutti gli eventi LIENS_LIG sono stati elaborati<br />
Return<br />
####################################################################<br />
$LIENS_LIG<br />
#evento al caricamento di ciascuna riga<br />
# eventuali chiamate su campi<br />
#Call AM_YSEQMAR([M:YCC1]YSEQMAR(nolign-1))<br />
Return<br />
####################################################################<br />
$MODIF<br />
Gosub MODIF From TABLEAUX<br />
If GOK < 1 Return Endif<br />
Return<br />
#################################################################### <br />
$APRES_MOD <br />
# -- Ricarico degli indicatori UPDFLG e CREFLG # <br />
Gosub LIENS From TABLEAUX <br />
Return <br />
###############################################################<br />
$ANNULE<br />
Gosub ANNULE From TABLEAUX : # Cancellazione delle righe<br />
If GOK < 1 Return Endif<br />
Return<br />
###############################################################<br />
$DEFLIG<br />
#-----------------------------------#<br />
# Definizione del file di dettaglio #<br />
#-----------------------------------#<br />
# Criterio di lettura (CRIT) #<br />
# Nome del file (FICLIG) #<br />
# Abbreviazione del file (ABLIG) #<br />
# Campo numero riga (ZONLIG) #<br />
#-----------------------------------#<br />
Default Mask [YCC1] # Abbrevv. videata di dettaglio<br />
Default File [YCD] # Abbrevv. tabella di dettaglio<br />
<br />
# criterio per legare la tabella di dettaglio alla tabella di testata (nome campo tabella dettaglio = [M]nome campo testata <br />
# se il campo è numerico va senza singoli apici (usando num$())<br />
# per date? ... "' & YDATAI = ["+num$([M:YPR0]YDATAI)+"] & YDATAF = ["+[M:YPR0]YDATAI+"]" <br />
CRIT = "YFAMCER = '"+[M:YCC0]YFAMCER+"' & YPASSOVIE = '"+[M:YCC0]YPASSOVIE+"' & YNROMOL = "+num$([M:YCC0]YNROMOL) <br />
FICLIG = "YCERTPRODD" # nome tabella di dettaglio<br />
ABLIG = "YCD" # abbreviazione nome tabella di dettaglio<br />
ZONLIG = "YIDRIGA" # nome campo chiave di riga che gestisce la linea nel dettaglio<br />
Return<br />
<br />
####################################################################<br />
$INI_LIG<br />
# -- Valorizzazione testata<br />
#commento: vengono copiati i valori di testata sui campi di dettaglio<br />
# YCD file dettaglio, YCC file testata<br />
[F:YCD]YFAMCER = [F:YCC]YFAMCER<br />
[F:YCD]YPASSOVIE = [F:YCC]YPASSOVIE <br />
[F:YCD]YNROMOL = [F:YCC]YNROMOL <br />
Return<br />
######################################################################################<br />
## Etichetta aggiunta dal supervisore (videata YPR1) 05/11/2013 15:46:55 (ADMIN)<br />
######################################################################################<br />
# L'articolo deve essere inserito nel listino di riferimento<br />
Subprog C_ITMREF(VALEUR)<br />
Variable Char VALEUR()<br />
Local Integer YERR<br />
<br />
Call YCHK_ART(VALEUR,[M:YPR0]X_NAT,[M:YPR0]YDATAI,[M:YPR0]YDATAF,YERR)<br />
Case YERR<br />
When 0<br />
mkstat = 2<br />
GMESSAGE = "Articolo non trovato in listino per i dati impostati in testata: articolo non inseribile"<br />
When 2<br />
mkstat = 2<br />
GMESSAGE = "Più righe listino trovate per i dati impostati in testata: verificare listini"<br />
Endcase<br />
<br />
End<br />
######################################################################################<br />
Subprog YCHK_ART(YART, YLIS, YDATA1, YDATA2, YERR)<br />
Value Char YART, YLIS<br />
Value Date YDATA1, YDATA2<br />
Variable Integer YERR<br />
Local File SPRICLIST [F:YSPL]<br />
Filter [F:YSPL] Where PLICRI1 = YART and PLICRI2 = YLIS and PLISTRDAT <= YDATA1 and PLIENDDAT >= YDATA2<br />
YERR = rowcount([F:YSPL]) # deve esserci solo una riga per questo filtro, altrimenti è una anomalia<br />
Filter [F:YSPL]<br />
End<br />
######################################################################################<br />
</pre></div>Mwadmin