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."
  ITEM "ID\nriga"
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

NUMBER S_NROW 3
BEGIN
  PROMPT 1 7 "ID riga "
  FLAGS "D"
END

ENDPAGE
ENDMASK