d057f3970d
Files correlati : Ricompilazione Demo : [ ] Commento : Bug 0001546: 002074 - Pharmatex CAP il cliente segnala che negli indirizzi di spedizione, ai cap che cominciano con 0 vengono soppressi gli zeri a sinistra. Per esempio Roma anzichè 00100 viene allineato a sinistra 100, idem per Terni, Spoleto Perugia ecc git-svn-id: svn://10.65.10.50/trunk@20041 c028cbd2-c16b-5b4b-a496-9718f37d4682
160 lines
2.3 KiB
Plaintext
Executable File
160 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"
|
|
FLAGS "RZ"
|
|
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_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
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "bottombar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT 3 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|