Linha Microsiga Protheus

Árvore de páginas

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