Histórico da Página

...

1. Visão Geral
2. Exemplo de utilização
   1. Por parâmetros
   2. Por visão gerêncial
3. Exemplo funcional de código
   
4. Fluxo de chamada das Funções
   Tabelas utilizadas

01. VISÃO GERAL

Foi criada uma rotina com o intuito de realizar consultas nos lançamentos orçamentários (tabela AKD).

...

Local cTblName  := "" //Nome do arquivo temporário no banco de dados
Local cArqTmp 	:= GetNextAlias()
Local cMoeda  	:= "01"
Local lPorVisao := .T.
Local cCodVisao := "001" //Visão pré cadastrada na rotina PCOA170-Visão Gerencial Orçamentária
Local dDataIni 	:= STOD("20190101")
Local dDataFim 	:= STOD("20191231")

cTblName := PCGerPlan(nil,nil,nil,nil,cArqtmp,cMoeda,lPorVisao,cCodVisao,dDataIni,dDataFim)

03. EXEMPLO FUNCIONAL DE CÓDIGO

...

Bloco de código
language c# theme Midnight title Exemplo Prático
Function ChamaXSAL() Local cArqTmp := GetNextAlias() Local lPorVisao := .F. Local cCodVisao := "001" Local cMoeda := "" Local dDataIni := STOD("") Local dDataFim := STOD("") Local oMeter Local oText Local oDlg Local lEnd aFiltros := {" ","ZZZZZZZ",; //Conta Orçamentária De / Até              " ","ZZZZZZZ",; //Classe Orçamentária De / Até              " ",;           //Tipo de Saldo              " ","ZZZZZZZ",; //Centro de Custo De / Até              " ","ZZZZZZZ",; //Item De / Até              " ","ZZZZZZZ" } //Classe de Valor De / Até aFiltAd := {" ","ZZZZZZZ",; //Entidade adicional 01 De / Até " ","ZZZZZZZ",; //Entidade adicional 02 De / Até " ","ZZZZZZZ",; //Entidade adicional 03 De / Até " ","ZZZZZZZ",; //Entidade adicional 04 De / Até " ","ZZZZZZZ" } //Entidade adicional 05 De / Até //A função pode ser chamada com ou sem régua de processamento MsgMeter() //Neste exemplo estamos utilizando If (Aviso("Atenção","Como quer executar a rotina?",{"Parâmetro","Visão"},1)==1) //Método por parâmetro //A variável cCodVisão não será considerada //Serão utilizados os arrays de filtro lPorVisao := .F. dDataIni := STOD("20190101") dDataFim := STOD("20190131") MsgMeter({| oMeter, oText, oDlg, lEnd |; PCGerPlan(oMeter,oText,oDlg,lEnd,cArqtmp,cMoeda,lPorVisao,cCodVisao,dDataIni,dDataFim,aFiltros,aFiltAd); },"Processando dados...","Aguarde") Else //Método por visão //A variável cCodVisão será considerada //Os arrays de filtro serão desconsiderados lPorVisao := .T. dDataIni := STOD("20190101") dDataFim := STOD("20190131") MsgMeter({| oMeter, oText, oDlg, lEnd |; PCGerPlan(oMeter,oText,oDlg,lEnd,cArqtmp,cMoeda,lPorVisao,cCodVisao,dDataIni,dDataFim,aFiltros,aFiltAd); },"Processando dados...","Aguarde") EndIf //Exibe em tela a quantidade de registros inseridos no arquivo de trabalho If (cArqTmp)->(Select()) > 0 Aviso("Atenção",cValToChar((cArqTmp)->(RecCount()))+" registros inseridos na tabela temporária",{"Ok"},1) (cArqTmp)->(dbCloseArea()) EndIf Return

04.

...

FLUXO DE CHAMADA DE FUNÇÕES

Image Added

...

Principais Campos e Parâmetros

...

...

<!-- 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>