campo-sirio/lv/lv2800a.uml

#include "lv2800a.h"

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

PAGE "Venduto Per Cliente nei 12 Mesi" -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
  FIELD #CODCF_FROM
  CHECKTYPE NORMAL
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
  OUTPUT F_CODCF_DA CODCF
  OUTPUT F_RAGSOC_DA RAGSOC
  CHECKTYPE SEARCH
END

NUMBER F_CODCF_A 6 
BEGIN
  PROMPT 2 3 "A Cliente  " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  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
  FIELD #CODCF_TO
  CHECKTYPE NORMAL
END

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

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

DATE F_DATA_DA
  BEGIN
  PROMPT 2 6 "Da Data    "
  CHECKTYPE REQUIRED
  FIELD #DATA_FROM
  GROUP 1
END

DATE F_DATA_A
  BEGIN
  PROMPT 30 6 "A Data   "
  FIELD #DATA_TO
  CHECKTYPE REQUIRED
  VALITATE DATE_CMP_FUNC >= F_DATA_DA
  WARNING "La data finale deve essere successiva a quella iniziale"
  GROUP 1
END

BOOLEAN F_CHECK_ANNO
  BEGIN
  PROMPT 60 6 "Per Anno "
  MESSAGE TRUE DISABLE,1@|ENABLE,F_ANNO
  MESSAGE FALSE ENABLE,1@|DISABLE,F_ANNO
END

NUMBER F_ANNO 4 
  BEGIN
  PROMPT 72 6 ""
  FLAGS "A"
  CHECKTYPE REQUIRED
  WARNING "Inserire l'anno"
  FIELD #ANNO_TO
END

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

STRING F_CODART_FROM 20
BEGIN
  PROMPT 2 9 "Da Articolo "
  FLAG "U"
  USE 47
  INPUT CODART F_CODART_FROM
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART_FROM CODART
  OUTPUT F_DESART_FROM DESCR  
  FIELD #CODART_FROM
  CHECKTYPE NORMAL
END

STRING F_DESART_FROM 40 
BEGIN
  PR 38 9 ""
  USE 47 KEY 2
  INPUT DESCR F_DESART_FROM
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART_FROM CODART
  OUTPUT F_DESART_FROM DESCR
  CHECKTYPE SEARCH
END

STRING F_CODART_TO 20
BEGIN
  PROMPT 2 10 "Ad Articolo "
  FLAG "U"
  USE 47
  INPUT CODART F_CODART_TO
  DISPLAY "Codice@20" CODART
  DISPAY "Descrizione@50" DESCR
  OUTPUT F_CODART_TO CODART
  OUTPUT F_DESART_TO DESCR 
  FIELD #CODART_TO
END

STRING F_DESART_TO 40 
BEGIN
  PR 38 10 ""
  USE 47 KEY 2
  INPUT DESCR F_DESART_TO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART_TO CODART
  OUTPUT F_DESART_TO DESCR 
END

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 12 "@b Parametri Zona"
END

STRING F_ZONA 2
BEGIN
  PROMPT 2 13 "Codice Zona"
  USE ZON
  INPUT CODTAB F_ZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ZONA CODTAB
  OUTPUT F_DESZONA S0
  CHECKTYPE NORMAL
  FIELD #ZONA_FROM
  CHECKTYPE NORMAL
END

STRING F_DESZONA 50 
BEGIN
  PROMPT 20 13 ""
  USE ZON KEY 2
  INPUT CODTAB F_ZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ZONA CODTAB
  OUTPUT F_DESZONA S0
  CHECKTYPE SEARCH
END

BOOLEAN F_CHECK_NO_RESI 
  BEGIN
  PROMPT 2 16 "Stampo tutti i righi incluso i resi "
  FIELD #CHECK_NO_RESI_TO
END

BOOLEAN F_CHECK_FATT
  BEGIN
  PROMPT 2 18 "Stampo solo i righi da fatturare "
  FIELD #CHECK_FATT_TO
END

ENDPAGE
ENDMASK