campo-sirio/pr/pr0500a.uml

#include "pr0500a.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Gestione Agenti" -1 -1 78 8

GROUPBOX DLG_NULL 80 4
BEGIN
 PROMPT 1 1 "Agente"
 FLAGS "R"
END

STRING F_CODAGE 5
BEGIN
  PROMPT 2 2 "Codice          "
  FIELD CODAGE
  FLAGS "UZ"
  KEY 1
  USE LF_AGENTI
  INPUT CODAGE F_CODAGE
  DISPLAY "Codice@8R" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODAGE CODAGE
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 3 "Ragione sociale "
  FIELD RAGSOC
  KEY 2
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@8R" CODAGE
  COPY OUTPUT F_CODAGE
  CHECKTYPE REQUIRED
END

NUMBER F_CODFORN 6
BEGIN
  PROMPT 2 5 "Cod. fornitore "
  FIELD CODFORN
  USE LF_CLIFO KEY 1 SELECT TIPOCF=="F"
  INPUT TIPOCF "F"
  INPUT CODCF F_CODFORN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODFORN CODCF
  OUTPUT F_DESCRFORN RAGSOC
  CHECKTYPE NORMAL
  ADD RUN CG0 -1
END

STRING F_DESCRFORN 50
BEGIN
  PROMPT 27 5 ""
  USE LF_CLIFO KEY 2 SELECT TIPOCF=="F"
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DESCRFORN
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_CODFORN CODCF
  OUTPUT F_DESCRFORN RAGSOC
  CHECKTYPE NORMAL
  ADD RUN CG0 -1
END

LISTBOX F_TIPO 10
BEGIN
  PROMPT 2 6 "Tipo agente    "
  FIELD TIPO
  ITEM "A|Agente"
  MESSAGE CLEAR,G_CAPOZONA@
  ITEM "C|Capozona"
  MESSAGE ENABLE,G_CAPOZONA@
  ITEM "S|Subagente"
  MESSAGE ENABLE,G_CAPOZONA@
END

GROUPBOX DLG_NULL 80 4
BEGIN
 PROMPT 1 7 "Capozona"
 FLAGS "R"
END

STRING F_CODCAPO 5
BEGIN
  PROMPT 2 8 "Cod. capozona  "
  FIELD CODCAPO
  FLAGS "UZ"

  USE LF_AGENTI SELECT TIPO=="C"
  INPUT CODAGE F_CODCAPO
  DISPLAY "Codice@8R" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODCAPO CODAGE
  OUTPUT F_DESCRCAPO RAGSOC
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_PERCCAPO
  MESSAGE ENABLE,F_PERCCAPO
  GROUP G_CAPOZONA
END

STRING F_DESCRCAPO 50
BEING
  PROMPT 27 8 ""
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_DESCRCAPO
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@8R" CODAGE
  OUTPUT F_CODCAPO CODAGE
  OUTPUT F_DESCRCAPO RAGSOC
  CHECKTYPE NORMAL
END

