campo-sirio/in/in0500a.uml

#include "in0500a.h"

TOOLBAR "Toolbar" 0 -3 0 3

#include <toolbar.h>

BUTTON R_RIEPILOGHI 28 1
BEGIN
  PROMPT -11 0 "~Generazione Riepiloghi"
END

ENDPAGE

PAGE "Movimenti 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

NUMBER F_NUM_REG 5
BEGIN
  PROMPT 1 3 "Numero registrazione  "
  USE LF_INTRA
  JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
  INPUT NUMREG F_NUM_REG
  DISPLAY "Numero" NUMREG
  DISPLAY "Data@10" DATAREG
  DISPLAY "C/A" TIPOMOV
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NUM_REG NUMREG
  CHECKTYPE REQUIRED
  KEY 1
  FIELD NUMREG
END

DATA F_DATA_DOC
BEGIN
  PROMPT 32 3 "Documento: data "
  FLAGS "D"
END

DATA F_NUM_DOC
BEGIN  
  PROMPT 61 3 "Numero "
  FLAGS "D"
END

DATA F_DATA_REG 
BEGIN
  PROMPT 1 4 "Data di registrazione "
  FLAGS "A"
  CHECKTYPE REQUIRED
  FIELD DATAREG
END

LIST F_TIPO_MOV 1 12
BEGIN
  PROMPT 49 4 "Tipo movimento "
  ITEM "C|Cessione" 
    MESSAGE "C",F_TIPO_CF
  ITEM "A|Acquisto" 
    MESSAGE "F",F_TIPO_CF
  FIELD TIPOMOV
END

LISTA F_TIPO_CF 1 10
BEGIN
  PROMPT 1 5 ""
  FLAGS "D"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD TIPOCF
END

NUMBER F_CLIFO 5 
BEGIN
  PROMPT 16 5 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Stato" STATOPAIV
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIFO CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_STATO STATOPAIV
  OUTPUT F_PARTITA_IVA PAIV
  CHECKTYPE REQUIRED
  ADD RUN CG0 -1
  FIELD CODCF
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 5 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Stato" STATOPAIV
  DISPLAY "Partita IVA@12" PAIV
  COPY OUTPUT F_CLIFO
  CHECKTYPE REQUIRED
END

LIST F_STATO 2 14
BEGIN
  PROMPT 1 6 "Stato CEE      "
  ITEM "  |"
  ITEM "AT|Austria"
  ITEM "BE|Belgio"
  ITEM "DE|Germania"
  ITEM "DK|Danimarca"
  ITEM "EL|Grecia"
  ITEM "ES|Spagna"
  ITEM "FR|Francia"
  ITEM "GB|Gran Bretagna"
  ITEM "IE|Irlanda"
  ITEM "IT|Italia"
  ITEM "LU|Lussemburgo"
  ITEM "NL|Olanda"
  ITEM "PT|Portogallo"
  ITEM "SE|Svezia"
  FLAGS "D"
END

STRING F_PARTITA_IVA 12
BEGIN
  PROMPT 49 6 "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
  COPY OUTPUT F_CLIFO
  VALIDATE PI_FUNC F_STATO
  CHECKTYPE REQUIRED
  WARNING "Lunghezza partita IVA errata"
END

CURRENCY F_TOT_DOC 18
BEGIN
  PROMPT 1 7 "Totale documento da controllare "
  FIELD TOTDOC
END

CURRENCY F_TOT_IMM 18
BEGIN
  PROMPT 1 8 "Totale documento immesso        "
  FIELD TOTDOCIMM
END

STRING F_VALUTA 3
BEGIN
  PROMPT 66 7 "Valuta "
  FLAGS "U"
  USE %VAL
  INPUT CODTAB F_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_VALUTA  CODTAB
  CHECKTYPE REQUIRED
  FIELD CODVAL
END

NUMBER F_CAMBIO 18 5
BEGIN
  PROMPT 53 8 "Cambio "
  CHECKTYPE REQUIRED
  FIELD CAMBIO
END

SPREADSHEET F_RIGHE 
BEGIN
  PROMPT 0 9 ""
  ITEM "Ammontare\nLire@18"
  ITEM "Ammontare\nValuta@18"
  ITEM "Natura\nTransaz.@7"
  ITEM "Nomenclat.\ncombinata@10"
  ITEM "Massa Kg@13"
  ITEM "Massa Ums@13"
  ITEM "U.M."
  ITEM "Valore\nStatistico@15" 
  ITEM "Modo\nTrasp.@5"
  ITEM "Condiz.\nCons.@6"
  ITEM "Paese@6" 
  ITEM "Paese\nOrig.@6" 
  ITEM "Provincia" 
  FLAGS "A"
  USE LF_RINTRA KEY NUMRIG
  INPUT NUMREG F_NUM_REG
END

ENDPAGE

ENDMASK

PAGE "Righe" -1 -1 70 11

CURRENCY F_AMM_LIRE 18
BEGIN
  PROMPT 1 1 "Ammontare in lire  "
  FIELD AMMLIRE
  CHECKTYPE REQUIRED
END

CURRENCY F_AMM_VALUTA 18
BEGIN
  PROMPT 40 1 "in valuta "
  DRIVENBY -F_VALUTA
  FIELD AMMVALUTA
  CHECKTYPE REQUIRED
END

NUMBER F_NATURA_TRANS 1  
BEGIN
  PROMPT 1 3 "Natura transazione "
  SHEET "Cod.|Descrizione@66"
  INPUT F_NATURA_TRANS
  ITEM "1|Acquisto o vendita (compreso il baratto)"
  ITEM "2|Restituzione o sostituzione di merci"
  ITEM "3|Aiuti gernativi, privati o finanziati dalla comunita' europea"
  ITEM "4|Operazione in vista di una lavorazione per conto terzi o di una riparazione"
  ITEM "5|Operazione successiva ad una lavorazione per conto terzi o di una riparazione"
  ITEM "6|Movimento di merci senza trasferimento di proprieta' (per noleggio, leasing operativo, ecc.)"
  ITEM "7|Operazione a titolo di un programma comune di difesa o di un altro programma intergovernativo di fabbricazione coordinata"
  ITEM "8|Fornitura di materiali e macchinari nel quadro di un contratto generale di costruzione o di genio civile"
  ITEM "9|Altre transazioni"
  OUTPUT F_NATURA_TRANS
  FIELD NATURA
END

NUMBER F_NOMENCLATURA 8
BEGIN
  PROMPT 36 3 "Nomenclatura combinata "
  FLAGS "Z"
  USE %NOC
  INPUT CODTAB F_NOMENCLATURA
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NOMENCLATURA CODTAB
  CHECKTYPE REQUIRED
  FIELD NOMENCL
  CHECKTYPE REQUIRED
END

NUMBER F_MASSA_KG 13 5
BEGIN
  PROMPT 1 4 "Massa Kg."
  PICTURE ".5"
  FIELD MASSAKG
END

NUMBER F_MASSA_UMS 13 5
BEGIN
  PROMPT 36 4 "Massa  "
  PICTURE ".5"
  FIELD MASSAUMS
END

STRING F_UMS 2
BEGIN
  PROMPT 60 4 "U.M. "
  FLAGS "DU"
  USE %UMS
  INPUT CODTAB F_UMS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_UMS CODTAB
  CHECKTYPE NORMAL
  FIELD UMS
END

NUBER F_VALORE_STAT 15
BEGIN
  PROMPT 1 5 "Valore statistico "
  PICTURE "."
  FIELD VALSTAT
END

STRING F_CONSEGNA 3
BEGIN
  PROMPT 43 5 "Condizioni consegna  "
  SHEET "Codice|Descrizione@45"
  INPUT F_CONSEGNA
  ITEM "EXW|Franco fabbrica"
  ITEM "FCA|Franco vettore"
  ITEM "FAS|Franco sotto bordo"
  ITEM "FOB|Franco a bordo"
  ITEM "CFR|Costo e nolo"
  ITEM "CIF|Costo, assicurazione, nolo"
  ITEM "CPT|Nolo/porto pagato fino a ..."
  ITEM "CIP|Nolo/porto e assicurazione pagati fino a ..."
  ITEM "DAF|Reso frontiera"
  ITEM "DES|Reso franco bordo nave a destino"
  ITEM "DEQ|Reso franco banchina"
  ITEM "DDU|Reso non sdoganato"
  ITEM "DDP|Reso sdoganato"
  OUTPUT F_CONSEGNA
  FIELD CONSEGNA
END

LIST F_TRASPORTO 1 20
BEGIN
  PROMPT 1 6 "Modo di trasporto "
  ITEM "1|Marittimo"
  ITEM "2|Ferroviario"
  ITEM "3|Stradale"
  ITEM "4|Aereo"
  ITEM "5|Spedizione postale"
  ITEM "7|Installazioni fisse"
  ITEM "8|Via acqua"
  ITEM "9|Propulsione propria"
  FIELD TRASPORTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "Pase destinazione"
  GROUP GR_CESSIONI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "Pase provenienza"
  GROUP GR_ACQUISTI
END

LIST F_PAESE 2 20
BEGIN
  PROMPT 19 7 ""
  ITEM "  |"
  ITEM "AT|Austria"
  ITEM "BE|Belgio"
  ITEM "DE|Germania"
  ITEM "DK|Danimarca"
  ITEM "EL|Grecia"
  ITEM "ES|Spagna"
  ITEM "FR|Francia"
  ITEM "GB|Gran Bretagna"
  ITEM "IE|Irlanda"
  ITEM "IT|Italia"
  ITEM "LU|Lussemburgo"
  ITEM "NL|Olanda"
  ITEM "PT|Portogallo"
  ITEM "SE|Svezia"
  FIELD PAESE
END

STRING F_PAESE_ORIG 2
BEGIN
  PROMPT 1 8 "Pase di origine   "
  FIELD PAESEORIG
  GROUP GR_ACQUISTI
END

STRING F_PAESE_DUMMY 2
BEGIN
  PROMPT 81 8 "Pase anti NFCHECK "
  FLAGS "D"
  GROUP GR_CESSIONI
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 7 "Provincia d'origine" 
  GROUP GR_CESSIONI
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 7 "Prov. destinazione"
  GROUP GR_ACQUISTI
END

STRING F_PROV 2
BEGIN
  PROMPT 64 7 ""
  FLAGS "U"
  FIELD PROV
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK