campo-sirio/m770/77srla.frm

USE 144
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 6 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
JOIN 13 TO 216@ ALIAS 513 INTO STATO=="" COM==COMRF
JOIN %STA TO 216@ ALIAS 104 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
144->* "Quadro LA 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
206@->* "Anagrafica persone fisiche e giuridiche"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone fisiche"
313@->* "Comune nascita"
413@->* "Comune residenza"
513@->* "Comune residenza fiscale"
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 "@bStampa riepilogo LA"
END
END
SECTION BODY ODD 3 COLUMWISE
STRINGA 1 25 3
BEGIN
  SPECIAL STRINGA INTESTAZIONE "Ragione Sociale" "Ragione Sociale"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "RAGSOC GIURIDICHE"
  PROMPT 1 1 ""
  FIELD 216@->RAGSOC
END

STRINGA 16 5
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cCaus." "Causale"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" 
  KEY "CAUSALE"
  PROMPT 2 1 ""
  FIELD CAUSALE
END

STRINGA 17 4
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cAnno" "Anno"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" 
  KEY "Anno"
  PROMPT 3 1 ""
  FIELD ANNO
END

STRINGA 18 6
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cAntic." "Anticipazione"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" 
  KEY "Anticipazione"
  PROMPT 4 1 ""
  FIELD ANTICIPAZ
END

VALUTA 19 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cAmmontare lordo" "Tot."
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "Ammontare lordo corrisposto"
  PROMPT 5 1 ""
  FIELD TOTALE
  PICTURE "###.###.###^^^" 
END

VALUTA 20 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "Somme non sogg. regime conv." "Som. Reg. Conv"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "SOMREGCONV"
  PROMPT 6 1 ""
  FIELD SOMREGCONV
  PICTURE "###.###.###^^^" 
END

VALUTA 21 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "Altre somme non soggette" "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 7 1 ""
  FIELD SOMME 
  PICTURE "###.###.###^^^" 
END

VALUTA 22 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cImponibile" "Imponibile"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "IMPONIBILE"
  PROMPT 8 1 ""
  FIELD IMPONIBILE 
  PICTURE "###.###.###^^^" 
END

VALUTA 23 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cRitenute" "Ritenute"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "Ritenute"
  PROMPT 9 1 ""
  FIELD IMPORTO 
  PICTURE "###.###.###^^^" 
END

VALUTA 24 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cAmmontare lordo Ritenute sosp." "Ritenute sospese"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "Ritenute sospese"
  PROMPT 5 2 ""
  FIELD RITSOSPESE
  PICTURE "###.###.###^^^" 
END

VALUTA 25 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cSom. Reg. Conv. Addiz. region." "Addizionale regionale"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "Addizionale regionale"
  PROMPT 6 2 ""
  FIELD ADDREG
  PICTURE "###.###.###^^^" 
END

VALUTA 26 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cAltre somme Add. reg. sosp." "Addizionale regionale sospesa"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "Addizionale regionale sospesa"
  PROMPT 7 2 ""
  FIELD ADDREGSOSP
  PICTURE "###.###.###^^^" 
END

VALUTA 27 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cImponibile   Imp. anni prec." "Imponibile anni precedenti"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "Imponibile anni precedenti"
  PROMPT 8 2 ""
  FIELD IMPANNIPRE
  PICTURE "###.###.###^^^"
END

VALUTA 28 15
BEGIN
  SPECIAL STRINGA INTESTAZIONE "@cRitenute    Rit. anni prec." "Ritenute anni precedenti"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  KEY "Ritenute anni precedenti"
  PROMPT 9 2 ""
  FIELD RITANNIPRE
  PICTURE "###.###.###^^^" 
END

END