root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ve/veaccbmp.frm
alex 3a17a5a00e Patch level : XX.218 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Riportata la versione AGA patch 218 sul main trunk


git-svn-id: svn://10.65.10.50/trunk@10087 c028cbd2-c16b-5b4b-a496-9718f37d4682
2002-02-26 16:20:19 +00:00

1393 lines
26 KiB
Plaintext
Executable File
Raw Blame History

USE 33
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 17 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 47 TO 34 INTO CODART==CODART
JOIN %CPG TO 33 ALIAS 201 INTO CODTAB==CODPAG
JOIN 122 TO 33 INTO CODAGE==CODAG
JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO
JOIN %BAN TO 33 ALIAS 204 INTO CODTAB==CODABIA+CODCABA
JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1
JOIN %ABE TO 33 ALIAS 206 INTO CODTAB==ASPBENI1
JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP
JOIN %BAN TO 33 ALIAS 208 INTO CODTAB==CODABIA
JOIN %TIP TO 33 ALIAS 210 INTO CODTAB==TIPODOC
JOIN %NDO TO 33 ALIAS 211 INTO CODTAB==CODNOTESP1
END
DESCRIPTION
BEGIN
34->* "Righe documenti di vendita"
33->* "Documenti di vendita"
17->* "Clienti/Fornitori per vendite"
20->* "Clienti/Fornitori"
16->* "Indirizzi di spedizione (destinazione)"
116@->* "Indirizzi di spedizione (destinatario)"
47->* "Anagrafica magazzino"
201@->* "Tabella condizioni di pagamento"
122->* "Archivio agenti"
203@->* "Tabella porto"
204@->* "Tabella banche istituto"
205@->* "Tabella vettori"
206@->* "Tabella aspetto beni"
207@->* "Tabella causale del trasporto"
208@->* "Tabella banche agenzia"
209@->* "Tabella valute"
210@->* "Tabella tipo documento"
211@->* "Tabella note documento"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 10
MODULE "fattura accompagnatoria standard AGA"
PRI_DECIMALS 0 2
QTA_DECIMALS 2 3
IMP_DECIMALS 0 2
EXCLUDE "08,"
EXCLUDE "02,"
EXCLUDE "03,"
END
SECTION GRAPHICS ODD
FIGURA 99 93 68
BEGIN
PROMPT 0 0 "fattacc.bmp"
END
END
SECTION HEADER ODD 24
STRINGA 200 1
BEGIN
KEY "abilita/disabilita stampa intestazione ditta "
PROMPT 1 1 ""
MESSAGE ENABLE,15@
FLAGS "H"
END
STRINGA 1 35 1
BEGIN
KEY "nome ditta"
PROMPT 3 3 ""
MESSAGE _DITTA,!RAGSOC
GROUP 15
FLAGS "D"
END
STRINGA 2 35 1
BEGIN
KEY "indirizzo ditta"
PROMPT 3 4 ""
MESSAGE _DITTA,!IND
GROUP 15
FLAGS "D"
END
STRINGA 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 3 5 ""
MESSAGE _DITTA,!CAP
GROUP 15
FLAGS "D"
END
STRINGA 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 10 56 ""
MESSAGE _DITTA,!COM
GROUP 15
FLAGS "D"
END
STRINGA 5 8 1
BEGIN
KEY "scritta P.IVA"
PROMPT 3 6 "P.IVA IT"
GROUP 15
FLAGS "D"
END
STRINGA 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 12 6 ""
MESSAGE _DITTA,!IVA
GROUP 15
FLAGS "D"
END
STRINGA 7 12 1
BEGIN
KEY "scritta COD.FISC."
PROMPT 3 7 "COD.FISC. IT"
GROUP 15
FLAGS "D"
END
STRINGA 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 16 7 ""
MESSAGE _DITTA,!CF
GROUP 15
FLAGS "D"
END
LIST 9 1 1
BEGIN
KEY "fattura"
PROMPT 43 4 ""
FIELD 210@->I1
ITEM "|"
ITEM "1| "
ITEM "2|X"
ITEM "3| "
END
LIST 10 1 1
BEGIN
KEY "d.d.t."
PROMPT 43 6 ""
FIELD 210@->I1
ITEM "|"
ITEM "1|X"
ITEM "2| "
ITEM "3| "
END
STRING 11 27
BEGIN
KEY "tipo documento"
PROMPT 2 18 ""
FIELD 210@->S0
END
STRING 12 3
BEGIN
KEY "valuta"
PROMPT 57 18 ""
FIELD CODVAL
END
DATA 13 8
BEGIN
KEY "data fattura"
PROMPT 64 18 ""
FIELD 33->DATADOC
FORMAT "1442-"
END
STRINGA 14 7
BEGIN
KEY "numero fattura"
PROMPT 77 18 ""
FIELD 33->NDOC
END
STRINGA 15 2
BEGIN
KEY "Numero di pagina"
PROMPT 90 18 ""
MESSAGE _PAGENO
END
STRINGA 16 5
BEGIN
KEY "codice cliente"
PROMPT 2 20 ""
FIELD 33->CODCF
END
STRINGA 17 3
BEGIN
KEY "codice agente"
PROMPT 10 20 ""
FIELD 33->CODAG
END
STRING 18 6
BEGIN
KEY "ordine"
PROMPT 28 20 ""
FIELD 33->NUMDOCRIF
END
DATA 19 8
BEGIN
KEY "data conferma"
PROMPT 17 20 ""
FIELD 33->DATADOCRIF
FORMAT "1442-"
END
STRING 20 11
BEGIN
KEY "copy partita iva"
PROMPT 1 1 ""
MESSAGE _CLIENTE,PAIV
MESSAGE COPY,21
FLAGS "H"
END
STRING 21 11
BEGIN
KEY "test PIVA/CF"
PROMPT 1 1 ""
MESSAGE EMPTY ENABLE,23
MESSAGE ENABLE,22
FLAGS "H"
END
STRING 22 11
BEGIN
KEY "partita iva cliente"
PROMPT 37 20 ""
MESSAGE _CLIENTE,PAIV
FLAGS "D"
END
STRING 23 16
BEGIN
KEY "codice fiscale cliente"
PROMPT 37 20 ""
MESSAGE _CLIENTE,COFI
FLAGS "D"
END
STRING 24 2
BEGIN
KEY "codice iso iva cliente"
PROMPT 37 20 ""
MESSAGE _CLIENTE,STATOPAIV
FLAGS "D"
END
STRINGA 25 12
BEGIN
KEY "porto"
PROMPT 59 20 ""
FIELD 203@->S0
END
STRING 26 15
BEGIN
KEY "causale di trasporto"
PROMPT 74 20 ""
FIELD 207@->S0
END
STRINGA 27 28
BEGIN
KEY "condizioni di pagamento"
PROMPT 2 22 ""
FIELD 201@->S0
END
STRINGA 28 27
BEGIN
KEY "banca d'appoggio istituto"
PROMPT 37 22 ""
FIELD 208@->S0
END
STRINGA 29 27
BEGIN
KEY "banca d'appoggio agenzia"
PROMPT 65 22 ""
FIELD 204@->S0
END
STRINGA 30 45 2
BEGIN
KEY "cliente ragione sociale "
PROMPT 48 10 ""
MESSAGE _CLIENTE,!RAGSOC
END
STRINGA 31 45 2
BEGIN
KEY "cliente indirizzo con numero civico"
PROMPT 48 12 ""
MESSAGE _CLIENTE,!INDNUM
END
STRING 32 45 1
BEGIN
KEY "cliente, localita"
PROMPT 48 14 ""
MESSAGE _CLIENTE,LOCALITACF
END
STRINGA 33 5 1
BEGIN
KEY "cliente cap"
PROMPT 48 15 ""
MESSAGE _CLIENTE,!CAP
END
STRINGA 34 38 2
BEGIN
KEY "cliente comune"
PROMPT 54 15 ""
MESSAGE _CLIENTE,!COM->DENCOM
MESSAGE COPY,36
FLAGS "H"
END
STRINGA 35 2 1
BEGIN
KEY "cliente provincia"
PROMPT 73 16 ""
MESSAGE _CLIENTE,!COM->PROVCOM
MESSAGE APPEND,36
FLAGS "H"
END
STRINGA 36 40 2
BEGIN
KEY "cliente comune+prov."
PROMPT 54 15 ""
END
STRINGA 37 3
BEGIN
KEY "cliente codice stato"
PROMPT 48 16 ""
MESSAGE _CLIENTE,STATOCF
FLAGS "H"
END
STRINGA 38 25
BEGIN
KEY "cliente nome stato"
PROMPT 48 16 ""
MESSAGE _TABLEREAD,%STA,#37,S0
FLAGS "D"
END
STRING 39 5 1
BEGIN
KEY "test indirizzo di spedizione"
PROMPT 1 1 ""
FLAGS "H"
FIELD 33->CODINDSP
MESSAGE EMPTY ENABLE,10@|DISABLE,11@|DISABLE,50
MESSAGE DISABLE,10@|ENABLE,11@|DISABLE,50
END
STRING 40 35 2
BEGIN
KEY "destinazione, Rag Sociale"
PROMPT 3 10 ""
FIELD 16->RAGSOC
GROUP 11
FLAGS "D"
END
STRING 41 35 1
BEGIN
KEY "destinazione, indirizzo"
PROMPT 3 12 ""
FIELD 16->INDIR
MESSAGE COPY,43
FLAGS "H"
END
STRING 42 10 1
BEGIN
KEY "destinazione, num. civico"
PROMPT 3 12 ""
FIELD 16->CIV
MESSAGE APPEND,43
FLAGS "H"
END
STRING 43 35 2
BEGIN
KEY "destinazione, indirizzo+N.civico"
PROMPT 3 12 ""
GROUP 11
FLAGS "D"
END
STRING 44 35 1
BEGIN
KEY "destinazione, localita"
PROMPT 3 14 ""
FIELD 16->LOCALITA
GROUP 11
FLAGS "D"
END
STRING 45 5 1
BEGIN
KEY "destinazione, cap"
PROMPT 3 15 ""
FIELD 16->CAP
GROUP 11
FLAGS "D"
END
STRING 46 5 1
BEGIN
KEY ""
PROMPT 1 1 ""
FLAGS "H"
FIELD 16->COM
END
STRING 47 25 2
BEGIN
KEY "destinazione, comune"
PROMPT 9 15 ""
MESSAGE _ISAMREAD,13,COM=#46,DENCOM
MESSAGE COPY,49
FLAGS "H"
END
STRING 48 2
BEGIN
KEY "destinazione, provincia"
PROMPT 31 15 ""
MESSAGE _ISAMREAD,13,COM=#46,PROVCOM
MESSAGE APPEND,49
FLAGS "H"
END
STRING 49 27 2
BEGIN
KEY "destinazione, comune+provincia"
PROMPT 9 15 ""
GROUP 11
FLAGS "D"
END
STRING 50 30 1
BEGIN
KEY "destinazione, idem"
PROMPT 3 10 "IDEM"
FLAGS "D"
END
STRING 51 35 2
BEGIN
KEY "destinatario, ditta dest"
PROMPT 3 10 ""
MESSAGE _CLIENTE,!RAGSOC
GROUP 10
FLAGS "D"
END
STRING 52 35 2
BEGIN
KEY "destinatario, indirizzo con numero civico dest"
PROMPT 3 12 ""
MESSAGE _CLIENTE,!INDNUM
GROUP 10
FLAGS "D"
END
STRING 53 35 1
BEGIN
KEY "destinatario, localita"
PROMPT 3 14 ""
MESSAGE _CLIENTE,LOCALITACF
GROUP 10
FLAGS "D"
END
STRING 54 5 1
BEGIN
KEY "destinatario, cap dest"
PROMPT 3 15 ""
MESSAGE _CLIENTE,CAPCF
GROUP 10
FLAGS "D"
END
STRING 55 25 1
BEGIN
KEY "destinatario, comune dest"
PROMPT 9 15 ""
MESSAGE _CLIENTE,!COM->DENCOM
FLAGS "H"
MESSAGE COPY,57
END
STRING 56 2
BEGIN
KEY "destinatario, provincia dest"
PROMPT 31 15 ""
MESSAGE _CLIENTE,!COM->PROVCOM
FLAGS "H"
MESSAGE APPEND,57
END
STRING 57 27 1
BEGIN
KEY "destinatario, comune dest + prov"
PROMPT 9 15 ""
FLAGS "D"
GROUP 10
END
STRINGA 58 3 1
BEGIN
KEY "cliente codice stato"
PROMPT 3 16 ""
MESSAGE _CLIENTE,STATOCF
FLAGS "D"
END
STRINGA 59 35 1
BEGIN
KEY "cliente nome stato"
PROMPT 3 16 ""
MESSAGE _TABLEREAD,%STA,#58,S0
FLAGS "D"
END
END
SECTION BODY ODD 5
STRINGA 81 12 1
BEGIN
KEY "codice articolo"
FIELD 34->CODART
PROMPT 2 1 ""
END
STRINGA 82 22 22
BEGIN
KEY "descrizione articolo"
MESSAGE _DESCRIGA
PROMPT 16 1 ""
END
STRINGA 83 2
BEGIN
KEY "unita' di misura"
PROMPT 40 1 ""
FIELD 34->UMQTA
MESSAGE _ALIGN,#82,BOTTOM
END
NUMBER 84 10
BEGIN
KEY "quantita'"
PROMPT 44 1 ""
FIELD 34->QTA
PICTURE "##.###.###"
GROUP 30
MESSAGE _ALIGN,#82,BOTTOM
END
NUMBER 85 11
BEGIN
KEY "prezzo unitario"
PROMPT 56 1 ""
FIELD 34->PREZZO
PICTURE "###.###.###"
GROUP 29
MESSAGE _ALIGN,#82,BOTTOM
END
STRINGA 86 4
BEGIN
KEY "sconto"
PROMPT 69 1 ""
FIELD 34->SCONTO
MESSAGE _ALIGN,#82,BOTTOM
END
NUMBER 87 11
BEGIN
KEY "importo netto"
PROMPT 74 1 ""
FIELD 34->IMPNS
PICTURE "###.###.###"
GROUP 29
MESSAGE _ALIGN,#82,BOTTOM
END
STRINGA 88 3
BEGIN
KEY "iva"
PROMPT 89 1 ""
FIELD 34->CODIVA
MESSAGE _ALIGN,#82,BOTTOM
END
NUMBER 89 15
BEGIN
KEY "prezzo unitario scontato"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
FIELD 34->PREZZONS
GROUP 29
MESSAGE _ALIGN,#82,BOTTOM
FLAGS "H"
END
NUMBER 90 15
BEGIN
KEY "provvigione"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
FIELD 34->PROVVR
MESSAGE _ALIGN,#82,BOTTOM
GROUP 31
FLAGS "H"
END
NUMBER 91 15
BEGIN
KEY "Imposta"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
FIELD 34->IMPOSTA
MESSAGE _ALIGN,#82,BOTTOM
GROUP 31
FLAGS "H"
END
NUMBER 92 4
BEGIN
KEY "n. colli"
PROMPT 44 1 ""
FIELD 34->NCOLLI
PICTURE "####"
MESSAGE _ALIGN,#82,BOTTOM
FLAGS "D"
END
NUMBER 93 4
BEGIN
KEY "Tara"
PROMPT 55 1 ""
FIELD 34->TARA
PICTURE "####"
GROUP 30
MESSAGE _ALIGN,#82,BOTTOM
FLAGS "D"
END
END
SECTION FOOTER ODD -43
STRINGA 100 5 1
BEGIN
KEY "stampa 'segue' in coda"
PROMPT 80 14 "SEGUE"
END
END
SECTION FOOTER LAST -43
NUMBER 101 12
BEGIN
KEY "totale importi netti (non scontati)"
PROMPT 2 3 ""
FIELD TOTMER
PICTURE "###.###.###"
GROUP 31
END
STRINGA 102 7
BEGIN
KEY "% sconto"
PROMPT 23 3 ""
FIELD 33->SCONTOPERC
END
NUMBER 103 11
BEGIN
KEY "totale sconti"
PROMPT 32 3 ""
FIELD SCONTOT
PICTURE "###.###.###"
GROUP 31
END
NUMBER 104 11
BEGIN
KEY "spese di trasporto"
PROMPT 46 3 ""
PICTURE "###.###.###"
FIELD SPESTRA
GROUP 31
END
NUMBER 105 11
BEGIN
KEY "spese di imballo"
PROMPT 58 3 ""
PICTURE "###.###.###"
FIELD SPESIMB
GROUP 31
END
NUMBER 106 9
BEGIN
KEY "spese di incasso"
PROMPT 71 3 ""
PICTURE "#.###.###"
FIELD SPESINC
GROUP 31
END
NUMBER 107 7
BEGIN
KEY "spese bolli"
PROMPT 83 3 ""
FIELD BOLLI
PICTURE "###.###"
GROUP 31
END
STRING 108 3
BEGIN
KEY "codice iva 1"
PROMPT 2 5 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 109 11
BEGIN
KEY "imponibile 1"
PROMPT 8 5 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
NUMBER 110 2
BEGIN
KEY "iva 1"
PROMPT 23 5 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
NUMBER 111 11
BEGIN
KEY "imposta 1"
PROMPT 28 5 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "###.###.###"
GROUP 31
END
STRING 112 3
BEGIN
KEY "codice iva 2"
PROMPT 2 6 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 113 11
BEGIN
KEY "imponibile 2"
PROMPT 8 6 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
NUMBER 114 2
BEGIN
KEY "iva 2"
PROMPT 23 6 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
NUMBER 115 11
BEGIN
KEY "imposta 2"
PROMPT 28 6 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "###.###.###"
GROUP 31
END
STRING 116 3
BEGIN
KEY "codice iva 3"
PROMPT 2 7 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 117 11
BEGIN
KEY "imponibile 3"
PROMPT 8 7 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
NUMBER 118 2
BEGIN
KEY "iva 3"
PROMPT 23 7 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
NUMBER 119 11
BEGIN
KEY "imposta 3"
PROMPT 28 7 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "###.###.###"
GROUP 31
END
NUMBER 120 11
BEGIN
KEY "imponibile 4"
PROMPT 8 8 ""
MESSAGE _RIEPILOGOIVA,30,IMP,0
PICTURE "###.###.###"
GROUP 31
END
STRINGA 121 3
BEGIN
KEY "codice iva 4"
PROMPT 2 8 ""
MESSAGE _RIEPILOGOIVA,30,COD,0
END
STRINGA 122 45
BEGIN
KEY "descrizione altri 4"
PROMPT 43 8 ""
MESSAGE _RIEPILOGOIVA,30,DES,1
END
NUMBER 123 11
BEGIN
KEY "imponibile 5"
PROMPT 8 9 ""
MESSAGE _RIEPILOGOIVA,30,IMP,0
PICTURE "###.###.###"
GROUP 31
END
STRINGA 124 3
BEGIN
KEY "codice iva 5"
PROMPT 2 9 ""
MESSAGE _RIEPILOGOIVA,30,COD,0
END
STRINGA 125 45
BEGIN
KEY "descrizione altri 5"
PROMPT 43 9 ""
MESSAGE _RIEPILOGOIVA,30,DES,1
END
NUMBER 126 13
BEGIN
KEY "totale imponibile"
PROMPT 6 11 ""
MESSAGE _TOTIMPONIBILI,29
PICTURE "#.###.###.###"
GROUP 31
END
NUMBER 127 13
BEGIN
KEY "totale imposta"
PROMPT 26 11 ""
FIELD IMPOSTE
PICTURE "#.###.###.###"
GROUP 31
END
NUMBER 128 11
BEGIN
KEY "totale esenti"
PROMPT 45 11 ""
MESSAGE _TOTIMPONIBILI,28
PICTURE "###.###.###"
GROUP 31
END
NUMBER 130 13
BEGIN
KEY "totale fattura"
PROMPT 78 11 ""
FIELD TOTDOC
PICTURE "#.###.###.###"
GROUP 31
MESSAGE COPY,138
END
NUMBER 137 13
BEGIN
KEY "acconto"
PROMPT 78 5 ""
FIELD 33->IMPPAGATO
PICTURE "#.###.###.###"
GROUP 31
MESSAGE SUB,138
END
NUMBER 138 13
BEGIN
KEY "netto a pagare"
PROMPT 78 13 ""
PICTURE "#.###.###.###"
GROUP 31
END
DATA 143 8
BEGIN
KEY "scadenza pagamento 1"
PROMPT 2 13 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 144 11
BEGIN
KEY "importo scadenza 1"
PROMPT 11 13 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
DATA 145 8
BEGIN
KEY "scadenza pagamento 2"
PROMPT 23 13 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 146 11
BEGIN
KEY "importo scadenza 2"
PROMPT 32 13 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
DATA 147 8
BEGIN
KEY "scadenza pagamento 3"
PROMPT 2 14 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 148 11
BEGIN
KEY "importo scadenza 3"
PROMPT 11 14 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
DATA 149 8
BEGIN
KEY "scadenza pagamento 4"
PROMPT 32 14 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 150 11
BEGIN
KEY "importo scadenza 4"
PROMPT 44 14 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
DATA 151 8
BEGIN
KEY "scadenza pagamento 5"
PROMPT 23 26 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
FLAGS "D"
END
NUMBER 152 11
BEGIN
KEY "importo scadenza 5"
PROMPT 32 26 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
FLAGS "D"
END
LIST 153 1 1
BEGIN
KEY "trasporto a cura del mittente"
PROMPT 2 17 ""
FIELD CODSPMEZZO
ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "D| "
ITEM "M|X" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "V| "
END
LIST 154 1 1
BEGIN
KEY "trasporto a cura del destinatario"
PROMPT 14 17 ""
FIELD CODSPMEZZO
ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "D|X" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "M| "
ITEM "V| "
END
LIST 155 1 1
BEGIN
KEY "trasporto a cura del vettore"
PROMPT 28 17 ""
FIELD CODSPMEZZO
ITEM "|" // default
ITEM "D| "
ITEM "M| "
ITEM "V|X" MESSAGE DISABLE,5@|ENABLE,6@
END
STRING 156 30 1
BEGIN
KEY "aspetto beni"
PROMPT 39 17 ""
FIELD 206@->S0
END
STRING 157 9 1
BEGIN
KEY "peso"
PROMPT 72 17 ""
FIELD 33->PNETTO
END
STRING 158 7 1
BEGIN
KEY "colli"
PROMPT 84 17 ""
FIELD 33->NCOLLI
END
STRING 159 45 1
BEGIN
KEY "nome vettore"
PROMPT 2 19 ""
FIELD 205@->S0
END
STRING 160 35 1
BEGIN
// nella versione 05 togliere MESSAGE COPY
KEY "indirizzo vettore"
PROMPT 2 20 ""
FIELD 205@->S1[1,35]
MESSAGE COPY,163
FLAGS "H"
END
STRING 161 35 1
BEGIN
// nella versione 05 sostituire FLAGS "D" con FLAGS "H"
KEY "indirizzo vettore"
PROMPT 2 20 ""
MESSAGE _STREXPR,TRIM(#160)
FLAGS "D"
MESSAGE COPY,163
END
STRING 162 10 1
BEGIN
KEY "num.civico vettore"
PROMPT 2 20 ""
FIELD 205@->S1[36,45]
MESSAGE APPEND,163
FLAGS "H"
END
STRING 163 45 1
BEGIN
KEY "indirizzo vettore+num.civico"
PROMPT 2 20 ""
END
STRING 164 35 1
BEGIN
KEY "localita' vettore"
PROMPT 2 20 ""
FIELD 205@->S1[46,70]
FLAGS "D"
END
STRING 165 5
BEGIN
KEY "CAP vettore"
PROMPT 2 21 ""
FIELD 205@->S7
END
STRING 166 5 1
BEGIN
KEY "Codice comune vettore"
PROMPT 1 1 ""
FIELD 205@->S9
FLAGS "H"
END
STRING 167 35 1
BEGIN
KEY "Denominazione comune vettore"
PROMPT 8 21 ""
MESSAGE _ISAMREAD,13,COM=#166,DENCOM
MESSAGE COPY,169
FLAGS "H"
END
STRING 168 2
BEGIN
KEY "Provincia comune vettore"
PROMPT 42 21 ""
MESSAGE _ISAMREAD,13,COM=#166,PROVCOM
MESSAGE APPEND,169
FLAGS "H"
END
STRING 169 39 1
BEGIN
KEY "vettore, comune+provincia"
PROMPT 8 21 ""
END
DATE 170 8 1
BEGIN
KEY "data ritiro"
PROMPT 51 19 ""
FIELD DATAPART
FORMAT "1442-"
END
STRING 171 5 1
BEGIN
KEY "ora ritiro"
PROMPT 62 19 ""
PICTURE "##.##"
FIELD ORAPART
END
STRING 172 50 1
BEGIN
KEY "note documento"
PROMPT 2 23 ""
FIELD 211@->S0
END
END
// NOTE SULLA COMPILAZIONE DEI FORM DI STAMPA
//
// SEZIONE GENERAL
// ===============
// Posizionamento:
// e' possibile effettuari posizionamenti manuali dei form con le seguenti istruzioni:
// CARATTERE <S>
// INIZIALE <N> <N>
// FINALE <N> <N>
// dove:
// CARATTERE indica il carattere da stampare per contrassegnare il posizionamento, racchiuso tra doppi apici (eg "X")
// INIZIALE indica le coordinate X ed Y per il posizionamento iniziale (dove stampare il primo carattere)
// FINALE indica le coordinate X ed Y per il posizionamento finale (dove stampare il secondo carattere)
// FINALE puo' essere omesso; se definito e' comunque buona norma tenere la coordinata verticale (Y) uguale
// a quella indicata in INIZIALE, se diversi il programma tiene conto solo della prima.
// Non e' possibile definire sia posizionamenti manuali che OFFSET, quindi o l'uno o l'altro, preferibilmente
// e' meglio scegliere OFFSET.
//
// Modificatori di pictures:
// i parametri IMP_DECIMALS, QTA_DECIMALS, e PRI_DECIMALS settano i decimali da stampare/arrotondare
// per i seguenti: importi in genere, quantita', e prezzi. Il primo parametro intero e' per gli importi in lire
// il secondo per gli importi in valuta. Naturalmente per le quantita' non ha senso fare una cosa del genere, ma per completezza
// e' stata implementata.
// PRI_DECIMALS corrisponde al gruppo 29
// QTA_DECIMALS corrisponde al gruppo 30
// IMP_DECIMALS corrisponde al gruppo 31
// pertanto tutti i campi che apparterranno al gruppo 29,30 o 31 avranno gli importi stampati al numero di decimali impostati a
// seconda se il documento e' in lire o valuta. Se il numero di decimali e' 0 la picture rimarra' invariata.
// Altri gruppi definiti dall'utente saranno cosi' sintatticamente impostati:
// NEW_GROUP <n> <lit_dec> <val_dec>
// Dove <n> e' il numero del gruppo
// <lit_dec> e' il numero di decimali per i documenti in lire
// <val_dec> e' il numero di decimali per i documenti in valuta
//
// Definizione di liste di esclusione (facoltativo):
// EXCLUDE esclude dalla stampa le righe che soddisfano la condizione specificata.
// Si indicano in questo modo: "<tipo riga>,<cod. art>". Naturalmente si possono indicare tutti gli EXLCUDE che si vogliono.
// Es: EXCLUDE "V01,ART1" escludera' tutte le righe di tipo V01 con codice articolo ART1
// EXCLUDE ",ART1" escludera' tutte le righe che hanno codice articolo ART1
// EXCLUDE "V01," escludera' tutte le righe che hanno tipo riga V01
// EXCLUDE "," non escludera' nulla.
//
// MESSAGGI UTENTE
// ===============
// Note sui messaggi della testata/body/footer:
//
// _ISAMREAD:
// lettura generica di un file del database
// sintassi: _ISAMREAD,<file>,<espressione input>[!<espressione input>!...],{<campo file>|<espressione output>[!<espressione output>!...]}
// dove: <file> <20> il numero logico del file o il nome della tabella
// <espressione input> <20> un'espressione del tipo <campo file>=<espressione campi form>
// <espressione campi form> <20> un'espressione di costanti numeriche, stringhe e valori di campi della form (indicati con il loro numero preceduto da #)
// <espressione output> <20> un'espressione del tipo <campo form o gruppo>=<campo file> (se <20> un gruppo deve essere seguito da @) oppure solo <campo file> (il campo della form <20> quello corrente)
//
// _TABLEREAD:
// lettura generica di un campo di una tabella
// sintassi: _TABLEREAD,<tabella>,<chiave>,<campo file>
// dove: <tabella> nome tabella da leggere
// <chiave> costante stringa o riferimento a campo della form (preceduto da '#') da usare come chiave di ricerca
// <campo file> identificativo del campo da leggere dalla tabella
//
// _DITTA:
// lettura dei dati della ditta
// sintassi: _DITTA,{<campo relazione>|<macro>}
// dove: <campo relazione> <20> un riferimento alla relazione di gestione dei dati della ditta (es. 113@->DENCOM <20> la denominazione del comune di residenza della ditta)
// <macro> <20> uno delle macro seguenti:
// !RAGSOC ragione sociale
// !IND indirizzo (fiscale se c'<27>, oppure di residenza)
// !NUM numero civico (fiscale se c'<27>, oppure di residenza)
// !CAP CAP (fiscale se c'<27>, oppure di residenza)
// !COM comune (fiscale se c'<27>, oppure di residenza)
// !PROV provincia (fiscale se c'<27>, oppure di residenza)
// !IVA partita iva
// !CF codice fiscale
// !TEL numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso)
// !REGSOC numero di registrazione presso il Tribunale
// !CCIAA numero di registrazione presso la camera di commercio
// nota: la relazione della ditta <20> cos<6F> strutturata:
// %NDITTE (9) Dati ditte
// + %ANAGR (6) Anagrafica generale (indirizzo, ecc.)
// + %COMUNI (113@) Comune di residenza
// + %COMUNI (213@) Comune di residenza fiscale
// viene utilizzato perche' non e' possibile stabilire altrimenti una relazione con il file ditte
// dall'interno del form.
//
// _CLIENTE
// lettura dei dati del cliente
// sintassi: _CLIENTE,{<campo relazione>|<macro>}
// dove: <campo relazione> <20> un riferimento alla relazione di gestione dei dati del cliente
// <macro> <20> uno delle macro seguenti:
// !RAGSOC ragione sociale
// !CAP Codice Avviamento Postale (viene implementato un messaggio perche' sugli occasionali ha un nome campo diverso!!)
// !IND indirizzo
// !NUM numero civico
// !INDNUM indirizzo + numero civico
// !INDSPED indirizzo spedizione + numero civico
// !TEL primo numero di telefono (con prefisso)
// !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso)
// !COM-><FIELD> accede ai campi del comune di residenza cliente
// !COMN-><FIELD> accede ai campi del comune di nascita del cliente
// nota: la relazione del cliente <20> cos<6F> strutturata:
// CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite
// + %COMUNI (113@) Comune di residenza
// + %COMUNI (213@) Comune di nascita
// viene utilizzato al posto del file 17 collegato perche' vi sono particolari
// accorgimenti per quanto riguarda i clienti occasionali.
//
// _DESCRIGA:
// Messaggio per reperire e formattare anche la descrizione estesa sulle righe del documento
//
// _ALIGN:
// allineamento della posizione di un campo rispetto ad un altro
// sintassi: _ALIGN,<campo form>[,<allineamento>][,<allineamento>...]
// dove: <campo form> <20> il campo della form (preceduto da '#') da cui prendere l'allineamento
// <allineamento> <20> uno dei seguenti valori:
// TOP allinea sulla riga d'inizio
// MIDDLE allinea al centro (effettivo)
// BOTTOM allinea sulla riga di fine (effettiva, non preimpostata)
// LEFT allinea sulla colonna d'inizio
// RIGHT allinea sulla colonna di fine
//
// _PAGENO:
// Messaggio per stampare il numero di pagina corrente
//
// _RIEPILOGOIVA:
// messaggio per stampare la tabella ripelogativa delle aliquote IVA e relative imposte
// sintassi: _RIEPILOGOIVA,<selettore>,<macro>,<cambio codice>
// dove: <selettore> <20> uno dei seguenti:
// 1 = codici IVA a regime normale
// 2 = codici IVA da ventilare
// 4 = codici IVA esenti
// 8 = codici IVA non imponibili
// 16 = codici IVA non soggetti
// oppure la combinazione di uno o piu' di essi:
// 12 = 4+8, 19 = 1+2+16, 29 = 1+4+8+16 ecc...
// pertanto per avere i non imponibili in totale il selettore sara' 1,
// per avere gli esenti il selettore sara' 4; per avere i non soggetti + esenti
// il selettore sara' 20 e cosi' via.
// dove: <macro> <20> uno dei seguenti:
// COD colonna dei codici
// IMP colonna degli imponibili
// IVA colonna delle imposte
// ALI colonna delle aliquote
// DES colonna delle descrizioni (stampata solo se il regime IVA non e' normale)
// dove: <cambio codice> <20> uno dei seguenti:
// 0 indica di non leggere il successivo codice IVA nella tabella riepilogativa
// 1 indica di leggere il successivo codice IVA nella tabella riepilogativa
//
// _TOTIMPONIBILI:
// messaggio per stampare diverse totalizzazioni di imponibili
// sintassi: _TOTIMPONIBILI,<selettore>
// dove: <selettore> funge da filtro per la somma degli imponibili
// vedi _RIEPILOGOIVA per la spiegazione dei filtri selettivi
//
// _SCADENZE:
// messaggio per stampare le scadenze
// sintassi: _SCADENZE,<macro>,<cambio codice>
// dove <macro> e' uno dei seguenti:
// DATA : stampa la data di scadenza
// IMPORTO : stampa l'importo in scadenza
// dove <cambio codice> vale 0 o 1 se indica di rendere corrente la prossima scadenza
//
// CAMPI VIRTUALI
// ==============
// Oltre a stampare i campi normali del file e' anche possibile stampare i campi virtuali
// definiti nei profili semplicemente indicandoli nella istruzione FIELD:
// per la testata del documento:
// BOLLI, BASESCONTO, IMPOSTE, PROVVD, SCONTOD, SPESEINC, TOTDOC, TOTMER, TOTNS, TOTPRE, TOTSPE
// per le righe:
// IMPLN, IMPLS, IMPNN, IMPNS, IMPOSTA, PREZZOLN, PREZZOLS, PREZZONN, PREZZONS, PROVVR, SCONTOR
// oltre, naturalmente a quelli definiti dall'utente
Reference in New Issue View Git Blame Copy Permalink