campo-sirio/m770/77srsc.frm

USE 61
JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  6 TO  61  ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO STATO=="" COM==COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO STATO==STATORES COM==COMRES
END

DESCRIPTION
BEGIN
  61->* "Riepilogo SC"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  216@->* "Anagrafica persone fisiche e giuridiche"
  218@->* "Anagrafica persone fisiche"
  313@->* "Comuni"
  413@->* "Comuni"
END

GENERAL
BEGIN
  OFFSET 0 0
END

SECTION HEADER ODD 6

STRINGA 1 40 1
BEGIN
 KEY "nome ditta"
 PROMPT  1 1 "Ditta: "
 FIELD 9->RAGSOC
END

STRINGA 2 10
BEGIN
 KEY "Data"
 PROMPT  106 1 "Data "
 MESSAGE _TODAY
END

NUMERO 3 7
BEGIN
 KEY "Nr. pagina"
 PROMPT  122 1 "Pagina "
 MESSAGE _PAGENO
END

NUMERO 4 40
BEGIN
 KEY "Intestazione stampa"
 PROMPT  55 2 "Stampa riepilogo SC"
END

END

SECTION BODY ODD 2 COLUMNWISE

STRING 1 50
BEGIN   
  SPECIAL STRINGA INTESTAZIONE "Ragione Sociale" "Ragione Sociale"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "Ragione Sociale"
  PROMPT 1 1 ""
  FIELD 216@->RAGSOC
END

STRINGA 2 5
BEGIN
  SPECIAL STRINGA INTESTAZIONE "Caus." "Caus."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "CAUSALE riepilogo SC"
  PROMPT 2 1 ""
  FIELD CAUSALE
END

STRING 3 5
BEGIN
  SPECIAL STRINGA INTESTAZIONE "Tass." "Tass."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "FLAG TASSAZIONE SEPARATA"
  PROMPT 3 1 ""
  FIELD TASSAZIONE
END

NUMBER 4 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@CAmm. lordo" "Amm. lordo"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "AMMONTARE LORDO CORRISPOSTO"
  PROMPT 4 1 ""  
  PICTURE "###.###.###^^^"    
  FIELD AMMLORDO
END

NUMBER 5 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@CContributi" "Contributi"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "CONTRIBUTI OBBLIGATORI"
  PROMPT 5 1 ""    
  PICTURE "###.###.###^^^"  
  FIELD CONTROBB
END

NUMBER 6 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "Somme non sogg" "Somme non sogg"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "SOMME NON SOGGETTE A RITENUTA"
  PROMPT 6 1 ""    
  PICTURE "###.###.###^^^"    
  FIELD SOMNONSOGG
END

NUMBER 7 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@CImponibile" "Imponibile"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "IMPONIBILE"
  PROMPT 7 1 ""  
  PICTURE "###.###.###^^^"    
  FIELD IMPONIBILE
END

NUMBER 8 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@CImposta" "Imposta"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "IMPOSTA"
  PROMPT 8 1 ""  
  PICTURE "###.###.###^^^"    
  FIELD IMPOSTA
END

NUMBER 9 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@CDetr. fam." "Detr. fam."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "DETRAZIONI PER CARICHI DI FAMIGLIA"
  PROMPT 9 1 ""  
  PICTURE "###.###.###^^^"   
  FIELD DETCARFAM
END

NUMBER 10 6
BEGIN
  SPECIAL STRINGA INTESTAZIONE "Gg.det" "Gg.det"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "NUMERO GIORNI DETRAZIONI PER LAVORO DIPENDENTE"
  PROMPT 10 1 ""  
  FIELD GGLAVDIP
END

NUMBER 11 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@CDetr. lav." "Detr. lav."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "DETRAZIONI PER LAVORO DIPENDENTE"
  PROMPT 11 1 ""  
  PICTURE "###.###.###^^^"   
  FIELD DETLAVDIP
END

NUMBER 12 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@CTot. detr." "Tot. detr."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "TOTALE DETRAZIONI"
  PROMPT 12 1 ""  
  PICTURE "###.###.###^^^"   
  FIELD TOTDET
END

NUMBER 13 14
BEGIN
  SPECIAL STRINGA INTESTAZIONE "Ritenute" "Ritenute"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "RITENUTE OPERATE"
  PROMPT 13 1 ""  
  PICTURE "###.###.###^^^"   
  FIELD RITENUTE
END

END