Histórico da Página

Descrição

Objetivo:

Permitir

manipular

os

dados

do

produto

origem

e

subprodutos

antes

de

executar

a

rotina

automática

MATA242

(desmontagem

de

produtos).

Exemplos

#Include "Protheus.ch"

User

Function

AGR620DP()

Local

aCab

:=

aClone(Paramixb

[1])

Local

aItens

:=

aClone(Paramixb

[2])

Local

aRet

:=

{}

Local

nPos

:=

aScan(aCab,

{

|x

|

x

[1]

==

"cLocOrig"}

)

Local

nX

:=

0

If

nPos

>

0

aCab

[nPos,2]

:=

"02"

//

Local

origem

do

produto

EndIf

For

nX

:=

1

To

Len(aItens)

AADD(aItens

[nX],

{"D3_CONTA"

,"1"

,NIL})

//

Conta

Contábil

AADD(aItens

[nX],

{"D3_CC"

,"CC01"

,NIL})

//

Centro

de

Custo

Next

nX

aRet

:=

{aClone(aCab),

aClone(aItens)}

Return(aRet)

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas

Operacionais

Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

Paramixb[1] - Dados do Produto Origem
Paramixb[2] - Dados dos subprodutos originados

Retorno

aRet[1] - Dados do Produto Origem
aRet[2] - Dados dos subprodutos originados

Eventos de chamada do Ponto de Entrada

ExecBlock("AGR620DP",.F.,.F.,

{a242Cab,

a242Itens})

Programa

Fonte

AGRA620.PRW