on 2014 Nov 01 4:48 PM
estoy intentado agregar el folio y el prefijo en datatransfer pero me marca un error, alguien me podría decir por que me marca, tengo el recordkey, docentry, folio y prefijo, es una actualización en teoría no debería de haber problema. estoy intentado hacer una macro para que pueda subirla en automático, pero antes hago pruebas para ver si con datatransfer sube.
Request clarification before answering.
Buenos días
Por macro puedes realizarlo de la siguiente manera
Dim oDoc As SAPbobsCOM.Documents
Set oDoc = oCompany.GetBusinessObject(oInvoices)
If oDoc.GetByKey(Sheets("Cambia Folio").Cells(Row, 5)) = True Then
oDoc.FolioPrefixString = Sheets("Cambia Folio").Cells(Row, 7)
oDoc.FolioNumber = Sheets("Cambia Folio").Cells(Row, 😎
lRetCode = oDoc.Update()
If lRetCode <> 0 Then
ErrCod = oCompany.GetLastErrorCode
ErrMsg = oCompany.GetLastErrorDescription
MsgBox (CStr(ErrCod) & ": " & ErrMsg)
End If
End If
Saludos
Message was edited by: Felipe Loyola
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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
User | Count |
---|---|
100 | |
13 | |
11 | |
5 | |
5 | |
5 | |
3 | |
2 | |
2 | |
2 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.