campo-sirio/ef/ef0300a.uml

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

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Distinta" 0 2 0 0

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
  KEY 4
  USE LF_EFFETTI KEY 4 SELECT (NRIGADIST>0)&&(NRIGADIST==883@->NRIGADIST)
  JOIN LF_EFFETTI KEY 4 ALIAS 883 INTO TIPODIST==TIPODIST NDIST==NDIST
  JOIN %BAN INTO CODTAB==CODABIP+CODCABP
  INPUT TIPODIST F_TIPODIST
  INPUT NDIST F_NUMBER
  DISPLAY "Numero" NDIST
  DISPLAY "Tipo" TIPODIST
  DISPLAY "Data@10" DATADIST
  DISPLAY "C/F@2" TIPOCF
  DISPLAY "ABI@5" CODABIP
  DISPLAY "CAB@5" CODCABP
  DISPLAY "Banca@50" LF_TABCOM->S0
  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
  CHECKTYPE REQUIRED
  FLAGS "A"
END

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

NUMBER F_CODABIP 5
BEGIN
  PROMPT 2 3 "Banca di Presentazione  "
  FIELD LF_EFFETTI->CODABIP
  FLAGS "Z"
  USE BNP
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
  INPUT CODTAB[1,5] F_CODABIP
  INPUT CODTAB[6,10] F_CODCABP
  INPUT CODTAB[11,12] F_PROG
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Progr." CODTAB[11,12]
  DISPLAY "IBAN@25" S3
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
  OUTPUT F_DENBANP 100@->S0
  OUTPUT F_PROG CODTAB[11,12]
  CHECKTYPE SEARCH
END

NUMBER F_CODCABP 5
BEGIN
  PROMPT 35 3 ""
  FIELD LF_EFFETTI->CODCABP
  FLAGS "Z"
  COPY ALL F_CODABIP
  CHECKTYPE REQUIRED
END

NUMBER F_PROG 2
BEGIN        
  PROMPT 44 3 ""
  FLAGS "Z"              
  COPY ALL F_CODABIP
  CHECKTYPE NORMAL
END     

STRING F_DENBANP 50
BEGIN
  PROMPT 26 4 ""
  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 5 "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

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

STRING F_CODVAL 3
BEGIN
  PROMPT 47 6 "Valuta "
  FLAGS "UZ"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT F_CODVAL CODTAB
  CHECKTYPE NORMAL
END

BUTTON F_IMPBUTTON 10 2
BEGIN
  PROMPT 65 5 "~Selezione"
  PICTURE BMP_SELECT
END

BUTTON F_UNCONTABIL 30 2
BEGIN
  PROMPT 2 7 "~Annulla contabilizzazione"
  FLAGS "H"
END

SPREADSHEET F_SHEET_RIBA
BEGIN
  PROMPT 0 10 "RIGHE DISTINTA"
  ITEM "Da\nelim.@4F"
  ITEM "Numero\nRi.Ba.@7F"
  ITEM "Data\nScadenza@10F"
  ITEM "Cliente/Fornitore@50"
  ITEM "Banca d'appoggio@40"
  ITEM "Numero\nFattura@7"
  ITEM "Data\nFattura@10"
  ITEM "Rata"
  ITEM "Valuta"
  ITEM "Importo@18"
  ITEM "Importo\nValuta@18"
END

ENDPAGE
ENDMASK

#include "ef0300b.uml"