campo-sirio/ef/ef0a00a.uml

#include "ef0A00a.h"

TOOLBAR "Toolbar" 0 -3 0 3

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT -16 -11 "~Nuovo"
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN
  GROUP 3
END
  
BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -26 -11 ""
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
  GROUP 5
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -36 -11 ""
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
  GROUP 5
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -46 -11 ""
  PICTURE BMP_PRINT
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -56 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -66 -11 ""
END

ENDPAGE

PAGE "Distite Pagamento" -1 -1 78 19

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 "@bDistinta"
END

LIST F_TIPODIST 1 15
BEGIN
  PROMPT 2 1 "Tipo  "
  ITEM "I|All'incasso"
  ITEM "B|Salvo buon fine"
  ITEM "S|Allo sconto"
  GROUP 3
END

LIST F_DUMMYDIST 1
BEGIN
  PROMPT 15 1 ""
  ITEM "1|1"
  FLAGS "H"
END

NUMBER F_DIST 5
BEGIN
  PROMPT 30 1 "Numero "
  USE LF_EFFETTI KEY 4 SELECT NRIGADIST==1
  INPUT TIPODIST F_TIPODIST
  INPUT NDIST F_DIST
  INPUT NRIGADIST F_DUMMYDIST
  DISPLAY "Tipo" TIPODIST
  DISPLAY "Numero" NDIST
  DISPLAY "Data@10" DATADIST
  DISPLAY "C/F" TIPOCF
  DISPLAY "ABI@5" CODABIP
  DISPLAY "CAB@5" CODCABP
  DISPLAY "Valuta" CODVAL
  OUTPUT F_TIPODIST TIPODIST
  OUTPUT F_DIST NDIST
  OUTPUT F_DATADIST DATADIST
  OUTPUT F_CODVAL CODVAL
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_ABI CODABIP
  OUTPUT F_CAB CODCABP
  OUTPUT F_TIPOPAG TIPOPAG
  CHECKTYPE SEARCH
  GROUP 4
END

STRING F_CODVAL 3
BEGIN
  PROMPT 53 1 "Valuta "
  FLAGS "UZ"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODVAL CODTAB
  CHECKTYPE NORMAL
  GROUP 3
  MESSAGE EMPTY CLEAR,F_CAMBIO
  MESSAGE ENABLE,F_CAMBIO
END

DATE F_DATADIST
BEGIN
  PROMPT 2 2 "Data  " 
  FLAGS "A"
  CHECKTYPE REQUIRED
END

NUMBER F_CAMBIO 15 5
BEGIN
  PROMPT 53 2 "Cambio "
END

NUMBER F_ABI 5
BEGIN
  PROMPT 2 3 "Banca "
  FLAGS "Z"
  USE BNP
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  CHECKTYPE REQUIRED
END

NUMBER F_CAB 5
BEGIN
  PROMPT 17 3 ""
  FLAGS "Z"
  COPY ALL F_ABI
  CHECKTYPE REQUIRED
END

LIST F_TIPOPAG 1 30
BEGIN
  PROMPT 35 3 "Pagamento "
  ITEM "1|Rimessa Diretta"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di credito"
  ITEM "7|Tratta accettata"
  ITEM "8|Rapporti interbancari diretti"
  ITEM "9|Bonifico"
END

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 2 5 "Seleziona  "
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  GROUP 3
END

NUMBER F_CLIFO 6
BEGIN
  PROMPT 38 5 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIFO CODCF
  CHECKTYPE NORMAL
  GROUP 4
END

DATE F_DA_DATA
BEGIN
  PROMPT 2 6 "Dalla data "
  GROUP 4
END

DATE F_A_DATA
BEGIN
  PROMPT 28 6 "Alla data "
  FLAGS "A"
  GROUP 4
END

BUTTON F_AGGIORNA 10 2
BEGIN
  PROMPT 66 5 ""
  PICTURE BMP_SELECT
  GROUP 4
END

SPREADSHEET F_SHEET 0 -2
BEGIN
  PROMPT 0 7 ""
  ITEM "Importo@18"
  ITEM "A/S@3"
  ITEM "Residuo@18"
  ITEM "Codice"
  ITEM "Ragione Sociale@20"
  ITEM "Anno"
  ITEM "Partita"
  ITEM "Riga"
  ITEM "Rata"
  ITEM "Data@10"
  ITEM "Riga"
  ITEM "Effetto"
END

CURRENCY F_TOTAL 18
BEGIN
  PROMPT 2 -1 "Totale "
  FLAGS "D"
END

BUTTON F_CONTABILI 30
BEGIN
  PROMPT 41 -1 "~Contabilizzazione"
  GROUP 5
END

ENDPAGE

ENDMASK

PAGE "Rate" -1 -1 60 9

NUMBER F_RIGADIST 4
BEGIN
  PROMPT 31 1 "Riga effetto "
  FLAGS "D"
END

NUMBER F_RIGAEFF 4
BEGIN
  PROMPT 51 1 ""
  FLAGS "D"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 1 ""
  FLAGS "D"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 9 1 ""
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 3 "Anno    "
  FLAGS "D"
END

STRING F_PARTITA 7
BEGIN
  PROMPT 21 3 "Partita "
  FLAGS "D"
END

NUMBER F_RIGA 4
BEGIN
  PROMPT 38 3 "Riga "
  FLAGS "D"
END

NUMBER F_RATA 4
BEGIN
  PROMPT 50 3 "Rata "
  FLAGS "D"
END

DATE F_DATA
BEGIN
  PROMPT 1 4 "Data    "
  FLAGS "D"
END

CURRENCY F_RESIDUO 18
BEGIN
  PROMPT 1 5 "Residuo "
  FLAGS "D"
  DRIVENBY -F_CODVAL
END

CURRENCY F_IMPORTO 18
BEGIN
  PROMPT 1 6 "Importo "
  DRIVENBY -F_CODVAL
END

LIST F_ACCSAL 1 10
BEGIN
  PROMPT 41 6 ""
  ITEM "A|Acconto"
  ITEM "S|Saldo"
END

BUTTON F_PAGA 10 2
BEGIN
  PROMPT -13 -1 "~Paga"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK