campo-sirio/ba/batbpim.uml

#include "batbpim.h"
#define F_IMPORTO1 1000

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

PAGE "Progressivi IVA mensili" -1 -1 78 16

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,15] F_TIPOCR
  INPUT CODTAB[16,18] F_CODIVA
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Attivita'" CODTAB[5,9]
  DISPLAY "Cod. registro" CODTAB[10,12]
  DISPLAY "Mese" CODTAB[13,14]
  DISPLAY "Tipo c/r" CODTAB[15,15]
  DISPLAY "Codice IVA" CODTAB[16,18]
  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_TIPOCR CODTAB[15,15]
  OUTPUT F_CODIVA CODTAB[16,18]
  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 "UZ"
  USE REG
  CHECKTYPE NORMAL
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_REGISTRO
  DISPLAY "Codice registro" CODTAB[5,7]
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_REGISTRO CODTAB[5,7]
  WARNING "Codice registro assente"
  KEY 1
END

LIST F_MESE 10
BEGIN
  PROMPT 4 7 "Mese              "
  HELP "Mese a cui si fa riferimento"
  FIELD LF_TAB->CODTAB[13,14]
  FLAGS "MA"
  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]
  COPY ALL F_ANNO
  KEY 1  
END

STRING F_CODIVA 3
BEGIN
  PROMPT 4 10 "Codice IVA        "
  HELP "Codice IVA da applicare"
  FLAGS "U"
  FIELD LF_TAB->CODTAB[16,18]
  USE %IVA
  INPUT CODTAB F_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione                  " S0
  OUTPUT F_CODIVA CODTAB
  KEY 1 
  VALIDATE ZEROFILL_FUNC 2
END

LIST F_IMPORTO 7
BEGIN
  PROMPT 4 9 "Tipo Importo      "
  HELP "Tipo importo da applicare"
  FIELD PIM->I0
  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
  
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

ENDPAGE

ENDMASK