campo-sirio/src/in/in0700a.uml

#include "in0700a.h"

TOOLBAR "relapbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Rettifiche INTRA" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 3 1 ""
  FLAGS "DF"
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_DITTA_DESCR RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_DITTA_DESCR 50
BEGIN
  PROMPT 10 1 "Ragione Sociale "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 10
BEGIN
  PROMPT 1 3 "@bRiepilogo originale"
END

LIST O_TIPO 1 10
BEGIN
  PROMPT 2 4 "Tipo "
  ITEM "C|Cessioni"
    MESSAGE "C",O_TIPO_CF
  ITEM "A|Acquisti"
    MESSAGE "F",O_TIPO_CF
  FLAGS "D"
END

NUMBER O_ANNO 4
BEGIN
  PROMPT 21 4 "Anno "
  FLAGS "UG"
  FIELD ANNORETT
  CHECKTYPE REQUIRED
  NUM_EXPR #O_ANNO<=#F_ANNO
  WARNING "Si possono rettificare solo gli anni precedenti o uguali"
END

LIST O_PERIODO_M 2 16
BEGIN
  PROMPT 33 4 "Periodo "
  FLAGS "AM"
  FIELD PERETT
  NUM_EXPR (#O_ANNO<#F_ANNO)||((#O_ANNO=#F_ANNO)&&(#O_PERIODO_M<#F_PERIODO_M))
  WARINIG "Si possono rettificare solo i periodi precedenti"
END

LIST O_PERIODO_T 2 16
BEGIN
  PROMPT 33 4 "Periodo "
  ITEM "01|Gennaio-Marzo"
  ITEM "02|Aprile-Giugno"
  ITEM "03|Luglio-Settembre"
  ITEM "04|Ottobre-Dicembre"
  FIELD PERETT
  NUM_EXPR (#O_ANNO<#F_ANNO)||((#O_ANNO=#F_ANNO)&&(#O_PERIODO_T<#F_PERIODO_T))
  WARINIG "Si possono rettificare solo i periodi precedenti"
END

LIST O_PERIODO_A 2 16
BEGIN
  PROMPT 33 4 "Periodo "
  ITEM "01|Annuale"
END

LIST O_SEZIONE 1 7
BEGIN
  PROMPT 61 4 "Sezione "
  ITEM "1|Beni"          MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@
  ITEM "3|Servizi"       MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@
  KEY 1
  FLAGS "DG"
END

NUMBER O_NUM_RIG 7
BEGIN
  PROMPT 2 5 "Riga "
  USE LF_RIEPRETT SELECT (SEZIONE==#O_SEZIONE)&&(TIPO==#O_TIPO)
  INPUT ANNO O_ANNO SELECT
  INPUT PERIODO O_PERIODO_M
  INPUT NUMRIG O_NUM_RIG
  DISPLAY "Tipo" TIPO
  DISPLAY "Sezione" SEZIONE
  DISPLAY "Anno" ANNO
  DISPLAY "Periodo" PERIODO
  DISPLAY "Numero" NUMRIG
  DISPLAY "Stato" STATO
  DISPLAY "Partita IVA" PIVA
  DISPLAY "Natura" NATURA
  DISPLAY "Nomenclatura" NOMENCL
  DISPLAY "Consegna" CONSEGNA
  DISPLAY "Trasporto" TRASPORTO
  DISPLAY "Paese" PAESE
  OUTPUT O_PERIODO_M PERIODO
  OUTPUT O_PERIODO_T PERIODO
  OUTPUT O_NUM_RIG NUMRIG
  OUTPUT O_STATO STATO
  OUTPUT O_ANNO ANNO
  OUTPUT O_PARTITA_IVA PIVA
  OUTPUT O_NATURA_TRANS NATURA
  OUTPUT O_NOMENCLATURA NOMENCL
  OUTPUT O_AMMONTARE AMMLIRE
  OUTPUT O_VALUTA CODVAL
  OUTPUT F_VALUTA CODVAL
  OUTPUT O_AMM_VALUTA AMMVALUTA
  OUTPUT O_VALORE_STAT VALSTAT
  OUTPUT O_CODSERV CODSERV
  CHECKTYPE SEARCH
  FIELD NUMRETT
  ADD RUN IN0 -5
END

STRING O_STATO 2
BEGIN
  PROMPT 18 5 "Stato CEE "
  FLAGS "DU"
END

LIST O_TIPO_CF 1 10
BEGIN
  PROMPT 33 5 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FLAGS "D"
END

STRING O_PARTITA_IVA 12
BEGIN
  PROMPT 54 5 "Partita IVA "
  FLAGS "D"
  USE LF_CLIFO KEY 5
  INPUT TIPOCF O_TIPO_CF SELECT
  INPUT STATOPAIV O_STATO
  INPUT PAIV O_PARTITA_IVA
  DISPLAY "Stato" STATOPAIV
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT O_STATO STATOPAIV
  OUTPUT O_PARTITA_IVA PAIV
  OUTPUT O_PARTITA_DESC RAGSOC
  CHECKTYPE REQUIRED
  WARNING "Lunghezza partita IVA errata"
END

STRING O_PARTITA_DESC 50
BEGIN
  PROMPT 2 6 "Ragione sociale          "
  FLAGS "D"
END

STRING O_NATURA_TRANS 1
BEGIN
  PROMPT 2 7 "Natura transazione "
  FLAGS "DU"
END

NUMBER O_NOMENCLATURA 8
BEGIN
  PROMPT 28 7 "Nomenclatura combinata "
  FLAGS "D"
END

CURRENCY O_AMMONTARE 18
BEGIN
  PROMPT 2 8 "Ammontare          "
  FLAGS "D"
END

STRING O_VALUTA 3
BEGIN
  PROMPT 42 8 "in valuta "
  FLAGS "D"
END

CURRENCY O_AMM_VALUTA 18
BEGIN
  PROMPT 59 8 ""
  DRIVENBY O_VALUTA
  FLAGS "D"
END

CURRENCY O_VALORE_STAT 18
BEGIN
  PROMPT 2 9 "Valore statistico  "
  FLAGS "D"
END

STRING O_CODSERV 5
BEGIN
  PROMPT 2 10 "Codice servizio    "
  FLAGS "D"
END

LIST O_MODEROG 1 15
BEGIN
  PROMPT 42 10 "Modalit<69> Erogazione"
  ITEM "I|Unica soluzione"
  ITEM "R|Pi<50> soluzioni"
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Modalit<69> di incasso  "           
  GROUP GR_CESSIONI
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Modalit<69> di pagamento"
  GROUP GR_ACQUISTI
  FLAGS "D"
END

LIST O_MODINCPAG 1 9
BEGIN
  PROMPT 21 11 ""
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 42 11 "Stato di incasso     "           
  GROUP GR_CESSIONI
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 42 11 "Stato di pagamento   "
  GROUP GR_ACQUISTI
  FLAGS "D"
END

STRING O_STATOINCPAG 2
BEGIN
  PROMPT 61 11 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 11
BEGIN
  PROMPT 1 13 "@bRettifica"
END

LIST F_TIPO 1 10
BEGIN
  PROMPT 2 14 "Tipo "
  ITEM "A|Cessioni"  MESSAGE "C",F_TIPO_CF|"C",O_TIPO|SHOW,GR_CESSIONI@|HIDE,GR_ACQUISTI@
  ITEM "C|Acquisti"  MESSAGE "F",F_TIPO_CF|"A",O_TIPO|HIDE,GR_CESSIONI@|SHOW,GR_ACQUISTI@
  KEY 1
  FIELD TIPO
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 21 14 "Anno "
  FLAGS "AU"
  KEY 1
  FIELD ANNO
END

LIST F_PERIODO_M 2 16
BEGIN
  PROMPT 33 14 "Periodo "
  FLAGS "M"
  FIELD PERIODO
  KEY 1
END

LIST F_PERIODO_T 2 16
BEGIN
  PROMPT 33 14 "Periodo "
  ITEM "01|Gennaio-Marzo"
  ITEM "02|Aprile-Giugno"
  ITEM "03|Luglio-Settembre"
  ITEM "04|Ottobre-Dicembre"
  FIELD PERIODO
  KEY 1
END

LIST F_PERIODO_A 2 16
BEGIN
  PROMPT 33 14 "Periodo "
  ITEM "01|Annuale"
  FIELD PERIODO
  KEY 1
END

LIST F_SEZIONE 1 7
BEGIN
  PROMPT 61 14 "Sezione "
  ITEM "2|Beni"          MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@|"1",O_SEZIONE
  ITEM "4|Servizi"       MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@|"3",O_SEZIONE
  KEY 1
  FIELD SEZIONE
END

NUBER F_NUM_RIG 7
BEGIN
  PROMPT 2 15 "Riga "
  USE LF_RIEPRETT SELECT (TIPO==#F_TIPO)&&(ANNO==#F_ANNO)&&((SEZIONE=="2")||(SEZIONE=="4"))
  INPUT TIPO F_TIPO
  INPUT ANNO F_ANNO
  INPUT PERIODO F_PERIODO_M
  INPUT NUMRIG F_NUM_RIG
  DISPLAY "Tipo" TIPO
  DISPLAY "Anno" ANNO
  DISPLAY "Periodo" PERIODO
  DISPLAY "Numero" NUMRIG
  DISPLAY "Anno rett." ANNORETT
  DISPLAY "Periodo rett." PERETT
  DISPLAY "Numero rett." NUMRETT
  OUTPUT F_PERIODO_M PERIODO
  OUTPUT F_PERIODO_T PERIODO
  OUTPUT F_NUM_RIG NUMRIG
  CHECKTYPE REQUIRED
  FIELD NUMRIG
  KEY 1
END

STRING F_STATO 2
BEGIN
  PROMPT 17 15 "Stato CEE "
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO CODTAB
  CHECKTYPE NORMAL
  FIELD STATO
END

LIST F_TIPO_CF 1 10
BEGIN
  PROMPT 33 15 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD TIPOCF
  FLAGS "D"
END

STRING F_PARTITA_IVA 12
BEGIN
  PROMPT 53 15 "Partita IVA"
  USE LF_CLIFO KEY 5
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT STATOPAIV F_STATO
  INPUT PAIV F_PARTITA_IVA
  DISPLAY "Stato" STATOPAIV
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_STATO STATOPAIV
  OUTPUT F_PARTITA_IVA PAIV
  OUTPUT F_PARTITA_DESC RAGSOC
//  VALIDATE PI_FUNC F_STATO
  CHECKTYPE REQUIRED
//   WARNING "Lunghezza partita IVA errata"
  FIELD PIVA
END

STRING F_PARTITA_DESC 50
BEGIN
  PROMPT 2 16 "Ragione sociale          "
  FLAGS "D"
END

STRING F_NATURA_TRANS 1
BEGIN
  PROMPT 2 17 "Natura transazione "
  FLAGS "U"
  USE %INT
  INPUT CODTAB F_NATURA_TRANS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_NATURA_TRANS CODTAB
  FIELD NATURA
  GROUP GR_BENI
END

NUMBER F_NOMENCLATURA 8
BEGIN
  PROMPT 28 17 "Nomenclatura combinata "
  USE %NOC
  INPUT CODTAB F_NOMENCLATURA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NOMENCLATURA CODTAB
  FIELD NOMENCL
  WARNING "Nomenclatura combinata assente"
  GROUP GR_BENI
END

LIST F_SEGNO 1
BEGIN
  PROMPT 68 17 "Segno "
  ITEM "+|+"
  ITEM "-|-"
  FIELD SEGNORETT
END

CURRENCY F_AMMONTARE 18
BEGIN
  PROMPT 2 18 "Ammontare          "
  FIELD AMMLIRE
END

STRING F_VALUTA 3
BEGIN
  PROMPT 42 18 "in valuta "
  FLAGS "U"
  USE %VAL
  INPUT CODTAB F_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_VALUTA CODTAB
  CHECKTYPE NORMAL
  FIELD CODVAL
  GROUP GR_BENI
END

CURRENCY F_AMM_VALUTA 18
BEGIN
  PROMPT 59 18 ""
  DRIVENBY F_VALUTA
  FIELD AMMVALUTA
  GROUP GR_BENI
END

CURRENCY F_VALORE_STAT 18
BEGIN
  PROMPT 2 19 "Valore statistico  "
  FIELD VALSTAT
  GROUP GR_BENI
END

STRING F_CODSERV 5
BEGIN
  PROMPT 2 20 "Codice servizio    "
  FIELD CODSERV
  USE %CPA
  INPUT CODTAB F_CODSERV
  DISPLAY "Classificazione" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODSERV CODTAB
  GROUP GR_SERVIZI
END

LIST F_MODEROG 1 15
BEGIN
  PROMPT 42 20 "Modalit<69> Erogazione"
  ITEM "I|Unica soluzione"
  ITEM "R|Pi<50> soluzioni"
  FIELD MODEROG
  GROUP GR_SERVIZI
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 21 "Modalit<69> di incasso  "           
  GROUP GR_CESSIONI GR_SERVIZI
  FLAGS "G"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 21 "Modalit<69> di pagamento"
  GROUP GR_ACQUISTI GR_BENI
  FLAGS "G"
END

LIST F_MODINCPAG 1 9
BEGIN
  PROMPT 21 21 ""
  ITEM "B|Bonifico"
  ITEM "A|Accredito"
  ITEM "X|Altro"
  FIELD MODINCPAG
  GROUP GR_SERVIZI
END

TEXT DLG_NULL
BEGIN
  PROMPT 42 21 "Stato di incasso     "           
  GROUP GR_CESSIONI GR_SERVIZI
END

TEXT DLG_NULL
BEGIN
  PROMPT 42 21 "Stato di pagamento   "
  GROUP GR_ACQUISTI GR_BENI
END

STRING F_STATOINCPAG 2
BEGIN
  PROMPT 61 21 ""
  USE %SCE
  INPUT CODTAB F_STATOINCPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOINCPAG CODTAB
  FIELD ISOINCPAG
  GROUP GR_SERVIZI
END

NUMBER F_PROTEL 6
BEGIN
  PROMPT 2 22 "Prot.elenco da rettificare"
  FIELD PROTEL
  GROUP GR_SERVIZI
END

NUMBER F_NUMRIGEL 6
BEGIN
  PROMPT 43 22 "Numero riga"
  FIELD NUMRIGEL
  GROUP GR_SERVIZI
END

/*NUMBER F_NUMREG 7
BEGIN
  PROMPT 2 22 "Numero movimento   "
  FIELD NUMREG
  FLAGS "D"
END */

ENDPAGE

ENDMASK