Histórico da Página

A finalidade deste ponto de entrada é permitir que o usuário inclua campos (a inclusão dos campos SC5 - Cabeçalho / e SC6 - Item) no momento da gravação do pedido de vendas.

User Function FT300PV()
Local aCabec := {}
Local aItem := {}
Local aLinha := {}

//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)
Local aRet := {}


Aadd( aCabec,{"C5_TESTE","C5TES",Nil} )
Aadd( aCabec,{"C5_TESTE1","C5TES1",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)

aLinha := {}
Aadd( aLinha,{"C6_TESTE","C6TES",Nil} )
Aadd( aLinha,{"C6_TESTE1","C6TES1",Nil})

aadd(aItem,aLinha)

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