#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function JOBM350()
Local lBat := .T. //-- Define que a rotina será executada em Batch Local aListaFil := {} //-- Carrega Lista com as Filiais a serem processadas Local cCodFil := '' //-- Código da Filial a ser processada Local cNomFil := '' //-- Nome da Filial a ser processada Local cCGC := '' //-- CGC da filial a ser processada
ConOut(Repl("-",80)) ConOut(PadC("Rotina Recalculo Custo MedioSaldo Atual para Final",80)) ConOut(PadC("Conectando Ambiente.....",80)) PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST" TABLES "AF9","SB1","SB2","SB3","SB8","SB9","SBD","SBF","SBJ","SBK","SC2","SC5","SC6","SD1","SD2","SD3","SD4","SD5","SD8","SDB","SDC","SF1","SF2","SF4","SF5","SG1","SI1","SI2","SI3","SI5","SI6","SI7","SM2","ZAX","SAH","SM0","STL" ConOut(PadC("Ambiente Conectado com Sucesso...",80)) ConOut(Repl("-",80)) Conout("Início da execução do JOBM330JOBM350") //-- Adiciona filial a ser processada dbSelectArea("SM0") dbSeek(cEmpAnt) Do While ! Eof() .And. SM0->M0_CODIGO == cEmpAnt cCodFil := SM0->M0_CODFIL cNomFil := SM0->M0_FILIAL cCGC := SM0->M0_CGC //-- Somente adiciona a Filial 01 If cCodFil == "01" //-- Adiciona a filial na lista de filiais a serem processadas Aadd(aListaFil,{.T.,cCodFil,cNomFil,cCGC}) EndIf dbSkip() EndDo //-- Executa a rotina de recálculo do custo médio MATA350(lBat,aListaFil,.F. aFilList, lOnbord, oJour, cUserNameJ) ConOut("Término da execução do JOBM350") Return
Nome | Tipo | Descrição | Default | Obrigatório | PARAMIXB[1] | Lógico | Execução em Batch?: .T.(Sim) / .F.(Não). |
| X | PARAMIXB[2] | Vetor | Lista com as filiais a serem consideradas (Batch). |
| X | PARAMIXB[3] | Lógico | Se esta utilizando Board de Custo : .T.(Sim) / .F.(Não). |
|
| PARAMIXB[4] | Objeto | Se esta utilizando Board de Custo o preenchimento será automático |
|
| PARAMIXB[5] | Caractere | Caso acione por stard Job Sem usuário pode ser informado. |
|
|
|