ba04455ae6
Files correlati : sc2.exe sc21600a.msk Ricompilazione Demo : [ ] Commento : Corretta stampa previsione incassi per ragioni sociali contenenti @ git-svn-id: svn://10.65.10.50/branches/R_10_00@21879 c028cbd2-c16b-5b4b-a496-9718f37d4682
229 lines
3.5 KiB
Plaintext
Executable File
229 lines
3.5 KiB
Plaintext
Executable File
#include "sc2600.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_EDIT 10 2
|
|
BEGIN
|
|
PROMPT -25 -1 "~Esporta"
|
|
MESSAGE EXIT,69
|
|
PICTURE TOOL_EXCEL
|
|
END
|
|
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Previsione Incassi/Pagamenti" 0 0 0 0
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 1 "Cod. "
|
|
FLAGS "DFR"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50 46
|
|
BEGIN
|
|
PROMPT 14 1 "R.S. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 68 7
|
|
BEGIN
|
|
PROMPT 1 2 ""
|
|
END
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 2 3 "Data di stampa "
|
|
HELP "Data di stampa"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Si deve specificare la data di stampa"
|
|
FLAGS "A"
|
|
END
|
|
|
|
DATE F_DATAOPERAZIONE
|
|
BEGIN
|
|
PROMPT 2 4 "Data limite operazione "
|
|
HELP "Data limite operazione"
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "A"
|
|
END
|
|
|
|
DATE F_DATASCADUTO
|
|
BEGIN
|
|
PROMPT 2 5 "Data limite scaduto "
|
|
HELP "Data limite scaduto"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Data limite scaduto non valida"
|
|
END
|
|
|
|
NUMBER F_GIORNI 3
|
|
BEGIN
|
|
PROMPT 2 6 "Giorni per calcolo rischio "
|
|
HELP "Inserire il numero di giorni per il calcolo del rischio"
|
|
END
|
|
|
|
BOOLEAN F_VALUTA
|
|
BEGIN
|
|
PROMPT 2 7 "Stampa in valuta"
|
|
HELP "Selezionare se si vuole la stampa in valuta"
|
|
END
|
|
|
|
RADIOBUTTON SC_CLIFO 20
|
|
BEGIN
|
|
PROMPT 1 9 "Selezione"
|
|
ITEM "C|Clienti" MESSAGE ENABLE, F_GIORNI|K_SPACE,SC_SORTCF
|
|
ITEM "F|Fornitori" MESSAGE DISABLE, F_GIORNI|K_SPACE,SC_SORTCF
|
|
//ITEM "P|Conti" MESSAGE DISABLE, F_GIORNI|K_SPACE,SC_SORTCF
|
|
END
|
|
|
|
RADIOBUTTON SC_SORTCF 29
|
|
BEGIN
|
|
GROUP 1
|
|
PROMPT 23 9 "Ordinamento"
|
|
ITEM "1|Per codice/conto"
|
|
ITEM "2|Per rag.soc./descrizione"
|
|
END
|
|
|
|
BUTTON SC_SELECT 10 1
|
|
BEGIN
|
|
PROMPT 55 10 "S~elezione"
|
|
END
|
|
|
|
BUTTON SC_RESET 10 1
|
|
BEGIN
|
|
PROMPT 55 11 "A~zzera"
|
|
END
|
|
|
|
NUMBER SC_CFCODFR 6
|
|
BEGIN
|
|
PROMPT 2 14 "Da codice "
|
|
FLAGS "B"
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER SC_CFCODTO 6
|
|
BEGIN
|
|
PROMPT 37 14 "a codice "
|
|
FLAGS "B"
|
|
GROUP 3
|
|
END
|
|
|
|
STRING SC_CFDESFR 50 40
|
|
BEGIN
|
|
PROMPT 2 14 "Da ragione sociale "
|
|
GROUP 4
|
|
FLAGS "HB"
|
|
END
|
|
|
|
STRING SC_CFDESTO 50 40
|
|
BEGIN
|
|
PROMPT 2 15 "A ragione sociale "
|
|
GROUP 4
|
|
FLAGS "HB"
|
|
END
|
|
|
|
NUMBER SC_PCONCODFR1 3
|
|
BEGIN
|
|
PROMPT 2 14 "Da conto "
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER SC_PCONCODFR2 3
|
|
BEGIN
|
|
PROMPT 15 14 ""
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER SC_PCONCODFR3 6
|
|
BEGIN
|
|
PROMPT 19 14 ""
|
|
FLAGS "B"
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER SC_PCONCODTO1 3
|
|
BEGIN
|
|
PROMPT 31 14 "a conto "
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER SC_PCONCODTO2 3
|
|
BEGIN
|
|
PROMPT 43 14 ""
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER SC_PCONCODTO3 6
|
|
BEGIN
|
|
PROMPT 47 14 ""
|
|
FLAGS "B"
|
|
GROUP 5
|
|
END
|
|
|
|
STRING SC_PCONDESFR 50 40
|
|
BEGIN
|
|
PROMPT 2 14 "Da descrizione "
|
|
GROUP 6
|
|
FLAGS "HB"
|
|
END
|
|
|
|
STRING SC_PCONDESTO 50 40
|
|
BEGIN
|
|
PROMPT 2 15 "A descrizione "
|
|
GROUP 6
|
|
FLAGS "HB"
|
|
END
|
|
|
|
NUMBER SC_NSEL 3
|
|
BEGIN
|
|
PROMPT 60 13 "N. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NMESI 2
|
|
BEGIN
|
|
PROMPT 2 16 "Mesi per fascia "
|
|
END
|
|
|
|
BOOLEAN F_SCADINFASCE
|
|
BEGIN
|
|
PROMPT 2 17 "Scaduto suddiviso in fasce"
|
|
HELP "Selezionare se si vuole la stampa scaduto suddiviso in fasce"
|
|
MESSAGE TRUE ENABLE,F_SCADFASCE
|
|
MESSAGE FALSE RESET,F_SCADFASCE|DISABLE,F_SCADFASCE
|
|
END
|
|
|
|
NUMBER F_SCADFASCE 1
|
|
BEGIN
|
|
PROMPT 35 17 "Fino alla fascia "
|
|
END
|
|
|
|
BOOLEAN F_ASCADINFASCE
|
|
BEGIN
|
|
PROMPT 2 18 "A scadere suddiviso in fasce"
|
|
HELP "Selezionare se si vuole la stampa a scadere suddiviso in fasce"
|
|
MESSAGE TRUE ENABLE,F_ASCADFASCE
|
|
MESSAGE FALSE RESET,F_ASCADFASCE|DISABLE,F_ASCADFASCE
|
|
END
|
|
|
|
NUMBER F_ASCADFASCE 1
|
|
BEGIN
|
|
PROMPT 35 18 "Fino alla fascia "
|
|
NUM_EXPR {#F_SCADFASCE+#F_ASCADFASCE < 10}
|
|
WARNING "E' possibile selezionare massimo 9 fasce in totale"
|
|
END
|
|
|
|
STRING DLG_PROFILE 50
|
|
BEGIN
|
|
PROMPT 2 -2 "Profilo "
|
|
PSELECT
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|