-
Posts
99 -
Joined
-
Last visited
-
Days Won
3
Posts posted by leo@lhsistemas.com
-
-
Boa tarde.
Os erros quando vou compliar são:
Error: Unresolved external '_HB_FUN_TOKEN' referenced from D:\FIVEWIN\LIB\FIVEHX.LIB|DATABASE
Error: Unresolved external '_HB_FUN_CHARREM' referenced from D:\FIVEWIN\LIB\FIVEHX.LIB|XBROWSEO que pode ser isto ?
-
Em qual LIB está a HB_ATOKENS ?
-
-
Bom dia AFerra.
Quando vou compilar dá erro em HB_ATOKENS e uma tal de CHARREM.
O que pode ser ??
-
aferra, boa noite.
Voce consegue ajudar-me nisto ???
-
evertonlb, boa tarde.
Voce consegue me ajudar nisto ???
-
As minhas fontes no PELLESC estão MS SANS SERIF tamaho 8.
Quando vou fazer: DEFINE FONT oMinhaFonte "MS SANS SERIF" SIZE x,y
Qual a espeficicação de x e y para a fonte ser tamaho 8 como no PELLESC.
-
Kapi, não entendi.
O que tenho que fazer ?
-
Boa tarde.
Percebi que meu sistema quando roda em x64.
Ao abrir a janela tudo funciona normal, se abrir um BROWSE(usando a LISTBOX), quando saio deste browse as fontes do sistema ficam em NEGRITO e de TAMANHO MAIOR, o que pode ser.
OBS: Não defino fonte em nenhum lugar do sistema, já uso a padrão do PELLESC.
Abraços a todos.
-
Ariston, boa tarde.
Creio que seja assim:
UPDATE ITENS_DB SET ESTOQUEATUAL = 0.000 WHERE CODIGO = '0001',
ESTOQUEATUAL = 7.000 WHERE CODIGO = '0002',
ESTOQUEATUAL = 2.000 WHERE CODIGO = '0003',
ESTOQUEATUAL = 5.000 WHERE CODIGO = '0004'Abraços,
-
Chalés Nome-------------------------------------------------------------------------------------------------------------------------------------------01 01 - Herberson Carlos Gontijo (Hergon) - Beloarrow-10x10.png Horizonte / MG - (01 chalé - 2 pessoas)02 - Claudia M. R. Glória Gontijo (Cacau7) - Beloarrow-10x10.png Horizonte / MG (Acompanhante)02 03 - Ana Possani (AnaCatacombs) - Cianorte / PR (01 Chalé - 1 Pessoa)
03 04 - João Bosco de Paulo - Contagem / MG (01 chalé )
04 05 - Cleber Luiz Souza - Contagem / MG05 06 - Nárlem - Beloarrow-10x10.png Horizonte / MG - ( 01 chalé - 1 pessoa )06 07 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG07 08 - Gilmer - Sorocaba / SP08 09 - Evandro G. de Paula - Curvelo / MG - ( 01 chalé - 1 pessoa )
09 10 - Cleber Ribeiro Conde - Caratinga / MG10 11 - Vailton Renato - Sorocaba / SP11 12 - José Manoel da Silva - São Paulo / SP12 13 - Rodrigo Portugual - São Paulo / SP
13 14 - Roberto Júnior - São Paulo / SP14 15 - Wesley Rodrigues - São Paulo / SP15 16 - Luiz Roberto SERVULO Diadema/SP
16 17 - Leonardo Guimarães(LHSISTEMAS) Vitória-ES18 - Helder Angelo Fiorotti(LHSISTEMAS) Vitória-ES17 19 - Marcio Eduardo Teixeira - Visconde do Rio Branco - MG18 20 - Rubens Martins (RUBENSMA) - São Paulo - SP - (01 chalé - 2 pessoas)21 - Maria A. F. O. Martins - São Paulo - SP (Acompanhante)19 22 - Sebastião de Oliveira Pessoa - Contagem - MG - TiaoFw20 23 - Alexandre Pereira da Silva - B. Horizonte / MG - alex2002 -
16-Leonardo Guimarães(LHSISTEMAS) Vitória-ES
17-Helder Angelo Fiorotti(LHSISTEMAS) Vitória-ES
-
Alguém pode me ajudar nisto.
-
Tenho percebido que isto sempre tem acontecido com o uso do xDevStudio e PellesC.
Já procurei a fonte "MS SANS SERIF" em PC Windows 32 e no Windows 64 também, e ambas existem nas duas versões do Windows.
O que devo fazer, pois, em nenhum código defino a fonte, isto vem por padrão do PellesC ao criar as telas.
Ajudem-me por favor.
-
Valdir, bom dia.
Sim, utilizado o PellesC para fazer as janelas e botoes.
Como fazer para ver as fontes do Win64 ?
Como voce resolveu isto ?
-
Boa tarde.
Estou tendo problemas com as minhas dialog´s quando implanto o sistema em Windows 64bits.
As fontes dos SAY e BOTOES ficam maiores e estranhas.
Nao utilizo FONT oFont em nenhuma dialog ou window.
O que pode ser ???
Abraços a todos.
-
Aferra, bom dia.
Ainda não deu certo.
Como faço para informar em qual estado(UF) vai ser a consulta, não vi isto, pois "::cUF" não é preenchido nunca.
Creio que este seja o problema.
Abraços.
-
Aferra, boa tarde.
baixei lá em dicas.
Faço os procedimento que falou:
oSintegra := Sintegra():New()
oSintegra:Consulta(xcgc)
Compilo com o meu projeto, mas, não faz nada.
Onde estou errando ?
-
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,
-
Alguem em contato com o Ladinilson ???
-
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,
-
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 oWnd
FUNCTION _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
Endif
RETURN nil
FUNCTION 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 NIL
FUNCTION 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 de
Compras" ,,_VAMenu2(145,1,"RelatoriosEmite Saldo dos Pedidos de
Compras"))
oBloq41:AddLastChild("Comparacao com Tabela de
Autorizacao Mensal" ,,_VAMenu2(146,1,"RelatoriosComparacao com Tabela de
Autorizacao 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 Conta
Cliente" ,,_VAMenu2(118,1,"CadastrosCadastro Situacao da Conta
Cliente"))
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 Estoque
Geral",,_VAMenu2(95,1,"UtilitariosConferencia Estoque GeralConferencia
Estoque 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 de
Usuario",,_VAMenu2(100,1,"Controle de UsuariosCopiar Acessos de
Usuario"))
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 de
Autorizacao Mensal" ,,_VAMenu2(146,1,"RelatoriosComparacao com Tabela de
Autorizacao 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:cPrompt
LOCAL cParent, nPos,nPos2
If At( Left(cPrompt,19) , "Controle de Acessos" ) > 0
Else
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
EndIf
EndIf
Return(Nil)
*********************************************************************************
Static Function MenuPrincipal()
local oMenu
Menu oMenu
MenuItem "&Sair do Sistema" ;
Action oWnd:End()
EndMenu
return oMenu
********************************************************************************
Function _VAMenu2(nVar,Modo,cTexto)
Local Ret,cArea:=Alias()
Local lCores:=Select("CORES")==0,nPos
Modo := If(Modo=Nil,1,Modo)
nPos := AScan(aMatVar,{|x| x[1] = nVar })
If Modo = 1
Ret := 13
Else
Ret := .F.
Endif
If nPos <= 0
Else
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
Endif
EndIf
If ! empty(cArea)
Select (cArea)
Endif
Return(Ret)
****************************************************************************
Function cript(mvar,modo)
local tam:=len(mvar)
local i
local var1,var2:=""
if modo = 1 // criptografa
for i = 1 to tam
var1 = substr(mvar,i,1)
var2+= (chr(asc(var1)+81+(i*2)))
next
elseif modo = 2
for i = 1 to tam
var1 = substr(mvar,i,1)
var2+= (chr(asc(var1)-81-(i*2)))
next
endif
return(var2) -
Que surra tomando em colocar a imagem, mas beleza agora.
Aferra, já faço assim em 16bits, porém, quando migrei para 32bits no xDevStudio, dá erro ao executar.
Veja a imagem do link e veja se é possível algo assim.
http://www.4shared.com/photo/qHVU7kZY/acesso.html
Abraços.
-
Faltou a imagem:
Consulta SINTEGRA pelo CNPJ
in Programação
Posted
Aferra com o seu link de download deu certo.
Agora se copio o bloco aqui deste post acontece estes erros da HB_ATOKENS e HB_CHARREM.
Mas, roudou bem.
Fiz um ajuste no método consulta, criando o parametro cCNPJ, cESTADO.
Daí já abre a janela de consulta do estado, sem a necessidade de exibir aquela janela de seleção.
No estado do RJ está dando erro de focus, veja abaixo:
"
Error description: Error BASE/1004 Class: 'NIL' has no exported method: FOCUS
Args:
[ 1] = U
"