Func ProdutosCad()



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Produtos Cadastrados", 625, 443, 193, 125,BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX))
$List1 = GUICtrlCreateList("", 88, 88, 465, 331)
GUICtrlSetFont(-1, 11, 700, 0, "Lucida Console")
$Label1 = GUICtrlCreateLabel("Produtos Cadastrados!", 208, 48, 214, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
$MenuItem1 = GUICtrlCreateMenu("Menu")
$MenuLogin = GUICtrlCreateMenuItem("Login", $MenuItem1)
$MenuVendas = GUICtrlCreateMenuItem("Vendas", $MenuItem1)
$MenuExit = GUICtrlCreateMenuItem("Sair", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenu("Opçoes")
$MenuItem4 = GUICtrlCreateMenu("Produto", $MenuItem3)
;$MenuProdNew = GUICtrlCreateMenuItem("Novo/Editar", $MenuItem4)
$MenuProdRem = GUICtrlCreateMenuItem("Remover", $MenuItem4)
$MenuProdCadas = GUICtrlCreateMenuItem("Produtos Cadastrados", $MenuItem3)
$MenuAbout = GUICtrlCreateMenu("About")
$MenuSobre = GUICtrlCreateMenuItem("Sobre",$MenuAbout)
#EndRegion ### END Koda GUI section ###

                           $file= $Pasta &"\Produtos\PNome\"

                        $myArray                = _FileListToArray($file)
                      ;  $myArray[0]            &= " arquivos e pastas:"
                        $lsfile                 = @ScriptDir & "\Lista.txt"
                        fileopen($lsfile)
                        _FileWriteFromArray($lsfile, $myArray)
                        fileclose($lsfile)

                          ; filedelete($Pasta &"\Produtos\PNome\lista.bat")
    $line11 =2
    $NomeArqv=filereadline(@ScriptDir & "\Lista.txt",$line11)
    msgbox(64,"",$NomeArqv)
    $ArqCad = $Pasta &"\Produtos\PNome\"& $NomeArqv

    msgbox(64,"",$ArqCad)
while 1
                $NomeArqCad=filereadline($ArqCad,1)
                $PrecoArqCad=filereadline($ArqCad,3)
                Sleep(100)
                MsgBox(0,"",$NomeArqCad)
        guictrlsetdata($List1,"Produto - " & $NomeArqCad &"       "& "Preço - " & $PrecoArqCad )
            MsgBox(0,"","setou")

        MsgBox(0,"",$line11)
        $line11 +=1
        $NomeArqv=filereadline(@ScriptDir & "\Lista.txt",$line11)
        $ArqCad = $Pasta &"\Produtos\PNome"& $NomeArqv

        MsgBox(0,"","fim")


WEnd








While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit



    EndSwitch
WEnd


endfunc