#include "cgtbtra.h"

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

PAGE "Tabella ditte per trasferimento" 0 2 0 0

STRING F_NOMEID 10
BEGIN
  PROMPT 1 1 "Nome simbolico sistema inviante "
  FIELD %TRA->CODTAB[1,10]
  FLAGS "UZ"
  KEY 1
  USE %TRA 
  INPUT CODTAB[1,10] F_NOMEID
  INPUT CODTAB[11,15] F_CODDITTAINV
  DISPLAY "Nome ident." CODTAB[1,10]
  DISPLAY "Ditta inv." CODTAB[11,15]
  DISPLAY "Ditta ric." I0   
  DISPLAY "N.Invio" I1
  DISPLAY "Data invio" D0
  OUTPUT F_NOMEID CODTAB[1,10]
  OUTPUT F_CODDITTAINV CODTAB[11,15]
  CHECKTYPE REQUIRED
  END
  
NUMBER F_CODDITTAINV 5
BEGIN
  PROMPT 1 2 "Codice ditta inviante           "
  FIELD %TRA->CODTAB[11,15]
  FLAGS "Z"
  KEY 1 
  COPY USE F_NOMEID
  INPUT CODTAB[1,10] F_NOMEID
  INPUT CODTAB[11,15] F_CODDITTAINV
  COPY DISPLAY F_NOMEID
  COPY OUTPUT F_NOMEID
  CHECKTYPE REQUIRED
  END
  
NUMBER F_CODDITTARIC 5
BEGIN
  PROMPT 1 4 "Ditta ricevente "
  FIELD %TRA->I0 
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTARIC
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODDITTARIC CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  FLAGS "RZ"
  CHECKTYPE REQUIRED
  END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 4 ""
  FLAGS "D"
  END
  
LIST F_AGGCAUSALI 7
BEGIN 
  PROMPT 1 6 "Aggiornamento causali gia' presenti                "
  FIELD %TRA->S0
  ITEMS "N|No"
  ITEMS "D|Descr."
  ITEMS "T|Tutto"
END

LIST F_AGGCLIFO 7
BEGIN 
  PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti      "
  FIELD %TRA->S1
  ITEMS "N|No"
  ITEMS "D|Descr."
  ITEMS "T|Tutto"
END

BOOLEAN F_AGGCLIFOCOM
BEGIN
  PROMPT 62 7 "anche se comuni"
  FIELD B3
  FLAGS "H"
END

LIST F_AGGPCON 7
BEGIN 
  PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti   "
  FIELD %TRA->S2
  ITEMS "N|No"
  ITEMS "D|Descr."
  ITEMS "T|Tutto"
END

BOOLEAN F_AGGPCONCOM
BEGIN
  PROMPT 62 8 "anche se comuni"
  FIELD B2
  FLAGS "H"
END

LIST F_AGGIVD 7
BEGIN 
  PROMPT 1 9 "Aggiornamento classi Piano dei Conti               "
  FIELD %TRA->S3
  ITEMS "N|No"
  ITEMS "T|Tutto"
END

BOOLEAN F_FATTEM 
BEGIN 
  PROMPT 1 10 "Riattribuzione num. protocollo su fatture emesse   "
  FIELD %TRA->B0
END

BOOLEAN F_FATTRIC 
BEGIN 
  PROMPT 1 11 "Riattribuzione num. protocollo su fatture ricevute "
  FIELD %TRA->B1
END

NUMBER F_NUMULTRAS 3
BEGIN
  PROMPT 1 13 "Numero ultimo invio ricevuto "
  FIELD %TRA->I1
END

DATE F_DATAULTRAS 
BEGIN
  PROMPT 39 13 "Data ultimo invio ricevuto "
  FIELD %TRA->D0
END

ENPAGE

ENDMASK