#include "ba4700a.h"

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

PAGE "Contatti" -1 -1 77 20

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 0 "@bCodici"
END
                    
NUMBER F_CONTACT 6
BEGIN
  PROMPT 2 1 "Cod."
  USE LF_CONTACT
  INPUT CONTACT F_CONTACT
  DISPLAY "Codice" CONTACT
  DISPLAY "Cognome@50" COGNOME
  DISPLAY "Nome@50" NOME
  DISPLAY "Alternativo@20" CODALT
  OUTPUT F_CONTACT CONTACT
  CHECKTYPE FORCED
  FIELD CONTACT
  KEY 1 3
END

STRING F_COGNOME 50
BEGIN
  PROMPT 16 1 "Cognome "
  USE LF_CONTACT KEY 2
  INPUT COGNOME F_COGNOME
  INPUT NOME F_NOME
  DISPLAY "Cognome@50" COGNOME
  DISPLAY "Nome@50" NOME
  DISPLAY "Codice" CONTACT
  DISPLAY "Alternativo@20" CODALT
  OUTPUT F_CONTACT CONTACT
  CHECKTYPE REQUIRED
  FIELD COGNOME
  KEY 2
END

STRING F_NOME 50
BEGIN
  PROMPT 16 2 "Nome    "
  COPY ALL F_COGNOME
  CHECKTYPE REQUIRED
  FIELD NOME
  KEY 2
END

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 2 3 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  KEY 3
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 15 3 ""
  USE LF_CLIFO 
  INPUT TIPOCF F_TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Cod. Alt.@15" RICALT
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  OUTPUT F_CODCF CODCF
  CHECKTYPE NORMAL
  KEY 3
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 24 3 ""
  USE LF_CLIFO KEY 2
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Cod. Alt.@15" RICALT
  DISPLAY "Codice" CODCF
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Partita IVA@15" PAIV
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
END

ENDMASK