#Include "hwgui.ch"
STATIC Thisform

REQUEST DBFCDX
REQUEST DBFFPT

//------------------
FUNCTION tebrowse( )
//------------------
LOCAL   oDlg , oBrowse1, ;
        oButtonex1, oButtonex2, oButtonex3, oButtonex4, oButtonex5, oButtonex6,;
        oButtonex7

Private v_Camin
Private eRDD_DRIVER := "DBFCDX"
RddSetDefault(eRDD_DRIVER)
DBSETDRIVER(eRDD_DRIVER)

dbusearea(.t., "DBFCDX" , "EMPRESA.DBF" , "BASE" , .f.,)
index on FANTA tag INDICE1 to "BASE"

INIT DIALOG oDlg TITLE "Cadastro de Empresas" ;
     AT 0, 0 SIZE 1040,540 NOEXIT  ;
     STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER 
     Thisform := oDlg

     @ 12,12 BROWSE oBrowse1 DATABASE SIZE 1010,456 STYLE WS_TABSTOP

     // CREATE oBrowse1   //  SCRIPT GENARATE BY DESIGNER
     oBrowse1:alias := 'base'
     oBrowse1:nColumns := 3
     SELECT (oBrowse1:alias)
     oBrowse1:AddColumn( HColumn():New("Fanta", FieldBlock( 'Fanta' ) ,'C',40, 0 ,.F.,0,,,,,,,,,,))
     oBrowse1:AddColumn( HColumn():New("Micro", FieldBlock( 'Micro' ) ,'C',12, 0 ,.F.,0,,,,,,,,,,))
     oBrowse1:AddColumn( HColumn():New("Telef", FieldBlock( 'Telef' ) ,'C',10, 0 ,.F.,0,,,,,,,,,,))
     obrowse1:acolumns[3]:picture:="@r [99] 9999-9999"
     // END BROWSE SCRIPT  -  oBrowse1

     @ 492,492 BUTTONEX oButtonex8 CAPTION "&Exclui"     SIZE 98,32 STYLE BS_CENTER +WS_TABSTOP;
               ON CLICK {|| DELETA() , oBrowse1:refresh() }

     @ 815,492 BUTTONEX oButtonex6 CAPTION "Im&porta"    SIZE 98,32 STYLE BS_CENTER +WS_TABSTOP;
               ON CLICK {|| IMPORTA() , oBrowse1:refresh() }

     @ 922,492 BUTTONEX oButtonex7 CAPTION "&Sair"       SIZE 98,32 STYLE BS_CENTER +WS_TABSTOP;
               ON CLICK {|| oDlg:Close() }

     ACTIVATE DIALOG oDlg

RETURN oDlg:lresult

//----------------
function IMPORTA()
//----------------
public rC_Ser

Caminho()

v_Camin := alltrim(v_Camin)

//if !file(v_Camin+"\EMPRESA.CFG")
//   MSGINFO("Arquivo da Empresa nao Encontrado","Aviso do Sistema")
//   return .t.
//end

rC_Ser := MyVolSerial("C")

//dbusearea(.t., "DBFCDX" , v_Camin+"\EMPRESA.CFG" , "EMPR" , .f.,)
//dbgotop()

//IF MsgYesNo("Confirma Importação p\Cadastro?","Aviso do Sistema")
//   sele base
   dbappend()

   //base->RAZAO := empr->RAZAO
   //base->FANTA := empr->FANTA
   //base->ENDER := empr->ENDER
   //base->BAIRR := empr->BAIRR
   //base->CEPSF := empr->CEPSF
   //base->CIDAD := empr->CIDAD
   //base->ESTAD := empr->ESTAD
   //base->CGCCP := empr->CGCCP
   //base->INSCR := empr->INSCR
   //base->TELEF := empr->TELEF
   //base->CELU1 := empr->CELUL
   base->NSERH := rC_Ser
   dbcommit()
   //base->MESAN := empr->MESAN
   //base->EMPAL := empr->EMPAL
   //base->NSERI := CALSENHA(base->RAZAO,base->CGCCP,base->INSCR,base->NSERH,if(base->EMPAL="S",base->MESAN,""),"S")
//end

//empr->(dbclosearea())

return .t.

//----------------
FUNCTION caminho()
//----------------
LOCAL oDlg , oGroup1, oCamin, oButtonex1

INIT DIALOG oDlg TITLE "Informe" ;
     AT 0, 0 SIZE 400,131 NOEXIT  ;
     STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER 
     Thisform := oDlg

     @ 11,12 GROUPBOX oGroup1 CAPTION "Caminho da Importação"  SIZE 374,69 STYLE BS_LEFT
     @ 24,36 GET oCamin VAR v_Camin SIZE 351,24

     @ 290,88 BUTTONEX oButtonex1 CAPTION "&Sair"   SIZE 98,32 STYLE BS_CENTER +WS_TABSTOP;
              ON CLICK {|| oDlg:Close() }

     ACTIVATE DIALOG oDlg

RETURN oDlg:lresult

//---------------
Function Deleta()
//---------------
rlock()
dbdelete()
pack
dbcommit()
dbunlock()
dbgotop()

Return .t.

//-------------------------
FUNCTION MyVolSerial(par1)
//-------------------------
//par1   = C letra da unidade
//funcao = exibir o numero
//         do volume independente
//         do windows utilizado
//uso  MyVolSerial("C")
//-------------------------
local tela, string,tela1:=savescreen(00,00,24,79)


if empty(par1) = .t.
   par1 := "C"
end

cls

volcomand="vol "+left(par1,1)+":"
run &volcomand

tela := savescreen(00,00,03,79)
cls
memowrit("and.txt",strtran(tela,chr(7),""))
string=memoread("and.txt",80)
ferase("and.txt")
restscreen(00,00,24,79,tela1)

return substr(string,at("-",string)-4,4)+substr(string,at("-",string),5)