Função FormBatch – Monta tela generica para processo batch
Monta tela generica para processo batch
FormBatch( cTitle, aSays, aButtons, lOk, bValid )
cTitle = Titulo da janela
aSays = Array com Says
aButtons = Array com bottoes
aButtons[i,1] = Tipo de botao
aButtons[i,2] = Tipo de enabled
aButtons[i,3] = bAction
bValid = Bloco de validacao do Form
nAltura= Altura do Form em Pixel (Default 250)
nLargura = Largura do Form em Pixel (Default 520)
|
1 |
FormBatch( cTitle, aSays, aButtons, bValid, nAltura, nLargura ) |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
User function MCOM005(cEmpresa) Local cTitulo := "[MCOM005] Importar Produtos" Local nOpcao := 0 Local aButtons := {} Local aSays := {} Private cArea := GetArea() Private cPerg := Padr("MCOM005",10) Private cUnidade:= cEmpresa ajustaSx1(cPerg) pergunte(cPerg, .F.) AADD(aSays,OemToAnsi("Esta rotina tem como objetivo de importar os produtos vindos de um arquivo CSV.")) AADD(aSays,"") AADD(aSays,OemToAnsi("Clique no botão PARAM para informar o arquivo que será importado.")) AADD(aSays,"") AADD(aSays,OemToAnsi("Após isso, clique no botão OK.")) AADD(aButtons, { 1,.T.,{|o| nOpcao:= 1,o:oWnd:End()} } ) AADD(aButtons, { 2,.T.,{|o| nOpcao:= 2,o:oWnd:End()} } ) AADD(aButtons, { 5,.T.,{| | pergunte(cPerg,.T.) } } ) FormBatch( cTitulo, aSays, aButtons,,200,530 ) if nOpcao = 1 Processa({|| MCOM005I(MV_PAR01)},"Aguarde....") endif RestArea(cArea) Return |