campo-sirio/ef/ef0300a.uml

// DEFINIZIONE MASCHERA PRINCIPALE PER LA GESTIONE DISTINTE
#include "ef0300.h"

TOOLBAR "" 0 -3 0 3
#include <toolbar.h>

BUTTON F_UNCONTABIL 30
BEGIN
  PROMPT -11 0 "~Annulla contabilizzazione"
  FLAGS "H"
END

ENDPAGE

PAGE "Distinta" 0 -1 0 19

GROUPBOX DLG_NULL 78 10
BEGIN
  PROMPT 1 0 ""
END

LIST F_TIPODIST 17
BEGIN
  PROMPT 2 1 "Tipo Distinta           "
  KEY 4
  FIELD LF_EFFETTI->TIPODIST
  ITEM "I|All'incasso"
  MESSAGE ENABLE,F_TIPOCF
  ITEM "B|Salvo buon fine"   
  MESSAGE RESET,F_TIPOCF|DISABLE,F_TIPOCF
  ITEM "S|Allo sconto"
  MESSAGE RESET,F_TIPOCF|DISABLE,F_TIPOCF
	FLAGS "P"
END

LIST F_NUMBERRIGA 12
BEGIN
  PROMPT 1 60 "Numero Riga Distinta "
  KEY 4
  FIELD LF_EFFETTI->NRIGADIST
  ITEM "1|PRIMA RIGA"
  FLAGS "D"
END

NUMBER F_NUMBER 5
BEGIN
  PROMPT 48 1 "Numero Distinta      "
  FIELD LF_EFFETTI->NDIST
  FLAGS "R"
  KEY 4
  USE LF_EFFETTI KEY 4 SELECT NRIGADIST == 1
  INPUT TIPODIST F_TIPODIST
  INPUT NDIST F_NUMBER
  INPUT NRIGADIST F_NUMBERRIGA
  DISPLAY "Numero" NDIST
  DISPLAY "Tipo" TIPODIST
  DISPLAY "Data@10" DATADIST
  DISPLAY "ABI@5" CODABIP
  DISPLAY "CAB@5" CODCABP
  DISPLAY "C/F@5" TIPOCF
  OUTPUT F_NUMBER NDIST
  OUTPUT F_TIPODIST TIPODIST
  OUTPUT F_NUMBERRIGA NRIGADIST
  OUTPUT F_NPROGTR NPROGTR
  OUTPUT F_TIPOCF TIPOCF
  CHECKTYPE REQUIRED
END

NUMBER F_NPROGTR 7
BEGIN
  PROMPT 1 60 ""
  KEY 1
  FIELD LF_EFFETTI->NPROGTR
  FLAGS "D"
END

DATE F_DATA
BEGIN
  PROMPT 2 2 "Data Distinta           "
  FIELD LF_EFFETTI->DATADIST
END

LIST F_TIPOCF 10
BEGIN
  PROMPT 48 2 "Tipo effetti    "
  ITEM "C|Attivi"
  ITEM "F|Passivi"
END

NUMBER F_CODABIP 5
BEGIN
  PROMPT 15 3 "Codice ABI "
  FIELD LF_EFFETTI->CODABIP
  FLAGS "Z"
  USE BNP
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
  INPUT CODTAB[1,5] F_CODABIP
  INPUT CODTAB[6,10] F_CODCABP
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
  OUTPUT F_DENBANP 100@->S0
  CHECKTYPE SEARCH
END

NUMBER F_CODCABP 5
BEGIN
  PROMPT 15 4 "Codice CAB "
  FIELD LF_EFFETTI->CODCABP
  FLAGS "Z"
  COPY ALL F_CODABIP
  CHECKTYPE REQUIRED
END

STRING F_DENBANP 50
BEGIN
  PROMPT 2 5 "Banca di Presentazione  "
  USE %BAN KEY 2 SELECT 100@->CODTAB!=""
  JOIN BNP ALIAS 100 INTO CODTAB==CODTAB 
  INPUT S0 F_DENBANP
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
  OUTPUT F_DENBANP S0
  CHECKTYPE SEARCH
END

LIST F_TIPOPAG 24
BEGIN
  PROMPT 2 6 "Tipo Pagamento          "
  FIELD LF_EFFETTI->TIPOPAG
  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 interb. diretti"
  ITEM "9|Bonifico"
END

STRING F_CODVAL 3
BEGIN
  PROMPT 2 7 "Codice Valuta           "
  FLAGS "UZ"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT F_CODVAL CODTAB
END

CURRENCY F_TOTIMP 18
BEGIN
  PROMPT 2 8 "Valore di presentazione "
  FLAGS "D"
  DRIVENBY F_CODVAL
END

BUTTON F_IMPBUTTON 10 2
BEGIN
  PROMPT 50 7 "~Selezione"
  PICTURE BMP_SELECT
END

SPREADSHEET F_SHEET_RIBA
BEGIN
  PROMPT 0 10 "RIGHE DISTINTA"
  ITEM "Da elim."
  ITEM "Nr. Ri.Ba."
  ITEM "Scadenza"
  ITEM "Cliente/Fornitore@50"
  ITEM "Banca d'appoggio@40"
  ITEM "Nr. Fattura"
  ITEM "Data Fattura"
  ITEM "Nr. Rata"
  ITEM "Valuta"
  ITEM "Importo"
  ITEM "Importo Val."
END

ENDPAGE
ENDMASK

#include "ef0300b.uml"