campo-sirio/ve/veacc.frm

// Completare la sezione "iva" nel body

USE 33
JOIN 34                 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 17                 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 20                 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 16                 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 52                 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN %CPG               INTO CODTAB==CODPAG
JOIN %AGE               INTO CODTAB==CODAG
JOIN %POR               INTO CODTAB==CODPORTO
JOIN %BAN               INTO CODTAB==CODABIA+CODCABA
JOIN %VET               INTO CODTAB==CODVETT1
JOIN %ASP               INTO CODTAB==ASPBENI1

/* da togliere, perché vengono usati i messaggi _ISAMREAD
JOIN %BAN  INTO CODTAB==CODABIA+CODCABA
JOIN %BAN  INTO CODTAB==CODABIP+CODCABP
JOIN NDO  INTO CODTAB==CODNOTESP1
JOIN NDO  INTO CODTAB==CODNOTESP2
JOIN 13 TO 304@ ALIAS 1101 INTO COM==COMCF
JOIN 13 TO 304@ ALIAS 1102 INTO COM==COM
*/

END
DESCRIPTION
BEGIN
  33->* "Documenti di vendita"
  34->* "Righe documenti di vendita"
  17->* "Clienti/Fornitori per vendite"
  20->* "Clienti/Fornitori"
  47  ->* "Righe listini"
  52  ->* "Contratti clienti"
  16  ->* "Indirizzi di spedizione"
  116->* "Indirizzi di spedizione"
  %CPG->* "Condizioni di pagamento"
  %AGE ->* "Agenti"
  %MSP ->* "Modalità di spedizioni"
  %POR ->* "Modalità di consegna"
  %BAN ->* "Banche"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Courier New"
  SIZE 12
END

SECTION HEADER ODD 0

STRINGA 1 36 1
BEGIN
 KEY "nome ditta"
 PROMPT 5 1 ""
 MESSAGE _DITTA &RAGSOC
END

STRINGA 2 36 1
BEGIN
 KEY "indirizzo ditta"
 PROMPT 5 2 ""
 MESSAGE _DITTA &IND
END

STRINGA 3 5 1
BEGIN
 KEY "cap ditta"
 PROMPT 5 3 ""
 MESSAGE _DITTA &CAP
END

STRINGA 4 30 1
BEGIN
 KEY "comune ditta"
 PROMPT 12 3 ""
 MESSAGE _DITTA &COM
END

STRINGA 5 5 1
BEGIN
 KEY "scritta p.iva"
 PROMPT 5 4 "P.IVA"
END

STRINGA 6 16 1
BEGIN
 KEY "partita iva ditta"
 PROMPT 11 4 ""
 MESSAGE _DITTA &IVA
END

STRINGA 7 9 1
BEGIN
 KEY "scritta cod.fisc."
 PROMPT 5 5 "COD.FISC"
END

STRINGA 8 16 1
BEGIN
 KEY "codice fiscale ditta"
 PROMPT 15 5 ""
 MESSAGE _DITTA &CF
END

NUMERO 9
BEGIN
 KEY "reg.soc.trib...."
 PROMPT 5 6 ""
END

NUMERO 10
BEGIN
 KEY "reg.soc.trib...."
 PROMPT 15 6 ""
END

NUMERO 11
BEGIN
 KEY "reg.soc.trib...."
 PROMPT 25 6 ""
END

NUMERO 12
BEGIN
 KEY "c.c.i.a.a. 143011"
 PROMPT 5 7 ""
END

NUMERO 13
BEGIN
 KEY "c.c.i.a.a. 143011"
 PROMPT 14 7 ""
END

STRINGA 14 36 2
BEGIN
 KEY "destinatario, ditta"
 PROMPT 44 10 ""
 FIELD 20->RAGSOC
END

STRINGA 15 36 2
BEGIN
 KEY "destinatario, indirizzo"
 PROMPT 44 12 ""
 FIELD 20->INDCF
END

STRINGA 83 5 1
BEGIN
 FLAGS "H"
 PROMPT 1 1 ""
 FIELD 116@->COM
END

STRINGA 16 5 1
BEGIN
 KEY "destinatario, cap"
 PROMPT 44 14 ""
 MESSAGE _ISAMREAD 13 COM=#83 CAPCOM
END

STRINGA 17 30 2
BEGIN
 KEY "destinatario, comune "
 PROMPT 50 14 ""
 MESSAGE _ISAMREAD 13 COM=#83 DENCOM
END

STRINGA 18 2 1
BEGIN
 KEY "destinatario, provincia"
 PROMPT 77 15 ""
 MESSAGE _ISAMREAD 13 COM=#83 PROVCOM
END

