campo-sirio/cg/cg5700a.frm

#include "cg5700.h"

USE LF_NDITTE
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN LF_ANAGFIS TO LF_ANAG ALIAS 18 INTO CODANAGR=CODANAGR
JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR
END

DESCRIPTION
BEGIN
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  7->* "Anagrafica persone giuridiche"
END

GENERAL
BEGIN
  OFFSET 0 0
END

SECTION BODY ODD 50

STRINGA 1 40
BEGIN
 KEY "Titolo"
 PROMPT 30 1 "@BDICHIARAZIONE IVA PERIODICA"
END

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

NUMERO FF_CODDITTA 6
BEGIN
 KEY "Codice ditta"
 PROMPT 2 3 "Ditta "
 FIELD LF_NDITTE->CODDITTA
 PICTURE "@@@@@"
END

STRINGA FF_RAGSOC 50
BEGIN
 KEY "Ragione sociale"
 PROMPT 18 3 ""
 FIELD LF_NDITTE->RAGSOC
END

STRINGA 3 
BEGIN
 KEY "Codice fiscale - descrizione"
 PROMPT 2 4 "Codice fiscale:"
END

STRINGA FF_COFI
BEGIN
 KEY "Codice fiscale - valore"
 PROMPT 18 4 ""
 FIELD LF_ANAG->COFI
END

STRINGA 4 
BEGIN
 KEY "Partita IVA - descrizione"
 PROMPT 2 5 "Partita IVA: "
END

STRINGA FF_PAIVA 
BEGIN
 KEY "Partita IVA - valore"
 PROMPT 18 5 ""
 FIELD LF_ANAG->PAIV
END

NUMERO FF_YEAR 6
BEGIN
  KEY "Anno"
  PROMPT 2 6 "Anno: "
END

LISTA FF_MONTHS 15
BEGIN
 KEY "Mesi"
 PROMPT 18 6 "Periodo: "
 ITEM "1|Gennaio"
 ITEM "2|Febbraio"
 ITEM "3|Marzo"
 ITEM "4|Aprile"
 ITEM "5|Maggio"
 ITEM "6|Giugno"
 ITEM "7|Luglio"
 ITEM "8|Agosto"
 ITEM "9|Settembre"
 ITEM "10|Ottobre"
 ITEM "11|Novembre"
 ITEM "12|Dicembre"
END

LISTA FF_TRIMS 15
BEGIN
 KEY "Trimestri"
 PROMPT 18 6 "Periodo: "
 ITEM "3|1° Trimestre"
 ITEM "6|2° Trimestre"
 ITEM "9|3° Trimestre"
 ITEM "12|4° Trimestre"
END

STRING FF_CODVAL 3
BEGIN
 KEY "Codice valuta"
 PROMPT 60 4 ""
 FLAGS "H"
END

LISTA FF_IMPORTI 21
BEGIN
 KEY "Importi espressi in"
 PROMPT 2 8 "Importi espressi in "
 ITEM " |lire"
 ITEM "1|euro"
END

STRINGA 5
BEGIN
 KEY "VP1 - Descrizione"
 PROMPT 2 10 "VP1  - Ammontare complessivo delle operazioni attive"
END

VALUTA FF_VP1 18
BEGIN
 KEY "VP1 - Valore"
 PROMPT 60 10 ""
 DRIVENBY FF_CODVAL
END

STRINGA 6
BEGIN
 KEY "VP2 - Descrizione"
 PROMPT 2 11 "VP2  -         di cui cessioni intracomunitarie"
END

VALUTA FF_VP2 18
BEGIN
 KEY "VP2 - Valore"
 PROMPT 60 11 ""
 DRIVENBY FF_CODVAL
END

STRINGA 7
BEGIN
 KEY "VP3 - Descrizione"
 PROMPT 2 12 "VP3  - Ammontare complessivo delle operazioni passive"
END

VALUTA FF_VP3 18
BEGIN
 KEY "VP3 - Valore"
 PROMPT 60 12 ""
 DRIVENBY FF_CODVAL
