leo@lhsistemas.com Posted October 30, 2013 Report Share Posted October 30, 2013 Alguém pode me ajudar, pois, o código abaixo funciona bem em 16bits, porém, ao executar em 32bits dá um erro. Segue abaixo código: #include "fivewin.ch"#include "treeview.ch"#include "FileIO.ch"STATIC oWndFUNCTION _CAcessos(cUsu,cModo,cEmpresa) LOCAL oBarra Private aMatVar := {} SET 3D LOOK ON set epoch to 1960 set date to british set bell on set console off set deleted on set exclusive off set scoreboard off set cursor off set century on setblink(.F.) sethandlecount(255) IF cUsu = Nil MsgInfo("Informe o Usuario !!!","Erro !") Return(Nil) ENDIF cEmpresa:= If(cEmpresa=NIL,"01",cEmpresa) cModo := If(cModo=Nil,1,Val(cModo)) cArqConf := cUsu cUsu := Cript(Left(Alltrim(cUsu+Space(20)),20),1) Aadd(aMatVar,{3,"CORES->Cada1","",; 'If(cTpLj$"2_7",scl1111_(),'+; 'If(cTpLj="3",scl1113_(),'+; 'If(cTpLj="5",scl1112_(),scl1110_())))'}) Aadd(aMatVar,{4,"CORES->Cada2","",; 'If(cTpLj$"2_7",scl1111_(,"A"),'+; 'If(cTpLj="3",scl1113_(,"A"),'+; 'If(cTpLj="5",scl1112_(,"A"),scl1110_(,"A"))))'}) Aadd(aMatVar,{6,"CORES->Cada3a","","scl113d_()"}) Aadd(aMatVar,{7,"CORES->Cada3b","","scl1134_()"}) Aadd(aMatVar,{8,"CORES->Cada3c","","scl113e_()"}) Aadd(aMatVar,{10,"CORES->Cadb1","","scl1210_()"}) Aadd(aMatVar,{11,"CORES->Cadb2","","scl1210_(,'A')"}) Aadd(aMatVar,{12,"CORES->Cadb3","","scl1220_()"}) Aadd(aMatVar,{13,"CORES->Cadc1","","scl1310_()"}) Aadd(aMatVar,{14,"CORES->Cadc2","","scl1320_()"}) Aadd(aMatVar,{15,"CORES->Cadc3a","","scl1330_()"}) Aadd(aMatVar,{16,"CORES->Cadd","","scl1400_()"}) Aadd(aMatVar,{17,"CORES->Cade","","scl1500_()"}) Aadd(aMatVar,{18,"CORES->Cadn","","scl1f00_()"}) Aadd(aMatVar,{19,"CORES->Cadp","","scl1i00_()"}) Aadd(aMatVar,{20,"CORES->Esta1","","scl1610_()"}) Aadd(aMatVar,{21,"CORES->Esta2","","scl1610_(,'A')"}) Aadd(aMatVar,{22,"CORES->Esta5e","","scl164E_()"}) Aadd(aMatVar,{23,"CORES->Esta7","","scl16a0_()"}) Aadd(aMatVar,{24,"CORES->Esta5a","","scl164a_()"}) Aadd(aMatVar,{25,"CORES->Esta8","","scl164f_()"}) Aadd(aMatVar,{26,"CORES->Esta9","","scl164g_()"}) Aadd(aMatVar,{27,"CORES->Esta10","","_GeraBToledo()"}) Aadd(aMatVar,{28,"CORES->Cadg","","scl1700_()"}) Aadd(aMatVar,{29,"CORES->Cadk","","scl1d00_()"}) Aadd(aMatVar,{30,"CORES->Cadl","","scl1E00_()"}) Aadd(aMatVar,{31,"CORES->Cadm","","scl1h00_()"}) Aadd(aMatVar,{32,"CORES->Cado","","scl1g00_()"}) Aadd(aMatVar,{33,"CORES->Cadi","","scl1b00_()"}) Aadd(aMatVar,{34,"CORES->Cadj","","scl1c00_()"}) Aadd(aMatVar,{35,"CORES->UltH","","scl6b00_()"}) Aadd(aMatVar,{36,"CORES->Ultn","","scl1510_()"}) Aadd(aMatVar,{37,"CORES->estb1","","scl2110_()"}) Aadd(aMatVar,{38,"CORES->estb5a","","scl2171_(,oWndPrinc)"}) Aadd(aMatVar,{39,"CORES->Fina1","","SCL3110_()"}) Aadd(aMatVar,{40,"CORES->Fina2","","SCL3110_('A')"}) Aadd(aMatVar,{41,"CORES->Fina3","","SCL3110_('E')"}) Aadd(aMatVar,{42,"CORES->Fina4","","SCL3140_()"}) Aadd(aMatVar,{43,"CORES->Finb1","","SCL3210_()"}) Aadd(aMatVar,{44,"CORES->Finb2","","SCL3210_('A')"}) Aadd(aMatVar,{45,"CORES->Finb3","","SCL3210_('E')"}) Aadd(aMatVar,{46,"CORES->Finb4","","SCL3240_()"}) Aadd(aMatVar,{47,"CORES->Finb6","","SCL3250_()"}) Aadd(aMatVar,{48,"CORES->Bana","","SCL4100_(1)"}) Aadd(aMatVar,{49,"CORES->Banb","","SCL4100_(2)"}) Aadd(aMatVar,{50,"CORES->Banc","","SCL4100_(3)"}) Aadd(aMatVar,{51,"CORES->esta3","","SCL1630_()"}) Aadd(aMatVar,{52,"CORES->esta3e","","scl1637_()"}) Aadd(aMatVar,{53,"CORES->esta3i","","SCL163b_()"}) Aadd(aMatVar,{54,"CORES->cadc3c","","SCL163d_()"}) Aadd(aMatVar,{55,"CORES->esta3g","","SCL163b1_()"}) Aadd(aMatVar,{56,"CORES->esta3h","","_EmitSVDav()"}) Aadd(aMatVar,{57,"CORES->esta8n","","SCL1684_()"}) Aadd(aMatVar,{58,"CORES->esta8d","","SCL1683_()"}) Aadd(aMatVar,{59,"CORES->esta8j","","SCL168B_()"}) Aadd(aMatVar,{60,"CORES->esta8b","","SCL1682_()"}) Aadd(aMatVar,{61,"CORES->Fina5","","SCL3151_()"}) Aadd(aMatVar,{62,"CORES->Finb5","","scl3251_()"}) Aadd(aMatVar,{63,"CORES->Estc1","","scl212s_()"}) Aadd(aMatVar,{64,"CORES->Estc2","","scl212x_()"}) Aadd(aMatVar,{65,"CORES->Ultb1","",; 'If(MsgYesNo("Confirma Manutencao ?",'+; '"Reorganizar Arquivos !!!"),_CriaArq(0,2),.F.)'}) Aadd(aMatVar,{66,"CORES->UltJ","","scl6900_() "}) Aadd(aMatVar,{67,"CORES->Ultc","","_Acessos() "}) Aadd(aMatVar,{68,"CORES->Estb4a","",; "MsgInfo('Apenas no Modulo de Vendas !!!','Alerta !!!')"}) Aadd(aMatVar,{69,"CORES->Estb4d","",; "MsgInfo('Apenas no Modulo de Vendas !!!','Alerta !!!')"}) Aadd(aMatVar,{70,"CORES->Estb4f","",; "MsgInfo('Apenas no Modulo de Vendas !!!','Alerta !!!')"}) Aadd(aMatVar,{71,"CORES->Estb4g","",; "MsgInfo('Apenas no Modulo de Vendas !!!','Alerta !!!')"}) Aadd(aMatVar,{72,"CORES->Estb4h","",; "MsgInfo('Apenas no Modulo de Vendas !!!','Alerta !!!')"}) Aadd(aMatVar,{73,"CORES->Estb4i","","scl2120_()"}) Aadd(aMatVar,{90,"CORES->Estc1","",""}) Aadd(aMatVar,{91,"CORES->Estc2","",""}) Aadd(aMatVar,{92,"CORES->esta3s","","SCL163b2_()"}) Aadd(aMatVar,{93,"CORES->esta8a","","SCL1681_()"}) Aadd(aMatVar,{94,"CORES->ultb2","","scl6200_(1)"}) Aadd(aMatVar,{95,"CORES->ultb3","","scl6200_(2)"}) Aadd(aMatVar,{96,"CORES->ultd1","",""}) Aadd(aMatVar,{97,"CORES->ultd2","",""}) Aadd(aMatVar,{98,"CORES->ultd3","",""}) Aadd(aMatVar,{99,"CORES->ultd4","",""}) Aadd(aMatVar,{100,"CORES->ultd6","",""}) Aadd(aMatVar,{101,"CORES->exc_it","",""}) Aadd(aMatVar,{102,"CORES->lib_ds","",""}) Aadd(aMatVar,{103,"CORES->esta3j","","SCL163e_()"}) Aadd(aMatVar,{104,"CORES->imp_dv","",""}) Aadd(aMatVar,{105,"CORES->en_ex","",""}) Aadd(aMatVar,{106,"CORES->esta3k","","SCL163b3_()"}) Aadd(aMatVar,{107,"CORES->esta3ij","","SCL163c_()"}) Aadd(aMatVar,{1107,"CORES->esta3ij","","SCL163i_()"}) Aadd(aMatVar,{108,"CORES->estb5g","","scl2179_()"}) Aadd(aMatVar,{109,"CORES->pr_al","",""}) Aadd(aMatVar,{110,"CORES->pr_ex","",""}) Aadd(aMatVar,{111,"CORES->can_cp","",""}) Aadd(aMatVar,{112,"CORES->estd16","","scl164h_()"}) Aadd(aMatVar,{113,"CORES->cadb4a","","scl1241_()"}) Aadd(aMatVar,{114,"CORES->cadb4b","","scl1242_()"}) Aadd(aMatVar,{115,"CORES->cadb4c","","scl1243_()"}) Aadd(aMatVar,{116,"CORES->Finb5f","","scl3257_()"}) Aadd(aMatVar,{117,"CORES->Cadc3n","","scl1k00_()"}) Aadd(aMatVar,{118,"CORES->Cadc3m","",""}) Aadd(aMatVar,{119,"CORES->cl_bl","",""}) Aadd(aMatVar,{120,"CORES->finb7","","SCL3270_()"}) Aadd(aMatVar,{121,"CORES->finb5d","","SCL3280_()"}) Aadd(aMatVar,{122,"CORES->esta3l","","SCL163b4_()"}) Aadd(aMatVar,{123,"CORES->nt_in","",""}) Aadd(aMatVar,{124,"CORES->nt_al","",""}) Aadd(aMatVar,{125,"CORES->nt_ex","",""}) Aadd(aMatVar,{126,"CORES->Estb4i","","scl2121_()"}) Aadd(aMatVar,{127,"CORES->finb5e","","SCL3290_()"}) Aadd(aMatVar,{128,"CORES->cl_al","",""}) Aadd(aMatVar,{129,"CORES->cl_ex","",""}) Aadd(aMatVar,{130,"CORES->fo_al","",""}) Aadd(aMatVar,{131,"CORES->fo_ex","",""}) Aadd(aMatVar,{132,"CORES->fo_hi","",""}) Aadd(aMatVar,{133,"CORES->fo_lu","",""}) Aadd(aMatVar,{134,"CORES->Cadb4","","scl1230_()"}) Aadd(aMatVar,{135,"CORES->pa_al","",""}) Aadd(aMatVar,{136,"CORES->rc_al","",""}) Aadd(aMatVar,{137,"CORES->esta3m","","SCL163f_()"}) Aadd(aMatVar,{138,"CORES->En_Al","",""}) Aadd(aMatVar,{139,"CORES->En_Ex","",""}) Aadd(aMatVar,{140,"CORES->Pr_Pr","",""}) Aadd(aMatVar,{141,"CORES->Esta8k","",""}) Aadd(aMatVar,{142,"CORES->Finc","","SCL329A_()"}) Aadd(aMatVar,{143,"CORES->cadb4d","",""}) Aadd(aMatVar,{144,"CORES->cadb4d1","","scl1244_()"}) Aadd(aMatVar,{145,"CORES->cadb4d2","",""}) Aadd(aMatVar,{146,"CORES->cadb4d3","",""}) Aadd(aMatVar,{147,"CORES->esta3r","","scl1j00_()"}) Aadd(aMatVar,{148,"CORES->esta3s","","SCL163b2_()"}) Aadd(aMatVar,{149,"CORES->esta4","","scl16b0_()"}) Aadd(aMatVar,{150,"CORES->esta5","","SCL217E_()"}) Aadd(aMatVar,{151,"CORES->Find","","SCL329B_()"}) Aadd(aMatVar,{152,"CORES->esta3n","","SCL163g_()"}) Aadd(aMatVar,{153,"CORES->esta3o","","SCL163h_()"}) Aadd(aMatVar,{154,"CORES->his_in","",""}) Aadd(aMatVar,{155,"CORES->his_al","",""}) Aadd(aMatVar,{156,"CORES->his_ex","",""}) Aadd(aMatVar,{157,"CORES->Fina4a","","SCL3140_()"}) Aadd(aMatVar,{158,"CORES->Finb4a","","SCL3240_()"}) Aadd(aMatVar,{159,"CORES->esta3p","","SCL163j_()"}) Aadd(aMatVar,{160,"CORES->cadc3d","","SCL163k_()"}) Aadd(aMatVar,{161,"CORES->finb5o","","SCL314A_()"}) Aadd(aMatVar,{162,"CORES->esta6","","scl16b1_()"}) Aadd(aMatVar,{163,"CORES->Al_Sd","",""}) Aadd(aMatVar,{164,"CORES->Pr_Pt","",""}) Aadd(aMatVar,{165,"CORES->Cla_in","",""}) Aadd(aMatVar,{166,"CORES->Cla_al","",""}) Aadd(aMatVar,{167,"CORES->Cla_ex","",""}) Aadd(aMatVar,{168,"CORES->Pr_Ve","",""}) Aadd(aMatVar,{169,"CORES->Pr_Pc","",""}) Aadd(aMatVar,{170,"CORES->ulte","","scl6460_()"}) Aadd(aMatVar,{171,"CORES->Finb5g","","scl3259_()"}) cur_dir := "\"+curdir() mat_seg := directory("\HL_FLJ.INI","H") nsalto_print := 60 cporta_fis :="COM2" if len(mat_seg) = 0 setcolor("") clear MsgAlert("O arquivo de configuracao nao foi encontrado","Erro !!!") clear all quit else texto = memoread("\HL_FLJ.INI") Texto_2= alltrim(memoline(texto,80,2)) texto_2= alltrim(cript(texto_2,2)) endif cpath_dll :=texto_2+"\DLL" set default to &texto_2 set path to &texto_2 path_2 = texto_2 if ! file("EMP01.DBF") .or. ! file("EMP01A.NTX") MsgAlert("Execute LHCONFIG.EXE !!!","Erro !!!") clear all quit endif lEGrade:=.T. cTpAT :="1" Use EMP01 Alias EMP01 Shared New Set Index To EMP01A Seek cEmpresa texto_2 :=alltrim(emp01->path_emp) path :=texto_2+"\TMP\" set default to &texto_2 set path to &texto_2 firma :=emp01->nome_fan If ! Empty(EMP01->Layout) Firma := EMP01->Layout EndIf DbCloseAll() If cModo = 2 aMatAcesso := {} oFile = TTxtFile():New( texto_2+"\"+Alltrim(Left(cArqConf,8))+".LHC" ) while ! oFile:lEof() cLine = oFile:cLine cMenu := Left(cLine,At("|",cLine)-1) cLine := SubStr(cLine,At("|",cLine)+1) cAcesso := Left(cLine,At("|",cLine)-1) cChama := SubStr(cLine,At("|",cLine)+1) Aadd(aMatAcessos,cAcesso) oFile:Skip() enddo oFile:Close() Use CORES Shared New Alias ATUAL Set Index To CORESA cStruct := ATUAL->( DbStruct()) DbCreate(Alltrim(Left(cArqConf,8))+".DBF",cStruct) Use (Alltrim(Left(cArqConf,8))+".DBF") Exclusive New Alias CORES Index On CORES->usuario To (Alltrim(Left(cArqConf,8))) If ATUAL->( Dbseek(cUsu)) CORES->( DbAppend()) CORES->Usuario := ATUAL->USuario For nI := 1 to Len(aMAtAcessos) cVar := aMatAcessos[nI] &CVar := .T. Next EndIf ATUAL->( DbCloseArea()) Else Use CORES Shared New Set Index To CORESA EndIf seek cUsu Use ULT01 Shared New cTpLj:=ULT01->TComer cCRes:="N" If ULT01->Grade = "N" .or. ULT01->Grade = "1" lEGrade:=.F. EndIf If ULT01->Reserva = "S" cCRes:="S" Endif cTpAt:= ULT01->TpAtend #ifdef __CLIPPER__ Set Resources To cpath_dll+"\PAFECF2.DLL" #endif If cModo = 1 DEFINE WINDOW oWnd FROM 0,0 TO 400,600 PIXEL ; TITLE "Control de Acessos dos Usuarios do Sistema" ; MDI Menu MenuPrincipal() Else DEFINE WINDOW oWnd FROM 0,0 TO 400,600 PIXEL ; TITLE "CADASTRAMENTO DE ACESSO PERSONALIZADOS" ; MDI Menu MenuPrincipal() EndIf DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,16 SET MESSAGE OF oWnd KEYBOARD NOINSET FONT oFont SET FONT OF oWnd TO oFont ACTIVATE WINDOW oWnd ; On Init ChildTree() VALID ; MsgYesNo( "Deseja Encerrar Controle de Usuarios ?", "Selecione uma Opcao !" ) If File(cArqConf) FErase(cArqConf) EndIf If cModo = 2 cArqConf := Texto_2+"\"+Alltrim(cArqConf)+".LHC" nIHdl := fcreate( cArqConf,0 ) nPos := AScan(aMAtVar,{|x| x[1] = 107 }) If nPos > 0 .and. ! Empty(aMAtVar[nPos,3]) cTexto := aMatVar[nPos,3] nPos := AScan(aMAtVar,{|x| x[1] = 1107 }) If nPos > 0 aMAtVar[nPos,3] := cTexto Endif Endif If ! lEGrade nPos := AScan(aMAtVar,{|x| x[1] = 37 }) If nPos > 0 .and. ! Empty(aMAtVar[nPos,3]) aMAtVar[nPos,4] := "scl2111_()" EndIf EndIf For nX := 1 to Len(aMatVar) If ! Empty(aMatVar[nX,3]) .and. &(aMatVar[nX,2]) .and. ; ! Empty(aMatVar[nX,4]) FWrite( nIHdl, aMatVar[nX,3]+"|"+aMatVar[nX,2]+"|"+aMatVar[nX,4] + CRLF ) EndIf Next FClose( nIHdl ) EndIf DbCloseAll() If cModo =2 cArqConf := StrTran(cArqConf,".LHC","") If File(cArqConf+".DBF") FErase(cArqConf+".DBF") FErase(cArqConf+".NTX") EndIf EndifRETURN nilFUNCTION ChildTree() LOCAL oBarra LOCAL oChild LOCAL oTree DEFINE WINDOW oChild FROM 0,0 TO 400,600 PIXEL ; TITLE "Banco de Dados do Usuario "+; Alltrim(Cript(CORES->Usuario,2)) MDICHILD ICON "Database" DEFINE BUTTONBAR oBarra OF oChild SIZE 28,29 _3D DEFINE BUTTON RESOURCE "Atualizar" OF oBarra ; MESSAGE "Atualizar Base de Dados ..." ACTION ( oTree:End(),; oChild:Refresh(.T.) ,; oTree := CreaTree(oChild) ) ; NOBORDER TOOLTIP "Atualizar Base de Datos ..." SET MESSAGE OF oChild NOINSET DEFINE MSGITEM OF oChild:oMsgBar PROMPT "Controlando Acessos do Usuario" SIZE 250 ACTIVATE WINDOW oChild ON INIT (oChild:Maximize(),oTree := CreaTree(oChild))RETURN NILFUNCTION CreaTree(oChild) LOCAL oTree LOCAL oRoot LOCAL oLink LOCAL nStep @ 0, 0 TREE oTree OF oChild ; SIZE 0, 0 PIXEL ; BITMAPS { "Paper","FoldClose","FoldOpen", "BookClose", "BookOpen",; "Tabla", "Procedimiento", "Usuario", "Server", "Ejecutivo",; "Respaldo","selected","unselected" } ; TREE STYLE nOr( TVS_HASLINES, TVS_HASBUTTONS ) ; ON DBLCLICK ClickTree(oTree) oChild:SetControl(oTree) oRoot := oTree:GetRoot() oRoot2:= oTree:GetRoot() oRoot3:= oTree:GetRoot() // Acessos Sistema de Retaguarda // oRoot:=oRoot:AddLastChild( "Controle de Acessos LH Retaguarda", 9, 8 ) oLink:=oRoot:AddLastChild( "Cadastros", 3, 2 ) oBloq1:=oLink:AddLastChild( "Clientes" , 3, 2 ) oBloq1:AddLastChild( "Inclusao" ,,_VAMenu2(3,1,"ClientesInclusao") ) oBloq1:AddLastChild( "Consulta/Alteracao/Exclusao" ,,_VAMenu2(4,1,"ClientesConsulta/Alteracao/Exclusao")) oBloq1:AddLastChild( "Altera Clientes" ,,_VAMenu2(128,1,"ClientesAltera Clientes")) oBloq1:AddLastChild( "Exclui Clientes" ,,_VAMenu2(129,1,"ClientesExclui Clientes")) oBloq1:AddLastChild( "Libera Clientes Bloqueados" ,,_VAMenu2(119,1,"ClientesLibera Clientes Bloqueados")) oBloq11:=oBloq1:AddLastChild( "Relatorios de Clientes" , 3, 2 ) oBloq11:AddLastChild( "Completo" ,,_VAMenu2(6,1,"Relatorios de ClientesCompleto")) oBloq11:AddLastChild( "Aniversario" ,,_VAMenu2(7,1,"Relatorios de ClientesAniversario")) oBloq11:AddLastChild( "Planos" ,,_VAMenu2(8,1,"Relatorios de ClientesPlanos")) oBloq2:=oLink:AddLastChild( "Fornecedores" , 3, 2 ) oBloq2:AddLastChild( "Inclusao" ,,_VAMenu2(10,1,"FornecedoresInclusao")) oBloq2:AddLastChild( "Consulta/Alteracao/Exclusao" ,,_VAMenu2(11,1,"FornecedoresConsulta/Alteracao/Exclusao")) oBloq2:AddLastChild( "Altera Fornecedor" ,,_VAMenu2(130,1,"FornecedoresAltera Fornecedor")) oBloq2:AddLastChild( "Exclui Fornecedor" ,,_VAMenu2(131,1,"FornecedoresExclui Fornecedor")) oBloq2:AddLastChild( "Alterar Historico" ,,_VAMenu2(132,1,"FornecedoresAlterar Historico")) oBloq2:AddLastChild( "Dados Comerciais" ,,_VAMenu2(133,1,"FornecedoresDados Comerciais")) oBloq2:AddLastChild( "Relatorios" ,,_VAMenu2(12,1,"FornecedoresRelatorios")) oBloq2:AddLastChild( "Conexao com Fornecedores" ,,_VAMenu2(134,1,"FornecedoresConexao com Fornecedores")) oBloq40:=oBloq2:AddLastChild( "Compras", 3, 2 ) oBloq40:AddLastChild("Comprador" ,,_VAMenu2(117,1,"ComprasComprador")) oBloq40:AddLastChild("Lancamento" ,,_VAMenu2(113,1,"ComprasLancamento")) oBloq40:AddLastChild("Alteracao" ,,_VAMenu2(114,1,"ComprasAlteracao")) oBloq40:AddLastChild("Tabela de Autorizacao",,_VAMenu2(115,1,"ComprasTabela de Autorizacao")) oBloq41:=oBloq40:AddLastChild("Relatorios" ,3,2) oBloq41:AddLastChild("Emite Pedido de Compras" ,,_VAMenu2(144,1,"RelatoriosEmite Pedido de Compras")) oBloq41:AddLastChild("Emite Saldo dos Pedidos deCompras" ,,_VAMenu2(145,1,"RelatoriosEmite Saldo dos Pedidos deCompras")) oBloq41:AddLastChild("Comparacao com Tabela deAutorizacao Mensal" ,,_VAMenu2(146,1,"RelatoriosComparacao com Tabela deAutorizacao Mensal")) If cTpLj = "7" oBloq3:=oLink:AddLastChild( "Funcionario" , 3, 2 ) oBloq3:AddLastChild( "Inclusao" ,,_VAMenu2(13,1,"FuncionarioInclusao")) oBloq3:AddLastChild( "Consulta/Alteracao/Exclusao" ,,_VAMenu2(14,1,"FuncionarioConsulta/Alteracao/Exclusao")) oBloq3:AddLastChild( "Relatorios" ,,_VAMenu2(15,1,"FuncionarioRelatorios")) Else oBloq3:=oLink:AddLastChild( "Vendedor" , 3, 2 ) oBloq3:AddLastChild( "Inclusao" ,,_VAMenu2(13,1,"VendedorInclusao")) oBloq3:AddLastChild( "Consulta/Alteracao/Exclusao" ,,_VAMenu2(14,1,"VendedorConsulta/Alteracao/Exclusao")) oBloq3:AddLastChild( "Relatorios" ,,_VAMenu2(15,1,"VendedorRelatorios")) EndIf oBloq4:=oLink:AddLastChild( "Grupos" ,,_VAMenu2(16,1,"CadastrosGrupos")) oBloq5:=oLink:AddLastChild( "Sub-Grupos" ,,_VAMenu2(17,1,"CadastrosSub-Grupos")) oBloq6:=oLink:AddLastChild( "Multi-Grupos",,_VAMenu2(18,1,"CadastrosMulti-Grupos")) oBloq7:=oLink:AddLastChild( "Marca" ,,_VAMenu2(19,1,"CadastrosMarca")) oBloq8:=oLink:AddLastChild( "Produto" , 3, 2 ) oBloq8:AddLastChild( "Inclusao" ,,_VAMenu2(20,1,"ProdutoInclusao")) oBloq8:AddLastChild( "Consulta/Alteracao/Exclusao" ,,_VAMenu2(21,1,"ProdutoConsulta/Alteracao/Exclusao")) oBloq8:AddLastChild( "Alterar Produtos" ,,_VAMenu2(109,1,"ProdutoAlterar Produtos")) oBloq8:AddLastChild( "Excluir Produtos" ,,_VAMenu2(110,1,"ProdutoExcluir Produtos")) oBloq8:AddLastChild( "Alterar Preco de Custo" ,,_VAMenu2(169,1,"ProdutoAlterar Preco de Custo")) oBloq8:AddLastChild( "Alterar Preco de Venda" ,,_VAMenu2(168,1,"ProdutoAlterar Preco de Venda")) oBloq8:AddLastChild( "Alterar Preco de Promocao" ,,_VAMenu2(140,1,"ProdutoAlterar Preco de Promocao")) oBloq8:AddLastChild( "Alterar Local na Prateleira" ,,_VAMenu2(164,1,"ProdutoAlterar Local na Prateleira")) oBloq8:AddLastChild( "Gera Codigo de Barras" ,,_VAMenu2(22,1,"ProdutoGera Codigo de Barras")) If lEGrade oBloq8:AddLastChild( "Grades" ,,_VAMenu2(23,1,"ProdutoGrades")) EndIf oBloq8:AddLastChild( "Altera Codigo de Produtos" ,,_VAMenu2(24,1,"ProdutoAltera Codigo de Produtos")) If ! lEGrade oBloq8:AddLastChild( "Familia de Produtos" ,,_VAMenu2(25,1,"ProdutoFamilia de Produtos")) EndIf If cTpLj = "3" .or. ULT01->Producao = "S" oBloq8:AddLastChild( "Composicao" ,,_VAMenu2(26,1,"ProdutoComposicao")) EndIf If cTpLj = "1" oBloq8:AddLastChild( "Produtos em Falta",,_VAMenu2(112,1,"ProdutoProdutos em Falta")) Endif oBloq8:AddLastChild( "Gera Codigo para Balanca" ,,_VAMenu2(27,1,"ProdutoGera Codigo para Balanca")) oBloq8:AddLastChild( "Ajuste de Precos" ,,_VAMenu2(149,1,"ProdutoAjuste de Precos")) If cTpLj = "7" oBloq8:AddLastChild( "Ajuste de Precos por Fator" ,,_VAMenu2(162,1,"ProdutoAjuste de Precos por Fator")) EndIf oBloq26 :=oLink:AddLastChild( "Classificacao Fiscal" , 3, 2 ) oBloq26:AddLastChild( "Inclusao" ,,_VAMenu2(165,1,"Classificacao FiscalInclusao")) oBloq26:AddLastChild( "Alteracao" ,,_VAMenu2(166,1,"Classificacao FiscalAlteracao")) oBloq26:AddLastChild( "Exclusao" ,,_VAMenu2(167,1,"Classificacao FiscalExclusao")) oBloq9 :=oLink:AddLastChild( "Natureza de Operacao" , 3, 2 ) oBloq9:AddLastChild( "Consulta" ,,_VAMenu2(28,1,"Natureza de OperacaoConsulta")) oBloq9:AddLastChild( "Inclusao" ,,_VAMenu2(123,1,"Natureza de OperacaoInclusao")) oBloq9:AddLastChild( "Alteracao" ,,_VAMenu2(124,1,"Natureza de OperacaoAlteracao")) oBloq9:AddLastChild( "Exclusao" ,,_VAMenu2(125,1,"Natureza de OperacaoExclusao")) oBloq10:=oLink:AddLastChild( "Condicao de Pagamento" ,,_VAMenu2(29,1,"CadastrosCondicao de Pagamento")) oBloq11:=oLink:AddLastChild( "Transportadoras" ,,_VAMenu2(30,1,"CadastrosTransportadoras")) oBloq12:=oLink:AddLastChild( "Portador" ,,_VAMenu2(31,1,"CadastrosPortador")) oBloq12:=oLink:AddLastChild( "Planos Comerciais" ,,_VAMenu2(32,1,"CadastrosPlanos Comerciais")) oBloq12:=oLink:AddLastChild( "Ramo de Atividade" ,,_VAMenu2(147,1,"CadastrosRamo de Atividade")) oBloq12:=oLink:AddLastChild( "Rede de Clientes" ,,_VAMenu2(148,1,"CadastrosRede de Clientes")) oBloq13:=oLink:AddLastChild( "Conta" ,,_VAMenu2(33,1,"CadastrosConta")) oBloq14:=oLink:AddLastChild( "Sub-Conta" ,,_VAMenu2(34,1,"CadastrosSub-Conta")) oBloq15:=oLink:AddLastChild( "Lojas" ,,_VAMenu2(35,1,"CadastrosLojas")) oBloq16:=oLink:AddLastChild( "Cadastro do Contabilista" ,,_VAMenu2(36,1,"CadastrosCadastro do Contabilista")) oBloq17:=oLink:AddLastChild( "Cadastro Situacao da ContaCliente" ,,_VAMenu2(118,1,"CadastrosCadastro Situacao da ContaCliente")) oBloq42 :=oLink:AddLastChild( "Historico Contabil" , 3, 2 ) oBloq42:AddLastChild( "Inclusao" ,,_VAMenu2(154,1,"Historico ContabilInclusao")) oBloq42:AddLastChild( "Alteracao" ,,_VAMenu2(155,1,"Historico ContabilAlteracao")) oBloq42:AddLastChild( "Exclusao" ,,_VAMenu2(156,1,"Historico ContabilExclusao")) oLink:=oRoot:AddLastChild( "Movimentacao", 3, 2 ) oBloq17:=oLink:AddLastChild("Entradas",,_VAMenu2(37,1,"MovimentacaoEntradas")) oBloq17:=oLink:AddLastChild("Alterar Notas",,_VAMenu2(138,1,"MovimentacaoAlterar Notas")) oBloq17:=oLink:AddLastChild("Excluir Notas",,_VAMenu2(139,1,"MovimentacaoExcluir Notas")) oBloq18:=oLink:AddLastChild("Balanco" ,,_VAMenu2(38,1,"MovimentacaoBalanco")) oBloq18:=oLink:AddLastChild("Nota Fiscal de Devolucao/Reentrada",,_VAMenu2(126,1,"MovimentacaoNota Fiscal de Devolucao/Reentrada")) If ULT01->Producao = "S" oBloq19:=oLink:AddLastChild("Ordem de Fabricacao" ,,_VAMenu2(108,1,"MovimentacaoOrdem de Fabricacao")) EndIf If ULT01->CFrete = "S" oBloq19:=oLink:AddLastChild("Conhecimento de Frete" ,,; _VAMenu2(150,1,"MovimentacaoConhecimento de Frete")) EndIf oLink:=oRoot:AddLastChild( "Financas", 3, 2 ) oBloq19:=oLink:AddLastChild("Contas a Pagar",3,2) oBloq19:AddLastChild("Inclusao" ,,_VAMenu2(39,1,"Contas a PagarInclusao")) oBloq19:AddLastChild("Consulta/Alteracao" ,,_VAMenu2(40,1,"Contas a PagarConsulta/Alteracao")) oBloq19:AddLastChild("Alteracao de Contas" ,,_VAMenu2(135,1,"Contas a PagarAlteracao de Contas")) oBloq19:AddLastChild("Exclusao" ,,_VAMenu2(41,1,"Contas a PagarExclusao")) oBloq19:AddLastChild("Quita" ,,_VAMenu2(42,1,"Contas a PagarQuita")) oBloq19:AddLastChild("Estorna" ,,_VAMenu2(157,1,"Contas a PagarEstorna")) oBloq19:AddLastChild("Fatura a Pagar",,_VAMenu2(151,1,"Contas a PagarFatura a Pagar")) oBloq19:AddLastChild("Gerar Despesas Fixas",,_VAMenu2(161,1,"Contas a PagarGerar Despesas Fixas")) oBloq20:=oLink:AddLastChild("Contas a Receber",3,2) oBloq20:AddLastChild("Inclusao" ,,_VAMenu2(43,1,"Contas a ReceberInclusao")) oBloq20:AddLastChild("Consulta/Alteracao" ,,_VAMenu2(44,1,"Contas a ReceberConsulta/Alteracao")) oBloq20:AddLastChild("Alteracao de Contas" ,,_VAMenu2(136,1,"Contas a ReceberAlteracao de Contas")) oBloq20:AddLastChild("Exclusao" ,,_VAMenu2(45,1,"Contas a ReceberExclusao")) oBloq20:AddLastChild("Quita" ,,_VAMenu2(46,1,"Contas a ReceberQuita")) oBloq20:AddLastChild("Estorna" ,,_VAMenu2(158,1,"Contas a ReceberEstorna")) oBloq20:AddLastChild("Ficha de Cliente" ,,_VAMenu2(47,1,"Contas a ReceberFicha de Cliente")) oBloq20:AddLastChild("Boleto Bancario" ,,_VAMenu2(120,1,"Contas a ReceberBoleto Bancario")) oBloq20:AddLastChild("Duplicata" ,,_VAMenu2(121,1,"Contas a ReceberDuplicata")) oBloq20:AddLastChild("Previa de Recebimento",,_VAMenu2(127,1,"Contas a ReceberPrevia de Recebimento")) oBloq20:AddLastChild("Fatura a Receber",,_VAMenu2(142,1,"Contas a ReceberFatura a Receber")) oBloq20:AddLastChild("Nota de Debito",,_VAMenu2(161,1,"Contas a ReceberNota de Debito")) oBloq21:=oLink:AddLastChild("Bancario",3,2) oBloq21:AddLastChild("Contas" ,,_VAMenu2(48,1,"BancarioContas")) oBloq21:AddLastChild("Movimentacao" ,,_VAMenu2(49,1,"BancarioMovimentacao")) oBloq21:AddLastChild("Extratos" ,,_VAMenu2(50,1,"BancarioExtratos")) oLink:=oRoot:AddLastChild( "Relatorios", 3, 2 ) oBloq22:=oLink:AddLastChild("Produtos x Estoque" ,,_VAMenu2(51,1,"RelatoriosProdutos x Estoque")) oBloq23:=oLink:AddLastChild("Etiquetas Cod.Barras" ,,_VAMenu2(52,1,"RelatoriosEtiquetas Cod.Barras")) oBloq24:=oLink:AddLastChild("Vendas" ,,_VAMenu2(53,1,"RelatoriosVendas")) oBloq24:=oLink:AddLastChild("Vendas Canceladas" ,,_VAMenu2(152,1,"RelatoriosVendas Canceladas")) oBloq24:=oLink:AddLastChild("Devolucoes" ,,_VAMenu2(153,1,"RelatoriosDevolucoes")) oBloq24:=oLink:AddLastChild("Sugestao de Compras" ,,_VAMenu2(122,1,"RelatoriosSugestao de Compras")) oBloq24:=oLink:AddLastChild("Produtos Comprados",,_VAMenu2(137,1,"RelatoriosProdutos Comprados")) oBloq24:=oLink:AddLastChild("Produtos nao Movimentados",,_VAMenu2(159,1,"RelatoriosProdutos nao Movimentados")) oBloq25:=oLink:AddLastChild("Comissao" ,,_VAMenu2(54,1,"RelatoriosComissao")) If cTpLj = "7" oBloq25:=oLink:AddLastChild("Comissao por Pagamento" ,,_VAMenu2(160,1,"RelatoriosComissao por Pagamento")) Endif If cTpAt >= "3" oBloq26:=oLink:AddLastChild("Movimento de DAV" ,,_VAMenu2(55,1,"RelatoriosMovimento de DAV")) oBloq27:=oLink:AddLastChild("Segunda Via do DAV" ,,_VAMenu2(56,1,"RelatoriosSegunda Via do DAV")) If cTpLj = "6" oBloq33:=oLink:AddLastChild("Emitir Varias Copias DAV",,_VAMenu2(104,1,"RelatoriosEmitir Varias Copias DAV")) EndIf oBloq34:=oLink:AddLastChild("Relatorio de Reservas",,_VAMenu2(92,1,"RelatoriosRelatorio de Reservas")) EndIf oBloq28:=oLink:AddLastChild("Notas Emitidas" ,,_VAMenu2(57,1,"RelatoriosNotas Emitidas")) oBloq29:=oLink:AddLastChild("Total Por ICMS" ,,_VAMenu2(58,1,"RelatoriosTotal Por ICMS")) oBloq30:=oLink:AddLastChild("Fiscal/Sintegra",,_VAMenu2(59,1,"RelatoriosFiscal/Sintegra")) oBloq31:=oLink:AddLastChild("Inventario Estoque" ,,_VAMenu2(60,1,"RelatoriosInventario Estoque")) oBloq33:=oLink:AddLastChild("Ficha Cardex",,_VAMenu2(93,1,"RelatoriosFicha Cardex")) If ! cTpLj $ "34" oBloq34:=oLink:AddLastChild("Vendas Apuracao PIS/COFINS" ,,_VAMenu2(103,1,"RelatoriosVendas Apuracao PIS/COFINS")) EndIf If cTpAt >= "3" oBloq35:=oLink:AddLastChild("Controle DAV/RPV" ,,_VAMenu2(106,1,"RelatoriosControle DAV/RPV")) EndIf oBloq36:=oLink:AddLastChild("Ranking de Vendas" ,,_VAMenu2(107,1,"RelatoriosRanking de Vendas")) oBloq37:=oLink:AddLastChild("SPED PIS/COFINS",,_VAMenu2(141,1,"RelatoriosSPED PIS/COFINS")) oBloq32:=oLink:AddLastChild("Relatorio Financeiro" ,3,2) oBloq32:AddLastChild( "Contas a Pagar" ,,_VAMenu2(61,1,"Relatorio FinanceiroContas a Pagar")) oBloq32:AddLastChild( "Contas a Receber" ,,_VAMenu2(62,1,"Relatorio FinanceiroContas a Receber")) oBloq32:AddLastChild( "Posicao Financeira" ,,_VAMenu2(116,1,"Relatorio FinanceiroPosicao Financeira")) oBloq32:AddLastChild( "Boletim Financeiro" ,,_VAMenu2(171,1,"Relatorio FinanceiroBoletim Financeiro")) oLink:=oRoot:AddLastChild( "Comunicacao", 3, 2 ) oBloq22:=oLink:AddLastChild("Exporta Cadastros" ,,_VAMenu2(63,1,"ComunicacaoExporta Cadastros")) oBloq23:=oLink:AddLastChild("Importa Movimento" ,,_VAMenu2(64,1,"ComunicacaoImporta Movimento")) oLink:=oRoot:AddLastChild( "Utilitarios", 3, 2 ) oBloq24:=oLink:AddLastChild("Manutencao" ,,_VAMenu2(65,1,"UtilitariosManutencao")) oBloq27:=oLink:AddLastChild("Conferencia Produto",,_VAMenu2(94,1,"UtilitariosConferencia Produto")) oBloq28:=oLink:AddLastChild("Conferencia EstoqueGeral",,_VAMenu2(95,1,"UtilitariosConferencia Estoque GeralConferenciaEstoque Geral")) oBloq25:=oLink:AddLastChild("Parametros" ,,_VAMenu2(66,1,"UtilitariosParametros")) oBloq26:=oLink:AddLastChild("Controle de Usuarios" ,3,2) oBloq26:AddLastChild( "Consulta Usuarios",,_VAMenu2(67,1,"Controle de UsuariosConsulta Usuarios")) oBloq26:AddLastChild( "Cadastrar Novo Usuario",,_VAMenu2(96,1,"Controle de UsuariosCadastrar Novo Usuario")) oBloq26:AddLastChild( "Alterar Senha",,_VAMenu2(97,1,"Controle de UsuariosAlterar Senha")) oBloq26:AddLastChild( "Alterar Acessos",,_VAMenu2(98,1,"Controle de UsuariosAlterar Acessos")) oBloq26:AddLastChild( "Excluir Usuario",,_VAMenu2(99,1,"Controle de UsuariosExcluir Usuario")) oBloq26:AddLastChild( "Copiar Acessos deUsuario",,_VAMenu2(100,1,"Controle de UsuariosCopiar Acessos deUsuario")) oBloq27:=oLink:AddLastChild("Auditoria" ,,_VAMenu2(170,1,"UtilitariosAuditoria")) // Acessos Sistema de Vendas // oRoot2:=oRoot2:AddLastChild( "Controle de Acessos LH VENDAS", 9, 8 ) oLink:=oRoot2:AddLastChild( "Vendas", 3, 2 ) oBloq24:=oLink:AddLastChild("Venda Direta" ,,_VAMenu2(68,1,"VendasVenda Direta")) oBloq24:=oLink:AddLastChild("Relatorios Fiscais" ,,_VAMenu2(69,1,"VendasRelatorios Fiscais")) oBloq24:=oLink:AddLastChild("Cancelamento de Vendas" ,,_VAMenu2(70,1,"VendasCancelamento de Vendas")) If ULT01->SCan = "S" oBloq24:=oLink:AddLastChild("Permissao para Cancelamento" ,,_VAMenu2(111,1,"VendasPermissao para Cancelamento")) EndIf oBloq24:=oLink:AddLastChild("Caixa" ,,_VAMenu2(71,1,"VendasCaixa")) If At("LAND",Firma) != 0 .or. cTpLj = "1" oBloq24:=oLink:AddLastChild("Troca de Mercadoria" ,,_VAMenu2(72,1,"VendasTroca de Mercadoria")) EndIf oBloq24:=oLink:AddLastChild("Nota Fiscal Manual" ,,_VAMenu2(73,1,"VendasNota Fiscal Manual")) oBloq24:=oLink:AddLastChild("Exclui Item na Venda (ECF)" ,,_VAMenu2(101,1,"VendasExclui Item na Venda (ECF)")) oBloq24:=oLink:AddLastChild("Desconto Acima do limite",,_VAMenu2(102,1,"VendasDesconto Acima do limite")) oBloq24:=oLink:AddLastChild("Cancelamento Nota Fiscal",,_VAMenu2(105,1,"VendasCancelamento Nota Fiscal")) oBloq24:=oLink:AddLastChild("Informar Saldo Inicial Caixa",,_VAMenu2(163,1,"VendasInformar Saldo Inicial Caixa")) oLink:=oRoot2:AddLastChild( "Comunicacao", 3, 2 ) oBloq25:=oLink:AddLastChild("Importa Cadastros" ,,_VAMenu2(90,1,"ComunicacaoImporta Cadastros")) oBloq25:=oLink:AddLastChild("Exporta Movimento" ,,_VAMenu2(91,1,"ComunicacaoExporta Movimento")) /* // Acessos Sistema de Compras // oRoot3:=oRoot3:AddLastChild( "Controle de Acessos LH COMPRAS", 9, 8 ) oLink:=oRoot3:AddLastChild( "Compras", 3, 2 ) oBloq24:=oLink:AddLastChild("Comprador" ,,_VAMenu2(117,1,"ComprasComprador")) oBloq24:=oLink:AddLastChild("Lancamento" ,,_VAMenu2(113,1,"ComprasLancamento")) oBloq24:=oLink:AddLastChild("Alteracao" ,,_VAMenu2(114,1,"ComprasAlteracao")) oBloq24:=oLink:AddLastChild("Tabela de Autorizacao",,_VAMenu2(115,1,"ComprasTabela de Autorizacao")) oBloq24:=oLink:AddLastChild("Relatorios" ,3,2) oBloq24:AddLastChild("Emite Pedido de Compras" ,,_VAMenu2(144,1,"RelatoriosEmite Pedido de Compras")) oBloq24:AddLastChild("Emite Saldo dos Pedidos de Compras",,_VAMenu2(145,1,"RelatoriosEmite Saldo dos Pedidos de Compras")) oBloq24:AddLastChild("Comparacao com Tabela deAutorizacao Mensal" ,,_VAMenu2(146,1,"RelatoriosComparacao com Tabela deAutorizacao Mensal"))*/ oTree:UpdateTV() oTree:Expand(0) oTree:Expand(7) //oTree:Expand(10) oTree:SetFocus()RETURN oTree**************************************************************************Function ClickTree( oTree )LOCAL oLink := oTree:GetLinkAt( oTree:GetCursel() )LOCAL cPrompt := oLink:TreeItem:cPromptLOCAL cParent, nPos,nPos2If At( Left(cPrompt,19) , "Controle de Acessos" ) > 0Else nPos := oTree:GetCursel() cParent := oLink:ParentLink:TreeItem:cPrompt nPos2 := AScan(aMatVar,{|x| x[3] = cParent+cPrompt }) If nPos2 > 0 cVar := aMatVar[nPos2,2] Do While CORES->(! RLock()); EndDo &cVar. := ! &cVar. CORES->( DbUnlock()) If &cVar. oTree:Modify( nPos, cPrompt, , 12 ) Else oTree:Modify( nPos, cPrompt, , 13 ) EndIf EndIfEndIfReturn(Nil)*********************************************************************************Static Function MenuPrincipal()local oMenuMenu oMenu MenuItem "&Sair do Sistema" ; Action oWnd:End()EndMenureturn oMenu********************************************************************************Function _VAMenu2(nVar,Modo,cTexto)Local Ret,cArea:=Alias()Local lCores:=Select("CORES")==0,nPosModo := If(Modo=Nil,1,Modo)nPos := AScan(aMatVar,{|x| x[1] = nVar })If Modo = 1 Ret := 13Else Ret := .F.EndifIf nPos <= 0Else If Empty(aMatVar[nPos,3]) aMatVar[nPos,3]:=cTexto EndIf cVar := aMatVar[nPos,2] If &cVar. If Modo = 1 Ret := 12 Else Ret := .T. Endif EndifEndIfIf ! empty(cArea) Select (cArea)EndifReturn(Ret)****************************************************************************Function cript(mvar,modo)local tam:=len(mvar)local ilocal var1,var2:=""if modo = 1 // criptografa for i = 1 to tam var1 = substr(mvar,i,1) var2+= (chr(asc(var1)+81+(i*2))) nextelseif modo = 2 for i = 1 to tam var1 = substr(mvar,i,1) var2+= (chr(asc(var1)-81-(i*2))) nextendifreturn(var2) Quote Link to comment Share on other sites More sharing options...
aferra Posted October 30, 2013 Report Share Posted October 30, 2013 http://fivewin.com.br/index.php?/files/file/1095-aferra/ baixa esta que vai dar certo. Quote Link to comment Share on other sites More sharing options...
sambomb Posted October 31, 2013 Report Share Posted October 31, 2013 Coloca a Tag Code para facilitar a visualização [ code ] //Seu código[/ code ] Obs.: sem espaços entre code e os colchetes Quote Link to comment Share on other sites More sharing options...
leo@lhsistemas.com Posted October 31, 2013 Author Report Share Posted October 31, 2013 Aferra, boa noite Não estou conseguindo rodar isto no xDevStudio, não compila e dá erros. Dê-me um exemplo de como "rodar isto". Abraços, Quote Link to comment Share on other sites More sharing options...
leo@lhsistemas.com Posted October 31, 2013 Author Report Share Posted October 31, 2013 Alguem em contato com o Ladinilson ??? Quote Link to comment Share on other sites More sharing options...
Ladinilson Posted November 4, 2013 Report Share Posted November 4, 2013 Opa Leonardo! Desculpe amigo estou muito atarefado ultimamente, você precisa do exemplo da TREE não é? Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted November 4, 2013 Report Share Posted November 4, 2013 Opa Ladinilson. Só não esqueça de mim. Quote Link to comment Share on other sites More sharing options...
leo@lhsistemas.com Posted November 6, 2013 Author Report Share Posted November 6, 2013 Ladinilson, boa noite. Não quero incomodá-lo muito, mas, é necessidade mesmo em "rodar". Senão vou ter que modificar minha rotina de acessos(o que vai dar muito trabalho!!!). PS: Se puder envie-me por email. Abraços, Quote Link to comment Share on other sites More sharing options...
vagner Posted November 7, 2013 Report Share Posted November 7, 2013 Olá, Até agora, vc não postou os erros que dão Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.