47f8d9a67b
Files correlati : sc1.exe sc1400a.msk scmenu.men Ricompilazione Demo : [ ] Commento : E' stato creato un nuovo programma nel menu di servizio del saldaconto. Esso richiede un importo minimo e la sua eventuale divisa e cambio. Dopo aver selezionato una opportuna causale contabile, viene mostrata la lista tutte le scadenze (non partite!) con residuo inferiore a quello specificato per ogni cliente/fornitore. Una volta selezionate una o più scadenze viene generato un movimento contabile collegato al saldaconto che le chiude con abbuoni ed eventuali differenze cambi. git-svn-id: svn://10.65.10.50/branches/R_10_00@21525 c028cbd2-c16b-5b4b-a496-9718f37d4682
114 lines
2.0 KiB
Plaintext
Executable File
114 lines
2.0 KiB
Plaintext
Executable File
#include "sc1400.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <elabar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Abbuoni automatici" 0 2 0 0
|
|
|
|
LIST F_TIPOCF 1 10
|
|
BEGIN
|
|
PROMPT 1 1 "Chiusura automatica delle scadenze dei "
|
|
IT "C|Clienti"
|
|
IT "F|Fornitori"
|
|
END
|
|
|
|
CURRENCY F_IMPORTO 12
|
|
BEGIN
|
|
PROMPT 1 2 "il cui residuo non superi l'importo di "
|
|
DRIVENBY F_CODVAL
|
|
CHECKTYPE REQUIRED
|
|
WARNING "E' necessario specificare un importo massimo"
|
|
END
|
|
|
|
BOOLEAN F_INVALUTA
|
|
BEGIN
|
|
PROMPT 1 3 "in valuta "
|
|
MESSAGE FALSE HIDE,3@
|
|
MESSAGE TRUE SHOW,3@
|
|
END
|
|
|
|
STRING F_CODVAL 3
|
|
BEGIN
|
|
PROMPT 16 3 ""
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
CHECKTYPE REQUIRED
|
|
GROUP 3
|
|
FLAGS "U"
|
|
END
|
|
|
|
DATE F_DATACAMBIO
|
|
BEGIN
|
|
PROMPT 25 3 "al cambio del "
|
|
FIELD DATACAM
|
|
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@16R" S4
|
|
DISPLAY "Valuta@50" 104@->S0
|
|
OUTPUT F_DATACAMBIO D0
|
|
OUTPUT F_CAMBIO S4
|
|
GROUP 3
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_CAMBIO 16 6
|
|
BEGIN
|
|
PROMPT 55 3 "di "
|
|
FLAGS "RU"
|
|
GROUP 3
|
|
PICTURE ".6"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Inserire il cambio o eliminare il codice valuta"
|
|
END
|
|
|
|
GROUP DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 4 "Parametri movimento contabile"
|
|
END
|
|
|
|
STRING F_CAUSALE 3
|
|
BEGIN
|
|
PROMPT 2 5 "Causale "
|
|
USE LF_CAUSALI SELECT (TIPOMOV="3")&&(TRIM(MOVVAL)=#F_INVALUTA)&&(LF_RCAUSALI->TIPOCF=#F_TIPOCF)
|
|
JOIN LF_RCAUSALI INTO CODCAUS==CODCAUS
|
|
INPUT CODCAUS F_CAUSALE
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_CAUSALE CODCAUS
|
|
OUTPUT F_DESCAUS DESCR
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "U"
|
|
ADD RUN cg0 -4
|
|
END
|
|
|
|
STRING F_DESCAUS 50
|
|
BEGIN
|
|
PROMPT 24 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATAREG
|
|
BEGIN
|
|
PROMPT 2 6 "Data di registrazione "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATACOMP
|
|
BEGIN
|
|
PROMPT 44 6 "Data di competenza "
|
|
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|