Linha Microsiga Protheus

Árvore de páginas

Adicionado documentação para o ponto de entrada CT390AFIL

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGACTB

Função:

Ctba390

Situação/Requisito:

Cliente solicita documentação do ponto de entrada CT390AFIL

Solução/Implementação:

Adicionado documentação para o ponto de entrada CT390AFIL

Chamados relacionados:

TVBOCV

Descrição

Ponto de entrada que permite que o usuario defina a forma de exibição e manipulação dos dados de orçamentos com base na tabela CV2 substituindo assim o browse padrão

Exemplos

User Function CT390AFIL()
Local afilpad :={}
Local cFilPad:=""
Local nx
afilpad :={}
If MsgYesNo("Deseja Mostrar registros com a situação aberto ?")
aAdd( aFilPad, "CV2_STATUS ='1'" )
Endif
If MsgYesNo("Deseja Mostrar registros com a situação saldo gerado ?")
aAdd( aFilPad, "CV2_STATUS ='2'" )
Endif
If MsgYesNo("Deseja Mostrar registros com a situação revisado ?")
aAdd( aFilPad, "CV2_STATUS ='3'" )
Endif
FOR nX := 1 to Len( aFilPad )
cFilPad +=aFilPad[nx]
If nx+1 <= Len( aFilPad )
cFilPad +=" or "
Endif
NEXT
mBrowse(6,1,22,75,"CV2",,,,,,CtbLegenda("CV2"),,,,,,,,cFilPad)
Return

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Eventos de chamada do Ponto de Entrada

Antes da exibição dos dados assim que é acionada a rotina :

 

 

If !lCt390AFil

Ctb390IniVar() //Inicializa variaveis logicas das entidades adicionais

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Endereca a funcao de BROWSE ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
mBrowse(6,1,22,75,"CV2",,,,,, CtbLegenda("CV2")/*,cFilIni,cFilFim*/)
dbSelectArea("CV2")
Set Filter To
Else
ExecBlock("CT390AFIL",.F.,.F.)
Endif

Programa Fonte

CTBA390.PRW

  • Sem rótulos