#Include 'Protheus.ch'

User Function NGALTSCP()

    Local cCodProd  := PARAMIXB[1] //Código do Produto
    Local cNumOP    := PARAMIXB[2] //Numero da ordem de produção
    Local nQtd      := PARAMIXB[3] //Quantidade
    Local cAlmox    := PARAMIXB[4] //Armazem
    Local dDtGersa  := PARAMIXB[5] //Data de geração da SA
    Local cCCGerasa := PARAMIXB[6] //Centro de Custo
    Local aInsSTL   := PARAMIXB[7] //Array com os Insumos(STL)
    Local nItemPos  := PARAMIXB[8] //Linha do array posicionada no momento
    Local aRet      := {} //Array com os novos valores para atualizar a SCP
    Local aRetCab   := {}
    Local aRetItem  := {}

    aRetItem := { {"CP_OBS" ,aInsSTL[ 4 , nItemPos , 20 ] ,NIL} }

    aAdd( aRet , aRetCab )
    aAdd( aRet , aRetItem )

Return aRet