Questo sito usa i cookie per fornirti un'esperienza migliore. Cliccando su "Accetta" saranno attivate tutte le categorie di cookie. Per decidere quali accettare, cliccare invece su "Personalizza". Per maggiori informazioni è possibile consultare la pagina Cookie policy.

PersonalizzaAccetta
CHIUDI
Autore Messaggio
U0 08/11/2016 12:10 U0

formato data esportazione dati

Buongiorno, sto cercando di ottenere un esportazione di dati dove all'interno deve contenere una colonna "data" in formato aaaammgg.
Dopo aver scelto sul vostro programma l'export in tale formato in realtà quando andiamo a verificare il file non troviamo il formato data come voluto, non riusciamo a capire dove è l'errore, potete aiutarmi ? grazie.

Antonio
U0 08/11/2016 12:57 Campo libero: U0

Buongiorno Antonio,
potrebbe allegare uno screenshot di come ha configurato questa esportazione?
U0 08/11/2016 16:40 U0

Buonasera, in allegato i due passaggi principali.

Dovrebbero essere sufficienti per fare le vostre verifiche, per qualsiasi altra informazione non esitate a contattarmi.

Antonio
U0 08/11/2016 17:05 Campo libero: U0

Ok capito.

L'esportazione in formato AAAAMMGG non e' pero' possibile in questo modo, e' necessario formattare i campi con degli script

Per la data documento potete utilizzare qualcosa di questo tipo

Option Explicit

Dim dateValue
Function ExpandP0(valore,lunghezza)
   While len(valore)<lunghezza
      valore="0" & valore
   Wend
   ExpandP0=valore
End Function
Function DateToYYYYMMDD(dateValue)
    If Year(dateValue)>1900 Then
        DateToYYYYMMDD=ExpandP0(Year(dateValue),4) & ExpandP0(Month(dateValue),2) & ExpandP0(Day(dateValue),2)
    Else
        DateToYYYYMMDD=""
    End If
End Function
Response.Write(DateToYYYYMMDD(Rdy.toDate(Doc.DocDate)))
U0 08/11/2016 17:05 Campo libero: U0

Per la data inizio trasporto invece si utilizza Doc.CustomField(190) come alternativa a Doc.DocDate

Option Explicit

Dim dateValue
Function ExpandP0(valore,lunghezza)
   While len(valore)<lunghezza
      valore="0" & valore
   Wend
   ExpandP0=valore
End Function
Function DateToYYYYMMDD(dateValue)
    If Year(dateValue)>1900 Then
        DateToYYYYMMDD=ExpandP0(Year(dateValue),4) & ExpandP0(Month(dateValue),2) & ExpandP0(Day(dateValue),2)
    Else
        DateToYYYYMMDD=""
    End If
End Function
Response.Write(DateToYYYYMMDD(Rdy.toDate(Doc.CustomField(190))))
U0 10/11/2016 11:27 U0

Buongiorno, ok funziona.

grazie