Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

	OX004AIP - Vetor de Integração
	OX004AIP - Vetor de Integração

Ponto-de-Entrada: OX004AIP - Vetor de Integração

Abrangências:	Microsiga Protheus 10 , Microsiga Protheus 11
Versões:	Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Português (Brasil)

Descrição:

 Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXX001), que possibilita alterações no vetor de integração na geração do pedido de venda.

Eventos

User Function VX021AGA()

aVet := ParamIXB[1]

MsgInfo(“Ponto de Entrada VX021AGA”,”Atencao”)

return aVet

Programa Fonte

OFIXX004.PRW

Sintaxe

OX004AIP - Vetor de Integração ( [ aVet ] ) --> aVet

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

aVet

Vetor

Vetor de Integraçao de um item do pedido de venda

Retorno

aVet

Vetor de Integraçao de um item do pedido de venda customizado

Observações

aAdd(aIteTempPV,{"C6_ITEM" ,cNumIte ,Nil})

aAdd(aIteTempPV,{"C6_PRODUTO",SB1->B1_COD ,Nil})

aAdd(aIteTempPV,{"C6_QTDVEN" ,VS3->VS3_QTDITE,Nil})

aAdd(aIteTempPV,{"C6_ENTREG" ,dDataBase ,Nil})

aAdd(aIteTempPV,{"C6_UM" ,SB1->B1_UM ,Nil})

aAdd(aIteTempPV,{"C6_TES" ,VS3->VS3_CODTES ,Nil})

aAdd(aIteTempPV,{"C6_LOCAL" ,VS3->VS3_LOCAL,Nil})

if VS3->(FieldPos("VS3_SITTRI")) > 0

aAdd(aIteTempPV,{"C6_CLASFIS",VS3->VS3_SITTRI ,Nil})

endif

aAdd(aIteTempPV,{"C6_PRUNIT" ,VS3->VS3_VALPEC,Nil})

aAdd(aIteTempPV,{"C6_PRCVEN" ,VS3->VS3_VALPEC,Nil})

aAdd(aIteTempPV,{"C6_VALOR" ,VS3->VS3_VALTOT+VS3->VS3_VALDES,Nil})

aAdd(aIteTempPV,{"C6_VALDESC",VS3->VS3_VALDES ,Nil})

aAdd(aIteTempPV,{"C6_COMIS1" ,0 ,Nil})

aAdd(aIteTempPV,{"C6_DESCRI" ,SB1->B1_DESC ,Nil})

aAdd(aIteTempPV,{"C6_CLI" ,VS1->VS1_CLIFAT ,Nil})

aAdd(aIteTempPV,{"C6_LOJA" ,VS1->VS1_LOJA ,Nil})

aAdd(aIteTempPV,{"C6_QTDEMP" ,VS3->VS3_QTDITE ,Nil})

aAdd(aIteTempPV,{"C6_QTDLIB" ,VS3->VS3_QTDITE ,Nil})

//

If ( ExistBlock("OX004AIP") )

aIteTempPV := ExecBlock("OX004AIP",.f.,.f.,{aIteTempPV})

EndIf

//

DBSelectArea("VS1")

DBSetOrder(1)

DBSeek(xFilial("VS1")+cOrcOrcT)

//

aAdd(aItePv,aClone(aIteTempPV))

//

DBSelectArea("VS3")

DBSkip()

Variáveis

Nome

Tipo

Escopo

Pode Alterar

descrição

Array of Record

Global

Não

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave