3ade9a48ed
Files correlati : Ricompilazione Demo : [ ] Commento : programma di gestione anticipi fatture per gio costruzioni git-svn-id: svn://10.65.10.50/trunk@20508 c028cbd2-c16b-5b4b-a496-9718f37d4682
175 lines
2.3 KiB
Plaintext
Executable File
175 lines
2.3 KiB
Plaintext
Executable File
#include "pi0002100a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -26 -1 "~Registra"
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
#include <cancelbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Gestione anticipi fatture" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 0 "Parametri"
|
|
END
|
|
|
|
NUMBER F_CLIFO 6
|
|
BEGIN
|
|
PROMPT 2 1 "Cliente "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C" 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 1 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C" 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_DATAMOV
|
|
BEGIN
|
|
PROMPT 2 2 "Data mov. "
|
|
END
|
|
|
|
CURRENCY F_TOTALEANT
|
|
BEGIN
|
|
PROMPT 2 4 "Totale anticipato "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_TOTALEPAG
|
|
BEGIN
|
|
PROMPT 52 4 "Totale pagato "
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_SHEET 0 -2
|
|
BEGIN
|
|
PROMPT 0 6 "Partite aperte"
|
|
ITEM "Importo pagato@18"
|
|
ITEM "Importo anticipato@18"
|
|
ITEM "Abi@5"
|
|
ITEM "Cab@5"
|
|
ITEM "Importo fattura@18"
|
|
ITEM "Residuo@18"
|
|
ITEM "Anno"
|
|
ITEM "Partita"
|
|
ITEM "Riga"
|
|
ITEM "Rata"
|
|
ITEM "Scadenza@10"
|
|
ITEM "Tipo pag."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Fatture" -1 -1 70 10
|
|
|
|
CURRENCY F_PAGATO 18
|
|
BEGIN
|
|
PROMPT 1 1 "Importo pagato "
|
|
END
|
|
|
|
CURRENCY F_IMPORTOANT 18
|
|
BEGIN
|
|
PROMPT 1 2 "Importo anticipato "
|
|
END
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 1 3 "ABI "
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 1 4 "CAB "
|
|
END
|
|
|
|
CURRENCY F_IMPORTO 18
|
|
BEGIN
|
|
PROMPT 1 5 "Importo fattura "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_RESIDUO 18
|
|
BEGIN
|
|
PROMPT 1 6 "Residuo "
|
|
NUM_CALC #F_IMPORTO-#F_IMPORTOANT
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 7 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PARTITA 7
|
|
BEGIN
|
|
PROMPT 21 7 "Partita "
|
|
FLAGS "D_"
|
|
END
|
|
|
|
NUMBER F_RIGA 4
|
|
BEGIN
|
|
PROMPT 38 7 "Riga "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_RATA 4
|
|
BEGIN
|
|
PROMPT 50 7 "Rata "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 1 8 "Scadenza"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPOPAG 30
|
|
BEGIN
|
|
PROMPT 1 7 "Tipo pagamento "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |