diff --git a/ve/vebol.frm b/ve/vebol.frm index 94f3243d2..67648428c 100755 --- a/ve/vebol.frm +++ b/ve/vebol.frm @@ -9,6 +9,7 @@ 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 %ASP TO 33 ALIAS 206 INTO CODTAB==ASPBENI1 +JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP END DESCRIPTION @@ -22,7 +23,7 @@ BEGIN 203@->* "Tabella porto" 204@->* "Tabella banche" 205@->* "Tabella vettori" - 206@->* "Tabella apsetto beni" + 206@->* "Tabella aspetto beni" END GENERAL @@ -33,6 +34,7 @@ BEGIN MODULE "BUFFETTI_BOLLA_01" END + SECTION HEADER ODD 33 STRING 1 36 1 @@ -98,9 +100,9 @@ END STRING 15 35 2 BEGIN - KEY "destinatario, indirizzo" + KEY "destinatario, indirizzo con numero civico" PROMPT 44 18 "" - MESSAGE _CLIENTE,!IND + MESSAGE _CLIENTE,!INDNUM END STRING 16 5 1 @@ -250,43 +252,37 @@ BEGIN FIELD 34->CODART END -STRING 33 10 4 +STRING 33 25 4 BEGIN KEY "descrizione articolo" PROMPT 25 1 "" -// Stampare il campo descrizione estesa e non l'anagrafica dell'articolo - FIELD 47->DESCR + MESSAGE _DESCRIGA END -STRING 90 12 1 -BEGIN - KEY "campo di prova per gli allineamenti" - PROMPT 42 1 "allineamento" - MESSAGE _ALIGN,#33,BOTTOM -END - -STRING 34 2 1 +STRING 34 2 BEGIN KEY "unità di misura" PROMPT 56 1 "" FIELD 34->UMQTA + MESSAGE _ALIGN,#33,BOTTOM END -NUMBER 35 6 3 +STRING 35 10 BEGIN KEY "quantita" PROMPT 60 1 "" - PICTURE "@@@@@@,###" + PICTURE "@@@@@@,@@@" FIELD 34->QTA - MESSAGE COPY,36 + MESSAGE _ALIGN,#33,BOTTOM END -NUMBER 36 +NUMBER 36 20 BEGIN KEY "quantita' lettere" PROMPT 72 1 "" + FIELD 34->QTA PICTURE "LETTERE" - //MESSAGE _CIFRELET,#35 + MESSAGE _ALIGN,#33,BOTTOM END END @@ -308,8 +304,10 @@ BEGIN KEY "trasporto a cura del mittente" PROMPT 4 1 "" FIELD 33->CODSPMEZZO - ITEM "|" // default - ITEM "M|x" + ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@ + ITEM "D| " + ITEM "M|X" MESSAGE DISABLE,6@|ENABLE,5@ + ITEM "V| " END LIST 38 1 1 @@ -317,8 +315,10 @@ BEGIN KEY "trasporto a cura del destinatario" PROMPT 13 1 "" FIELD 33->CODSPMEZZO - ITEM "|" // default - ITEM "D|x" + ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@ + ITEM "D|X" MESSAGE DISABLE,6@|ENABLE,5@ + ITEM "M| " + ITEM "V| " END LIST 39 1 1 @@ -326,8 +326,10 @@ BEGIN KEY "trasporto a cura del vettore" PROMPT 23 1 "" FIELD 33->CODSPMEZZO - ITEM "|" // default - ITEM "V|x" + ITEM "|" + ITEM "D| " + ITEM "M| " + ITEM "V|X" MESSAGE DISABLE,5@|ENABLE,6@ END STRING 40 45 1 @@ -346,7 +348,7 @@ END DATE 42 8 1 BEGIN - KEY "data inizio trasporto" + KEY "data inizio trasporto/consegna" PROMPT 51 3 "" FIELD 33->DATAPART FORMAT "1442-" @@ -354,32 +356,57 @@ END STRING 43 5 1 BEGIN - KEY "ora inizio trasporto" + KEY "ora inizio trasporto/consegna" PROMPT 60 3 "" + PICTURE "## ##" FIELD 33->ORAPART END -STRING 44 27 1 +DATE 44 8 1 +BEGIN + KEY "data ritiro da parte del vettore" + PROMPT 51 3 "" + FIELD 33->DATAPART + FORMAT "1442-" +END + +STRING 45 5 1 +BEGIN + KEY "ora ritiro da parte del vettore" + PROMPT 60 3 "" + PICTURE "## ##" + FIELD 33->ORAPART +END + +STRING 46 27 1 BEGIN KEY "aspetto beni" PROMPT 37 1 "" FIELD 206@->S0 END -STRING 45 7 1 +STRING 48 7 1 BEGIN KEY "peso" PROMPT 73 1 "" FIELD 33->PNETTO END -STRING 46 5 1 +STRING 49 5 1 BEGIN KEY "colli" PROMPT 66 1 "" FIELD 33->NCOLLI END +STRING 50 15 +BEGIN + KEY "causale di trasporto" + PROMPT 25 4 "" + FIELD 207@->S0 + FLAGS "H" +END + END END diff --git a/ve/vebolbmp.frm b/ve/vebolbmp.frm new file mode 100755 index 000000000..2ff8db289 --- /dev/null +++ b/ve/vebolbmp.frm @@ -0,0 +1,429 @@ + +USE 34 +JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC +JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP +JOIN 47 INTO CODART==CODART +JOIN %CPG TO 33 ALIAS 201 INTO CODTAB==CODPAG +JOIN %AGE TO 33 ALIAS 202 INTO CODTAB==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 %ASP TO 33 ALIAS 206 INTO CODTAB==ASPBENI1 +JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP + +END +DESCRIPTION +BEGIN + 34->* "Righe documenti di vendita" + 33->* "Documenti di vendita" + 16->* "Indirizzi di spedizione (destinazione)" + 47->* "Anagrafica magazzino" + 201@->* "Tabella condizioni di pagamento" + 202@->* "Tabella agenti" + 203@->* "Tabella porto" + 204@->* "Tabella banche" + 205@->* "Tabella vettori" + 206@->* "Tabella aspetto beni" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 12 + MODULE "BUFFETTI_BOLLA_01" +END + + +//SECTION GRAPHICS ODD + +//FIGURA 99 80 65 +//BEGIN +// PROMPT 1 1 "bolla.bmp" +//END + +//END + +SECTION HEADER ODD 29 + +STRING 1 36 1 +BEGIN + KEY "nome ditta" + PROMPT 5 5 "" + MESSAGE _DITTA,!RAGSOC +END + +STRING 2 36 1 +BEGIN + KEY "indirizzo ditta" + PROMPT 5 6 "" + MESSAGE _DITTA,!IND +END + +STRING 3 5 1 +BEGIN + KEY "cap ditta" + PROMPT 5 7 "" + MESSAGE _DITTA,!CAP +END + +STRING 4 30 1 +BEGIN + KEY "comune ditta" + PROMPT 12 7 "" + MESSAGE _DITTA,!COM +END + +STRING 5 5 1 +BEGIN + KEY "scritta P.IVA" + PROMPT 5 8 "P.IVA" +END + +STRING 6 16 1 +BEGIN + KEY "partita iva ditta" + PROMPT 11 8 "" + MESSAGE _DITTA,!IVA +END + +STRING 7 9 1 +BEGIN + KEY "scritta COD.FISC." + PROMPT 5 9 "COD.FISC." +END + +STRING 8 16 1 +BEGIN + KEY "codice fiscale ditta" + PROMPT 15 9 "" + MESSAGE _DITTA,!CF +END + +STRING 14 35 2 +BEGIN + KEY "destinatario, ditta" + PROMPT 44 14 "" + MESSAGE _CLIENTE,!RAGSOC +END + +STRING 15 35 2 +BEGIN + KEY "destinatario, indirizzo con numero civico" + PROMPT 44 16 "" + MESSAGE _CLIENTE,!INDNUM +END + +STRING 16 5 1 +BEGIN + KEY "destinatario, cap" + PROMPT 44 18 "" + MESSAGE _CLIENTE,!CAP +END + +STRING 17 30 2 +BEGIN + KEY "destinatario, comune" + PROMPT 50 18 "" + MESSAGE _CLIENTE,!COM +END + +STRING 18 2 +BEGIN + KEY "destinatario, provincia" + PROMPT 72 19 "" + MESSAGE _CLIENTE,!PROV +END + +DATE 19 8 1 +BEGIN + KEY "data bolla" + PROMPT 60 21 "" + FIELD 33->DATADOC + FORMAT "1442-" +END + +NUMBER 20 +BEGIN + KEY "numero bolla" + PROMPT 71 21 "" + FIELD 33->NDOC +END + +STRING 21 30 2 +BEGIN + KEY "destinazione, indirizzo" + PROMPT 5 14 "" + FIELD 16->INDIR +END + +STRING 32 5 1 +BEGIN + KEY "destinazione, cap" + PROMPT 5 16 "" + FIELD 16->CAP +END + +STRING 49 5 1 +BEGIN + KEY "" + PROMPT 1 1 "" + FLAGS "H" + FIELD 16->COM +END + +STRING 33 21 +BEGIN + KEY "destinazione, comune" + PROMPT 5 18 "" + MESSAGE _ISAMREAD,13,COM=#49,DENCOM +END + +STRING 34 2 1 +BEGIN + KEY "destinazione, provincia" + PROMPT 28 18 "" + MESSAGE _ISAMREAD,13,COM=#49,PROVCOM +END + +NUMBER 22 +BEGIN + KEY "ordine" + PROMPT 3 21 "" + FIELD 33->NUMDOCRIF +END + +DATE 23 8 1 +BEGIN + KEY "data conferma" + PROMPT 43 21 "" + FIELD 33->DATADOCRIF + FORMAT "1442-" +END + +STRING 24 48 1 +BEGIN + KEY "condizioni pagamento" + PROMPT 3 23 "" + FIELD 201@->S0 +END + +STRING 25 29 1 +BEGIN + KEY "banca appoggio" + PROMPT 53 23 "" + FIELD 204@->S0 +END + +STRING 26 7 1 +BEGIN + KEY "codice cliente" + PROMPT 8 25 "" + FIELD 33->CODCF +END + +STRING 27 11 1 +BEGIN + KEY "partita iva cliente" + PROMPT 18 25 "" + MESSAGE _CLIENTE,!IVA +END + +STRING 28 18 1 +BEGIN + KEY "porto" + PROMPT 41 25 "" + FIELD 203@->S0 + FLAGS "D" +END + +NUMBER 29 +BEGIN + KEY "codice agente" + PROMPT 2 25 "" + FIELD 33->CODAG +END + +STRING 30 28 1 +BEGIN + KEY "nome agente" + PROMPT 33 29 "" + FIELD 202@->S0 + FLAGS "D" +END + +END + +SECTION BODY ODD 5 + +STRING 32 13 1 +BEGIN + KEY "codice articolo" + PROMPT 5 1 "" + FIELD 34->CODART +END + +STRING 33 29 4 +BEGIN + KEY "descrizione articolo" + PROMPT 48 1 "" + MESSAGE _DESCRIGA +END + +STRING 34 2 +BEGIN + KEY "unità di misura" + PROMPT 30 1 "" + FIELD 34->UMQTA + MESSAGE _ALIGN,#33,TOP +END + +STRING 35 10 +BEGIN + KEY "quantita" + PROMPT 17 1 "" + PICTURE "@@@@@@,@@@" + FIELD 34->QTA + MESSAGE _ALIGN,#33,TOP +END + +NUMBER 36 20 +BEGIN + KEY "quantita' lettere" + PROMPT 72 1 "" + FIELD 34->QTA + PICTURE "LETTERE" + MESSAGE _ALIGN,#33,BOTTOM + FLAGS "D" +END + +END + +SECTION FOOTER ODD 15 + +STRING 47 5 +BEGIN + KEY "scritta SEGUE" + PROMPT 72 13 "SEGUE" +END + +END + +SECTION FOOTER LAST 15 + +LIST 37 1 1 +BEGIN + KEY "trasporto a cura del mittente" + PROMPT 2 4 "" + FIELD 33->CODSPMEZZO + ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@ + ITEM "D| " + ITEM "M|X" MESSAGE DISABLE,6@|ENABLE,5@ + ITEM "V| " +END + +LIST 38 1 1 +BEGIN + KEY "trasporto a cura del destinatario" + PROMPT 9 4 "" + FIELD 33->CODSPMEZZO + ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@ + ITEM "D|X" MESSAGE DISABLE,6@|ENABLE,5@ + ITEM "M| " + ITEM "V| " +END + +LIST 39 1 1 +BEGIN + KEY "trasporto a cura del vettore" + PROMPT 17 4 "" + FIELD 33->CODSPMEZZO + ITEM "|" // default + ITEM "D| " + ITEM "M| " + ITEM "V|X" MESSAGE DISABLE,5@|ENABLE,6@ +END + +STRING 40 45 1 +BEGIN + KEY "nome vettore" + PROMPT 3 6 "" + FIELD 205@->S0 +END + +STRING 41 45 1 +BEGIN + KEY "indirizzo vettore" + PROMPT 3 8 "" + FIELD 205@->S1 +END + +DATE 42 8 1 +BEGIN + KEY "data inizio trasporto/consegna" + PROMPT 48 4 "" + FIELD 33->DATAPART + FORMAT "1442-" + GROUP 5 +END + +STRING 43 5 1 +BEGIN + KEY "ora inizio trasporto/consegna" + PROMPT 60 4 "" + PICTURE "## ##" + FIELD 33->ORAPART + GROUP 5 +END + +DATE 44 8 1 +BEGIN + KEY "data ritiro" + PROMPT 51 7 "" + FIELD 33->DATAPART + FORMAT "1442-" + FLAGS "D" + GROUP 6 +END + +STRING 45 5 1 +BEGIN + KEY "ora ritiro" + PROMPT 60 7 "" + PICTURE "## ##" + FIELD 33->ORAPART + FLAGS "D" + GROUP 6 +END + +STRING 46 27 1 +BEGIN + KEY "aspetto beni" + PROMPT 1 8 "" + FIELD 206@->S0 +END + +STRING 48 7 1 +BEGIN + KEY "peso" + PROMPT 45 10 "" + FIELD 33->PNETTO +END + +STRING 49 5 1 +BEGIN + KEY "colli" + PROMPT 60 10 "" + FIELD 33->NCOLLI +END + +STRING 50 15 +BEGIN + KEY "causale" + PROMPT 25 4 "" + FIELD 207@->S0 +END + +END + +END diff --git a/ve/vefat.frm b/ve/vefat.frm index 891a4690c..d3aafa0f2 100755 --- a/ve/vefat.frm +++ b/ve/vefat.frm @@ -47,7 +47,7 @@ BEGIN 203@->* "Tabella porto" 204@->* "Tabella banche" 205@->* "Tabella vettori" - 206@->* "Tabella apsetto beni" + 206@->* "Tabella aspetto beni" END GENERAL @@ -56,6 +56,9 @@ BEGIN FONT "Courier New" SIZE 12 MODULE BUFFETTI_FATTURA_01 + PRI_DECIMALS 0 2 + QTA_DECIMALS 3 + IMP_DECIMALS 0 2 END ///////////////////////////////////////////////// @@ -65,28 +68,28 @@ STRINGA 1 35 1 BEGIN KEY "nome ditta" PROMPT 3 4 "" - MESSAGE _DITTA !RAGSOC + MESSAGE _DITTA, !RAGSOC END STRINGA 2 35 1 BEGIN KEY "indirizzo ditta" PROMPT 3 5 "" - MESSAGE _DITTA !IND + MESSAGE _DITTA, !IND END STRINGA 3 5 1 BEGIN KEY "cap ditta" PROMPT 3 6 "" - MESSAGE _DITTA !CAP + MESSAGE _DITTA, !CAP END STRINGA 4 30 1 BEGIN KEY "comune ditta" PROMPT 10 6 "" - MESSAGE _DITTA !COM + MESSAGE _DITTA, !COM END STRINGA 5 5 1 @@ -99,7 +102,7 @@ STRINGA 6 16 1 BEGIN KEY "partita iva ditta" PROMPT 9 7 "" - MESSAGE _DITTA !PIVA + MESSAGE _DITTA, !PIVA END STRINGA 7 9 1 @@ -112,19 +115,21 @@ STRINGA 8 16 1 BEGIN KEY "codice fiscale ditta" PROMPT 13 8 "" - MESSAGE _DITTA !CF + MESSAGE _DITTA, !CF END NUMERO 9 10 1 BEGIN KEY "reg.soc.trib...." - PROMPT 3 9 "RED.SOC.TRIB.R.E. " + PROMPT 3 9 "REG.SOC.TRIB.R.E. " + MESSAGE _DITTA, !REGSOC END NUMERO 12 10 1 BEGIN KEY "c.c.i.a.a. ....." PROMPT 3 10 "C.C.I.A.A. " + MESSAGE _DITTA, !CCIAA END STRINGA 14 8 1 @@ -191,47 +196,46 @@ BEGIN FIELD 204@->S0 END -STRINGA 23 38 1 +STRINGA 23 38 2 BEGIN - KEY "cliente ragione sociale 1" + KEY "cliente ragione sociale " PROMPT 44 11 "" + MESSAGE _CLIENTE,!RAGSOC END -STRINGA 24 38 1 +STRINGA 24 35 2 BEGIN - KEY "cliente ragione sociale 2" - PROMPT 44 12 "" -END - -STRINGA 25 38 1 -BEGIN - KEY "cliente indirizzo 1" + KEY "cliente indirizzo con numero civico" PROMPT 44 13 "" + MESSAGE _CLIENTE,!INDNUM END -STRINGA 26 38 1 +STRINGA 25 3 BEGIN - KEY "cliente indirizzo 2" - PROMPT 44 14 "" + KEY "Numero di pagina" + PROMPT 74 10 "" + MESSAGE _PAGENO END STRINGA 27 5 1 BEGIN KEY "cliente cap" PROMPT 44 15 "" + MESSAGE _CLIENTE,!CAP END STRINGA 28 30 1 BEGIN - KEY "cliente localita 1" + KEY "cliente comune" PROMPT 50 15 "" + MESSAGE _CLIENTE,!COM END STRINGA 30 2 1 BEGIN KEY "cliente provincia" PROMPT 73 16 "" - FIELD 13->PROVCOM + MESSAGE _CLIENTE,!PROV END STRINGA 31 2 1 @@ -243,7 +247,7 @@ END END ///////////////////////////////////////////////// -SECTION BODY ODD 1 +SECTION BODY ODD 5 STRINGA 32 13 1 BEGIN @@ -252,48 +256,88 @@ BEGIN FIELD 34->CODART END -STRINGA 33 19 1 +STRINGA 33 25 4 BEGIN KEY "descrizione articolo" PROMPT 17 1 "" - FIELD 47->DESCR + MESSAGE _DESCRIGA END -STRINGA 34 3 1 +STRINGA 34 2 BEGIN KEY "unita' di misura" PROMPT 38 1 "" + FIELD 34->UMQTA + MESSAGE _ALIGN,#33,BOTTOM END -NUMBER 35 8 1 +STRING 35 10 BEGIN KEY "quantita'" PROMPT 42 1 "" + PICTURE "@@@@@@@,@@@" FIELD 34->QTA + MESSAGE _ALIGN,#33,BOTTOM END -STRINGA 36 10 1 +STRINGA 36 15 BEGIN KEY "prezzo unitario" PROMPT 52 1 "" + PICTURE "###.###.###,@@@" + FIELD 34->PREZZO + MESSAGE _ALIGN,#33,BOTTOM END -STRINGA 37 3 1 +STRINGA 37 25 BEGIN KEY "sconto" PROMPT 64 1 "" + FIELD 34->SCONTO + MESSAGE _ALIGN,#33,BOTTOM END -STRINGA 38 11 1 +STRINGA 38 15 BEGIN KEY "importo netto" PROMPT 68 1 "" + PICTURE "###.###.###,@@@" + MESSAGE _TOTAL_RIGA,IMPNETTO|_ALIGN,#33,BOTTOM END -STRINGA 39 3 1 +STRINGA 39 4 BEGIN KEY "iva" PROMPT 81 1 "" + FIELD 34->CODIVA + MESSAGE _ALIGN,#33,BOTTOM +END + +STRINGA 40 15 +BEGIN + KEY "prezzo unitario scontato" + PROMPT 68 1 "" + PICTURE "###.###.###,@@@" + MESSAGE _TOTAL_RIGA,IMPUNITARIO|_ALIGN,#33,BOTTOM + FLAGS "D" +END + +STRINGA 41 15 +BEGIN + KEY "provvigione" + PROMPT 68 1 "" + PICTURE "###.###.###,@@@" + MESSAGE _TOTAL_RIGA,PROVVIGIONE|_ALIGN,#33,BOTTOM + FLAGS "D" +END + +STRINGA 42 15 +BEGIN + KEY "Imposta" + PROMPT 68 1 "" + PICTURE "###.###.###,@@@" + MESSAGE _TOTAL_RIGA,IMPOSTA|_ALIGN,#33,BOTTOM + FLAGS "D" END END @@ -301,28 +345,43 @@ END ///////////////////////////////////////////////// SECTION FOOTER ODD 13 +STRINGA 76 5 1 +BEGIN + KEY "stampa 'segue' in coda" + PROMPT 73 13 "SEGUE" +END + +END + +///////////////////////////////////////////////// +SECTION FOOTER LAST 13 + STRINGA 40 11 1 BEGIN KEY "spese di trasporto" PROMPT 42 53 "" + MESSAGE _TOTAL_CODA,SPTRAS END STRINGA 41 6 1 BEGIN KEY "spese di incasso" PROMPT 56 63 "" + MESSAGE _TOTAL_CODA,SPINC END STRINGA 42 11 1 BEGIN KEY "spese di imballo" PROMPT 56 53 "" + MESSAGE _TOTAL_CODA,SPIMB END STRINGA 43 5 1 BEGIN KEY "spese bolli" PROMPT 64 63 "" + MESSAGE _TOTAL_CODA,SPBOL END STRINGA 44 11 1 @@ -419,30 +478,35 @@ STRINGA 59 12 1 BEGIN KEY "totale imponibile" PROMPT 6 63 "" + MESSAGE _TOTAL_CODA,TIMP END STRINGA 60 11 1 BEGIN KEY "totale imposta" PROMPT 23 63 "" + MESSAGE _TOTAL_CODA,TIMPS END STRINGA 61 9 1 BEGIN KEY "totale esenti" PROMPT 36 63 "" + MESSAGE _TOTAL_CODA,TESEN END STRINGA 62 11 1 BEGIN KEY "totale importi netti" PROMPT 3 53 "" + MESSAGE _TOTAL_CODA,IMPNETTO END STRINGA 63 12 1 BEGIN KEY "totale fattura" PROMPT 71 63 "" + MESSAGE _TOTAL_CODA,TFATT END STRINGA 64 8 1 @@ -515,19 +579,9 @@ STRINGA 75 12 1 BEGIN KEY "netto da pagare" PROMPT 71 66 "" - MESSAGE _COD_TESTA NETPAG + MESSAGE _TOTAL_CODA,NETPAG END END -///////////////////////////////////////////////// -SECTION FOOTER LAST 13 - -STRINGA 76 5 1 -BEGIN - KEY "stampa 'segue' in coda" - PROMPT 73 13 "SEGUE" -END - -END