Jump to content
Fivewin Brasil

Como fazer isto rodar em 32bits !!!

leo@lhsistemas.com

By leo@lhsistemas.com
in Programação

 Share

Recommended Posts

leo@lhsistemas.com Newbie

leo@lhsistemas.com

Posted
Posted

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)

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...