Download pdf
Transcript
SPRIX _COSTA$ _COANN$ _CODTP$ _CODTA$ _CODTO$ _CODTS$ _CODTG$ _CODTD$ _CODTC$ _CODTU$ Stato Commessa Commessa Sostitutiva Data Preventivo Data Apertura Data Ordine Data Spedizione Data Chiusa in Garanzia Data Chiusura Data Creazionione Data Ultimo Aggiornamento _COTPS$(250) _COTPR$(250) _CORAP(250) _CORAV(250) _COSCA$(250) _COTPP$(250) _CODEP$(250) Tipo Pagamento % o valore % Valore Scadenza Stato Pagamento Descrizione _COAGE$ _COPPR _COTPCOM$ _COZONA$ Agente % Provvigion Tipo Zona _COCDT$ _CO1DT$ _CO2DT$ _COLDT$ _COANT _CORIC _COADT$(3) _COAIM(3) _COAPE(3) _COADE$(3) Data contratto Data 1^collaudo Data 2^collaudo Data consegna lavori % Anticipo % Ricarico Prezzo Data Anticipo Anticipo Penale Descrione _COALL$(4) Allegati PAGAMENTI CONDIZIONI COMMERCIALI CONTRATTO ALLEGATI Esempio: legge una commessa e le sostituisce la commessa sostitutiva AZZVARSYS 23 : GETCOMM "COMM1A3" : IF _ERRCO$<>"" THEN VIMSG 4,_ERRCO$ VIMSG 1, "Commessa Sostitutiva = " +_COANN$: _COANN$="COMM1A1" PUTCOMM : IF _ERRCO$<>"" THEN VIMSG 4,_ERRCO$ ELSE GOTO MSG MSG: VIMSG 1, "Ho modificato con nuova Commessa Sostitutiva = " +_COANN$ END _DA Variabili struttura archivi Anagrafica Indirizzi spedizione (GET-PUT) _DACTO$ _DACIN$ _DADES$ _DAIND$ _DACAP$ _DALOC$ _DAPRO$ _DANAZ$ _DAPAE$ _DATEL$ _DAFAX$ _DAMAI$ _DAINT$ _DACHI$ _DACON$ _DACEL$ _DANOT$ _DAALL$ _DADVA$ _DADCR$ _DADAG$ _DACTS$ _DACIS$ _DAANN$ _DARAG$ _DACIG$ _DACUP$ Codice conto Cli/For Cod. Indirizzo o AUTO Descrizione Indirizzo C.A.P. Località Provincia Nazionalità Paese ISO2 Telefono Fax Indirizzo e-Mail Indirizzo Internet Chius. sett. o stringa libera Riferimento Cellulare Riferimento Note Nome file allegato Data validità Data creazione Data aggiornamento Cod.conto sostitutivo Cod.indirizzo sostitutivo Annullato Raggruppa documenti S/N Codice CIG Codice CUP Esempio: registra un Anagrafica Indirizzo di Spedizione e poi la aggiorna _DACIN$="AUTO" : _DACTO$="201.00002" _DADES$="descrizione indirizzo":_DANAZ$="I":_DAPAE$="IT" PUTIND : IF _ERRDA<>0 THEN VIMSG 1, _ERRDA$ CODIND$=_DACIN$ IF _ERRDA=0 THEN VIMSG 1, "dopo la scrittura|aggiorno la descrizione" AZZVARSYS 12: GETIND CODIND$,"": IF _ERRDA<>0 THEN VIMSG 1, _ERRDA$ _DADES$="NUOVA Descrizione" PUTIND : IF _ERRDA<>0 THEN VIMSG 1, _ERRDA$ END MANUALE SPRIX/COLLAGE 21