campo-sirio/lv/lv3200a.uml

#include "lv3200a.h"

TOOLBAR "Topbar" 0 0 0 2

BUTTON DLG_SELECT 2 2
BEGIN
  PROMPT 1 1 "Tutti"
  PICTURE TOOL_MULTISEL
END

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 1 1 "Controlla"
  PICTURE TOOL_PREVIEW
END

BUTTON DLG_ELABORA 2 2
BEGIN
  PROMPT 1 1 "Evadi"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Salva"
  PICTURE TOOL_SAVEREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 1 1 "Annulla"
  PICTURE TOOL_CANCEL
END

#include <helpbar.h>

ENDPAGE

PAGE "Evasione Buoni di prelievo" -1 -1 80 10

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bEstremi documento"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Documento "
  FLAGS "D"
END

STRING F_TPDOC 4
BEGIN
  PROMPT 17 2 ""
  FLAGS "D"  
END

STRING F_DESCR 30
BEGIN
  PROMPT 22 2 ""
  FLAGS "D"
END

NUMBER F_NDOC 6
BEGIN
  PROMPT 54 2 "Num."
  USE LF_DOC SELECT (STATO==2)
  JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT PROVV "D"
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOC
  INPUT TIPOCF "C"
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  DISPLAY "Stato@R" STATO
  DISPLAY "Data\ndocumento" DATADOC
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NDOC NDOC
  OUTPUT F_STATO STATO
  OUTPUT F_DATADOC DATADOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RICALT LF_CLIFO->RICALT
  OUTPUT F_RAGSOC LF_CLIFO->RAGSOC  
END

STRING F_STATO 3
BEGIN
  PROMPT 68 2 "Stato"
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Esercizio "
  FLAGS "D"
END

DATE F_DATADOC
BEGIN
  PROMPT 18 3 ""  
END

STRING F_GIORNO 10
BEGIN
  PROMPT 30 3 ""
  FLAGS "D"
END

NUMBER F_SETTIMANA 1
BEGIN
  PROMPT 42 3 "Settimana"
  FLAGS "D"
END

DATE F_DATABOLLA
BEGIN
  PROMPT 54 3 "Data Bolla   "  
END

DATE F_DATAPRCO
BEGIN
  PROMPT 54 3 "Data Prv.Con."
  FLAGS "H"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 4 "Cliente   "
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF 
  DISPLAY "Codice" CODCF
  DISPLAY "Ricerca alternativa@30" RICALT
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_RICALT RICALT
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

STRING F_RICALT 30
BEGIN
  PROMPT 21 4 ""
  USE LF_CLIFO KEY 6
  INPUT TIPOCF "C"
  INPUT RICALT F_RICALT
  DISPLAY "Ricerca alternativa@30" RICALT
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  HELP "Chiave di ricerca alternativa"
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

NUMBER F_CODCONT 3
BEGIN
  PROMPT 54 4 "Contr."
  FLAGS "D"
END

NUMBER F_CODITI 3
BEGIN
  PROMPT 65 4 "Cod.Iti."
  USE &ITI
  INPUT CODTAB F_CODITI
  DISPLAY "Cod. Iti." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODITI CODTAB
  FLAGS "Z"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 5 "Ragione Sociale    "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Ricerca alternativa@30" RICALT
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

STRING F_BARCODE 50
BEGIN
  PROMPT 2 7 "Barcode "
  CHECKTYPE NORMAL
END

SPREADSHEET F_RIGHE 0 16
BEGIN
  PROMPT 1 8 "Righe"
  ITEM "Evaso"
  ITEM "Cod.\nArt."
  ITEM "Descrizione"
  ITEM "Cau."
  ITEM "Ritirato"
  ITEM "Da Cons."
  ITEM "Consegnato"
  ITEM "Pacchi"
  ITEM "Cong.\nPrec."
  ITEM "Cong.\nAtt."
  ITEM "Riferimenti\nbuoni cons."
END

ENDPAGE
ENDMASK

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

PAGE "Riga" -1 -1 80 10

BOOLEAN S_EVASO
BEGIN
  PROMPT 1 1 "Evaso"
END

STRING S_CODART 9
BEGIN
  PROMPT 1 2 "Articolo "
  FLAGS "D"
END

STRING S_ARTDESCR 50
BEGIN
  PROMPT 25 2 ""
  FLAGS "D"
END

STRING S_CAUSALE 3
BEGIN
  PROMPT 1 3 "Causale  "
  USE &LVCAU
  INPUT CODTAB S_CAUSALE 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CAUSALE CODTAB
  OUTPUT S_CAUDESCR S0  
  CHECKTYPE REQUIRED
  FLAGS "U"
END

STRING S_CAUDESCR 40
BEGIN
  PROMPT 25 3 ""
  USE &LVCAU
  KEY 2
  INPUT S0 S_CAUDESCR   
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CAUSALE
  CHECKTYPE REQUIRED
END

NUMBER S_RITIRATO 5
BEGIN
  PROMPT 1 4 "Ritirato "
  FLAGS "D"
END

NUMBER S_DACONS 5
BEGIN
  PROMPT 18 4 "Da consegnare "
  FLAGS "D"
END

NUMBER S_CONSEGNATO 5
BEGIN
  PROMPT 40 4 "Consegnato "
END

NUMBER S_PACCHI 5
BEGIN
  PROMPT 62 4 "Pacchi "
END

NUMBER S_CONGPRE 5
BEGIN
  PROMPT 1 5 "Conguaglio precedente "
  FLAGS "D"
END

NUMBER S_CONGATT 5
BEGIN
  PROMPT 30 5 "Conguaglio attuale   "
  FLAGS "D"
END

STRING S_RIFBCON 255 50
BEGIN
  PROMPT 1 6 "Riferimenti buono di consegna"
  FLAGS "D"
END

ENDPAGE
ENDMASK