campo-sirio/in/in0700a.uml

#include "in0700a.h"

TOOLBAR "Toolbar" 0 -3 0 3

#include <toolbar.h>

ENDPAGE

PAGE "Rettifiche INTRA" -1 -1 78 18

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 8
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 "AU"
  FIELD ANNORETT
  CHECKTYPE REQUIRED
  NUM_EXPR #O_ANNO<=#O_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

NUBER O_NUM_RIG 7
BEGIN
  PROMPT 63 4 "Riga "
  USE LF_RIEPRETT
  INPUT TIPO O_TIPO SELECT
  INPUT ANNO O_ANNO SELECT
  INPUT PERIODO O_PERIODO_M
  INPUT NUMRIG O_NUM_RIG
  DISPLAY "Tipo" TIPO
  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_PARTITA_IVA PIVA
  OUTPUT O_NATURA_TRANS NATURA
  OUTPUT O_NOMENCLATURA1 NOMENCL[1,4]
  OUTPUT O_NOMENCLATURA2 NOMENCL[5,6]
  OUTPUT O_NOMENCLATURA3 NOMENCL[7,8]
  OUTPUT O_AMMONTARE AMMLIRE
  OUTPUT O_VALUTA CODVAL
  OUTPUT F_VALUTA CODVAL
  OUTPUT O_AMM_VALUTA AMMVALUTA
  OUTPUT O_VALORE_STAT VALSTAT
  CHECKTYPE SEARCH
  FIELD NUMRETT
  ADD RUN IN0 -5
END

STRING O_STATO 2
BEGIN
  PROMPT 2 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 51 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_NOMENCLATURA1 4
BEGIN
  PROMPT 28 7 "Nomenclatura combinata "
  FLAGS "DZ"
END

NUMBER O_NOMENCLATURA2 2 
BEGIN
  PROMPT 58 7 ""
  FLAGS "DZ"
END

NUMBER O_NOMENCLATURA3 2 
BEGIN
  PROMPT 63 7 ""
  FLAGS "DZ"
END

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

STRING O_VALUTA 3
BEGIN
  PROMPT 43 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

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

LIST F_TIPO 1 10
BEGIN
  PROMPT 2 12 "Tipo "
  ITEM "D|Cessioni"
    MESSAGE "C",F_TIPO_CF|"C",O_TIPO
  ITEM "B|Acquisti"
    MESSAGE "F",F_TIPO_CF|"A",O_TIPO
  KEY 1
  FIELD TIPO
END

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

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

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

LIST F_PERIODO_A 2 16
BEGIN
  PROMPT 33 12 "Periodo "
  ITEM "01|Annuale"
END

NUBER F_NUM_RIG 7
BEGIN
  PROMPT 63 12 "Riga "
  USE LF_RIEPRETT
  INPUT TIPO F_TIPO SELECT
  INPUT ANNO F_ANNO SELECT
  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_NUM_RIG NUMRIG
  CHECKTYPE REQUIRED
  FIELD NUMRIG
  KEY 1
END

STRING F_STATO 2
BEGIN
  PROMPT 2 13 "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 13 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FLAGS "D"
END

STRING F_PARTITA_IVA 12
BEGIN
  PROMPT 51 13 "Partita IVA "
  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 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 14 "Ragione sociale          "
  FLAGS "D"
END

STRING F_NATURA_TRANS 1  
BEGIN
  PROMPT 2 15 "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
END

NUMBER F_NOMENCLATURA1 4
BEGIN
  PROMPT 28 15 "Nomenclatura combinata "
  FLAGS "Z"
  USE %NOC
  INPUT CODTAB[1,4] F_NOMENCLATURA1
  INPUT CODTAB[5,6] F_NOMENCLATURA2
  INPUT CODTAB[7,8] F_NOMENCLATURA3
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "@3" CODTAB[5,6]
  DISPLAY "@3" CODTAB[7,8]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NOMENCLATURA1 CODTAB[1,4]
  OUTPUT F_NOMENCLATURA2 CODTAB[5,6]
  OUTPUT F_NOMENCLATURA3 CODTAB[7,8]
  VALIDATE REQIF_FUNC 1 F_NOMENCLATURA2
  MESSAGE DIRTY,F_NOMENCLATURA3
  FIELD NOMENCL[1,4]
  WARNING "Nomenclatura combinata assente"
END

NUMBER F_NOMENCLATURA2 2 
BEGIN
  PROMPT 58 15 ""
  FLAGS "Z"
  COPY ALL F_NOMENCLATURA1
  VALIDATE REQIF_FUNC 1 F_NOMENCLATURA3
  MESSAGE DIRTY,F_NOMENCLATURA3
  FIELD NOMENCL[5,6]
  WARNING "Nomenclatura combinata assente"
END

NUMBER F_NOMENCLATURA3 2 
BEGIN
  PROMPT 63 15 ""
  FLAGS "Z"
  COPY ALL F_NOMENCLATURA1
  CHECKTYPE NORMAL
  FIELD NOMENCL[7,8]
  WARNING "Nomenclatura combinata assente"
END

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

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

STRING F_VALUTA 3
BEGIN
  PROMPT 43 16 "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
END

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

CURRENCY F_VALORE_STAT 18
BEGIN
  PROMPT 2 17 "Valore statistico "
  FIELD VALSTAT
END

ENDPAGE

ENDMASK