campo-sirio/ba/batbind.uml

#include "batbind.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.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 "Codice Ditta" CODTAB
  DISPLAY "Numero 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_PROVVIS
BEGIN
  PROMPT 29 7 "Includi movimenti provvisori nell'invio a PC"
  FIELD %IND->B6
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
  ADD RUN cg0 -4
  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
  ADD RUN cg0 -4
  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
  ADD RUN cg0 -4
  GROUP 1
END

STRING F_CAU_INS 3
BEGIN
  FLAGS "UZ"
  PROMPT 40 12 "Insoluto            "
  FIELD S5[10,12]
  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
  ADD RUN cg0 -4
  GROUP 1
END

STRING F_CAU_PAGINS 3
BEGIN
  FLAGS "UZ"
  PROMPT 40 13 "Pagamento insoluto  "
  FIELD S5[13,15]
  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
  ADD RUN cg0 -4
  GROUP 1
END

STRING F_CPAG_NC 2
BEGIN
  FLAGS "U"
  PROMPT 38 16 "Cod. pag. per note di credito     "
  FIELD S7
  USE %CPG SELECT ((CODTAB?="??")||(CODTAB?="?")) && (S4=="1")
  INPUT CODTAB F_CPAG_NC
  DISPLAY "Cod. pagamento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CPAG_NC CODTAB
  CHECKTYPE NORMAL
  ADD RUN ba3 -6
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 38 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