campo-sirio/ps/ps0017100a.uml

#include "ps0017100a.h"

TOOLBAR "" 0 0 0 2

BUTTON F_UNCONTABIL 2 2
BEGIN
  PROMPT 1 1 "~Annulla cont."
  PICTURE TOOL_CONVERT
  FLAGS "H"
END

BUTTON F_CONTABILI 2 2
BEGIN
  PROMPT 2 1 "~Contabiliz."
  PICTURE TOOL_ELABORA
  GROUP 5
END

BUTTON DLG_PRINT 2 2 
BEGIN
  PROMPT 3 1 ""
  PICTURE TOOL_PRINT
END

#include <relapbar.h>

ENDPAGE

PAGE "Disposizioni incassi/pagamenti" 0 2 0 0

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

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

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

NUMBER F_DIST 5
BEGIN
  PROMPT 28 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_CAMBIO CAMBIO
  OUTPUT F_DATACAMBIO DATACAMBIO
  OUTPUT F_EURO CONTROEURO
  OUTPUT F_ABI CODABIP
  OUTPUT F_CAB CODCABP
  OUTPUT F_TIPOPAG TIPOPAG
  OUTPUT F_SPESE SPESE
  CHECKTYPE SEARCH
  GROUP 4
END

STRING F_CODVAL 3
BEGIN
  PROMPT 50 1 "Valuta "
  FLAGS "UZ"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB   
  DISPLAY "Cambio\nStandard" S4
  DISPLAY "Contro\nEuro@6" B1
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODVAL CODTAB
  OUTPUT F_EURO B1
  CHECKTYPE NORMAL
  GROUP 3
  MESSAGE EMPTY CLEAR,6@
  MESSAGE ENABLE,6@
END

BOOLEAN F_EURO
BEGIN
  PROMPT 64 1 "Contro Euro"
  FLAGS "D"
END

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

DATE F_DATACAMBIO
BEGIN
  PROMPT 23 2 "Data cambio " 
  FLAGS "R"
  USE CAM
  JOIN %VAL ALIAS 104 INTO CODTAB[1,3]==CODTAB[1,3]
  INPUT CODTAB[1,3] F_CODVAL SELECT
  INPUT CODTAB[4,11] F_DATACAMBIO
  DISPLAY "Cod" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio" S4
  DISPLAY "Parita'\nEuro@6" B1
  DISPLAY "Valuta@50" 104@->S0
  OUTPUT F_DATACAMBIO D0
  OUTPUT F_CAMBIO S4
  CHECKTYPE SEARCH
  GROUP 6
END

NUMBER F_CAMBIO 15 6
BEGIN
  PROMPT 50 2 "Cambio "
  GROUP 6
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]
  OUTPUT F_DESCAB 100@->S0
  CHECKTYPE SEARCH
END

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

STRING F_DESCAB 50 48
BEGIN
  PROMPT 26 3 ""
  USE %BAN KEY 2 SELECT 100@->CODTAB!=""
  JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
  INPUT S0 F_DESCAB
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_DESCAB S0
  CHECKTYPE SEARCH
END

LIST F_TIPOPAG 1 30
BEGIN
  PROMPT 2 4 "Pagamento "
  ITEM "1|Rimessa Diretta"
  FLAGS "D"
END

LIST F_TIPOEFF 1 10
BEGIN
	PROMPT 50 4 "Tipo effetti "
	ITEM "C|Attivi"
END

DATE F_DA_DATA
BEGIN
  PROMPT 2 7 "Dal "
END

DATE F_A_DATA
BEGIN
  PROMPT 20 7 "Al "
  FLAGS "A"
END

LISTBOX F_SORT 10
BEGIN
  PROMPT 35 7 "Ordinamento "
  ITEM " |Standard"
  ITEM "1|Scadenza"
  ITEM "2|Residuo"
END

BUTTON F_AGGIORNA 10 2
BEGIN
  PROMPT 66 6 ""
  PICTURE BMP_SELECT
END         

SPREADSHEET F_SHEET 0 -2
BEGIN
  PROMPT 0 8 ""
  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 "Scadenza@10"
  ITEM "Riga"
  ITEM "Effetto"  
  ITEM "Tipo Pagamento@20"
END

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

CURRENCY F_SPESE 18
BEGIN
  PROMPT 28 -1 "Spese "
END

ENDPAGE

PAGE "Selezione effetti" -1 -1 78 19

LIST F_TIPOPAGEFF 1 30
BEGIN
  PROMPT 2 1 "Solo effetti con tipo pagamento "
  ITEM " | "
  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

ENDPAGE

ENDMASK

PAGE "Rate" -1 -1 60 10

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 "Scadenza"
  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

STRING F_DESC_TIPO 20
BEGIN
  PROMPT 1 7 "Tipo pagamento "
  FLAGS "D"
END

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

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

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

ENDPAGE

ENDMASK