cancel
Showing results for 
Search instead for 
Did you mean: 

Agregar folio y prefolio tabla facturas

angeles804
Active Contributor
0 Kudos
489

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.

View Entire Topic
felipe_loyolarodriguez
Active Contributor
0 Kudos

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
Active Contributor
0 Kudos

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
Active Contributor
0 Kudos

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
Active Contributor
0 Kudos

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

felipe_loyolarodriguez
Active Contributor
0 Kudos

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

Atte.

angeles804
Active Contributor
0 Kudos

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.