campo-sirio/cg/cg4900b.uml

#include "cg4900.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
MESSAGE EXIT,K_SAVE
END

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""  
MESSAGE EXIT,K_ESC
END  

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Acconto su operazioni effettuate"  -1 -1 77 20
         
GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@bDitta corrente"
END                 
                                        
NUMBER F_CODDITTA 5
BEGIN         
  PROMPT 3 1  "Codice "
  FLAGS "DFR"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN                       
  PROMPT 17 1 "Rag. Soc. "
  FLAGS "D"
END                                                           

TEXT DLG_NULL 
BEGIN 
  PROMPT 51 3 "Credito"
END

TEXT DLG_NULL 
BEGIN 
  PROMPT 66 3 "Debito"
END

NUMBER F_IVAVEN 15
BEGIN
  PROMPT 1 4 "Iva sulle operazioni annotate fino al 20 dic.                "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_NONFAT 15
BEGIN
  PROMPT 1 5 "Iva su operaz. fino al 20 dic., ma non fatturate             "
  FLAGS "R"
  PICTURE "."
  MESSAGE K_TAB,F_RISVEN|K_TAB,F_IVACRE|K_TAB,F_IVADEB
END

NUMBER F_NONANN 15
BEGIN
  PROMPT 1 6 "Iva su operaz. fino al 20 dic., ma non annotate              "
  FLAGS "R"
  PICTURE "."
  MESSAGE K_TAB,F_RISVEN|K_TAB,F_IVACRE|K_TAB,F_IVADEB
END

NUMBER F_IVARED 15
BEGIN
  PROMPT 1 7 "Rettifiche iva a debito                                      "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_IVARIM 15
BEGIN
  PROMPT 1 8 "Iva chiesta a rimborso                                       "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_RISVEN 15
BEGIN
  PROMPT 1 9 "RISULTATO                                                    "
  FLAGS "RD"
  PICTURE "."
  NUM_CALC {#F_IVAVEN + #F_NONFAT + #F_NONANN + #F_IVARED + #F_IVARIM}
END

NUMBER F_IVAACQ 15
BEGIN
  PROMPT 1 10 "Iva su acq. annotati fino al 20 dic.          "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_PERPRO 15
BEGIN
  PROMPT 1 11 "meno % di prorata pari a Lire "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_CREPRE 15
BEGIN
  PROMPT 1 12 "Credito precedente                            "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_ULTDET 15
BEGIN
  PROMPT 1 13 "Ulteriori detrazioni                          "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_IVAREC 15
BEGIN
  PROMPT 1 14 "Rettifiche iva a credito                      "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_RISACQ 15
BEGIN
  PROMPT 1 15 "RISULTATO                                     "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_IVACRE 15
BEGIN
  PROMPT 15 16 "IVA A CREDITO                   "
  FLAGS "RD"
  PICTURE "."  
  NUM_CALC {#F_RISACQ - #F_RISVEN}
END

NUMBER F_CREEVI 15
BEGIN
  PROMPT 6 17 "CREDITO DA EVIDENZIARE                   "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_IVADEB 15
BEGIN
  PROMPT 16 16 "IVA A DEBITO                                  "
  FLAGS "RD"
  PICTURE "." 
  NUM_CALC {#F_RISVEN - #F_RISACQ}
END

NUMBER F_ACCVER 15
BEGIN
  PROMPT 10 17 "ACCONTO DA VERSARE                                  "
  FLAGS "RD"
  PICTURE "."
END

NUMBER F_ACCNVER 15
BEGIN
  PROMPT 6 17 "ACCONTO DA NON VERSARE                   "
  FLAGS "RD"
  PICTURE "."
END

ENDPAGE

ENDMASK