NUMBER F_PERCCAPO 5 2
BEGIN
  PROMPT 2 9 "% provvigione capozona sulle provvigioni     "
  FIELD PERCCAPO
  NUM_EXPR {(#F_PERCCAPO>=0.0)&&(#F_PERCCAPO<100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
  GROUP G_CAPOZONA
END

NUMBER F_PERCFATT 6 2
BEGIN
  PROMPT 2 11 "% provvigione da liquidare alla fatturazione "
  FIELD PERCFATT
  NUM_EXPR {(#F_PERCFATT>=0.0)&&(#F_PERCFATT<=100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

NUMBER F_PERCPAG 6 2
BEGIN
  PROMPT 2 12 "% provvigione da liquidare al pagamento      "
  FLAGS "D"
END

STRING F_CAMPOPROVV 10
BEGIN
  PROMPT 2 13 "Campo provvig.  "
  FIELD CAMPOPROVV
  FLAG "U"
  USE %FRD
  INPUT CODTAB  F_CAMPOPROVV
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAMPOPROVV CODTAB
  OUTPUT F_DESCAMPOPROVV S0
  CHECKTYPE NORMAL
END

STRING F_DESCAMPOPROVV 50
BEGIN
  PROMPT 2 14 "                "
  FLAGS "D"
END

NUMBER F_PERCPROVV 5 2
BEGIN
  PROMPT 2 15 "% provvigione fissa                          "
  FIELD PERCPROVV
  NUM_EXPR {(#F_PERCPROVV>=0.0)&&(#F_PERCPROVV<100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

STRING F_MATRICOLA 8
BEGIN
  PROMPT 2 16 "Numero matricola                             "
  FIELD MATRICOLA
END

DATE F_DATACESS
BEGIN
  PROMPT 2 17 "Data cessazione rapporto                     "
  FIELD DATACESS
END

BOOLEAN F_PLURIMAND
BEGIN
  PROMPT 2 18 "Plurimandatario"
  FIELD PLURIMAND
END

ENDPAGE

PAGE "Ricerche" -1 -1 78 8

LISTBOX F_SEQRIC1 22
BEGIN
  PROMPT 1 2 "Sequenza ricerca % provvigione "
  FIELD SEQRIC[1,1]
  ITEM "-|Nessuno"                MESSAGE CLEAR,5@|CLEAR,F_SEQRIC2|CLEAR,F_CODRICPR2|CLEAR,F_CODRICPR1
  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "V|Categoria di vendita"   MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "M|Articolo di magazzino"  MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "C|Cliente"                MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "O|Condizione di vendita"  MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
  ITEM "1|Archivio % provvigioni" MESSAGE ENABLE,F_SEQRIC2|ENABLE,F_CODRICPR1
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC3)&&(#THIS_FIELD!=#F_SEQRIC4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

STRING F_CODRICPR1 2
BEGIN
  PROMPT 59 2 ""
  FIELD CODRICPR1
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODRICPR1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRICPR1 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR3)&&(#THIS_FIELD!=#F_CODRICPR4))
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQRIC2 22
BEGIN
  PROMPT 32 3 ""
  FIELD SEQRIC[2,2]
  ITEM "-|Nessuno"                MESSAGE CLEAR,5@|CLEAR,F_CODRICPR2
  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "V|Categoria di vendita"   MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "M|Articolo di magazzino"  MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "C|Cliente"                MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "O|Condizione di vendita"  MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
  ITEM "2|Archivio % provvigioni" MESSAGE ENABLE,F_SEQRIC3|ENABLE,F_CODRICPR2
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC3)&&(#THIS_FIELD!=#F_SEQRIC4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

STRING F_CODRICPR2 2
BEGIN
  PROMPT 59 3 ""
  FIELD CODRICPR2
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODRICPR2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRICPR2 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR3)&&(#THIS_FIELD!=#F_CODRICPR4))
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQRIC3 22
BEGIN
  PROMPT 32 4 ""
  FIELD SEQRIC[3,3]
  ITEM "-|Nessuno"                   MESSAGE CLEAR,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "A|Agente"                    MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "V|Categoria di vendita"      MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "M|Articolo di magazzino"     MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "C|Cliente"                   MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "O|Condizione di vendita"     MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
  ITEM "3|Archivio % provvigioni"    MESSAGE ENABLE,F_SEQRIC4|ENABLE,F_CODRICPR3
  GROUP 5
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

STRING F_CODRICPR3 2
BEGIN
  PROMPT 59 4 ""
  FIELD CODRICPR3
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODRICPR3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRICPR3 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR4))
  GROUP 4 5
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQRIC4 22
BEGIN
  PROMPT 32 5 ""
  FIELD SEQRIC[4,4]
  ITEM "-|Nessuno"                MESSAGE CLEAR,F_CODRICPR4
  ITEM "A|Agente"                 MESSAGE CLEAR,F_CODRICPR4
  ITEM "V|Categoria di vendita"   MESSAGE CLEAR,F_CODRICPR4
  ITEM "M|Articolo di magazzino"  MESSAGE CLEAR,F_CODRICPR4
  ITEM "C|Cliente"                MESSAGE CLEAR,F_CODRICPR4
  ITEM "O|Condizione di vendita"  MESSAGE CLEAR,F_CODRICPR4
  ITEM "4|Archivio % provvigioni" MESSAGE ENABLE,F_CODRICPR4
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC3))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
  GROUP 5
END

STRING F_CODRICPR4 2
BEGIN
  PROMPT 59 5 ""
  FIELD CODRICPR4
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODRICPR4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRICPR4 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR3))
  GROUP 4 5
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQALT1 22
BEGIN
  PROMPT 1 9 "Indicazione % aggiuntiva       "
  FIELD SEQALT[1,1]
  ITEM "-|Nessuno"                MESSAGE CLEAR,6@
  ITEM "A|Agente"                 MESSAGE CLEAR,F_CODALTPR1|ENABLE,F_SEQALT2
  ITEM "1|Archivio % provvigioni" MESSAGE ENABLE,F_CODALTPR1|ENABLE,F_SEQALT2
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT3)&&(#THIS_FIELD!=#F_SEQALT4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END

STRING F_CODALTPR1 2
BEGIN
  PROMPT 59 9 ""
  FIELD CODALTPR1
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODALTPR1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODALTPR1 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR3)&&(#THIS_FIELD!=#F_CODALTPR4))
  GROUP 6
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQALT2 22
BEGIN
  PROMPT 32 10 ""
  FIELD SEQALT[2,2]
  ITEM "-|Nessuno"                MESSAGE CLEAR,7@|CLEAR,F_CODALTPR2
  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQALT3|CLEAR,F_CODALTPR2
  ITEM "2|Archivio % provvigioni" MESSAGE ENABLE,F_SEQALT3|ENABLE,F_CODALTPR2
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT3)&&(#THIS_FIELD!=#F_SEQALT4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
  GROUP 6
END

STRING F_CODALTPR2 2
BEGIN
  PROMPT 59 10 ""
  FIELD CODALTPR2
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODALTPR2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODALTPR2 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR3)&&(#THIS_FIELD!=#F_CODALTPR4))
  GROUP 6
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQALT3 22
BEGIN
  PROMPT 32 11 ""
  FIELD SEQALT[3,3]
  ITEM "-|Nessuno"                   MESSAGE CLEAR,F_SEQALT4|CLEAR,F_CODALTPR3
  ITEM "A|Agente"                    MESSAGE ENABLE,F_SEQALT4|CLEAR,F_CODALTPR3
  ITEM "3|Archivio % provvigioni"    MESSAGE ENABLE,F_SEQALT4|ENABLE,F_CODALTPR3
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT4))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
  GROUP 6 7
END

STRING F_CODALTPR3 2
BEGIN
  PROMPT 59 11 ""
  FIELD CODALTPR3
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODALTPR3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODALTPR3 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR4))
  GROUP 6 7
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

LISTBOX F_SEQALT4 22
BEGIN
  PROMPT 32 12 ""
  FIELD SEQALT[4,4]
  ITEM "-|Nessuno"                MESSAGE CLEAR,F_CODALTPR4
  ITEM "A|Agente"                 MESSAGE CLEAR,F_CODALTPR4
  ITEM "4|Archivio % provvigioni" MESSAGE ENABLE,F_CODALTPR4
  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT3))
  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
  GROUP 6 7
END

STRING F_CODALTPR4 2
BEGIN
  PROMPT 59 12 ""
  FIELD CODALTPR4
  FLAGS "UZ"
  USE APR
  INPUT CODTAB F_CODALTPR4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODALTPR4 CODTAB
  CHECKTYPE NORMAL
  STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR3))
  GROUP 6 7
  WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END

ENDPAGE
ENDMASK