END

STRINGA 8
BEGIN
 KEY "VP4 - Descrizione"
 PROMPT 2 13 "VP4  -         di cui acquisti intracomunitari"
END

VALUTA FF_VP4 18
BEGIN
 KEY "VP4 - Valore"
 PROMPT 60 13 ""
 DRIVENBY FF_CODVAL
END

STRINGA 9
BEGIN
 KEY "VP5 - Descrizione"
 PROMPT 2 14 "VP5  - Ammontare complessivo dell'IVA a debito"
END

VALUTA FF_VP5 18
BEGIN
 KEY "VP5 - Valore"
 PROMPT 60 14 ""
 DRIVENBY FF_CODVAL
END

STRINGA 10
BEGIN
 KEY "VP6 - Descrizione"
 PROMPT 2 15 "VP6  - Ammontare complessivo dell'IVA che si detrae"
END

VALUTA FF_VP6 18
BEGIN
 KEY "VP6 - Valore"
 PROMPT 60 15 ""
 DRIVENBY FF_CODVAL
END

STRINGA 11
BEGIN
 KEY "VP7 - Descrizione"
 PROMPT 2 16 "VP7  - IVA a credito del periodo precedente"
END

VALUTA FF_VP7 18
BEGIN
 KEY "VP7 - Valore"
 PROMPT 60 16 ""
 DRIVENBY FF_CODVAL
END

STRINGA 12
BEGIN
 KEY "VP8 - Descrizione"
 PROMPT 2 17 "VP8  - Crediti d'imposta utilizzati"
END

VALUTA FF_VP8 18
BEGIN
 KEY "VP8 - Valore"
 PROMPT 60 17 ""
 DRIVENBY FF_CODVAL
END

STRINGA 13
BEGIN
 KEY "VP9 - Descrizione"
 PROMPT 2 18 "VP9  - Interessi dovuti per le liquidazioni trimestrali"
END

VALUTA FF_VP9 18
BEGIN
 KEY "VP9 - Valore"
 PROMPT 60 18 ""
 DRIVENBY FF_CODVAL
END

STRINGA 14
BEGIN
 KEY "VP10 - Descrizione"
 PROMPT 2 19 "@bVP10 - IVA da versare"
END

VALUTA FF_VP10 18
BEGIN
 KEY "VP10 - Valore"
 PROMPT 60 19 ""
 DRIVENBY FF_CODVAL
END

STRINGA 15
BEGIN
 KEY "VP11 - Descrizione"
 PROMPT 2 20 "@bVP11 - IVA a credito"
END

VALUTA FF_VP11 18
BEGIN
 KEY "VP11 - Valore"
 PROMPT 60 20 ""
 DRIVENBY FF_CODVAL
END

LISTA FF_VP12_STAMPATO
BEGIN
  KEY "Stampato"
  PROMPT 0 0 ""
  FLAGS "H"
  ITEM " | " MESSAGE HIDE,GF_VP12@
  ITEM "X| " MESSAGE SHOW,GF_VP12@
END

VALUTA FF_VP12_IMPORTO 18
BEGIN
  KEY "Importo"
  PROMPT 2 22 "Importo versato "
  DRIVENBY FF_CODVAL
  GROUP GF_VP12
END

DATA FF_VP12_DATA
BEGIN
  KEY "Data versamento"
  PROMPT 40 22 "Data versamento "
  GROUP GF_VP12
END

STRINGA FF_VP12_CONCESSIONE 17
BEGIN
 KEY "Cod. Concessione"
 PROMPT 2 23 "Cod. Concessione "
 GROUP GF_VP12
END

STRINGA FF_VP12_ABI 10
BEGIN
 KEY "Cod. ABI"
 PROMPT 40 23 "Cod. ABI "
 GROUP GF_VP12
END

STRINGA FF_VP12_CAB 10
BEGIN
 KEY "Cod. CAB"
 PROMPT 40 24 "Cod. CAB "
 GROUP GF_VP12
END
 
END

END