STRINGA 19 8 1
BEGIN
 KEY "data bolla"
 PROMPT 58 19 ""
 FIELD DATADOC
END

STRINGA 20 5 1
BEGIN
 KEY "numero bolla"
 PROMPT 67 19 ""
 FIELD NDOC
END

STRINGA 21 30 1
BEGIN
 KEY "destinazione, indirizzo"
 PROMPT 1 10 ""
 FIELD 16->INDIR
END

STRINGA 83 30 1
BEGIN
 KEY "destinazione, cap"
 PROMPT 1 12 ""
 FIELD 16->CAP
END

STRINGA 84 50 1
BEGIN
 FLAGS "H"
 PROMPT 1 1 ""
 FIELD 16->COM
END

STRINGA 83 30 1
BEGIN
 KEY "destinazione, comune"
 PROMPT 1 14 ""
 MESSAGE _ISAMREAD 13 COM=#84 DENCOM
END

STRINGA 22 26 1
BEGIN
 KEY "ordine"
 PROMPT 1 19 ""
 FIELD NUMDOCRIF
END

STRINGA 23 8 1
BEGIN
 KEY "data conferma"
 PROMPT 28 19 ""
 FIELD DATADOCRIF
END

STRINGA 24 48 1
BEGIN
 KEY "condizioni di pagamento"
 PROMPT 1 21 ""
 FIELD %CPG->S0
END

STRINGA 25 29 1
BEGIN
 KEY "banca d'appoggio"
 PROMPT 50 21 ""
 FIELD %BAN->S0
END

STRINGA 26 8 1
BEGIN
 KEY "codice cliente"
 PROMPT 5 23 ""
 FIELD CODCF
END

STRINGA 27 16 1
BEGIN
 KEY "partita iva cliente"
 PROMPT 16 23 ""
 FIELD 20->PAIV
END

STRINGA 28 25 1
BEGIN
 KEY "porto"
 PROMPT 35 23 ""
 FIELD %POR->S0
END

STRINGA 29 3 1
BEGIN
 KEY "codice agente"
 PROMPT 1 23 ""
 FIELD CODAG
END

STRINGA 30 21 1
BEGIN
 KEY "vettore"
 PROMPT 59 23 ""
 FIELD %VET->S0
END

END

SECTION BODY ODD 18

STRINGA 31 8 1
BEGIN
 KEY "codice articolo"
 PROMPT 1 0 ""
 FIELD 34->CODART
END

STRINGA 32 30 1
BEGIN
 KEY "descrizione articolo"
 PROMPT 17 0 ""
 FIELD 47->DESCR
END

NUMERO 33
BEGIN
 KEY "unita' di misura"
 PROMPT 46 0 ""
 FIELD 34->UMQTA
END

STRINGA 34 6 1
BEGIN
 KEY "quantita'"
 PROMPT 10 0 ""
 FIELD 34->QTA
END

STRINGA 35 8 1
BEGIN
 KEY "prezzo unitario"
 PROMPT 48 0 ""
 FIELD 34->PREZZO
END

STRINGA 36 8 1
BEGIN
 KEY "sconto"
 PROMPT 57 0 ""
 FIELD 34->SCONTO
END

STRINGA 37 9 1
BEGIN
 KEY "importo netto"
 PROMPT 66 0 ""
 MESSAGE _COD_RIGA IMPNETTO
END

STRINGA 38 3 1
BEGIN
 KEY "iva"
 PROMPT 76 0 ""
END

END

SECTION FOOTER ODD 1

STRINGA 71 5 1
BEGIN
 KEY "messaggio 'segue' in coda"
 PROMPT 68 54 "segue"
END

END

SECTION FOOTER LAST 20

STRINGA 39 11 1
BEGIN
 KEY "spese di trasporto"
 PROMPT 43 52 ""
 _COD_TESTA SPTRAS
END

STRINGA 40 11 1
BEGIN
 KEY "spese di incasso"
 PROMPT 55 50 ""
 MESSAGE _COD_TESTA SPINC
END

STRINGA 41 11 1
BEGIN
 KEY "spese bolli"
 PROMPT 55 52 ""
 MESSAGE _COD_TESTA SPBOL
END

STRINGA 42 21 1
BEGIN
 KEY "descrizione altri 1"
 PROMPT 22 48 ""
END

STRINGA 43 12 1
BEGIN
 KEY "imponibile 1"
 PROMPT 4 48 ""
END

STRINGA 44 3 1
BEGIN
 KEY "iva 1"
 PROMPT 17 48 ""
END

STRINGA 45 11 1
BEGIN
 KEY "imposta 1"
 PROMPT 22 48 ""
END

