#include "batbtra.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella ditte per trasferimento" -1 -1 78 18

STRING F_NOMEID 10
BEGIN
  PROMPT 1 1 "Nome simbolico sistema inviante "
  FIELD %TRA->CODTAB[1,10]
  FLAGS "U"
  KEY 1
  USE %TRA 
  INPUT CODTAB[1,10] F_NOMEID
  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

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

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
