#include "batbind.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella ditte per invio" -1 -1 78 20

NUMBER F_DITTAINV 5
BEGIN
  PROMPT 1 1 "Codice ditta inviante    " 
  FIELD %IND->CODTAB
  FLAGS "Z"
  KEY 1     
  USE %IND
  INPUT CODTAB[1,5] F_DITTAINV
  DISPLAY "Ditta" CODTAB
  DISPLAY "Num.inv." I0
  DISPLAY "Data invio" D0
  DISPLAY "Stato" S6 
  OUTPUT F_DITTAINV CODTAB
  OUTPUT F_NUMULINV I0
  OUTPUT F_DATAULIN D0
  OUTPUT F_STATO S6
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale          "
  FLAGS "DP"
END

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 1 3 "Archivi da inviare"
END

BOOLEAN F_CAUSALI
BEGIN
  PROMPT 2 4 "Tabella causali"
  FIELD %IND->B0
END

BOOLEAN F_CLIFO
BEGIN
  PROMPT 2 5 "Anagrafica Clienti/Fornitori"
  FIELD %IND->B1
END

BOOLEAN F_PCON
BEGIN
  PROMPT 2 6 "Anagrafica Piano dei Conti"
  FIELD %IND->B2
END

BOOLEAN F_MOV
BEGIN
  PROMPT 2 7 "Movimenti Prima Nota"
  FIELD %IND->B3
END

BOOLEAN F_IVA
BEGIN
  PROMPT 2 8 "Movimenti Iva"
  FIELD %IND->B4
END

BOOLEAN F_FATT
BEGIN
  PROMPT 2 9 "Scadenze Fattura / Pagamento Rate"
  FIELD %IND->B5
  MESSAGE TRUE ENABLE,1@
  MESSAGE FALSE CLEAR,1@
//  FLAGS "D"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 11 "Causali di corrispondenza movimenti extracontabili"
END

STRING F_CAU_FATT 3
BEGIN
  FLAGS "UZ"
  PROMPT 2 12 "Fattura             "
  FIELD S5[1,3]
  USE LF_CAUSALI SELECT TIPOMOV==1
  INPUT CODCAUS F_CAU_FATT
  DISPLAY "Codice causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAU_FATT CODCAUS 
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CAU_NC 3
BEGIN
  FLAGS "UZ"
  PROMPT 2 13 "Nota di credito     "
  FIELD S5[4,6]
  USE LF_CAUSALI SELECT TIPOMOV==2
  INPUT CODCAUS F_CAU_NC
  DISPLAY "Codice causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAU_NC CODCAUS 
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CAU_INC 3
BEGIN
  FLAGS "UZ"
  PROMPT 2 14 "Incasso/Pagamento   "
  FIELD S5[7,9]
  USE LF_CAUSALI SELECT TIPOMOV==3
  INPUT CODCAUS F_CAU_INC
  DISPLAY "Codice causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAU_INC CODCAUS 
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CAU_ABB 3
BEGIN
  FLAGS "UZ"
  PROMPT 40 12 "Abbuono             "
  FIELD S5[10,12]
  USE LF_CAUSALI SELECT TIPOMOV==4
  INPUT CODCAUS F_CAU_ABB
  DISPLAY "Codice causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAU_ABB CODCAUS 
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CAU_INS 3
BEGIN
  FLAGS "UZ"
  PROMPT 40 13 "Insoluto            "
  FIELD S5[13,15]
  USE LF_CAUSALI SELECT TIPOMOV==5
  INPUT CODCAUS F_CAU_INS
  DISPLAY "Codice causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAU_INS CODCAUS 
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CAU_PAGINS 3
BEGIN
  FLAGS "UZ"
  PROMPT 40 14 "Pagamento insoluto  "
  FIELD S5[16,18]
  USE LF_CAUSALI SELECT TIPOMOV==6
  INPUT CODCAUS F_CAU_PAGINS
  DISPLAY "Codice causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAU_PAGINS CODCAUS 
  CHECKTYPE NORMAL
  GROUP 1
END

BOOLEAN F_BOLLATO
BEGIN
  PROMPT 1 16 "Imposta il flag di bollato"
  FIELD %IND->B7
END

NUMBER F_NUMULINV 3
BEGIN
  PROMPT 1 17 "N.ro ult.invio "
  FIELD %IND->I0
  FLAGS "RG"
END

DATE F_DATAULIN 
BEGIN
  PROMPT 46 17 "Data ultimo invio   "
  FIELD %IND->D0
  FLAGS "G"
END
            
STRING F_STATO 1
BEGIN
  PROMPT 1 18 "Stato ultimo   "
  FIELD %IND->S6
  FLAGS "GU"
END             

STRING F_USELAB 1
BEGIN
  PROMPT 20 18 ""
  FLAGS "GU"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 19 "invio          "
END

STRING F_CHIAVE 60
BEGIN
  PROMPT 16 19 ""
  FLAGS "GU"
END

STRING F_GHOST_FIELD 1
BEGIN
  PROMPT -1 -30 "" 
  FLAGS "DG"
END

ENDPAGE

ENDMASK
