Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição:

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.

Exemplos:

#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)


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)

        If SCK->CK_PRODUTO == "PROD0001"
            aLinha := {}
            Aadd( aLinha,{"C6_TESTE","

C6TES

Passou no Produto PROD0001",Nil} )

Aadd( aLinha,{"C6_TESTE1","C6TES1",Nil})
aadd(

            Aadd(aItem,aLinha)
        EndIf

        SCK->(DbSkip())
    End
EndIf

aadd


Aadd(aRet,aCabec)

aadd

Aadd(aRet,aItem)

Return(aRet)

Idioma:

Português (Brasil)

Versões:

Microsiga_Protheus11

Sistemas Operacionais Suportados:

Todos

Compatível com as Bases de Dados:

Todas

Parâmetros:

_cFilial

Retorno:

_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)

Programa Fonte:

FATA300.PRX