campo-sirio/cg/cg2100n.uml

#include "cg2100p.h"

PAGE "Nuova partita" -1 -1 48 10

RADIOBUTTON P_NUOVO 1 21
BEGIN
  PROMPT 0 0 "@BTipo movimento"
  ITEM "1|Fattura"           
    MESSAGE ENABLE,P_CODPAG
  ITEM "2|Nota credito"    
    MESSAGE DISABLE,P_CODPAG
  ITEM "3|Incasso/pagamento "
    MESSAGE DISABLE,P_CODPAG
  ITEM "5|Insoluto"
    MESSAGE DISABLE,P_CODPAG
  ITEM "6|Pagamento insoluto"
    MESSAGE DISABLE,P_CODPAG
  GROUP 1
END

NUMBER P_ANNO 4
BEGIN
  PROMPT 22 1 "Partita   "
  FLAGS "A"     
  CHECKTYPE REQUIRED
  WARNING "Inserire l'anno di riferimento partita"
END        

STRING P_NUMERO 7
BEGIN
  PROMPT 40 1 ""
  FLAGS "U"
  CHECKTYPE REQUIRED
  WARNING "Inserire  il numero di riferimento partita"
END        

TEXT DLG_NULL
BEGIN
  PROMPT 22 2 "Sezione"
END  

RADIOBUTTON P_SEZIONE 1 19
BEGIN
  PROMPT 31 1 ""
  ITEM "D|Dare"
  ITEM "A|Avere"
  FLAGS "Z"
  GROUP 1
END

NUMBER P_RESIDUO 15
BEGIN
  PROMPT 22 3 "Importo   " 
  PICTURE "."
  GROUP 1
END

STRING P_CODPAG 4
BEGIN
  PROMPT 22 4 "Pagamento "
  FLAGS "UZ"
  USE %CPG
  INPUT CODTAB P_CODPAG 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT P_CODPAG CODTAB
  CHECKTYPE REQUIRED
  ADD RUN ba3 -6
  GROUP 1                   
  WARNING "Codice pagamento assente"
END

STRING P_NUMDOC 7
BEGIN
  PROMPT 22 5 "Documento "
  FLAGS "U"
  GROUP 1
END

DATE P_DATADOC 
BEGIN
  PROMPT 22 6 "Data      "
  FLAGS "A"
  CHECKTYPE REQUIRED
  WARNING "Inserire una data per il movimento extra-contabile"
  GROUP 1
END

STRING P_DESCR 50 34
BEGIN
  PROMPT 1 7 "Descrizione "
  WARNING "Inserire una descrizione per il movimento extra-contabile"
  CHECKTYPE REQUIRED
  GROUP 1
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK