campo-sirio/ef/ef0a00a.uml

#include "ef0A00a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT -16 -1 "~Nuovo"
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN
  GROUP 3
END
  
BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -26 -1 "~Registra"

  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -36 -1 "~Elimina"

  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
  GROUP 5
END

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

#include <cancelbar.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_TIPOCF TIPOCF
  OUTPUT F_ABI CODABIP
  OUTPUT F_CAB CODCABP
  OUTPUT F_PROG PROGBNP
  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[1,10]
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  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_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_DESCAB 100@->S0
  OUTPUT F_PROG CODTAB[11,12]
  CHECKTYPE SEARCH
END

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

NUMBER F_PROG 2
BEGIN        
  PROMPT 26 3 ""
  FLAGS "Z"              
  COPY ALL F_ABI
  CHECKTYPE SEARCH
END     


STRING F_DESCAB 50 42
BEGIN
  PROMPT 32 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"
  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_TIPOEFF 1 10
BEGIN
	PROMPT 50 4 "Tipo effetti "
	ITEM "C|Attivi"
	MESSAGE COPY,F_TIPOCF	
	ITEM "F|Passivi"
	MESSAGE COPY,F_TIPOCF	
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 6 "@bSelezione effetti"
END

LIST F_TIPOCF 1 9
BEGIN
  PROMPT 2 7 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FLAGS "D"
  //GROUP 3
END

NUMBER F_CLIFO 6
BEGIN
  PROMPT 15 7 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIFO CODCF
  OUTPUT F_RAGSOCCF RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

STRING F_RAGSOCCF 50 37
BEGIN
  PROMPT 25 7 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOCCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIFO
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

DATE F_DA_DATA
BEGIN
  PROMPT 2 8 "Dal "
END

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

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

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

LIST F_TIPOPAGEFF 1 30
BEGIN
  PROMPT 2 9 "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

BUTTON F_CONTABILI 30 1
BEGIN
  PROMPT 2 11 "~Contabilizzazione"
  GROUP 5
END

BUTTON F_UNCONTABIL 30 1
BEGIN
  PROMPT 47 11 "~Annulla contabilizzazione"
  FLAGS "H"
END

SPREADSHEET F_SHEET 0 -2
BEGIN
  PROMPT 0 12 ""
  ITEM "Importo@18"
  ITEM "A/S@3"
  ITEM "Data Pagamento"
  ITEM "Val.Ben."
  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

ENDMASK

PAGE "Rate" -1 -1 70 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

BOOLEAN F_VALBEN
BEGIN
  PROMPT 21 4 "Valuta benefciario"
END

DATE F_DATAPAG
BEGIN
  PROMPT 40 4 "Data pagamento "
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 30
BEGIN
  PROMPT 1 7 "Tipo pagamento "
  FLAGS "D"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

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