campo-sirio/co/co0500a.uml

#include "co0500a.h"

TOOLBAR "" 0 -2 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Anagrafica mercati" 0 -1 0 19

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 ""
END

// query mode
NUMBER F_CODMERCATO 6
BEGIN
  PROMPT 2 2 "Cod. mercato "
  FIELD CODCF
  KEY 1
  USE LF_MERCATICOOP KEY 1
  JOIN LF_CLIFO TO LF_MERCATICOOP INTO TIPOCF=='C' CODCF==CODCF
  INPUT CODCF F_CODMERCATO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" 20->RAGSOC
  OUTPUT F_CODMERCATO CODCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_DESMERCATO 20->RAGSOC
  OUTPUT F_RAGSOC 20->RAGSOC
  CHEKCTYPE REQUIRED
  GROUP 1
END

STRING F_DESMERCATO 50
BEGIN
  PROMPT 25 2 ""
	KEY 2
	USE LF_CLIFO KEY 2
	JOIN LF_MERCATICOOP INTO CODCF==CODCF
  INPUT TIPOCF "C"
	INPUT RAGSOC F_DESMERCATO
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice" LF_MERCATICOOP->CODCF
	COPY OUTPUT F_CODMERCATO
  GROUP 1
END

// query INSERT mode
NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Cliente      "
  FIELD CODCF
  KEY 1
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_CODMERCATO CODCF
  OUTPUT F_DESMERCATO RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
  GROUP 2
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 2  ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
  GROUP 2
END

TEXT DLG_NULL
BEGIN         
  PROMPT 31 6 "Perc."
END

TEXT DLG_NULL
BEGIN         
  PROMPT 41 6 "Arr."
END

TEXT DLG_NULL
BEGIN         
  PROMPT 45 6 "Cod.Iva"
END

TEXT DLG_NULL
BEGIN         
  PROMPT 1 7 "1a % diritti di mercato"
END

TEXT DLG_NULL
BEGIN         
  PROMPT 1 8 "2a % diritti di mercato"
END

NUMBER F_DIRITTI1 5 2
BEGIN
  PROMPT 21 7 ""
  FIELD DIRITTI1
END

LISTBOX F_ARROT1 12
BEGIN
  PROMPT 28 7 ""
  FIELD ARROT1
  ITEM " |Matematico"
  ITEM "0|per Eccesso"
  ITEM "1|per Difetto"
END

STRING F_CODIVA1 4
BEGIN
  PROMPT 45 7 ""
  FIELD CODIVA1
  USE %IVA
  INPUT CODTAB F_CODIVA1
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVA1 CODTAB
  OUTPUT F_DESIVA1 S0
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_DESIVA1 50 30
BEGIN
  PROMPT 52 7 ""
  USE %IVA KEY 2
  INPUT S0 F_DESIVA1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  OUTPUT F_CODIVA1 CODTAB
  OUTPUT F_DESIVA1 S0
  CHECKTYPE NORMAL
END

NUMBER F_DIRITTI2 5 2
BEGIN
  PROMPT 21 8 ""
  FIELD DIRITTI2
END

LISTBOZ F_ARROT2 12
BEGIN
  PROMPT 28 8 ""
  FIELD ARROT2
  ITEM " |Matematico"
  ITEM "0|per Eccesso"
  ITEM "1|per Difetto"
END

STRING F_CODIVA2 4
BEGIN
  PROMPT 45 8 ""
  FIELD CODIVA2
  USE %IVA
  INPUT CODTAB F_CODIVA2
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVA2 CODTAB
  OUTPUT F_DESIVA2 S0
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_DESIVA2 50 30
BEGIN
  PROMPT 52 8 ""
  USE %IVA KEY 2
  INPUT S0 F_DESIVA2
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  OUTPUT F_CODIVA2 CODTAB
  OUTPUT F_DESIVA2 S0
  CHECKTYPE NORMAL
END

NUMBER F_SPESEFACC 9 2
BEGIN
  PROMPT 1 10 "Spese facchinaggio (Euro/kg)      "
  FIELD SPESEFACC
END

STRING F_CODIVAFACC 4
BEGIN
  PROMPT 45 10 ""
  FIELD CODIVAFACC
  USE %IVA
  INPUT CODTAB F_CODIVAFACC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVAFACC CODTAB
  OUTPUT F_DESIVAFACC S0
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_DESIVAFACC 50 30
BEGIN
  PROMPT 52 10 ""
  USE %IVA KEY 2
  INPUT S0 F_DESIVAFACC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  OUTPUT F_CODIVAFACC CODTAB
  OUTPUT F_DESIVAFACC S0
  CHECKTYPE NORMAL
END

NUMBER F_SPESECASSE 9 2
BEGIN
  PROMPT 1 11 "Spese ricambio casse (Euro/cassa) "
  FIELD SPESECASSE
END

STRING F_CODIVACASS 4
BEGIN
  PROMPT 45 11 ""
  FIELD CODIVACASS
  USE %IVA
  INPUT CODTAB F_CODIVACASS
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVACASS CODTAB
  OUTPUT F_DESIVACASS S0
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_DESIVACASS 50 30
BEGIN
  PROMPT 52 11 ""
  USE %IVA KEY 2
  INPUT S0 F_DESIVACASS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  OUTPUT F_CODIVACASS CODTAB
  OUTPUT F_DESIVACASS S0
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK