Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Adiciona botões na EnchoiceBar (aNewBot)

Localização:

Atualizações / Mov Oficina / Orc. Por Fases (OFIXA011)

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

Programa Fonte:

OFIXX004.PRW

Função:

OFIXX004()

Parâmetros:
NomeTipoDescrição

aRet

Vetor

Botões Atuais

Retorno:
NomeTipoDescrição

aRet

Vetor

Botões Customizados

Exemplo:

Include totvs.ch

User Function OX004ABT()


aRet := ParamIxb[1]

aadd(aRet,{"FILTRO",{|| U_FUNCAO_X()},"Funcao X"})


return(aRet)