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)

FormBatch( cTitle, aSays, aButtons, bValid, nAltura, nLargura )

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