STRINGA 46 21 1
BEGIN
 KEY "descrizione altri 2"
 PROMPT 22 49 ""
END

STRINGA 47 12 1
BEGIN
 KEY "imponibile 2"
 PROMPT 4 49 ""
END

STRINGA 48 3 1
BEGIN
 KEY "iva 2"
 PROMPT 17 49 ""
END

STRINGA 49 11 1
BEGIN
 KEY "imposta 2"
 PROMPT 22 49 ""
END

STRINGA 50 21 1
BEGIN
 KEY "descrizione altri 3"
 PROMPT 22 50 ""
END

STRINGA 51 12 1
BEGIN
 KEY "imponibile 3"
 PROMPT 4 50 ""
END

STRINGA 52 3 1
BEGIN
 KEY "iva 3"
 PROMPT 17 50 ""
END

STRINGA 53 11 1
BEGIN
 KEY "imposta 3"
 PROMPT 22 50 ""
END

STRINGA 54 21 1
BEGIN
 KEY "descrizione altri 4"
 PROMPT 22 51 ""
END

STRINGA 55 12 1
BEGIN
 KEY "imponibile 4"
 PROMPT 4 51 ""
END

STRINGA 56 3 1
BEGIN
 KEY "iva 4"
 PROMPT 17 51 ""
END

STRINGA 57 11 1
BEGIN
 KEY "imposta 4"
 PROMPT 22 51 ""
END

STRINGA 58 21 1
BEGIN
 KEY "descrizione altri 5"
 PROMPT 22 52 ""
END

STRINGA 59 12 1
BEGIN
 KEY "imponibile 5"
 PROMPT 4 52 ""
END

STRINGA 60 3 1
BEGIN
 KEY "iva 5"
 PROMPT 17 52 ""
END

STRINGA 61 11 1
BEGIN
 KEY "imposta 5"
 PROMPT 22 52 ""
END

STRINGA 62 6 1
BEGIN
 KEY "stampa totali"
 PROMPT 1 54 "TOT."
END

STRINGA 63 12 1
BEGIN
 KEY "totale imponibile"
 PROMPT 4 54 ""
 MESSAGE _COD_TESTA TIMP
END

STRINGA 64 11 1
BEGIN
 KEY "totale imposta"
 PROMPT 22 54 ""
 MESSAGE _COD_TESTA TIMPS
END

STRINGA 65 11 1
BEGIN
 KEY "totale importi netti"
 PROMPT 68 48 ""
 MESSAGE _COD_TESTA IMPNETTO
END

STRINGA 66 11 1
BEGIN
 KEY "spese di imballo"
 PROMPT 43 50 ""
 MESSAGE _COD_TESTA SPIMB
END

STRINGA 67 2 1
BEGIN
 KEY "cancella 'iva' per sp. tras"
 PROMPT 43 51 "--"
END

STRINGA 68 8 1
BEGIN
 KEY "scritta 'spese di trasporto'"
 PROMPT 45 51 "S.TRASP."
END

STRINGA 69 11 1
BEGIN
 KEY "totale imposta"
 PROMPT 68 52 ""
 MESSAGE _COD_TESTA TIMPS
END

STRINGA 70 11 1
BEGIN
 KEY "totale fattura"
 PROMPT 68 54 ""
 MESSAGE _COD_TESTA TFATT
END

STRINGA 72 1 1
BEGIN
 KEY "trasporto a cura del mitt."
 PROMPT 1 57 ""
END

STRINGA 73 1 1
BEGIN
 KEY "trasporto a cura del dest."
 PROMPT 7 57 ""
END

STRINGA 74 1 1
BEGIN
 KEY "trasporto a cura del vett."
 PROMPT 15 57 ""
END

STRINGA 75 8 1
BEGIN
 KEY "data inizio trasporto"
 PROMPT 45 57 ""
END

STRINGA 76 5 1
BEGIN
 KEY "ora inizio trasporto"
 PROMPT 57 57 ""
END

STRINGA 77 40 1
BEGIN
 KEY "nominativo vettore 1"
 PROMPT 1 59 ""
END

STRINGA 78 40 1
BEGIN
 KEY "nominativo vettore 2"
 PROMPT 1 60 ""
END

STRINGA 79 41 1
BEGIN
 KEY "aspetto esteriore dei beni"
 PROMPT 1 63 ""
END

STRINGA 80 20 1
BEGIN
 KEY "causale"
 PROMPT 23 57 ""
END

STRINGA 81 12 1
BEGIN
 KEY "peso"
 PROMPT 44 63 ""
END

STRINGA 82 8 1
BEGIN
 KEY "colli"
 PROMPT 57 63 ""
END

END

END