Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Gisele Aparecida da Silva

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
aVetVetorVetor 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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão