campo-sirio/lv/lv0600a.uml

#include "lv0600a.h"

TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE

PAGE "Storico Consegne per Cliente" -1 -1 40 5

GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 1 1 "@b Parametri Cliente"
END

NUMBER F_CODCF_DA 6
BEGIN
  PROMPT 2 2 "Da Cliente " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_DA
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODCF_DA CODCF
  OUTPUT F_RAGSOC_DA RAGSOC
  CHECKTYPE NORMAL
  FIELD #F_CODCF_FROM
  MESSAGE COPY,F_CODCF_A|CHECK,F_CODCF_A
END

STRING F_RAGSOC_DA 50 
BEGIN
  PROMPT 25 2 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC_DA
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF_DA
  CHECKTYPE SEARCH
END

NUMBER F_CODCF_A 6 
BEGIN
  PROMPT 2 3 "A Cliente  " 
  FLAGS "U"
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_A
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODCF_A CODCF
  OUTPUT F_RAGSOC_A RAGSOC
  CHECKTYPE NORMAL
  FIELD #F_CODCF_TO
END

STRING F_RAGSOC_A 50 
BEGIN
  PROMPT 25 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC_A
  COPY DISPLAY F_RAGSOC_DA
  OUTPUT F_CODCF_A CODCF
  OUTPUT F_RAGSOC_A RAGSOC
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 5 "@bParametri Data"
END

DATE F_DATA_DA
  BEGIN
  PROMPT 2 6 "Da Data    "
  FLAGS "A"
  FIELD #F_DATA_FROM
  GROUP 1
END

NUMBER F_ANNO_DA 4
BEGIN
  PROMPT 30 6 ""
  FIELD ANNO_FROM
  DRIVENBY F_DATA_DA
  STR_CALC MID(#F_DATA_DA,7,10)
  FLAGS "DH"
END
 
DATE F_DATA_A
  BEGIN
  PROMPT 40 6 "A Data   "
  FLAGS "A"
  FIELD #F_DATA_TO
  VALITATE DATE_CMP_FUNC >= F_DATA_DA
  WARNING "La data finale deve essere successiva a quella iniziale"
  GROUP 1
END

STRING F_ANNO_A 4
BEGIN
  PROMPT 60 6 ""
  FIELD ANNO_TO
  DRIVENBY F_DATA_A
  STR_CALC MID(#F_DATA_A,7,10)
  FLAGS "DH"
END

GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 1 8 "@bParametri Articolo"
END

STRING F_CODART_DA 20
BEGIN
  PROMPT 2 9 "Da Articolo "
  FLAG "U"
  USE 47
  INPUT CODART F_CODART_DA
  DISPLAY "Codice@20" CODART
  DISPAY "Descrizione@50" DESCR
  OUTPUT F_CODART_DA CODART
  OUTPUT F_DESART_DA DESCR  
  CHECKTYPE SEARCH
  FIELD #F_CODARTI_FROM
  MESSAGE COPY,F_CODART_A|CHECK,F_CODART_A
END

STRING F_DESART_DA 40 
BEGIN
  PR 38 9 ""
  USE 47 KEY 2
  INPUT DESCR F_DESART_DA
  DISPLAY "Codice@20" CODART
  DISPALY "Descrizione@50" DESCR
  OUTPUT F_CODART_DA CODART
  OUTPUT F_DESART_DA DESCR
  FIELD #F_DESART_FROM
END

STRING F_CODART_A 20
BEGIN
  PROMPT 2 10 "Ad Articolo "
  FLAG "U"
  USE 47
  INPUT CODART F_CODART_A
  DISPLAY "Codice@20" CODART
  DISPAY "Descrizione@50" DESCR
  OUTPUT F_CODART_A CODART
  OUTPUT F_DESART_A DESCR 
  CHECKTYPE SEARCH
  FIELD #F_CODARTI_TO
END

STRING F_DESART_A 40 
BEGIN
  PR 38 10 ""
  USE 47 KEY 2
  INPUT DESCR F_DESART_A
  DISPLAY "Codice@20" CODART
  DISPALY "Descrizione@50" DESCR
  OUTPUT F_CODART_A CODART
  OUTPUT F_DESART_A DESCR 
  FIELD #F_DESART_TO
END

GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 1 12 "@bParametri Causale"
END

STRING F_CODCAUS_DA 3
BEGIN
  PROMPT 2 13 "Da Causale "
  FLAGS "U"
  HELP "Inserire il codice della causale."  
  USE &CAU KEY 1
  INPUT CODTAB F_CODCAUS_DA
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Descr. breve@10" S3
  DISPLAY "Ritiro@C" B0
  DISPLAY "Consegna@C" B1
  DISPLAY "Reso@C" B2
  OUTPUT F_CODCAUS_DA CODTAB
  OUTPUT F_DESCAUS_DA S0
  CHECKTYPE SEARCH
  FIELD #F_CODCAUSA_FROM
  MESSAGE COPY,F_CODCAUS_A|CHECK,F_CODCAUS_A
END

STRING F_DESCAUS_DA 50
BEGIN
  PROMPT 20 13 ""
  HELP "Inserire la descrizione della causale."
  USE &CAU KEY 2
  INPUT S0 F_DESCAUS_DA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Descr. breve@10" S3
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Ritiro@C" B0
  DISPLAY "Consegna@C" B1
  DISPLAY "Reso@C" B2  
  COPY OUTPUT F_CODCAUS_DA
END

STRING F_CODCAUS_A 3
BEGIN
  PROMPT 2 14 "A Causale  "
  FLAGS "U"
  HELP "Inserire il codice della causale."  
  USE &CAU KEY 1
  INPUT CODTAB F_CODCAUS_A
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Descr. breve@10" S3
  DISPLAY "Ritiro@C" B0
  DISPLAY "Consegna@C" B1
  DISPLAY "Reso@C" B2
  OUTPUT F_CODCAUS_A CODTAB
  OUTPUT F_DESCAUS_A S0
  CHECKTYPE SEARCH
  FIELD #F_CODCAUSA_TO
END

STRING F_DESCAUS_A 50
BEGIN
  PROMPT 20 14 ""
  HELP "Inserire la descrizione della causale."
  USE &CAU KEY 2
  INPUT S0 F_DESCAUS_A
  DISPLAY "Descrizione@50" S0
  DISPLAY "Descr. breve@10" S3
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Ritiro@C" B0
  DISPLAY "Consegna@C" B1
  DISPLAY "Reso@C" B2  
  COPY OUTPUT F_CODCAUS_A
END


ENDPAGE
ENDMASK