#include "tctbrca.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Conti" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "Causale Ericsoft"
END

LIST F_TIPO 1 30
BEGIN
  PROMPT 2 2 "Tipo        "
  ITEM "0|Non IVA"
  ITEM "1|Fattura"
  ITEM "2|Nota di accredito"
  ITEM "3|Corrispettivo/Costo"
  ITEM "4|Storno Corrispettivo/Costo"
  ITEM "5|Incasso fattura sospesa"
  ITEM "1|Fattura"
  ITEM "2|Nota di accredito"
  FIELD CODTAB[1,1]
  KEY 1
END

STRING F_CODTAB 3
BEGIN
  PROMPT 54 2 "Codice "
  USE &RCA
  INPUT CODTAB[2,4] F_TIPO
  INPUT CODTAB[2,4] F_CODTAB
  DISPLAY "Tipo" CODTAB[1,1]
  DISPLAY "Codice" CODTAB[2,4]
  DISPLAY "Descrizione@60" S0
  OUTPUT F_TIPO CODTAB[1,1]
  OUTPUT F_CODTAB CODTAB[2,4]
  OUTPUT F_DESC S0
  CHECKTYPE REQUIRED
  FIELD CODTAB[2,4]
  FLAGS "UZ"
  KEY 1
END

STRING F_DESC 50
BEGIN
  PROMPT 2 3 "Descrizione "
  USE &RCA KEY 2
  INPUT S0 F_DESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Tipo" CODTAB[1,1]
  DISPLAY "Codice" CODTAB[2,4]
  COPY OUTPUT F_CODTAB
  FIELD S0
  KEY 2
  CHECKTYPE REQUIRED
END

STRING F_CODICE 3
BEGIN
  PROMPT 2 6 "Cod.Causale "
  FIELD S1
  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_CODICE
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Tipo movimento" TIPOMOV
  DISPLAY "Colleg." CODCAUSIM
  DISPLAY "770" M770
  DISPLAY "Cespiti" COLLCESP
  OUTPUT F_CODICE CODCAUS
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 20 6 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Cod." CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Movimento" TIPOMOV
  DISPLAY "Colleg." CODCAUSIM
  DISPLAY "770" M770
  DISPLAY "Cespiti" COLLCESP
  COPY OUTPUT F_CODICE
  CHECKTYPE SEARCH
END


ENDPAGE

ENDMASK