campo-sirio/ps/pd0610100a.uml

#include "pd0610100a.h"

TOOLBAR "" 0 0 0 2

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

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

#include <helpbar.h>
ENDPAGE

PAGE "Clienti/Articoli/Fornitori" -1 -1 80 20

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 2 1 "Cod. cliente "
  USE LF_CLIFO
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_RAGSOC RAGSOC
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIENTE
  CHECKTYPE REQUIRED
END

NUMBER F_INDSPED 3
BEGIN
  PROMPT 2 2 "Indirizzo di spedizione"
  USE LF_INDSP
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_CLIENTE SELECT
  DISPLAY "Codice" CODIND
  DISPLAY "Indirizzo" INDIR
  DISPLAY "CAP" CAP
  DISPLAY "Località" LOCALITA
  OUTPUT F_INDSPED CODIND
END

SPREADSHEET F_SHEET
BEGIN
	PROMPT 2 4 "Articoli/Fornitori"
	ITEM "Cliente@6"
	ITEM "Ind. Sped."
	ITEM "Cod.articolo@20"
	ITEM "Descrizione@45"
	ITEM "Fornitore 1"
	ITEM "Ragione sociale@45"
	ITEM "Listino 1"
	ITEM "Contratto 1"
	ITEM "Fornitore 2"
	ITEM "Ragione sociale@45"
	ITEM "Listino 2"
	ITEM "Contratto 2"
END

ENDPAGE

ENDMASK

PAGE "Articoli/Fornitori" -1 -1 80 18

NUMBER S_CLIENTE 6
BEGIN
  PROMPT 2 2 "Codice Cliente "
  FLAGS "ZD"
END

NUMBER S_INDSPED 3
BEGIN
  PROMPT 25 2 "Indirizzo di spedizione "
  FLAGS "ZD"
END

STRING S_ARTICOLO 20
BEGIN
  PROMPT 2 4 "Cod. Art.   "
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART S_ARTICOLO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@45" DESCR
  OUTPUT S_ARTICOLO CODART
  OUTPUT S_DESART DESCR
  CHECKTYPE REQUIRED
END

STRING S_DESART 50 45
BEGIN
  PROMPT 2 5 "Des. Art.   "
  USE LF_ANAMAG KEY 2
  INPUT DESCR S_DESART
  DISPLAY "Descrizione@45" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT S_ARTICOLO
  CHECKTYPE REQUIRED
END

NUMBER S_FORN1 6
BEGIN
  PROMPT 2 6 "Fornitore 1 "
  USE LF_CLIFO
  INPUT TIPOCF "F" SELECT
  INPUT CODCF S_FORN1
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT S_FORN1 CODCF
  OUTPUT S_RAGSOC1 RAGSOC
  CHECKTYPE NORMAL
END

STRING S_RAGSOC1 50 45
BEGIN
  PROMPT 25 6 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F" SELECT
  INPUT RAGSOC S_RAGSOC1
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT S_FORN1
  CHECKTYPE NORMAL
END

STRING S_LIS1 3
BEGIN
  PROMPT 2 7 "Listino 1   "
  USE LF_CONDV
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT COD S_LIS1
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_LIS1 COD
  OUTPUT S_DESLIS1 DESCR
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING S_DESLIS1 45
BEGIN
  PROMPT 25 7 ""
  FLAGS "D"
END

STRING S_CON1 3
BEGIN
  PROMPT 2 8 "Contratto 1 "
  USE LF_CONDV
  INPUT TIPO "C"
  INPUT TIPOCF "F"
  INPUT CODCF S_FORN1 SELECT
  INPUT COD S_CON1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Forn" CODCF
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@35" DESCR
  OUTPUT S_CON1 COD
  OUTPUT S_DESCON1 DESCR
END 

STRING S_DESCON1 45
BEGIN
  PROMPT 25 8 ""
  FLAGS "D"
END

NUMBER S_FORN2 6
BEGIN
  PROMPT 2 9 "Fornitore 2 " 
  USE LF_CLIFO
  INPUT TIPOCF "F" SELECT
  INPUT CODCF S_FORN2
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT S_FORN2 CODCF
  OUTPUT S_RAGSOC2 RAGSOC
  CHECKTYPE NORMAL
END

STRING S_RAGSOC2 50 45
BEGIN
  PROMPT 25 9 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F" SELECT
  INPUT RAGSOC S_RAGSOC2
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT S_FORN2
  CHECKTYPE NORMAL
END

STRING S_LIS2 3
BEGIN
  PROMPT 2 10 "Listino 2   "
  USE LF_CONDV
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT COD S_LIS2
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_LIS2 COD
  OUTPUT S_DESLIS2 DESCR
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING S_DESLIS2 45
BEGIN
  PROMPT 25 10 ""
  FLAGS "D"
END

STRING S_CON2 3
BEGIN
  PROMPT 2 11 "Contratto 2 "
  USE LF_CONDV
  INPUT TIPO "C"
  INPUT TIPOCF "F"
  INPUT CODCF S_FORN2 SELECT
  INPUT COD S_CON2
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Forn" CODCF
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@35" DESCR
  OUTPUT S_CON2 COD
  OUTPUT S_DESCON2 DESCR
END 

STRING S_DESCON2 45
BEGIN
  PROMPT 25 11 ""
  FLAGS "D"
END

ENDPAGE

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"
  PICTURE BMP_DELREC  
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK