20709ae1b4
Files correlati :cm1.exe,cm1100a/b.msk Ricompilazione Demo : [ ] Commento : 78 Bisogna gestire il caso di scadenze di tipo fattura che non siano movimenti IVA. Bisogna identificare il totela ritenute fiscali e sociali. Si puo' fare inserendo in configurazione una lista di conti per ciasuna della tipologie. Inoltre questi paramentri e anche gli altri già presenti dovrebbero essere modificabili da una pagina di opzioni. git-svn-id: svn://10.65.10.50/trunk@11893 c028cbd2-c16b-5b4b-a496-9718f37d4682
169 lines
2.7 KiB
Plaintext
Executable File
169 lines
2.7 KiB
Plaintext
Executable File
#include "cm1100a.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_CONFIG 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 "~Configura"
|
|
PICTURE BMP_CONFIG
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa pagato per commessa / fornitore" -1 -1 50 10
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 1 "@bSelezione periodo"
|
|
END
|
|
|
|
RADIOBUTTON F_TIPODATA 76
|
|
BEGIN
|
|
PROMPT 2 2 "Tipologia di data"
|
|
ITEM "0|Registrazione"
|
|
ITEM "1|Documento"
|
|
ITEM "2|Pagamento"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 5 "Dalla data "
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 25 5 "Alla data "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINI
|
|
WARNING "La data finale deve essere successiva a quella iniziale"
|
|
END
|
|
|
|
RADIOBUTTON F_ORDINAMENTO 1 40
|
|
BEGIN
|
|
PROMPT 1 7 "@bTipo ordinamento"
|
|
ITEM " |Commessa"
|
|
ITEM "X|Fornitore"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 10 "@bSelezione commesse"
|
|
END
|
|
|
|
STRING F_DACDC 20
|
|
BEGIN
|
|
PROMPT 2 11 "Da CDC/Commessa "
|
|
FLAGS "UZ"
|
|
USE CMS
|
|
INPUT CODTAB F_DACDC
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_DACDC CODTAB
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_DAFSC 10
|
|
BEGIN
|
|
PROMPT 50 11 "Da fase "
|
|
FLAGS "UZ"
|
|
USE FSC
|
|
INPUT CODTAB F_DAFSC
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_DAFSC CODTAB
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_ACDC 20
|
|
BEGIN
|
|
PROMPT 2 12 "A CDC/Commessa "
|
|
FLAGS "UZ"
|
|
COPY USE F_DACDC
|
|
INPUT CODTAB F_ACDC
|
|
COPY DISPLAY F_DACDC
|
|
OUTPUT F_ACDC CODTAB
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_AFSC 10
|
|
BEGIN
|
|
PROMPT 50 12 "A fase "
|
|
FLAGS "UZ"
|
|
COPY USE F_DAFSC
|
|
INPUT CODTAB F_AFSC
|
|
COPY DISPLAY F_DAFSC
|
|
OUTPUT F_AFSC CODTAB
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 14 "@bSelezione fornitori"
|
|
END
|
|
|
|
NUMBER F_DACODFOR 6
|
|
BEGIN
|
|
PROMPT 2 15 "Da codice "
|
|
USE LF_CLIFO KEY 1
|
|
FLAGS "U"
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_DACODFOR
|
|
DISPLAY "Codice " CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_DACODFOR CODCF
|
|
OUTPUT F_DADESFOR RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DADESFOR 50
|
|
BEGIN
|
|
PROMPT 23 15 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DADESFOR
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice " CODCF
|
|
COPY OUTPUT F_DACODFOR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_ACODFOR 6
|
|
BEGIN
|
|
PROMPT 2 16 "A codice "
|
|
COPY USE F_DACODFOR
|
|
FLAGS "U"
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_ACODFOR
|
|
COPY DISPLAY F_DACODFOR
|
|
OUTPUT F_ACODFOR CODCF
|
|
OUTPUT F_ADESFOR RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_ADESFOR 50
|
|
BEGIN
|
|
PROMPT 23 16 ""
|
|
COPY USE F_DADESFOR
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_ADESFOR
|
|
COPY DISPLAY F_DADESFOR
|
|
COPY OUTPUT F_ACODFOR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|