Agregar folio y prefolio tabla facturas

[angeles804]

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.

[felipe_loyolarodriguez]

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

[angeles804]

Gracias Felipe, voy a intentarlo a ver si jala pues se supone que la lógica de el dtw debe ser igual al manejo de los objetos en macro. voy a intentarlo por ahí.

[angeles804]

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

[angeles804]

Debe ser el campo para confirmar que es en bd es lpg

[felipe_loyolarodriguez]

Yo uso localización chilena de SAP, quizás la localización Mexicana tiene esa validación.

Atte.

[angeles804]

pues no se si a ustedes cuando imprimen envia el folio y la confirmacion del folio, en méxico siempre me lo ha enviado, pienso que puede ser ese campo, pero dentro de los campos del registro de el objeto no lo encuentro.