campo-sirio/ps/pd0777100a.uml

#include "pd0777100a.h"

TOOLBAR "" 0 20 0 2

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

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

ENDPAGE

PAGE "Importazione stipendi" 0 -1 0 19

STRING F_PERCORSO 50
BEGIN
PROMPT 2 2 "File da trasferire " 
	CHECKTYPE REQUIRED
	VALIDATE FILENAME_FUNC
	FLAGS "A"
	HELP "Percorso e nome file da trasferire"
	WARNING "E' necessario specificare il nome del file da trasferire" 
END

DATE F_DATAREG
BEGIN
	PROMPT 2 3 "Data registrazione "
	CHECKTYPE REQUIRED
	HELP "Data di registrazione dei movimenti contabili"
	WARNING "E' necessario specificare la data di registrazione"
END

STRING F_CODCAUS 4
BEGIN
	PROMPT 2 4 "Causale "
	FLAGS "UZ"
	USE LF_CAUSALI
	INPUT CODCAUS F_CODCAUS
	DISPLAY "Codice" CODCAUS
	DISPLAY "Descrizione@60" DESCR
	OUTPUT F_CODCAUS CODCAUS
	OUTPUT F_DESCR DESCR
	CHECKTYPE SEARCH
END

STRING F_DESCR 50
BEGIN
	PROMPT 17 4 ""
	USE LF_CAUSALI KEY 2
	INPUT DESCR F_DESCR
	DISPLAY "Descrizione@60" DESCR
	DISPLAY "Codice" CODCAUS
	COPY OUTPUT F_CODCAUS
	CHECKTYPE SEARCH
END

SPREADSHEET F_SHEET_CONTI 70 6
BEGIN
	PROMPT 2 6 "Tabella conversione conti"
	ITEM "Conto OMASA"
	ITEM "Gruppo"
	ITEM "Conto"
	ITEM "Sottoc."
	ITEM "Descrizione"
END

SPREADSHEET F_SHEET_CMS 70 6
BEGIN
	PROMPT 2 14 "Tabella conversione commesse"
	ITEM "Cms OMASA"
	ITEM "Corrispondente"
	ITEM "Descrizione"
END

ENDPAGE

ENDMASK

PAGE "Conversione conti" 0 -1 0 10

STRING F_S_CONTOOMASA 14
BEGIN
  PROMPT 2 2 "Conto OMASA     "
  FLAGS "D"
END

NUMBER F_S_GRUPPO 3
BEGIN
  PROMPT 2 4 "Conto corrispon."
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO F_S_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_S_GRUPPO GRUPPO    
  CHECKTYPE NORMAL
END

NUMBER F_S_CONTO 3
BEGIN
  PROMPT 24 4 ""
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
  INPUT GRUPPO F_S_GRUPPO 
  INPUT CONTO  F_S_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR   
  OUTPUT F_S_CONTO CONTO  
  OUTPUT F_S_GRUPPO GRUPPO
  CHECKTYPE NORMAL 
END

NUMBER F_S_SOTTOCONTO 6
BEGIN
  PROMPT 30 4 ""
  USE LF_PCON
  INPUT GRUPPO F_S_GRUPPO 
  INPUT CONTO  F_S_CONTO 
  INPUT SOTTOCONTO F_S_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_S_SOTTOCONTO SOTTOCONTO
  OUTPUT F_S_GRUPPO GRUPPO
  OUTPUT F_S_CONTO CONTO  
  OUTPUT F_S_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING F_S_DESCRIZIONE 50
BEGIN
  PROMPT 39 4 ""
  USE LF_PCON KEY 2
  INPUT DESCR F_S_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  OUTPUT F_S_SOTTOCONTO SOTTOCONTO
  OUTPUT F_S_CONTO CONTO
  OUTPUT F_S_GRUPPO GRUPPO
  OUTPUT F_S_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK

PAGE "Conversione commesse" 0 -1 0 10

STRING F_S_CMSOMASA 14
BEGIN
  PROMPT 2 2 "Commessa OMASA          "
  FLAGS "D"
END

STRING F_S_CODCMS 20
BEGIN
  PROMPT 2 4 "Commessa corrispondente "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_S_CODCMS
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_CODCMS CODTAB
  OUTPUT F_S_DESCRCMS S0
  CHECKTYPE NORMAL
END

STRING F_S_DESCRCMS 50
BEGIN
  PROMPT 39 4 ""
  USE CMS KEY 2
  INPUT S0 F_S_DESCRCMS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT F_S_CODCMS
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK