campo-sirio/ps/ps0925100a.uml

#include "../sc/scselmsk.h"
#include "ps0925100a.h"

TOOLBAR "Toobar" 0 0 0 2

BUTTON DLG_EDIT 2 2
BEGIN
  PROMPT 1 1 "Excel"
  PICTURE TOOL_EXCEL
  MESSAGE EXIT,69
END

BUTTON DLG_NULL 2 2 
BEGIN
  PROMPY 2 1 ""
END

#include <printbar.h>

ENDPAGE

PAGE "Stampa estratti conto" -1 -1 70 20

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Da codice "
  FLAGS "FR"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice@7" CODDITTA
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50 44
BEGIN
  PROMPT 22 1 "Rag. Soc. "
  FLAGS "DP"
END

NUMBER F_CODDITTATO 5
BEGIN
  PROMPT 3 2 "A codice "
  FLAGS "FR"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTATO
  COPY DISPLAY F_CODDITTA
  OUTPUT F_CODDITTATO CODDITTA
  OUTPUT F_RAGSOCTO RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOCTO 44
BEGIN
  PROMPT 22 2 "Rag. Soc. "
  FLAGS "DP"
END

GROUPBOX DLG_NULL 78 8
BEGIN
   PROMPT 1 3 ""
END

NUMBER F_CODPROF 4
BEGIN
  PROMPT 2 4 "Profilo "
  FLAGS "Z"
  USE LF_FORM
  INPUT TIPOPROF BASE_EC_PROFILE
  INPUT CODPROF[1,4] F_CODPROF
  INPUT CODPROF[5,5] F_LINPROF
  DISPLAY "Codice" CODPROF[1,4]
  DISPLAY "Lingua" CODPROF[5,5]
  DISPLAY "Descrizione@50" DESC
  OUTPUT F_CODPROF CODPROF[1,4]
  OUTPUT F_LINPROF CODPROF[5,5]
  OUTPUT F_DESPROF DESC
  FIELD ANTICLEAR
  WARNING "Codice profilo o lingua errato"
  ADD RUN sc3 -0
END

STRING F_LINPROF 1
BEGIN
  PROMPT 19 4 ""
  FLAGS "U"
  COPY ALL F_CODPROF
  CHECKTYPE NORMAL
  WARNING "Codice profilo o lingua errato"
END

STRING F_DESPROF 50
BEGIN
  PROMPT 26 4 ""
  FLAGS "D"
END


DATE F_DATALIMOP
BEGIN
  PROMPT 2 5 "Data limite operazione  "
  FLAGS "A"
END

NUMBER F_ULTIMOEC 5
BEGIN
  PROMPT 39 5 "Ultimo estratto conto "
END

DATE F_DATALIMSC
BEGIN
  PROMPT 2 6 "Data limite scaduto     "
  CHECKTYPE REQUIRED
END

NUMBER F_GIORISCH 3
BEGIN
  PROMPT 2 7 "Giorni calcolo rischio  "
  GROUP 1
END

BOOLEAN F_STAMPCHIU
BEGIN
  PROMPT 2 8 "Stampa partite chiuse"
  MESSAGE FALSE CLEAR,F_DATACHIU
  MESSAGE TRUE ENABLE,F_DATACHIU
END

DATE F_DATACHIU
BEGIN
  PROMPT 26 8 " dal "
  FLAGS "D"
END

BOOLEAN F_STAMPSALDO
BEGIN
  PROMPT 44 8 "Stampa saldo partita"
END

STRING F_LUOGOSEND 50 32
BEGIN
  PROMPT 2 9 "Luogo d'invio "
END

DATE F_DATASEND
BEGIN
  PROMPT 51 9 "data "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

RADIOBUTTON SC_CLIFO 20
BEGIN
  PROMPT 1 11 "@bSelezione"
  ITEM "C|Clienti"   MESSAGE ENABLE,1@
  ITEM "F|Fornitori" MESSAGE CLEAR,1@
END

RADIOBUTTON SC_SORTCF 25
BEGIN
  PROMPT 25 11 "@bOrdinamento"
  ITEM "1|Per codice" MESSAGE HIDE,2@|SHOW,3@
  ITEM "2|Per ragione sociale" MESSAGE HIDE,3@|SHOW,2@
END

BUTTON SC_SELECT 10 1
BEGIN
  PROMPT 52 12 "Selezione"
END

BUTTON SC_RESET 10 1
BEGIN
  PROMPT 65 12 "Azzera"
END

NUMBER SC_NSEL 4
BEGIN
  PROMPT 52 13 "Selezionati "
  FLAGS "D"
END


NUMBER SC_CFCODFR 6
BEGIN
  PROMPT 2 15 "Da codice               "
  GROUP 3
  FLAGS "B"
END

NUMBER SC_CFCODTO 6
BEGIN
  PROMPT 37 15  "a codice "
  GROUP 3
  FLAGS "B"
END

STRING SC_CFDESFR  50
BEGIN
  PROMPT 2 15 "Da ragione sociale "
  GROUP 2
  FLAGS "HB"
END

STRING SC_CFDESTO 50
BEGIN
  PROMPT 2 16 "A ragione sociale  "
  GROUP 2
  FLAGS "HB"
END

BOOLEAN F_GROUPAGENT
BEGIN
  PROMPT 2 17 "Raggruppamento per agente"
  MESSAGE FALSE HIDE,5@
  MESSAGE TRUE SHOW,5@
END

STRING F_FROM_AGENT 5
BEGIN    
  PROMPT 2 18 "Dall'agente "
  FLAGS "HZU"
  USE LF_AGENTI
  INPUT CODAGE F_FROM_AGENT
  DISPLAY "Codice agente" CODAGE
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_FROM_AGENT CODAGE
  OUTPUT F_FROM_AGENT_D RAGSOC
  CHECKTYPE NORMAL
  GROUP 5
END

STRING F_FROM_AGENT_D 50
BEGIN
  PROMPT 22 18 ""
  FLAGS "H"
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_FROM_AGENT_D
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice agente" CODAGE
  COPY OUTPUT F_FROM_AGENT
  CHECKTYPE NORMAL
  GROUP 5
END

STRING F_TO_AGENT 5
BEGIN    
  PROMPT 2 19 "All'agente  "
  FLAGS "HZU"
  COPY USE F_FROM_AGENT
  INPUT CODAGE F_TO_AGENT
  COPY DISPLAY F_FROM_AGENT
  OUTPUT F_TO_AGENT CODAGE
  OUTPUT F_TO_AGENT_D RAGSOC
  CHECKTYPE NORMAL
  GROUP 5
END

STRING F_TO_AGENT_D 50
BEGIN
  PROMPT 22 19 ""
  FLAGS "H"
  COPY USE F_FROM_AGENT_D
  INPUT RAGSOC F_TO_AGENT_D
  COPY DISPLAY F_FROM_AGENT_D
  COPY OUTPUT F_TO_AGENT
  CHECKTYPE NORMAL
  GROUP 5
END

ENDPAGE

ENDMASK