campo-sirio/sc/sc1200a.uml

#include "sc1200.h"

PAGE "Apertura partite da saldi contabili" -1 -1 71 14

GROUPBOX DLG_NULL 69 6
BEGIN
  PROMPT 1 0  ""
END


TEXT DLG_NULL
BEGIN
	PROMPT 32 1 "@bATTENZIONE"
END

TEXT DLG_NULL
BEGIN
	PROMPT 14 3 "@bLa generazione della partite puo' richiedere"
END

TEXT DLG_NULL
BEGIN
	PROMPT 18 4 "@btempo. Siate certi di voler proseguire."
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 6   "Anno esercizio        "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Anno Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE REQUIRED
  HELP "Anno di esercizio del quale si desidera la generazione delle partite"
  WARNING "L' anno di esercizio e' obbligatorio"
END                 

STRING F_CODPAG 4
BEGIN
  PROMPT 32 6 "Pagamento "
  HELP "Codice del pagamento concordato per il movimento"
  FIELD CODPAG
  FLAGS "UZ"
  USE %CPG
  INPUT CODTAB F_CODPAG 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  CHECKTYPE REQUIRED
  ADD RUN ba3 -6
  WARNING "Codice pagamento obbligatorio"
END

STRING F_DESCCL 40
BEGIN      
  PROMPT 1 7   "Descrizione clienti   "                     
  FLAGS "A"
END

STRING F_DESCFO 40
BEGIN      
  PROMPT 1 8   "Descrizione fornitori "                     
  FLAGS "A"
END

STRING F_CAUSCL 3
BEGIN                             
	PROMPT 1 9 "Causale riferimento clienti   "
	USE LF_CAUSALI SELECT MOVSEZ=="X"
	DISPLAY "Codice" CODCAUS
	DISPLAY "Descrizione@50" DESCR 
	INPUT CODCAUS F_CAUSCL  
	OUTPUT F_CAUSCL CODCAUS	
	CHECKTYPE REQUIRED
	ADD RUN cg0 -4
END

STRING F_CAUSFO 3
BEGIN                             
	PROMPT 1 10 "Causale riferimento fornitori "
	COPY USE F_CAUSCL
	DISPLAY "Codice" CODCAUS
	DISPLAY "Descrizione@50" DESCR   
    INPUT CODCAUS F_CAUSFO
	OUTPUT F_CAUSFO CODCAUS
	CHECKTYPE REQUIRED
	ADD RUN cg0 -4
END

NUMBER F_NUMPART 3
BEGIN      
  PROMPT 1 11 "N. partite aperte " 
  FLAGS "D"
END

BUTTON DLG_OK 9 2
BEGIN
        PROMPT -12 -1 "Conferma"
END

BUTTON DLG_QUIT 9 2
BEGIN
        PROMPT -22 -1 ""
END

ENDPAGE
ENDMASK