#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

STRING F_STATO 2 
BEGIN
  PROMPT 1 6 "Stato CEE      "
  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     
  FLAGS "D"
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 6
BEGIN
  PROMPT 53 8 "Cambio "
  CHECKTYPE REQUIRED
  FIELD CAMBIO
END

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

ENDPAGE

ENDMASK

PAGE "Righe" -1 -1 78 11

CURRENCY F_AMM_LIRE 18
BEGIN
  PROMPT 1 1 "Ammontare operaz.  "
  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 "                    
  USE %INT
  INPUT CODTAB F_NATURA_TRANS            
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@70" S0
  OUTPUT F_NATURA_TRANS CODTAB
  FIELD NATURA
END

STRING F_NOMENCLATURA1 4
BEGIN
  PROMPT 36 3 "Nomenclatura combinata "
  FLAGS "U"
  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 "" CODTAB[5,6]
  DISPLAY "" 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]
  CHECKTYPE REQUIRED
  FIELD NOMENCL[1,4]
END

STRING F_NOMENCLATURA2 2 
BEGIN
  PROMPT 67 3 ""
  FLAGS "U"
  COPY ALL F_NOMENCLATURA1
  CHECKTYPE NORMAL
  FIELD NOMENCL[5,6]
END

STRING F_NOMENCLATURA3 2 
BEGIN
  PROMPT 72 3 ""
  FLAGS "U"
  COPY ALL F_NOMENCLATURA1
  CHECKTYPE NORMAL
  FIELD NOMENCL[7,8]
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

CURRENCY F_VALORE_STAT 15
BEGIN
  PROMPT 1 5 "Valore statistico "
  FIELD VALSTAT
END

STRING F_CONSEGNA 3
BEGIN
  PROMPT 43 5 "Condizioni consegna  "
  USE %ICC
  INPUT CODTAB F_CONSEGNA            
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CONSEGNA CODTAB
  FIELD CONSEGNA
END

NUMBER F_TRASPORTO 1
BEGIN
  PROMPT 1 6 "Modo di trasporto "
  USE %IMT
  INPUT CODTAB F_TRASPORTO
  DISPLAY "Codice" CODTAB  
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TRASPORTO CODTAB
  FIELD TRASPORTO
END

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

STRING F_PAESE_ORIG 2
BEGIN
  PROMPT 20 7 ""
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_PAESE_ORIG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_PAESE_ORIG CODTAB
  CHECKTYPE NORMAL
  FIELD PAESEORIG
  GROUP GR_ACQUISTI
END
               
STRING F_PAESE_DUMMY 2
BEGIN
  PROMPT 81 8 "Paese 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"
  CHECKTYPE REQUIRED
  WARNING "Provincia assente"
  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