campo-sirio/mg/mg4100.uml

#include "mg4100.h"

TOOLBAR "" 0 0 0 2

#include <printbar.h>

ENDPAGE

PAGE "Stampa lista movimenti" 0 2 0 0

NUMBER F_ANNOES 4
BEGIN
  FLAGS "AZ"
  PROMPT 2 1  "Codice esercizio "
  USE ESC
  INPUT CODTAB F_ANNOES
  DISPLAY "Esercizio" CODTAB
  DISPLAY "Dal@12" D0
  DISPLAY "Al@12" D1
  OUTPUT F_ANNOES CODTAB
  ADD NONE
  CHECKTYPE NORMAL
END

LISTBOX F_ORDINE 30
BEGIN
  PROMPT 2 3 "Stampa ordinata per "
  ITEM "D|data di competenza"
  MESSAGE SHOW,1@|HIDE,2@
  ITEM "N|numero di registrazione"
  MESSAGE SHOW,2@|HIDE,1@
END

BOOL F_INVERTI
BEGIN
  PROMPT 60 3 "Decrescente"
END

DATA F_DADATA 
BEGIN
  PROMPT 2 5  "Dalla data    "
  USE LF_MOVMAG KEY 4 SELECT ANNOES==#F_ANNOES// KEY 3 for DATAREG 
  INPUT DATAREG F_DADATA
  DISPLAY "Esercizio" ANNOES
  DISPLAY "N.@10" NUMREG 
  DISPLAY "Data@10" DATAREG
  DISPLAY "Descrizione@30" DESCR
  OUTPUT F_DADATA DATAREG 
  GROUP 1
END

DATA F_ADATA
BEGIN
  PROMPT 42 5 "Alla data     "
  COPY USE F_DADATA
  INPUT DATAREG F_ADATA
  COPY DISPLAY F_DADATA
  OUTPUT F_ADATA DATAREG 
  GROUP 1
END

STRING F_DANUM 7
BEGIN
  PROMPT 2 5 "Dal numero    "
  USE LF_MOVMAG KEY 1 SELECT ANNOES=#F_ANNOES
  INPUT NUMREG F_DANUM
  DISPLAY "Esercizio" ANNOES
  DISPLAY "N.@10" NUMREG 
  DISPLAY "Data@10" DATAREG
  DISPLAY "Descrizione@30" DESCR
  OUTPUT F_DANUM NUMREG 
  GROUP 2
END

STRING F_ANUM 7
BEGIN
  PROMPT 42 5 "Al numero     "
  COPY USE F_DANUM
  INPUT NUMREG F_ANUM
  COPY DISPLAY F_DANUM
  OUTPUT F_ANUM NUMREG
  GROUP 2
END

STRING F_DAARTICOLO 20
BEGIN
  FLAGS "U"
  PROMPT 2 7 "Dall'articolo "
  USE LF_ANAMAG 
  INPUT CODART F_DAARTICOLO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DAARTICOLO CODART
  OUTPUT F_DADES DESCR
END

STRING F_DADES 50 36
BEGIN
  PROMPT 40 7 ""
  FLAGS "U"
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DADES
  DISPLAY "Descr@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_DAARTICOLO
END

STRING F_AARTICOLO 20
BEGIN
  FLAGS "U"
  PROMPT 2 8 "All'articolo  "
  COPY USE F_DAARTICOLO
  INPUT CODART F_AARTICOLO
  COPY DISPLAY F_DAARTICOLO
  OUTPUT F_AARTICOLO CODART
  OUTPUT F_ADES DESCR
END

STRING F_ADES 50 36
BEGIN
  PROMPT 40 8 ""
  FLAGS "U"
  COPY USE F_DADES
  INPUT DESCR F_ADES
  COPY DISPLAY F_DADES
  COPY OUTPUT F_AARTICOLO
END


LISTBOX F_TIPOCF 9
BEGIN 
  PROMPT 2 9 ""
  FLAGS "G"
  FIELD TIPOCF
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

NUMBER F_CODCF  6
BEGIN 
//  FLAGS "UHG"
  FIELD CODCF
  PROMPT 15 9 "Codice "
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF  F_CODCF
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50 45
BEGIN
  PROMPT 32 9 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF  F_TIPOCF SELECT
  INPUT RAGSOC   F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  OUTPUT F_CODCF CODCF
  CHECKTYPE NORMAL
END
                  
STRING F_DOC1 7
BEGIN
  PROMPT 2 10 "Da documento  "
END

STRING F_DOC2 7
BEGIN
  PROMPT 27 10 "A documento "
END

STRING F_CAU1 5
BEGIN
  PROMPT 2 11 "Causale       "
  FLAGS "U"
  USE %CAU
  INPUT CODTAB F_CAU1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descr@50" S0
  OUTPUT F_CAU1 CODTAB 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_CAU2 |CHECK,F_CAU2
  MESSAGE ENABLE,F_CAU2
END

STRING F_CAU2 5
BEGIN
  FLAGS "U"
  PROMPT 2 12 "Causale       "
  COPY USE F_CAU1
  INPUT CODTAB F_CAU2
  COPY DISPLAY F_CAU1
  OUTPUT F_CAU2 CODTAB 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_CAU3 |CHECK,F_CAU3
  MESSAGE ENABLE,F_CAU3
END

STRING F_CAU3 5
BEGIN
  FLAGS "U"
  PROMPT 2 13 "Causale       "
  COPY USE F_CAU1
  INPUT CODTAB F_CAU3
  COPY DISPLAY F_CAU1
  OUTPUT F_CAU3 CODTAB 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_CAU4 |CHECK,F_CAU4
  MESSAGE ENABLE,F_CAU4
END

STRING F_CAU4 5
BEGIN
  FLAGS "U"
  PROMPT 2 14 "Causale       "
  COPY USE F_CAU1
  INPUT CODTAB F_CAU4
  COPY DISPLAY F_CAU1
  OUTPUT F_CAU4 CODTAB 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_CAU5 |CHECK,F_CAU5
  MESSAGE ENABLE,F_CAU5
END

STRING F_CAU5 5
BEGIN
  FLAGS "U"
  PROMPT 2 15 "Causale       "
  COPY USE F_CAU1
  INPUT CODTAB F_CAU5
  COPY DISPLAY F_CAU1
  OUTPUT F_CAU5 CODTAB 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_CAU6 |CHECK,F_CAU6
  MESSAGE ENABLE,F_CAU6
END

STRING F_CAU6 5
BEGIN
  FLAGS "U"
  PROMPT 2 16 "Causale       "
  COPY USE F_CAU1
  INPUT CODTAB F_CAU6
  COPY DISPLAY F_CAU1
  OUTPUT F_CAU6 CODTAB 
  CHECKTYPE NORMAL
END

ENDPAGE
ENDMASK