758ffd8c4c
Files correlati : ve5.exe batbclr.msk batbiva.msk fp0.exe ve5.exe ve0300a.src vemenu.men vetbspp.msk vetbtip.msk Commento : - Aggiornamento codici per nuovo tracciato in vigore dall'1 Ottobre: TipoDocSDI TipoRitenute Pagamenti - Modificata esportazione fp per lettura Nuovi codici per le ritenute dalle SPESE.
108 lines
2.2 KiB
Plaintext
Executable File
108 lines
2.2 KiB
Plaintext
Executable File
#include "batbclr.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Ulteriore classificazione" -1 -1 78 13
|
|
|
|
GROUPBOX DLG_NULL 75 9
|
|
BEGIN
|
|
PROMPT 1 0 "Ulteriore classificazione"
|
|
FLAGS "R"
|
|
END
|
|
|
|
LISTBOX F_CODICERATA 1 35
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
FIELD CODTAB[1,1]
|
|
// SHEET "Codice|Descrizione@50"
|
|
// INPUT F_CODICERATA
|
|
ITEM "1|Rimessa diretta o contanti"
|
|
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|Bonifici"
|
|
KEY 1
|
|
// OUTPUT F_CODICERATA
|
|
// OUTPUT F_DESRATA
|
|
END
|
|
|
|
STRING F_CODICEALFA 1
|
|
BEGIN
|
|
PROMPT 2 4 "Classificazione "
|
|
FLAGS "U"
|
|
FIELD CODTAB[2,2]
|
|
USE %CLR
|
|
INPUT CODTAB[1,1] F_CODICERATA
|
|
INPUT CODTAB[2,2] F_CODICEALFA
|
|
DISPLAY "Tipo pag." CODTAB[1,1]
|
|
DISPLAY "Class." CODTAB[2,2]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODICERATA CODTAB[1,1]
|
|
OUTPUT F_CODICEALFA CODTAB[2,2]
|
|
OUTPUT F_DESCR S0
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_MODPAG 4
|
|
BEGIN
|
|
PROMPT 30 4 "Tipo pagamento "
|
|
SHEET "Codice|Tipo pagamento@32"
|
|
INPUT F_MODPAG
|
|
OUTPUT F_MODPAG
|
|
CHECKTYPE REQUIRED
|
|
FIELD S12
|
|
ITEM "MP01|contanti"
|
|
ITEM "MP02|assegno"
|
|
ITEM "MP03|assegno circolare"
|
|
ITEM "MP04|contanti presso Tesoreria"
|
|
ITEM "MP05|bonifico"
|
|
ITEM "MP06|vaglia cambiario"
|
|
ITEM "MP07|bollettino bancario"
|
|
ITEM "MP08|carta di pagamento"
|
|
ITEM "MP09|RID"
|
|
ITEM "MP10|RID utenze"
|
|
ITEM "MP11|RID veloce"
|
|
ITEM "MP12|RIBA"
|
|
ITEM "MP13|MAV"
|
|
ITEM "MP14|quietanza erario"
|
|
ITEM "MP15|giroconto su conti di contabilità speciale"
|
|
ITEM "MP16|domiciliazione bancaria"
|
|
ITEM "MP17|domiciliazione postale"
|
|
ITEM "MP18|bollettino di c/c postale"
|
|
ITEM "MP19|SEPA Direct Debit"
|
|
ITEM "MP20|SEPA Direct Debit CORE"
|
|
ITEM "MP21|SEPA Direct Debit B2B"
|
|
ITEM "MP22|Trattenuta su somme già riscosse"
|
|
ITEM "MP23|PagoPA"
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 6 "Descrizione "
|
|
FIELD S0
|
|
USE %CLR KEY 2
|
|
INPUT S0 F_DESCR
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo pag." CODTAB[1,1]
|
|
DISPLAY "Class." CODTAB[2,2]
|
|
OUTPUT F_CODICERATA CODTAB[1,1]
|
|
OUTPUT F_CODICEALFA CODTAB[2,2]
|
|
OUTPUT F_DESCR S0
|
|
KEY 2
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
|