Create PO Receipt with Lot tracking

[vbdbcoder]

I am having problem following the macro code captured to create PO receipt detail line with Lot # and Lot qty.

The scenario is to populate a Lot # value and Lot qty from my own value when receiving an item. It is one to one relationship to the PO receipt line. I receive 10 item AAA, then the Lot # "555" should have a qty of 10.

Is there any sample code that can help ?

Thanks

 

[Jay Converse]

Record a macro that adds a lot, you'll get your code.

 

[DjangMan]

As Tuba said, recording macros will get you what you need here. However, I've got some code handy that should assist.

You first need to get the line read to receive serial or lot information.

Public Sub PrepareLineForSerialsOrLots()
    If Not (m_bSuccess) Then Exit Sub
    With PORCP1detail1
        .Fields("PROCESSCMD").PutWithoutVerification ("29")       
        .Process
    End With
End Sub

Then you can add your lot information.

Public Sub CreateLot(aLotNo As String, aQty As Double)
    On Error GoTo CreateLot_Error

    With PORCP1detail14
        .RecordClear
        .Fields("LOTNUMF").PutWithoutVerification aLotNo
        If .Read Then
            .Fields("QTY").Value = .Fields("QTY").Value + aQty
            .Fields("QTYSQ").Value = .Fields("QTYSQ").Value + aQty
            .Update
        Else
            .RecordCreate VIEW_RECORD_CREATE_NOINSERT
            .Fields("LOTNUMF").Value = aLotNo
            .Fields("QTY").Value = aQty
            .Fields("QTYSQ").Value = aQty
            .Insert
        End If
    End With
Cleanup:
    On Error GoTo 0
    Exit Sub

CreateLot_Error:

    m_sMsg = GetAccpacErrors(AccpacSession)
    MsgBox "Errors reported in POReceipt61.CreateLot: " & m_sMsg
    Resume Cleanup

End Sub