campo-sirio/cg/cg4900c.uml

#include "cg4900.h"

TOOLBAR "" 0 20 0 2

/*
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -12 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END
*/

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

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -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 di vendita                              "
  FLAGS "RD"
  PICTURE "."
END

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

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

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

NUMBER F_IVAACQ 15
BEGIN
  PROMPT 1 9 "Iva sulle operazioni di acquisto              "
  FLAGS "RD"
  PICTURE "."
END

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

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

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

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

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

NUMBER F_IVACRE 15
BEGIN
  PROMPT 15 15 "IVA A CREDITO                   "
  FLAGS "RD"
  PICTURE "."
END

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

NUMBER F_IVADEB 15
BEGIN
  PROMPT 16 15 "IVA A DEBITO                   "
  FLAGS "RD"
  PICTURE "." 
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