22389091 DVARMIL-7180 PE OX001ARS Reserva (antiga) de itens em Orçamento de Peças

User Function OX001ARS()

    Local aAuxItens := ParamIXB[1]
    Local nI        := 0

    If Len(aAuxItens) > 0

        aAuxItens[1][1] // D3_DOC - Numero do Documento
        aAuxItens[1][2] // D3_EMISSAO - Data de Emissao

        For nI := 2 To Len(aAuxItens) // A primeira posiçao se refere ao Doc da movimentação (D3_DOC)
        
            aAuxItens[nI][1]    // Produto Origem
            aAuxItens[nI][2]    // Descrição Produto Origem
            aAuxItens[nI][3]    // Unid Medida Produto Origem
            aAuxItens[nI][4]    // Local Produto Origem
            aAuxItens[nI][5]    // Localizacao Produto Origem

            aAuxItens[nI][6]    // Produto Destino
            aAuxItens[nI][7]    // Descrição Produto Destino
            aAuxItens[nI][8]    // Unid Medida Produto Destino
            aAuxItens[nI][9]    // Local Produto Destino
            aAuxItens[nI][10]   // Localizacao Produto Destino

            aAuxItens[nI][11]   // Número de série
            aAuxItens[nI][12]   // Número Lote
            aAuxItens[nI][13]   // Número Sub-lote
            aAuxItens[nI][14]   // Data de Validade
            aAuxItens[nI][15]   // D3_POTENCI - Potencia do lote
            aAuxItens[nI][16]   // Quantidade a ser transferida
            aAuxItens[nI][17]   // 2ª Unidade Unid Medida
            aAuxItens[nI][18]   // D3_ESTORNO - Foi estornado? (S/N) 
            aAuxItens[nI][19]   // D3_NUMSEQ - Numeracao sequencial
            aAuxItens[nI][20]   // Número Lote
            aAuxItens[nI][21]   // Data de Validade

            If //Integrado com o SIGAWMS - Gestão de Armazenagem
                aAuxItens[nI][22]   // D3_SERVIC - Codigo do Servico
            Endif

            aAuxItens[nI][23]   // D3_ITEMGRD - Identificador do item de grade

            If //Integrado com o SIGAWMS - Gestão de Armazenagem
                aAuxItens[nI][24]   // D3_IDDCF - Identificador DCF
            Endif

            If // Se a CAT83 esta ativa
                aAuxItens[nI][25]   // D3_CODLAN - Codigo Lançamento Cat83 
                aAuxItens[nI][26]   // D3_CODLAN - Codigo Lançamento Cat83
            Endif

            aAuxItens[nI][27]   // Observação

        Next

    Endif

Return aAuxItens