Questo sito usa i cookie per fornirti un'esperienza migliore. Se usi questo sito acconsenti all'utilizzo dei cookie.

OKCHIUDICookie policy
Autore Messaggio
pmc srl 08/11/2016 12:10 pmc srl

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
Fabio 08/11/2016 12:57 Campo libero: Fabio

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

Buonasera, in allegato i due passaggi principali.

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

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

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)))
Fabio 08/11/2016 17:05 Campo libero: Fabio

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))))
pmc srl 10/11/2016 11:27 pmc srl

Buongiorno, ok funziona.

grazie