no pues no me deja, me marca el mismo error que en el DTW y no me deja, no se si es por que se tiene que imprimir...
-5002: connot insert value in the 'Folio Number' field, y no me deja. pues sería bueno saber por que no me deja, solo trato de hacer el update.
mi código es así:
Row = 2
Do While Sheets(7).Cells(Row, "A") <> ""
numdocentry = Sheets(7).Cells(Row, "A")
vItem.GetByKey (numdocentry)
vItem.NumAtCard = Sheets(7).Cells(Row, "C")
vItem.Comments = Sheets(7).Cells(Row, "D")
' vItem.FolioPrefixString = "D"
vItem.FolioNumber = Sheets(7).Cells(Row, "D")
If vItem.NumAtCard <> "" Then
Retval = vItem.Update
ErrCode = oCompany.GetLastErrorCode
ErrorMessage = oCompany.GetLastErrorDescription
MsgBox (CStr(ErrCode) & ": " & ErrorMessage)
End If
Row = Row + 1
Loop