7235cf28fa
Files correlati : cg0.exe cg1.exe Ricompilazione Demo : [ ] Commento Bug 0001462 Aggiungere secondi riga indirizzo di 35 caratteri nella scheda indirizzi presente nellaanagrafica clienti. La seconda riga indirizzo deve essere inserita nella stampa clienti/fornitori (prospetto vendite) Bug 0001463 il cliente segnala che gli indirizzi di spedizione del cliente 1, se vengono annullati tutti, al nuovo richiamo del cliente ricompaiono come prima. Ho verificato che sul file indsped in realtà quegli indirizzi sono relativi al cliente 17 (e sono i primi del file). Il cliente 17 mi sembra formalmente valido. l'area dati cui fare riferimento è nella cartella ftp://www.aga.it/Ilaria/20090928.zip [^] git-svn-id: svn://10.65.10.50/trunk@19369 c028cbd2-c16b-5b4b-a496-9718f37d4682
156 lines
2.3 KiB
Plaintext
Executable File
156 lines
2.3 KiB
Plaintext
Executable File
#include "cg0200.h"
|
|
|
|
PAGE "" -1 -1 76 16
|
|
|
|
STRING F_RAGSOCI 50
|
|
BEGIN
|
|
PROMPT 1 2 "Rag. soc. "
|
|
HELP "Ragione sociale del cliente/fornitore"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_INDIRI 35
|
|
BEGIN
|
|
PROMPT 1 4 "Indirizzo "
|
|
HELP "Indirizzo del cliente/fornitore"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_CIVI 10
|
|
BEGIN
|
|
PROMPT 54 4 "N. "
|
|
HELP "Numero civico del cliente/fornitore"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_LOCALI 35
|
|
BEGIN
|
|
PROMPT 1 5 "Localita "
|
|
HELP "Localita' di residenza del C/F"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_CAPI 5
|
|
BEGIN
|
|
PROMPT 54 5 "CAP "
|
|
HELP "Codice di Avviamento Postale del C/F"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_STATOI 3
|
|
BEGIN
|
|
PROMPT 1 6 "Stato "
|
|
FLAGS "Z"
|
|
USE %STA
|
|
INPUT CODTAB F_STATOI
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Stato@50" S0
|
|
OUTPUT F_STATOI CODTAB
|
|
CHECKTYPE NORMAL
|
|
WARNING "Stato assente"
|
|
HELP "Codice dello stato del cliente/fornitore"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_COMI 4
|
|
BEGIN
|
|
PROMPT 18 6 "Comune "
|
|
FLAGS "U"
|
|
USE LF_COMUNI
|
|
INPUT STATO F_STATOI
|
|
INPUT COM F_COMI
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Codice" COM
|
|
DISPLAY "Comune@50" DENCOM
|
|
OUTPUT F_CAPI CAPCOM
|
|
OUTPUT F_STATOI STATO
|
|
OUTPUT F_COMI COM
|
|
OUTPUT F_DENCOMI DENCOM
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune assente"
|
|
ADD RUN ba4 -0
|
|
HELP "Codice del comune del cliente/fornitore"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DENCOMI 40
|
|
BEGIN
|
|
PROMPT 33 6 ""
|
|
HELP "Nome del comune del ciente/fornitore"
|
|
USE LF_COMUNI KEY 2
|
|
INPUT DENCOM F_DENCOMI
|
|
DISPLAY "Comune@50" DENCOM
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Codice" COM
|
|
COPY OUTPUT F_COMI
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ba4 -0
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_INDIR2 35
|
|
BEGIN
|
|
PROMPT 1 7 "Ind.agg. "
|
|
HELP "Indirizzo aggiuntivo del cliente/fornitore"
|
|
GROUP 1
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 72 4
|
|
BEGIN
|
|
PROMPT 1 8 "Numeri Telefonici"
|
|
END
|
|
|
|
STRING F_PTELI 10
|
|
BEGIN
|
|
PROMPT 2 9 "Telefono "
|
|
HELP "Prefisso del numero di telefono"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_TELI 30
|
|
BEGIN
|
|
PROMPT 40 9 ""
|
|
HELP "Numero di telefono del cliente/fornitore"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_PFAXI 10
|
|
BEGIN
|
|
PROMPT 2 10 "Fax "
|
|
HELP "Prefisso del numero di fax"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_FAXI 30
|
|
BEGIN
|
|
PROMPT 40 10 ""
|
|
HELP "Numero di fax del cliente/fornitore"
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F_IVARIDI
|
|
BEGIN
|
|
PROMPT 2 13 "Riduzione IVA"
|
|
HELP "Indicare se e' soggetto a riduzione IVA"
|
|
GROUP 1
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 "Elimina"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|