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 |