FT300PV- Geração do Pedido de Venda

A finalidade deste ponto de entrada é permitir a inclusão de campos nas tabelas SC5 - Cabeçalho e SC6 - Item no momento da gravação do pedido de vendas.

#INCLUDE 'PROTHEUS.CH'

User Function FT300PV()

Local aCabec    := {}
Local aItem     := {}
Local aLinha    := {}
Local aRet      := {}

//Necessário retornar um array com 2 posições, sendo:
//aRet[1] = Campos do cabeçalho do pedido de vendas (SC5)
//aRet[2] = Campos dos itens do pedido de vendas (SC6)

Aadd( aCabec,{"C5_TESTE","C5TES",Nil} )

If SCK->(DbSeek(xFilial("SCK")+SCJ->CJ_NUM))
    While ( SCK->(!Eof()) .And. xFilial("SCK")==SCK->CK_FILIAL .And. SCK->CK_NUM == SCJ->CJ_NUM)

        If SCK->CK_PRODUTO == "PROD0001"
            aLinha := {}
            Aadd( aLinha,{"C6_TESTE","Passou no Produto PROD0001",Nil} )
            Aadd(aItem,aLinha)
        EndIf

        SCK->(DbSkip())
    End
EndIf

Aadd(aRet,aCabec)
Aadd(aRet,aItem)

Return(aRet)

Português (Brasil)

Microsiga_Protheus11

Todos

Todas

_cFilial

_aRet(array_of_record)
Retonar um array com 2 posições, sendo:
- aRet[1] - Campos do cabeçalho (SC5)
- aRet[2] - Campos dos itens (SC6)

FATA300.PRX