#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   aInsSTL   := PARAMIXB[3] //QuantidadeArray com os Insumos(STL)
    Local cAlmoxcItemPos    := PARAMIXB[4] //ArmazemCódigo do Item
    Local cPlano dDtGersa   := PARAMIXB[5] //Data de geraçãoPlano da SAOS
    Local cTipoReg cCCGerasa := PARAMIXB[6] //Centro de Custo
 "P"        Local aInsSTL//Sempre sera realizado := PARAMIXB[7] //Array com os Insumos(STL)apenas para insumos do tipo produto
    Local nItemPoscSeqRela  := PARAMIXB[8] "0  "       //LinhaApenas doaltera arraypara posicionada no momentoinsumos previstos

    Local aRet      := {} //Array com os novos valores para atualizar a SCP
    Local aRetCab   := {}
    Local aRetItem  := {}
    Local cObsSTL   := ""

    dbselectArea( "STL" )
    dbsetorder(2) //TL_FILIAL+TL_TIPOREG+TL_SEQRELA+TL_CODIGO+TL_ORDEM+TL_PLANO
    If dbSeek( xFilial("STL") + cTipoReg + cSeqRela + cCodProd + cNumOP + cPlano)
        cObsSTL :=  STL->TL_OBSERVA
    EndIf

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

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

Return aRet