OX004ABT Ponto de Entrada para inserir novas opções no menu da rotina Orc. Por Fases(OFIXA011)

Descrição:

Adiciona botões na EnchoiceBar (aNewBot)

Eventos:

Private aNewBot := {{"FORM", {|| OX001AVARES(nOpc)}, STR0031}}

Private cNFCF := ""

Private cSimVda := "P" // Pecas

Private lNegPag := .t. // Indica se o usuario pode alterar qq informacao no formulario

// Variaveis do cabecalho do formulario

Private nValFre := 0

Private nValDes := 0

Private nValTot := 0

Private nValDup := 0

Private nValSeg := 0

Private nValSer := 0

Private nValPec := 0

Private nValST := 0

Private nValPis := 0

Private nValCof := 0

Private nValICM := 0

Private cTipPag := SPACE(TamSX3("E4_CODIGO")[1]) // Tipo de Pagamento para montar Parcelas

Private cTipPagInt := SPACE(TamSX3("E4_CODIGO")[1]) // Tipo de Pagamento usado na Integração

Private cBanco := VS1->VS1_CODBCO

Private cSaldo := ""

Private cDesCond := ""

Private nAcresFin:= 0

Private nTtAcrFin:= 0

// Variaveis da aCols

Private aHeaderCP:= {}

Private aAlterCP := {}

Private cTipAva := "2" // Pecas

Private lMultOrc := .f.

Private cResAlm := GetMv( "MV_RESITE" )

Private lFezRes := At("R",GetNewPar("MV_FASEORC","0FX")) > 0

Private lFormaID := VS9->(FieldPos("VS9_FORMID")) > 0 .and. GetNewPar("MV_TEFMULT","F") == .t.

//

if !Empty(aOrcs)

lMultOrc := .t.

endif

//

If lSoFin

aNewBot := {} // Nao ter opções quando for somente para gerar Financeiro

EndIf

If ( ExistBlock("OX004ABT") )

aNewBot := ExecBlock("OX004ABT",.f.,.f.,{aNewBot})

EndIf

Função:

OFIXX004()