#include "prtbapr.h"

TOOLBAR "" 0 0 0 2

#include <relapbar.h>

ENDPAGE


PAGE "Archivio provvigioni" 0 2 0 0

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

STRING F_CODAPR 2
BEGIN
  PROMPT 2 2 "Codice          "
  FIELD CODTAB
  FLAGS "UZ"
  KEY 1
  USE APR
  INPUT CODTAB F_CODAPR
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODAPR CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 3 "Descrizione     "
  FIELD S0
  KEY 2
  USE APR KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@6" CODTAB
  COPY OUTPUT F_CODAPR
  CHECKTYPE REQUIRED
END

LISTBOX F_SEQRIC1 22
BEGIN
  PROMPT 1 6 "Chiave di ricerca archivio     "
  FIELD S3[1,1]
  ITEM "C|Cliente"
  ITEM "V|Categoria di vendita"
  ITEM "A|Agente"
  ITEM "P|Cod. pagamento"
  ITEM "S|Sconto"
  ITEM "Z|Zona"
  ITEM "M|Articolo di magazzino"
  ITEM "E|Categoria merc."
  ITEM "R|Sottocategoria merc."
  ITEM "F|Raggruppamento fisc."
  STR_EXPR ((#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

LISTBOX F_SEQRIC2 22
BEGIN
  PROMPT 32 7 ""
  FIELD S3[2,2]
  ITEM "-|Nessuno"                MESSAGE CLEAR,5@
  ITEM "C|Cliente"                MESSAGE ENABLE,F_SEQRIC3
  ITEM "V|Categoria di vendita"   MESSAGE ENABLE,F_SEQRIC3
  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQRIC3
  ITEM "P|Cod. pagamento"         MESSAGE ENABLE,F_SEQRIC3
  ITEM "S|Sconto"                 MESSAGE ENABLE,F_SEQRIC3
  ITEM "Z|Zona"                   MESSAGE ENABLE,F_SEQRIC3
  ITEM "M|Articolo di magazzino"  MESSAGE ENABLE,F_SEQRIC3
  ITEM "E|Categoria merc."        MESSAGE ENABLE,F_SEQRIC3
  ITEM "R|Sottocategoria merc."   MESSAGE ENABLE,F_SEQRIC3
  ITEM "F|Raggruppamento fisc."   MESSAGE ENABLE,F_SEQRIC3
  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

LISTBOX F_SEQRIC3 22
BEGIN
  PROMPT 32 8 ""
  FIELD S3[3,3]
  ITEM "-|Nessuno"                MESSAGE CLEAR,F_SEQRIC4
  ITEM "C|Cliente"                MESSAGE ENABLE,F_SEQRIC4
  ITEM "V|Categoria di vendita"   MESSAGE ENABLE,F_SEQRIC4
  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQRIC4
  ITEM "P|Cod. pagamento"         MESSAGE ENABLE,F_SEQRIC4
  ITEM "S|Sconto"                 MESSAGE ENABLE,F_SEQRIC4
  ITEM "Z|Zona"                   MESSAGE ENABLE,F_SEQRIC4
  ITEM "M|Articolo di magazzino"  MESSAGE ENABLE,F_SEQRIC4
  ITEM "E|Categoria merc."        MESSAGE ENABLE,F_SEQRIC4
  ITEM "R|Sottocategoria merc."   MESSAGE ENABLE,F_SEQRIC4
  ITEM "F|Raggruppamento fisc."   MESSAGE ENABLE,F_SEQRIC4
  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"
  GROUP 5
END

LISTBOX F_SEQRIC4 22
BEGIN
  PROMPT 32 9 ""
  FIELD S3[4,4]
  ITEM "-|Nessuno"
  ITEM "C|Cliente"
  ITEM "V|Categoria di vendita"
  ITEM "A|Agente"
  ITEM "P|Cod. pagamento"
  ITEM "S|Sconto"
  ITEM "Z|Zona"
  ITEM "M|Articolo di magazzino"
  ITEM "E|Categoria merc."
  ITEM "R|Sottocategoria merc."
  ITEM "F|Raggruppamento fisc."
  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

ENDPAGE

ENDMASK