campo-sirio/ba/batbind.uml

#include "batbind.h"

TOOLBAR "" 0 18 0 2

#include <toolbar.h>

ENDPAGE

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

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 4 "Archivi da inviare"
END

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

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

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

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

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

BOOLEAN F_FATT
BEGIN
  PROMPT 2 10 "Scadenze Fattura / Pagamento Rate"
  FIELD %IND->B5
//  FLAGS "D"
END

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

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

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 1 15 "invio          "
END

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

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

ENDMASK