OX001AHP - Exclusão de campos na aHeader de peças.

Descrição

Ponto de entrada na rotina Orçamento de Peças (OFIXX001) que possibilita a exclusão de campos na aHeader de Peças.

Observações

Exemplos

User Function OX001AHP()
Local cVS3nMostra := ParamIxb[01]

If FM_PILHA("OFIOA330")
cVS3nMostra += "VS3_CODINC,VS3_GRUINC,VS3_DESINC,VS3_SEQINC,"
Endif

Return cVS3nMostra

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

cVS3nMostra = variável com os campos que não apareceram na aHeader de Peças

Retorno

cVS3nMostra = variável com os campos que não apareceram na aHeader de Peças

Eventos de chamada do Ponto de Entrada

cVS3nMostra := "VS3_FILIAL,VS3_NUMORC,VS3_ARMORI,VS3_MODVEI,VS3_VBAICM,VS3_ALIICM,VS3_ICMCAL,"
cVS3nMostra += "VS3_GRUKIT,VS3_CODKIT,VS3_NOTFAB,VS3_CONBAR,VS3_DTNFFB,VS3_PIPIFB,VS3_VIPIFB,"
cVS3nMostra += "VS3_PICMFB,VS3_VICMFB,VS3_PICMSB,VS3_VICMSB,VS3_NUMIDE,VS3_ITESUB,VS3_BASPIS,VS3_BASCOF,VS3_VALPIS,VS3_VALCOF,"
cVS3nMostra += "VS3_ALQPIS,VS3_ALQCOF,VS3_BICMSB,VS3_TESENT,"
// --------------------------------------------------------------------
// O trecho abaixo controla a aparição de campos dependentes de fatores
// --------------------------------------------------------------------
// Fator 1: Depois da fase de liberação de divergência os campos com as quantidades deverão aparecer
nPosA := At(cVS1Status,cFaseOrc)
nPos5 := At("5",cFaseOrc)
if nPosA < nPos5 .or. nPos5 <= 0
cVS3nMostra += "VS3_QTDCON,VS3_QTDINI,"
endif
// Fator 2: Na fase de liberação de margem de lucro, deve-se mostrar a quantidade liberada (liberação parcial)
if VS1->VS1_STATUS != "2"
cVS3nMostra += "VS3_QTDLIB,"
endif
// Fator 3: A existência de inconveniente deve mostrar os campos necessários
if !lInconveniente
cVS3nMostra += "VS3_CODINC,VS3_GRUINC,VS3_DESINC,VS3_SEQINC,"
endif
If ExistBlock("OX001AHP")
cVS3nMostra := ExecBlock("OX001AHP",.f.,.f.,{ cVS3nMostra })
EndIf
//
nUsadoP:=0
//
// Cria Variaveis de Memoria e aHeader
aHeaderP:= {}
aAlterP := {}
//

Variáveis

Programa Fonte

OFIXX001.PRW