#include "db0500a.h"

PAGE "Movimenti" -1 -1 80 21

DATE F_DATAREG  
BEGIN 
  PROMPT 2 1 "Data registraz.  "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

STRING F_CODCAUS 5
BEGIN 
  PROMPT 2 3 "Codice causale   "
  FIELD CODCAUS
  USE %CAU
  FLAGS "U"
  INPUT CODTAB  F_CODCAUS
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODCAUS CODTAB
  OUTPUT F_DESCAU S0
  CHECKTYPE REQUIRED
  ADD RUN MG0 -0 %CAU  
  GROUP G_DEFMOV
END

STRING F_DESCAU 50 45
BEGIN 
  PROMPT 30 3 ""
  USE %CAU KEY 2
  INPUT S0 F_DESCAU
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice " CODTAB
  COPY OUTPUT1  F_CODCAUS 
END

STRING F_CODMAG 3
BEGIN
  PROMPT 2 5 "Magazzino  "
  FLAGS "UG"
  FIELD CODMAG[1,3]
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_CODMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_DESMAG S0
  CHECKTYPE REQUIRED
END

STRING F_DESMAG 50 45
BEGIN
  PROMPT 30 5 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DESMAG
  DISPLAY "Denominazione mag.@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  COPY OUTPUT F_CODMAG
  CHECKTYPE NORMAL
END


STRING F_CODDEP 2
BEGIN
  PROMPT 2 7 "Deposito   "
  FLAGS "U"
  FIELD CODMAG[4,5]
  USE MAG SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_CODMAG SELECT 
  INPUT CODTAB[4,5] F_CODDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODDEP CODTAB[4,5]
  OUTPUT F_DESDEP S0
  OUTPUT F_CODMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  WARNING "Indicare il deposito"
END

STRING F_DESDEP 50 45
BEGIN
  PROMPT 30 7 ""
  USE MAG KEY 2 SELECT (CODTAB[4,5]!="")&&(CODTAB[1,3]==#F_CODMAG)
  INPUT S0 F_DESDEP
  COPY DISPLAY F_DESMAG
  COPY OUTPUT F_CODDEP
  CHECKTYPE NORMAL
  MESSAGE EMPTY CHECK,F_CODDEP
END

NUMBER F_QUANT 15 5
BEGIN
  PROMPT 2 9 "Quantita'        "
  FIELD QUANT
  CHECKTYPE REQUIRED  
  WARNING "Indicare la quantità"
END

CURRENCY F_PREZZOM 18
BEGIN
  PROMPT 2 11 "Prezzo           "
  FLAG "U"
END

STRING F_NUMDOC 7
BEGIN
	PROMPT 2 15 "Documento numero "
END

DATE F_DATADOC
BEGIN
  PROMPT 45 15 "Del         "
  FLAG "U"
END

LISTBOX F_TIPOCF 9
BEGIN 
  PROMPT 2 17 ""
  ITEM " |Nessuno"
  MESSAGE HIDE,F_CODCF|HIDE,F_RAGSOC|RESET,F_CODCF|RESET,F_RAGSOC
  ITEM "C|Cliente"
  MESSAGE SHOW,F_CODCF|SHOW,F_RAGSOC
  ITEM "F|Fornitore"
  MESSAGE SHOW,F_CODCF|SHOW,F_RAGSOC
END


// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
NUMBER F_CODCF  6
BEGIN 
  PROMPT 16 17 "Codice "
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF  F_CODCF
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  ADD RUN CG0 -1
END

// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
STRING F_RAGSOC 50 40
BEGIN
  PROMPT 32 17 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF  F_TIPOCF SELECT
  INPUT RAGSOC   F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  OUTPUT F_CODCF CODCF
  CHECKTYPE NORMAL
  ADD RUN CG0 -1
END
                  
BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDMASK