campo-sirio/cg/cgtbpimc.uml

#include "cgtbpim.h"
#define F_IMPORTO1 1000

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

PAGE "" 0 2 0 0

NUMBER F_CODDITTA 5
BEGIN
	PROMPT 4 1 "Ditta             "      
	FLAGS "FRD"
	USE LF_NDITTE KEY 1
	CHECKTYPE REQUIRED
	INPUT CODDITTA F_CODDITTA
	DISPLAY "Codice" CODDITTA
	DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT F_CODDITTA CODDITTA
	OUTPUT F_RAGSOC RAGSOC
	KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 4 2 "Ragione sociale   "
  FLAGS "D"
  KEY 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 4 "Anno              "
  HELP "Anno d'esercizio di competenza"
  FLAGS "A"
  FIELD LF_TAB->CODTAB[1,4]
  USE PIM
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,9] F_ATTIVITA
  INPUT CODTAB[10,12] F_REGISTRO
  INPUT CODTAB[13,14] F_MESE
  INPUT CODTAB[15,17] F_CODIVA
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Attivita'" CODTAB[5,9]
  DISPLAY "Codice registro" CODTAB[10,12]
  DISPLAY "Mese" CODTAB[13,14]
  DISPLAY "Codice IVA" CODTAB[15,17]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_ATTIVITA CODTAB[5,9]
  OUTPUT F_REGISTRO CODTAB[10,12]
  OUTPUT F_MESE CODTAB[13,14]
  OUTPUT F_CODIVA CODTAB[15,17]
  KEY 1
END 

STRING F_ATTIVITA 5
BEGIN
  PROMPT 4 5 "Codice attivita   "
  HELP "Codice dell' attivita' della ditta"
  FIELD LF_TAB->CODTAB[5,9]
  USE LF_ATTIV 
  JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  INPUT CODATT F_ATTIVITA
  DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
  DISPLAY "Descrizione@30" LF_TABCOM->S0
  OUTPUT F_ATTIVITA CODATT
  WARNING "Codice attivita' non presente"
  KEY 1
END
 
STRING F_REGISTRO 3
BEGIN
  PROMPT 4 6 "Codice registro   "
  HELP "Codice registro di riferimento"
  FIELD LF_TAB->CODTAB[10,12]
  FLAGS "R"
  USE REG
  CHECKTYPE NORMAL
  INPUT CODTAB[1,3] F_REGISTRO
  INPUT CODTAB[4,7] F_ANNO
  DISPLAY "Codice registro" CODTAB[1,3]
  DISPLAY "Anno" CODTAB[4,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_REGISTRO CODTAB[1,3]
  OUTPUT F_ANNO CODTAB[4,7]
  WARNING "Codice registro assente"
  KEY 1
END

NUMBER F_MESE 2
BEGIN
  PROMPT 4 7 "Mese              "
  HELP "Mese a cui si fa riferimento"
  FIELD LF_TAB->CODTAB[13,14]
  FLAGS "RZ"
  COPYUSE F_ANNO
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,9] F_ATTIVITA
  INPUT CODTAB[10,12] F_REGISTRO
  INPUT CODTAB[13,14] F_MESE
  INPUT CODTAB[15,17] F_CODIVA
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Attivita'" CODTAB[5,9]
  DISPLAY "Codice registro" CODTAB[10,12]
  DISPLAY "Mese" CODTAB[13,14]
  DISPLAY "Codice IVA" CODTAB[15,17]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_ATTIVITA CODTAB[5,9]
  OUTPUT F_REGISTRO CODTAB[10,12]
  OUTPUT F_MESE CODTAB[13,14]
  OUTPUT F_CODIVA CODTAB[15,17]
  VALIDATE MTCHECK_FUNC 
  KEY 1
END 

NUMBER F_TIPOCR 1
BEGIN
  PROMPT 4 8 "Tipo Costo/Ricavo "
  HELP "Tipo di conto costo o ricavo"
  FIELD LF_TAB->CODTAB[15,15]
  KEY 1  
END

LIST F_IMPORTO 5
BEGIN
  PROMPT 4 9  "Tipo importo     "
  HELP "Tipo importo da applicare"
  ITEM "1|Netti"
  MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA
  ITEM "2|Lordi"
  MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO
  KEY 1
END

STRING F_CODIVA 3
BEGIN
  PROMPT 4 10 "Codice IVA        "
  HELP "Codice IVA da applicare"
  FIELD LF_TAB->CODTAB[15,17]
  COPYUSE F_ANNO
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,9] F_ATTIVITA
  INPUT CODTAB[10,12] F_REGISTRO
  INPUT CODTAB[13,14] F_MESE
  INPUT CODTAB[15,17] F_CODIVA
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Attivita'" CODTAB[5,9]
  DISPLAY "Codice registro" CODTAB[10,12]
  DISPLAY "Mese" CODTAB[13,14]
  DISPLAY "Codice IVA" CODTAB[15,17]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_ATTIVITA CODTAB[5,9]
  OUTPUT F_REGISTRO CODTAB[10,12]
  OUTPUT F_MESE CODTAB[13,14]
  OUTPUT F_CODIVA CODTAB[15,17] 
  KEY 1 
END

NUMBER F_IMPONIBILE 15
BEGIN
  PROMPT 4 11 "Imponibile        "
  HELP "Importo dell'imponibile IVA"
  FIELD LF_TAB->R0
  FLAGS "R"
END
  
NUMBER F_IVA 15
BEGIN
  PROMPT 4 12 "IVA               " 
  HELP "Importo dell'imposta IVA"
  FIELD LF_TAB->R1
  FLAGS "R"
END
  
NUMBER F_IMPLORDO 15
BEGIN
  PROMPT 4 13 "Importo lordo     "
  HELP "Importo imponibile+IVA"
  FIELD LF_TAB->R2
  FLAGS "R"
END

BUTTON DLG_OK
BEGIN
  PROMPT 42 14 ""
END

BUTTON DLG_CANCEL
BEGIN 
  PROMPT 53 14 ""
END

ENDPAGE

ENDMASK