Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Vale ressaltar que as colunas que não forem preenchidas, devem ser inicializadas com a função Criavar dos respectivos campos. Basta pesquisar qual o campo tomado como base para criação das colunas.

Para mais informações pode ser consultado a variável "aHeader" que contém os dados do cabeçalho da Grid de empenhos onde:

PosiçãoCampo SX3Título         
aHeader[01]X3_TITULO Título         
aHeader[02]X3_CAMPO  Campo          
aHeader[03]X3_PICTUREPicture        
aHeader[04]X3_TAMANHOTamanho        
aHeader[05]X3_DECIMALDecimal        
aHeader[06]X3_VALID  Validação      
aHeader[07]X3_USADO  Usado          
aHeader[08]X3_TIPO   Tipo           
aHeader[09]X3_F3     F3             
aHeader[10]X3_CONTEXTContexto (R,V) 
aHeader[11]X3_CBOX   Combobox       
aHeader[12]X3_RELACAOInicial. Padrao
aHeader[13]X3_WHEN   Habilita edicao
aHeader[14]X3_VISUAL Alteravel (A,V)
aHeader[15]X3_VLDUSERValid de User  
aHeader[16]X3_PICTVARPicture        
aHeader[17]X3_OBRIGATObrigatorio    


02. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagecpp
collapsetrue
#INCLUDE 'PROTHEUS.CH'

...



User function EMP650()

...



    Local aArea  := GetArea()

...


    local nx

...


    For nx := 1 to len(Acols) // Percorre todas as linhas da acols

...



         IF ! Acols[nx][len(acols[nx])] // Verifica se linha nao esta Deletada

...



            Conout("Linha não deletada: "+ cValTochar(nx))

...


        EndIF

...



       Conout("Produto :"+ acols[nx,nPoscod] + " Descrição : " +acols[nx,nPosDescr] )

...


    Next nx

...



    RestArea(aArea)

...

Também fica disponível o array aOpcCam, que deve ser atualizado juntamente com o array aCols, para correto cálculo de opcionais.

Exemplo:

...



Return

/*--Também fica disponível o array aOpcCam, que deve ser atualizado juntamente com o array aCols, para correto cálculo de opcionais.--*\

//Exemplo:

#include "rwmake.ch"

...



User Function EMP650()

...



Local nQtdDel := Len(aColsDele)

...


Local nx      := 0

...



If Len(aColsDele) > 0

...



    For nx:= nQtdDel To 1 Step -1

...


        aDel(aCols, aColsDele[nx])

...


        aDel(aOpcCam, aColsDele[nx])

...


    Next nx

...


    

...


    aSize(aCols, Len(aCols) - Len (aColsDele))

...


    aSize(aOpcCam, Len(aOpcCam) - Len (aColsDele))

...


    aSize(aColsDele,0)

...


    

...


EndIf

...



Return





HTML
<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>