campo-sirio/ha/ha0600a.uml

#include "ha0600a.h"

TOOLBAR "" 0 0 0 2

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

#include <helpbar.h>

ENDPAGE

PAGE "Articoli corrispondenti" -1 -1 78 23

RADIOBUTTON F_TIPO 1 15
BEGIN
  PROMPT 1 0 "@bSelezione"
  ITEM "C|Cliente" 
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "A|Articolo" 
    MESSAGE HIDE,1@|SHOW,2@
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 18 1 ""
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
  GROUP 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 18 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA" PAIV
  COPY OUTPUT F_CLIENTE
  ADD RUN cg0 -1
  GROUP 1
END

STRING F_ARTICOLO 20
BEGIN
  PROMPT 18 1 ""
  USE LF_ANAMAG SELECT USER1!=""
  INPUT CODART F_ARTICOLO 
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Fascia" USER4
  OUTPUT F_ARTICOLO CODART
  OUTPUT F_DESCART DESCR
  CHECKTYPE REQUIRED
  ADD RUN ve2 -0
  GROUP 2
END

STRING F_DESCART 50
BEGIN
  PROMPT 18 2 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESCART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODART
  DISPLAY "Fascia" USER4
  COPY OUTPUT F_ARTICOLO
  ADD RUN ve2 -0
  GROUP 2
END

SPREADHEET F_ARTICOLI 
BEGIN
  PROMPT 1 4 ""
  ITEM "Codice\nArticolo@20"
  ITEM "Descrizione@50"
  ITEM "Codice\nAlt.@6"
  ITEM "Descrizione@30"
  FLAGS "H"
END

SPREADSHEET F_CLIENTI 
BEGIN
  PROMPT 1 4 ""
  ITEM "Codice\nCliente@6"
  ITEM "Ragione Sociale@50"
  ITEM "Codice\nAlt.@6"
  ITEM "Descrizione@30"
  FLAGS "H"
END

ENDPAGE

ENDMASK

PAGE "Articolo" -1 -1 65 5

STRING A_CODART 20
BEGIN
  PROMPT 1 1 "Articolo    "
  USE LF_ANAMAG SELECT USER1!=""
  INPUT CODART A_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Fascia" USER4
  OUTPUT A_CODART CODART
  OUTPUT A_DESCART DESCR
  CHECKTYPE REQUIRED
  ADD RUN ve2 -0
END

STRING A_DESCART 50
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_ANAMAG KEY 2
  INPUT DESCR A_DESCART
  DISPLAY "Codice" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Fascia" USER4
  COPY OUTPUT A_CODART
  CHECKTYPE REQUIRED
  ADD RUN ve2 -0
END

STRING A_CODALT 6
BEGIN
  PROMPT 1 3 "Alternativo "
  USE LF_ANAMAG SELECT LEN(CODART)<=6
  INPUT CODART A_CODALT
  COPY DISPLAY A_CODART
  OUTPUT A_CODALT CODART
  OUTPUT A_DESCALT DESCR
  ADD RUN ve2 -0
END

STRING A_DESCALT 30
BEGIN
  PROMPT 1 4 "Descrizione "
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_USER 2 2
BEGIN
  PROMPT 1 2 "Azzera"
  MESSAGE RESET,A_CODALT|RESET,A_DESCALT
  PICTURE TOOL_RESET
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK

PAGE "Clienti" -1 -1 60 5

NUMBER C_CLIENTE 6
BEGIN
  PROMPT 1 1 ""
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF C_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  OUTPUT C_CLIENTE CODCF
  OUTPUT C_RAGSOC RAGSOC
  CHECKTYPE REQIORED
  ADD RUN cg0 -1
END

STRING C_RAGSOC 50
BEGIN
  PROMPT 1 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC C_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA" PAIV
  COPY OUTPUT C_CLIENTE
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

STRING C_CODALT 6
BEGIN
  PROMPT 1 4 "Alternativo "
  USE LF_ANAMAG SELECT USER1!=""
  INPUT CODART C_CODALT
  DISPLAY "Codice" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Fascia" USER4
  OUTPUT C_CODALT CODART
  OUTPUT C_DESCALT DESCR
  ADD RUN ve2 -0
END

STRING C_DESCALT 30
BEGIN
  PROMPT 1 5 "Descrizione "
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_USER 2 2
BEGIN
  PROMPT 1 2 "Azzera"
  PICTURE TOOL_RESET
  MESSAGE RESET,C_CODALT|RESET,C_DESCALT
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK