campo-sirio/lv/lv2500a.uml

#include "lv2500a.h"

TOOLBAR "" 0 0 0 2
#include <elabar.h>

ENDPAGE

PAGE "Fatturazione" -1 -1 40 5

DATE F_DADATA
BEGIN
  PROMPT 2 1 "Fattura dal "
END

DATE F_ADATA
BEGIN
  PROMPT 25 1 " Al "
END

DATE F_DATAFAT
BEGIN
  PROMPT 43 1 "Data fatturazione "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

NUMBER F_DACODCF 6
BEGIN
  PROMPT 2 2 "Dal Cliente       " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_DACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_DACODCF CODCF
  OUTPUT F_DARAGSOC RAGSOC
  ADD RUN cg0 -1 
END

STRING F_DARAGSOC 50 30
BEGIN
  PROMPT 32 2 ""
  KEY 1
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_DACODCF
  ADD RUN cg0 -1  
END

NUMBER F_ACODCF 6
BEGIN
  PROMPT 2 3 "Al Cliente        " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_ACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_ACODCF CODCF
  OUTPUT F_ARAGSOC RAGSOC
  ADD RUN cg0 -1 
END

STRING F_ARAGSOC 50 30
BEGIN
  PROMPT 32 3 ""
  KEY 1
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_ARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_ACODCF
  ADD RUN cg0 -1  
END

STRING F_COD_ELAB 8
BEGIN
  PROMPT 2 4 "Tipo Fatturazione "
  FLAG "U"
  USE %ELD SELECT I0==2
  INPUT CODTAB F_COD_ELAB
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Numerazione" S5
  OUTPUT F_COD_ELAB CODTAB
  OUTPUT F_DESC_ELAB S0
  CHECKTYPE REQUIRED
  FLAGS "D"
END

STRING F_DESC_ELAB 50 30
BEGIN
  PROMPT 32 4 ""
  USE %ELD KEY 2 SELECT I0==2
  INPUT S0 F_DESC_ELAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Numerazione" S5
  COPY OUTPUT F_COD_ELAB
  CHECKTYPE REQUIRED
  FLAGS "D"
END

STRING F_CODCATC 2
BEGIN
  PROMPT 2 5 "Codice Categoria Economica "
  FIELD LF_CFVEN->CODCATC
  USE CCO
  INPUT CODTAB F_CODCATC
  DISPLAY "Codice contabile" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CODCATC CODTAB
  HELP "Codice categoria contabile del C/F"
  CHECKTYPE NORMAL
END

STRING F_CODZONA 2
BEGIN
  PROMPT 40 5 "Codice Zona "
  FIELD LF_CFVEN->CODZONA
  GROUP 7
  USE ZON
  INPUT CODTAB F_CODZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODZONA CODTAB
  HELP "Codice della zona dell'agente"
  CHECKTYPE NORMAL
END

RADIOBUTTON F_PERFAT 1 70
BEGIN
  PROMPT 2 6 "@bPeriodicit<69> di fatturazione "
  ITEM "3|Mensile" 
  ITEM "2|Quindicinale" 
  ITEM "1|Settimanale" 
  ITEM "0|Giornaliera" 
END

ENDPAGE

ENDMASK