Segue exemplo dos arquivos .LNK e .RMK, como ficaria em um arquivo .HBP ? E oque devo mudar no meu Main() ?
.RMK
CompOptions := /m
.Prg.Obj:
Clipper $< $(CompOptions)
Adm_Menu.Obj: Adm_Menu.Prg
Adm_MPar.Obj: Adm_MPar.Prg
Adm_Mchq.Obj: Adm_Mchq.Prg
Adm_MFor.Obj: Adm_MFor.Prg
Adm_MCli.Obj: Adm_MCli.Prg
Adm_MRep.Obj: Adm_MRep.Prg
Adm_MCid.Obj: Adm_MCid.Prg
Adm_MPro.Obj: Adm_MPro.Prg
Adm_MMes.Obj: Adm_MMes.Prg
Adm_MTra.Obj: Adm_MTra.Prg
Adm_MPra.Obj: Adm_MPra.Prg
Adm_MCfo.Obj: Adm_MCfo.Prg
Adm_MPed.Obj: Adm_MPed.prg
Adm_MPe2.Obj: Adm_MPe2.prg
__Parame.Obj: \SysSys\publico\__Parame.Prg
__Fornec.Obj: \SysSys\publico\__Fornec.Prg
__Cheques.Obj: \SysSys\publico\__Cheques.Prg
__Cidade.Obj: \SysSys\publico\__Cidade.Prg
__Bancos.Obj: \SysSys\publico\__Bancos.Prg
__Conta.Obj: \SysSys\publico\__Conta.Prg
__Transp.Obj: \SysSys\publico\__Transp.Prg
__Repres.Obj: \SysSys\publico\__Repres.Prg
__Prazos.Obj: \SysSys\publico\__Prazos.Prg
__Client.Obj: \SysSys\publico\__Client.Prg
__Produt.Obj: \SysSys\publico\__Produt.Prg
__MvEsto.Obj: \SysSys\publico\__MvEsto.Prg
__CFOP.Obj: \SysSys\publico\__CFOP.Prg
__PdFixo.Obj: \SysSys\publico\__PdFixo.Prg
__PdItem.Obj: \SysSys\publico\__PdItem.Prg
__ClasFi.obj: \SysSys\publico\__ClasFi.Prg
__NotaFi.obj: \SysSys\publico\__NotaFi.Prg
__NotaIt.obj: \SysSys\publico\__NotaIt.Prg
__Duplic.obj: \SysSys\publico\__Duplic.Prg
__Despesas.obj: \SysSys\publico\__Despes.Prg
__Pagame.obj: \SysSys\publico\__Pagame.Prg
__EntFix.Obj: \SysSys\publico\__EntFix.Prg
__EntIte.Obj: \SysSys\publico\__EntIte.Prg
__PcFixo.Obj: \SysSys\publico\__PcFixo.Prg
__PcItem.Obj: \SysSys\publico\__PcItem.Prg
__Histor.Obj: \SysSys\publico\__Histor.Prg
__ConSal.Obj: \SysSys\publico\__ConSal.Prg
__Precos.Obj: \SysSys\publico\__Precos.Prg
__Caixa.Obj: \SysSys\publico\__Caixa.Prg
__Custos.Obj: \SysSys\publico\__Custos.Prg
__Border.Obj: \SysSys\publico\__Border.Prg
__CCorre.Obj: \SysSys\publico\__CCorre.Prg
__Dias.Obj: \SysSys\publico\__Dias.Prg
__TmpBor.Obj: \SysSys\publico\__TmpBor.Prg
__Orcame.Obj: \SysSys\publico\__Orcame.Prg
__OrcAux.Obj: \SysSys\publico\__Orcaux.Prg
__Comiss.Obj: \SysSys\publico\__Comiss.Prg
__Catego.Obj: \SysSys\publico\__Catego.Prg
__Apurac.Obj: \SysSys\publico\__Apurac.Prg
__Impres.Obj: \SysSys\publico\__Impres.Prg
__DupPK.Obj: \SysSys\publico\__DupPK.Prg
__Os.Obj: \SysSys\publico\__Os.Prg
__Tecnic.Obj: \SysSys\publico\__Tecnic.Prg
__Bdupli.Obj: \SysSys\publico\__Bdupli.prg
__Agend.Obj: \SysSys\publico\__Agend.prg
Adm_Menu:
RtLink @Adm.Lnk
.LNK
File Adm_Menu
File \SysSys\funcoes\funfil
File \SysSys\funcoes\Func97
File \SysSys\funcoes\Extenso
File \SysSys\funcoes\FuncSeq
File __Parame
File __Fornec
File __Cheques
File __Cidade
File __Bancos
File __Conta
File __Transp
File __Repres
File __Prazos
File __Client
File __Produt
File __MvEsto
File __CFop
File __PdFixo
File __PdItem
File __ClasFi
File __NotaFi
File __NotaIt
File __Duplic
File __Despes
File __Pagame
File __EntFix
File __EntIte
File __PcFixo
File __PcItem
File __Histor
File __Caixa
File __ConSal
File __Precos
File __Custos
File __Border
File __CCorre
File __Dias
File __TmpBor
File __Catego
File __ORCAME
File __ORCAux
File __Comiss
File __Apurac
File __Impres
File __DupPK
File __Os
File __Tecnic
File __Bdupli
File __Agend
File Adm_Rinv
File Adm_Repv
File Adm_Gnfs
File Adm_Rnf
File Adm_Ctab
File Adm_Rcos
File Adm_Rdup
Lib clipper
Lib extend
Lib dbfntx
Lib NovTerm
Lib Ezequiel
Lib Er_Graf
Lib EfLib
Exemplo do meu main()
* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
* ³ Sistema..... Sistema De GERENCIAMENTO TEXTIL - Indaiatuba Textil ³
* ³ Arquivo..... ADM_MENU ³
* ³ Data........ 10/063/2004 ³
* ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Set Proc To ADM_MENU
Parameters Empresa
#Include "Inkey.Ch"
Public NomEmp,Abreviado, Var_In_Get
Funcao=GBL_Inic(.T.)
If Type("Empresa")="U"
Return(0)
GBL_Negoc =0
GBL_Teste =.T.
Else
GBL_Negoc =Val(Empresa)
GBL_Teste =.F.
Endif
Empresa := Val(Empresa)
******** Importante : Definicao De Casas Decimais Para Calculos **********
SET DECIMALS TO 2
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*
Gbl_PkDados := '\SYSADM\CLE\DADTESTE\'
Gbl_PkIndices := '\SYSADM\CLE\INDTESTE\'
Gbl_DOS := '\SYSADM\CLE\DADOS\OS\'
Gbl_IOS := '\SYSADM\CLE\INDICES\OS\'
Gbl_DRE := '\SYSADM\CLE\DADOS\RE\'
Gbl_IRE := '\SYSADM\CLE\INDICES\RE\'
Gbl_DRS := '\SYSADM\CLE\DADOS\RS\'
Gbl_IRS := '\SYSADM\CLE\INDICES\RS\'
Gbl_Dados := '\SYSADM\CLE\DADOS\'
Gbl_Indices := '\SYSADM\CLE\INDICES\'
Gbl_Dpar := '\SYSADM\CLE\PARAMETR\'
Gbl_IPar := '\SYSADM\CLE\PARAMETR\'
Gbl_Relat := '\SYSADM\RELATORI\'
Gbl_Banco := '\SYSADM\CLE\BANCOS\'
Gbl_Export := '\SYSADM\CLE\EXPORTA\'
Gbl_DUser := '\SYSADM\CLE\DADUSER\'
Gbl_IUser := '\SYSADM\CLE\INDUSER\'
If A_Parame() > 0
CloseDBF()
Return
Endif
Sele &_Parame
Set Order To 1
Go 1
NomEmp := Par_Emp
If Empresa == 20
X_Par_Emp := Repli("*", 40)
Else
X_Par_Emp := Par_Emp
Endif
Gbl_Empres := Nomemp
Abreviado := Par_Abr
DataPara := Par_Dat
X_Par_Dat := Par_Dat
CloseDBF()
M_Emp :=StrZero(Gbl_Negoc,3)
Set Cent On
Set Epoch To 1990
A=Adapter()
If (A>1)
ColorBack(16)
Endif
AT01 := {.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,;
.T.,.T.,.T.,.T.,.T.,.T.,.T.,.F.}
MO01 := {"Tabela ",;
" Parametros -MPAR ",;
" Fornecedores -MFOR ",;
" Clientes -MCLI ",;
" Representantes -MREP ",;
" Cidades -MCID ",;
" Insumos -MINS ",;
" Transportadora -MTRA ",;
" Prazo de Pagamento -MPRA ",;
" C.F.O.P. -MCFO ",;
" Plano De Contas Despesas -MDES ",;
" Classificacao Fiscal -MCLF ",;
" Tabela Do Icms -MICM ",;
" Embalagens -MEMB ",;
" Cotacao De Dolar -MDOL ",;
" Login Do Sistema - ",;
"."}
AT02 := {.T.,.F.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,;
.T.,.F.,.T.,.F.}
MO02 := {"Financeiro ",;
" ÄÄÄÄÄÄÄÄ Bancos ÄÄÄÄÄÄÄÄÄ ",;
" Bancos -MBAN ",;
" Conta Corrente -MCCO ",;
" Historico Banc rio -MHIS ",;
" Historico De Liquidacoes -MHLI ",;
" Operacoes Bancarias -MOPE ",;
" Lancamentos Bancarios -MLCA ",;
" Gera Saldo Conta Corrente -MENC ",;
" Extrato Conta Corrente -REXT ",;
" Transferencia De Arquivos -MARQ ",;
"."}
AT03 := {.T.,.F.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,;
.T.,.F.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,;
.T.,.F.}
MO03 := {"Gerencia ",;
" ÄÄÄÄÄÄÄÄÄ Receber ÄÄÄÄÄÄÄÄÄÄ ",;
" Duplicatas … Receber -MDRE ",;
" Cadastro De Duplicatas -MDUP ",;
" Bordero Duplicatas Receber -MBDU ",;
" Historico Das Baixas -MBAI ",;
" Liquidacao Por Banco -MLIQ ",;
" Dup. Em Aberto Vencimento -RDVE ",;
" Dup. Em Aberto Clientes -RCLI ",;
" Dup. Em Aberto Bancos -RBAN ",;
" Dup. Recebidas Data -RVPG ",;
" ÄÄÄÄÄÄÄÄÄ A Pagar ÄÄÄÄÄÄÄÄÄÄ ",;
" Duplicatas … Pagar -MDPA ",;
" Cadastro de Pagamentos -MMDE ",;
" Bordero Duplicatas … Pagar -MBPA ",;
" Historico Das Baixas -MBAP ",;
" Pagamento Por Vencimento -RPVE ",;
" Pagamento Por Fornecedor -RPFO ",;
" Pagamento Por Bancos -RPBA ",;
" Dupls Emis /Lcto /Pgto -RPGO ",;
"."}
AT04 := {.T.,.T.,.T.,.T.,.T.,.T.,.T.,;
.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.F.}
MO04 := {"Gerencia II ",;
" Faturamento -Cliente -RFAT ",;
" Faturamento -Representante -RFAR ",;
" Ranking De Clientes -RRAN ",;
" Ranking De Produtos -RPRO ",;
" Kilos & Metros Faturados -RFA2 ",;
" Duplicatas Por Emissao -RDUE ",;
" Duplicatas Em Aberto(Emiss)-RDEM ",;
" Faturamento Por Dolar -RFDO ",;
" Pagamentos Por Dolar -RPDO ",;
" Kilos & Metros Fat.(NOVO) -MFAT ",;
" Pagamentos Em Aberto(GERAL)-RPGE ",;
"."}
AT05 := {.T.,.T.,.T.,.T.,.F.}
MO05 := {"Gerencia III ",;
" Relacao De Notas - Compras -RNFC ",;
" Apuracao De ICMS e IPI -RICM ",;
" Despesa Conta Cont bil -RDCC ",;
"."}
AT06 := {.T.,.T.,.T.,.T.,.T.,.F.}
MO06 := {"Util ",;
" Informa‡äes Sobre O Sistema ",;
" Reorganizacao De Arquivos ",;
" Impressao de Duplicatas -RDUP ",;
" Impressoras -MIMP ",;
" Log de Cancelamentos -MLOG ",;
"."}
IniTela()
If Get_Usuario() # 0
FimTela()
Set Color to &CorFinal
Clear
Cancel
Endif
Fun00 := A_Parame()
Fun01 := A_Impres()
Fun02 := A_Usuarios()
If Fun00+Fun01+Fun02 > 0
CloseDbf()
Return(0)
Endif
SetLpt()
Set Color To &CorFinal
Clear
LeData()
CloseDbf()
Menu()
FimTela()
Set Color To &CorFinal
Clear
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Menu()
Public PItem,SItem
PItem := 1
SItem := 1
QMenu := 6
MontaTelaB("MÃ DULO : FATURAMENTO",RTrim(Abreviado) , " ",Date()," "," ",RTrim(Nomemp)+ " (ADMIN v.2608)")
Mostra(24,71,'SYSADM-'+STR(EMPRESA,2),415)
IniMenu()
Do While .T.
MontaMenu(QMenu,01,01,"MO","AT",@PItem,@SItem)
If PItem == 0 .Or. (PItem == 1 .And. SItem == 18)
Exit
Endif
Do Case
Case PItem == 1
Menu1()
Case PItem == 2
Menu2()
Case PItem == 3
Menu3()
Case PItem == 4
Menu4()
Case PItem == 5
Menu5()
Case PItem == 6
Menu6()
Endcase
RestMenu()
Enddo
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Menu1()
Do Case
Case SItem == 1
_Exe("Adm_MPar",Gpw_Nivel,FMenu,NMenu)
Case SItem == 2
_Exe("Adm_MFor",Gpw_Nivel,FMenu,NMenu)
Case SItem == 3
_Exe("Adm_MCli",Gpw_Nivel,FMenu,NMenu)
Case SItem == 4
_Exe("Adm_MRep",Gpw_Nivel,FMenu,NMenu)
Case SItem == 5
_Exe("Adm_MCid",Gpw_Nivel,FMenu,NMenu)
Case SItem == 6
_Exe("Adm_MIns",Gpw_Nivel,FMenu,NMenu)
Case SItem == 7
_Exe("Adm_MTra",Gpw_Nivel,FMenu,NMenu)
Case SItem == 8
_Exe("Adm_MPra",Gpw_Nivel,FMenu,NMenu)
Case SItem == 9
_Exe("Adm_MCfo",Gpw_Nivel,FMenu,NMenu)
Case SItem == 10
_Exe("Adm_Mdes",Gpw_Nivel,FMenu,NMenu)
Case SItem == 11
_Exe("Adm_MClf",Gpw_Nivel,FMenu,NMenu)
Case SItem == 12
_Exe("Adm_Micm",Gpw_Nivel,FMenu,NMenu)
Case SItem == 13
_Exe("Adm_MEmb",Gpw_Nivel,FMenu,NMenu)
Case SItem == 14
_Exe("Adm_MDol",Gpw_Nivel,FMenu,NMenu)
Case SItem == 15
Login()
EndCase
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Menu2()
Do Case
Case SItem == 2
_Exe("Adm_MBan",Gpw_Nivel,FMenu,NMenu)
Case SItem == 3
_Exe("Adm_MCco",Gpw_Nivel,FMenu,NMenu)
Case SItem == 4
_Exe("Adm_Mhis",Gpw_Nivel,FMenu,NMenu)
Case SItem == 5
_Exe("Adm_MhLi",Gpw_Nivel,FMenu,NMenu)
Case SItem == 6
_Exe("Adm_MOpe",Gpw_Nivel,FMenu,NMenu)
Case SItem == 7
_Exe("Adm_MLca",Gpw_Nivel,FMenu,NMenu)
Case SItem == 8
_Exe("Adm_Menc",Gpw_Nivel,FMenu,NMenu)
Case SItem == 9
_Exe("Adm_Rext",Gpw_Nivel,FMenu,NMenu)
Case SItem == 10
_Exe("Adm_MArq",Gpw_Nivel,FMenu,NMenu)
EndCase
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Menu3()
Do Case
Case SItem == 2
_Exe("Adm_Mdre",Gpw_Nivel,FMenu,NMenu)
Case SItem == 3
_Exe("Adm_MDup",Gpw_Nivel,FMenu,NMenu)
Case SItem == 4
_Exe("Adm_MBDu",Gpw_Nivel,FMenu,NMenu)
Case SItem == 5
_Exe("Adm_MBai",Gpw_Nivel,FMenu,NMenu)
Case SItem == 6
_Exe("Adm_MLiq",Gpw_Nivel,FMenu,NMenu)
Case SItem == 7
_Exe("Adm_RDve",Gpw_Nivel,FMenu,NMenu)
Case SItem == 8
_Exe("Adm_RCli",Gpw_Nivel,FMenu,NMenu)
Case SItem == 9
_Exe("Adm_RBan",Gpw_Nivel,FMenu,NMenu)
Case SItem == 10
_Exe("Adm_RVpg",Gpw_Nivel,FMenu,NMenu)
Case SItem == 12
_Exe("Adm_MdPa",Gpw_Nivel,FMenu,NMenu)
Case SItem == 13
_Exe("Adm_MMde",Gpw_Nivel,FMenu,NMenu)
Case SItem == 14
_Exe("Adm_MBpa",Gpw_Nivel,FMenu,NMenu)
Case SItem == 15
_Exe("Adm_MBap",Gpw_Nivel,FMenu,NMenu)
Case SItem == 16
_Exe("Adm_RPve",Gpw_Nivel,FMenu,NMenu)
Case SItem == 17
_Exe("Adm_RPfo",Gpw_Nivel,FMenu,NMenu)
Case SItem == 18
_Exe("Adm_RPba",Gpw_Nivel,FMenu,NMenu)
Case SItem == 19
_Exe("Adm_RPgo",Gpw_Nivel,FMenu,NMenu)
EndCase
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Menu4()
Do Case
Case SItem == 1
_Exe("Adm_RFat",Gpw_Nivel,FMenu,NMenu)
Case SItem == 2
_Exe("Adm_RFar",Gpw_Nivel,FMenu,NMenu)
Case SItem == 3
_Exe("Adm_RRan",Gpw_Nivel,FMenu,NMenu)
Case SItem == 4
_Exe("Adm_RPro",Gpw_Nivel,FMenu,NMenu)
Case SItem == 5
_Exe("Adm_RFa2",Gpw_Nivel,FMenu,NMenu)
Case SItem == 6
_Exe("Adm_RDue",Gpw_Nivel,FMenu,NMenu)
Case SItem == 7
_Exe("Adm_RDem",Gpw_Nivel,FMenu,NMenu)
Case SItem == 8
_Exe("Adm_RFdo",Gpw_Nivel,FMenu,NMenu)
Case SItem == 9
_Exe("Adm_RPdo",Gpw_Nivel,FMenu,NMenu)
Case SItem == 10
_Exe("Adm_MFat",Gpw_Nivel,FMenu,NMenu)
Case SItem == 11
_Exe("Adm_RPGE",Gpw_Nivel,FMenu,NMenu)
EndCase
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Menu5()
Do Case
Case SItem == 1
_Exe("Adm_RNfc",Gpw_Nivel,FMenu,NMenu)
Case SItem == 2
_Exe("Adm_Ricm",Gpw_Nivel,FMenu,NMenu)
Case SItem == 3
_Exe("Adm_RDcc",Gpw_Nivel,FMenu,NMenu)
Case SItem == 4
_Exe("Adm_RLog",Gpw_Nivel,FMenu,NMenu)
EndCase
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Menu6()
Do Case
Case SItem == 1
_Exe("Sobre",Gpw_Nivel,FMenu,NMenu)
Case SItem == 2
Reorganiza()
Case SItem == 3
_Exe("Adm_RDUP",Gpw_Nivel,FMenu,NMenu)
Case SItem == 4
_Exe("Adm_MImp",Gpw_Nivel,FMenu,NMenu)
Case SItem == 5
_Exe("Adm_MLog",Gpw_Nivel,FMenu,NMenu)
EndCase
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Helps()
Local Campos[20]
Set Key K_F2 To
// CLIENTES
If Var_in_Get=="M_Cli_Codi" .Or. Var_in_Get=="M_Ped_Clie" .Or. Var_in_Get=="M_Dev_Cli";
.Or. Var_in_Get=="M_Clie" .Or. Var_in_Get=="M_Os_Clie" .Or. Var_in_Get=="M_Dup_Clie";
.Or. Var_in_Get=="M_Cli_Fatu" .Or. Var_in_Get=="M_Che_Clie" .Or. Var_in_Get=="M_Cli";
.Or. Var_in_Get=="M_Pre_Clie" .Or. Var_in_Get=="M_Nf_Desti" .Or. Var_in_Get=="M_Nf_Orde";
.Or. Var_in_Get=="M_T_CLIEN" .Or. Var_in_Get=="M_Ind_Clie" .Or. Var_in_Get=="M_Ind_Desti";
.Or. Var_in_Get=="M_Deb_Clie"
Sele &_Cliente
Campos[01]="Help De CLIENTES"
Campos[02]="Fantasia~Cli_Fant~@!~2"
Campos[03]="Codigo~Cli_Codi~99999~1"
Campos[04]="."
HelpD(05,10,_Cliente,2,Campos,3,"Cli_Codi")
Endif
// FORNECEDOR
If Var_in_Get=="M_For_Codi" .Or. Var_in_Get=="M_For_Rzso" .Or. Var_in_Get=="M_Forn";
.Or. Var_in_Get=="M_Pag_Forn" .Or. Var_in_Get=="M_BDu_For" .Or. Var_in_Get=="M_BCh_For";
.Or. Var_in_Get=="M_Est_For" .Or. Var_in_Get=="G_Forn" .Or. Var_in_Get=="M_Ins_Forn";
.Or. Var_in_Get=="M_Pec_For" .Or. Var_in_Get=="M_Cus_Forn" .Or. Var_in_Get=="M_Mat_UFor";
.Or. Var_in_Get=="M_Mve_Forn" .Or. Var_in_Get=="M_Ins_Dono"
Sele &_Fornece
Campos[01]="Help De FORNECEDORES"
Campos[02]="Fantasia~For_Fant~@!~3"
Campos[03]="Codigo~For_Codi~99999~1"
Campos[04]="Razao Social~For_Rzso~@!~2"
Campos[05]="."
HelpD(05,10,_Fornece,3,Campos,3,"For_Codi")
Endif
// DUPLICATA
If Var_in_Get=="M_Dbi_Dupl"
Sele &_Duplica
Set Order To 1
Campos[01]="Help De DUPLICATAS"
Campos[02]="Duplicata~Dup_Codi~999999~3"
Campos[03]="Sequ.~Dup_Sequ~99~1"
Campos[04]="Valor~Dup_Sald~999,999.99~2"
Campos[05]="Vencimento~Dup_Vcto~99/99/9999~2"
Campos[06]="."
HelpD(05,10,_Duplica,1,Campos,3,"Dup_Codi")
Endif
// CIDADE
If Var_in_Get=="M_For_Ccid" .or. Var_in_Get=="M_Cli_Cdci" .or. Var_in_Get=="M_Rep_Cida" .Or. Var_in_Get=="M_Cid_Codi" .or. Var_in_Get=="M_Cid_Desc" .or. Var_in_Get=="M_Tra_Coc" .Or. Var_in_Get=="M_Ban_Cida";
.Or. Var_in_Get=="M_Cli_CdCi" .Or. Var_in_Get=="M_Cli_CidE" .Or. Var_in_Get=="M_Cli_PCid";
.Or. Var_in_Get=="M_Fil_Cida" .Or. Var_in_Get=="M_Fil_PCid" .Or. Var_in_Get=="M_Par_CCi"
Sele &_Cidade
Campos[01]="Help De CIDADE "
Campos[02]="Desc.~Cid_Desc~@!~2"
Campos[03]="Codigo~Cid_Codi~99999~1"
Campos[04]="Uf~Cid_Esta~@!"
Campos[05]="Ibge~Cid_Ibge~99999999"
Campos[06]="."
HelpD(05,10,_Cidade,2,Campos,2,"Cid_Codi")
Endif
// PAIS
If Var_in_Get=="M_Pai_Codi" .Or. Var_in_Get=="M_Cid_Pais"
Sele &_Pais
Campos[01]="Help De PAISES"
Campos[02]="Pais~Pai_Desc~@!~2"
Campos[03]="Codigo~Pai_Codi~9999~1"
Campos[04]="."
HelpD(05,10,_Pais,2,Campos,2,"Pai_Codi")
Endif
// BANCOS
If Var_in_Get=="M_For_Banc" .or. Var_in_Get=="M_Con_Ban" .Or. Var_in_Get=="M_Banc";
.Or. Var_in_Get=="M_Cai_Ban" .Or. Var_in_Get=="M_Pag_Bco" .Or. Var_in_Get=="M_Ban_Codi";
.Or. Var_in_Get=="M_Che_Banc" .Or. Var_in_Get=="M_Dup_Bco" .Or. Var_in_Get=="M_BCh_Ban";
.Or. Var_in_Get=="M_Bdu_Ban" .Or. Var_in_Get=="M_BPa_Ban" .Or. Var_in_Get=="M_Pag_BcoE";
.Or. Var_in_Get=="M_Ent_Ban"
Sele &_Bancos
Campos[01]="Help De BANCOS"
Campos[02]="Banco~Ban_Raza~@!~2"
Campos[03]="Codigo~Ban_Codi~9999~1"
Campos[04]="."
HelpD(05,10,_Bancos,2,Campos,2,"Ban_Codi")
Endif
// CENTRO DE LUCRO
If Var_in_Get=="M_Nf_Cluc" .Or. Var_in_Get=="M_Luc_Codi" .Or. Var_in_Get=="M_Cluc"
Sele &_CentroLucro
Campos[01]="Help De CENTRO DE LUCRO"
Campos[02]="Centro De Lucro~Luc_Nome~@!~2"
Campos[03]="Codigo~Luc_Codi~9999~1"
Campos[04]="."
HelpD(05,10,_CentroLucro,2,Campos,2,"Luc_Codi")
Endif
// TRANSPORTADORA
If Var_in_Get=="M_Cli_Tran" .or. Var_in_Get=="M_Tra_Cod" .or. Var_in_Get=="M_Tra_Rso";
.Or. Var_in_Get=="M_Nf_Trans" .Or. Var_in_Get=="M_Tran" .Or. Var_in_Get=="M_Rede";
.Or. Var_in_Get=="M_Nf_Rede" .Or. Var_in_Get=="M_Pec_Tra" .Or. Var_in_Get=="M_Cli_Rede"
Sele &_Transpo
Campos[01]="Help De TRANSPORTADORAS"
Campos[02]="Transportadora~Tra_Rso~@!~2"
Campos[03]="Codigo~Tra_Cod~99999~1"
Campos[04]="Placa~Tra_Pla~@!"
Campos[05]="."
HelpD(05,10,_Transpo,2,Campos,2,"Tra_Cod")
Endif
// CONDICÇO DE PAGAMENTO
If Var_in_Get=="M_Pra_Cod" .Or. Var_in_Get=="M_Ped_CPag" .Or. Var_in_Get=="M_Cli_CPag";
.Or. Var_in_Get=="M_Nf_Praz" .Or. Var_in_Get=="M_Pec_Pag" .Or. Var_in_Get=="M_Ent_Pgt";
.Or. Var_in_Get=="M_Cond" .Or. Var_in_Get=="M_Entr" .Or. Var_in_Get=="M_Est_Pra"
Sele &_Prazos
Campos[01]="Help De PRAZO DE PAGAMENTO"
Campos[02]="Cod.~Pra_Cod~999~1"
Campos[03]="Dias~Pra_C01~999"
Campos[04]="Dias~Pra_C02~999"
Campos[05]="Dias~Pra_C03~999"
Campos[06]="Dias~Pra_C04~999"
Campos[07]="Dias~Pra_C05~999"
Campos[08]="Dias~Pra_C06~999"
Campos[09]="."
HelpD(05,10,_Prazos,2,Campos,2,"Pra_Cod")
Endif
// REPRESENTANTES
If Var_in_Get=="M_Rep_Codi" .Or. Var_in_Get=="M_Rep_Repr" .Or. Var_in_Get=="M_Cli_Repr";
.Or. Var_in_Get=="M_Nf_Repr" .Or. Var_in_Get=="M_Dup_Repr".Or. Var_in_Get=="M_Repr"
Sele &_Repres
Campos[01]="Help De REPRESENTANTES"
Campos[02]="Representante~Rep_Raza~@!~2"
Campos[03]="Cod.~Rep_Codi~99999~1"
Campos[04]="."
HelpD(05,10,_Repres,2,Campos,2,"Rep_Codi")
Endif
// CONTA CORRENTE
If Var_in_Get=="M_Con_Codi" .Or. Var_in_Get=="M_Cai_Con" .Or. Var_in_Get=="M_BPa_Con";
.Or. Var_in_Get=="M_BCh_Con" .Or. Var_in_Get=="M_BDu_Con" .Or. Var_in_Get=="M_Dup_Conta";
.Or. Var_in_Get=="M_Bdu_Con" .Or. Var_in_Get=="M_Ent_Con"
Sele &_Conta
Campos[01]="Help de CONTA CORRENTE"
Campos[02]="Titular~Con_Tit~@!~2"
Campos[03]="Conta~Con_Codi~999999999999~1"
Campos[04]="Dig.~Con_DCon~9"
Campos[05]="."
HelpD(05,10,_Conta,2,Campos,2,"Con_Codi")
Endif
// CFOP
If Var_in_Get=="M_Cfo_Codi" .Or. Var_in_Get=="M_Cfo_Desc" .Or. Var_in_Get=="M_Nf_CCfo" .Or. Var_in_Get=="M_Cli_Cfop";
.Or. Var_in_Get=="M_CCfo"
Sele &_Cfop
Campos[01]="Help De C.F.O.P."
Campos[02]="Descricao~Cfo_Desc~@!~2"
Campos[03]="Codigo~Cfo_Codi~99999~1"
Campos[04]="Natureza 1~Cfo_Nat1~9999"
Campos[05]="Natureza 2~Cfo_Nat2~9999"
Campos[06]="Reducao~Cfo_Redu~999.99"
Campos[07]="Aliquota~Cfo_AIcm~999.99"
Campos[08]="."
HelpD(05,10,_Cfop,2,Campos,2,"Cfo_Codi")
Endif
// DESPESAS
If Var_in_Get=="M_Des_Codi" .Or. Var_in_Get=="M_Pag_Conta" .Or. Var_In_Get == "M_Eti_Cont";
.Or. Var_In_Get == "M_For_Desp" .Or. Var_In_Get == "M_Pci_Des" .Or. Var_In_Get == "M_Ins_Cont";
.Or. Var_In_Get == "M_Mat_Cont" .Or. Var_In_Get == "M_Cus_Cont"
Sele &_Despesas
Campos[01]="Help De DESPESAS"
Campos[02]="Despesa~Des_Nome~@!~2"
Campos[03]="Conta~Des_Codi~9.99.999.9999~1"
Campos[04]="."
HelpD(05,10,_Despesas,2,Campos,2,"Des_Codi")
Endif
// HISTORICO
If Var_in_Get=="M_His_Codi" .Or. Var_in_Get=="M_Cai_His"
Sele &_Historico
Campos[01]="Help De HISTORICOS"
Campos[02]="Historico~His_Desc~@!~2"
Campos[03]="Conta~His_Codi~999~1"
Campos[04]="Tipo~His_Tipo~@!"
Campos[05]="."
HelpD(05,10,_Historico,2,Campos,2,"His_Codi")
Endif
// MATERIAIS
If Var_in_Get=="M_Mat_Codi"
Sele &_MATERIAIS
Campos[01]="Help De MATERIAIS "
Campos[02]="Material~Mat_Nome~@!~2"
Campos[03]="Codigo~Mat_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_MATERIAIS,2,Campos,2,"MAT_Codi")
Endif
// EMITENTE
If Var_in_Get=="M_Emi_Codi"
Sele &_Emiten
Campos[01]="Help De EMITENTES"
Campos[02]="Emitente~Emi_Nome~@!~2"
Campos[03]="Codigo~Emi_Codi~999999~1"
Campos[04]="CGC~Emi_Cpf~99999999999999"
Campos[05]="."
HelpD(05,10,_Emiten,2,Campos,2,"Emi_Codi")
Endif
// CLIENTES & FORNECEDORES
If Var_in_Get=="M_Nf_Clie"
If M_Nf_Tipo == "D" .OR. M_Nf_Tipo == "R"
Sele &_Fornece
Campos[01]="Help De FORNECEDORES"
Campos[02]="Fantasia~For_Fant~@!~3"
Campos[03]="Codigo~For_Codi~99999~1"
Campos[04]="Razao Social~For_Rzso~@!~2"
Campos[05]="."
HelpD(05,10,_Fornece,3,Campos,3,"For_Codi")
Else
Sele &_Cliente
Campos[01]="Help De CLIENTES"
Campos[02]="Fantasia~Cli_Fant~@!~2"
Campos[03]="Codigo~Cli_Codi~99999~1"
Campos[04]="."
HelpD(05,10,_Cliente,2,Campos,3,"Cli_Codi")
Endif
Endif
// CLIENTES & FORNECEDORES
If Var_in_Get == "M_Ent_For"
If M_Ent_Tip == "F"
Sele &_Fornece
Campos[01]="Help De FORNECEDORES"
Campos[02]="Fantasia~For_Fant~@!~3"
Campos[03]="Codigo~For_Codi~99999~1"
Campos[04]="Razao Social~For_Rzso~@!~2"
Campos[05]="."
HelpD(05,10,_Fornece,3,Campos,3,"For_Codi")
ElseIf M_Ent_Tip == "C"
Sele &_Cliente
Campos[01]="Help De CLIENTES"
Campos[02]="Fantasia~Cli_Fant~@!~2"
Campos[03]="Codigo~Cli_Codi~99999~1"
Campos[04]="."
HelpD(05,10,_Cliente,2,Campos,3,"Cli_Codi")
Endif
Endif
// INSUMOS & MATERIAIS & PRODUTOS DE TERCEIROS
If Var_in_Get == "M_Eti_Pro" .Or. Var_in_Get == "M_Pci_Pro" .Or. Var_in_Get == "M_Mve_Prod";
.Or. Var_in_Get == "M_Est_Pro" .Or. Var_in_Get == "M_Cot_Prod"
M_In_Get := ""
If Var_in_Get == "M_Eti_Pro"
M_In_Get := M_Eti_Tip
ElseIf Var_In_Get == "M_Pci_Pro"
M_In_Get := M_Pci_Tip
ElseIf Var_In_Get == "M_Mve_Prod"
M_In_Get := M_Mve_TPro
ElseIf Var_In_Get == "M_Est_Pro"
M_In_Get := M_Est_Tip
ElseIf Var_In_Get == "M_Cot_Prod"
M_In_Get := M_Cot_Tipo
Endif
If M_In_Get == "M"
Sele &_Materiais
Campos[01]="Help De MATERIAIS"
Campos[02]="Material~Mat_Nome~@!~2"
Campos[03]="Codigo~Mat_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Materiais,2,Campos,2,"Mat_Codi")
ElseIf M_In_Get == "I"
Sele &_Insumo
Campos[01]="Help De INSUMOS"
Campos[02]="Insumo~Ins_Nome~@!~2"
Campos[03]="Codigo~Ins_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Insumo,2,Campos,2,"Ins_Codi")
ElseIf M_In_Get == "T"
Sele &_ProTerceiro
Campos[01]="Help De TECIDOS DE TERCEIRO"
Campos[02]="Ordem~Pro_Ord~@!"
Campos[03]="Largura~Pro_Lar~9.999"
Campos[04]="Cliente~Pro_nCli~@!~4"
Campos[05]="Codigo~Pro_Cod~@!~1"
Campos[06]="."
HelpD(05,12,_ProTerceiro,2,Campos,1,"Pro_Cod")
Endif
Endif
// PRODUTO
If Var_in_Get=="M_Ins_Codi" .Or. Var_in_Get=="M_Prod" .Or. Var_in_Get=="M_Prec";
.Or. Var_in_Get=="M_Pdi_Prod" .Or. Var_in_Get=="M_Ose_Pro" .Or. Var_in_Get=="M_Osi_Pro";
.Or. Var_in_Get=="M_Sdo_Pro" .Or. Var_in_Get=="M_Ins_Equi"
Sele &_Insumo
Campos[01]="Help De INSUMOS"
Campos[02]="Insumo~Ins_Nome~@!~2"
Campos[03]="Codigo~Ins_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Insumo,2,Campos,2,"Ins_Codi")
Endif
// PROCESSOS
If Var_in_Get == "M_Nfi_Prod"
If M_Nfi_Tipo == "P"
Sele &_Proces
Campos[01]="Help De PROCESSOS INDUSTRIAIS "
Campos[02]="Processo~Pi_Nome~@!~2"
Campos[03]="Conta~Pi_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Proces,2,Campos,2,"Pi_Codi")
Endif
If M_Nfi_Tipo == "M"
Sele &_Materiais
Campos[01]="Help De MATERIAIS"
Campos[02]="Material~Mat_Nome~@!~2"
Campos[03]="Codigo~Mat_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Materiais,2,Campos,2,"Mat_Codi")
Endif
// If M_Nfi_Tipo == "T"
// Sele &_ProTerceiro
// Set Filter To Pro_Cli = M_Nf_Clie
// Campos[01]="Help De TECIDOS DE TERCEIRO"
// Campos[02]="Produto~Pro_Des~@!~2"
// Campos[03]="Largura~Pro_Lar~9.999"
// Campos[04]="Gramatura~Pro_Gra~9.99999"
// Campos[05]="Cliente~Pro_nCli~@!~4"
// Campos[06]="Codigo~Pro_Cod~@!~1"
// Campos[07]="."
// HelpD(05,12,_ProTerceiro,2,Campos,1,"Pro_Cod")
// Set Filter To
// Endif
If M_Nfi_Tipo == "T"
Sele &_Tecido
Set Filter To Pro_Cli = M_Nf_Clie
Campos[01]="Help De TECIDOS CLEBA"
Campos[02]="Ordem~Pro_Ord~@!~2"
Campos[03]="Tecido~Subs(Pro_Des,1,20)~@!"
Campos[04]="Cor~Pro_Cor~@!"
Campos[05]="Preco~Pro_Pre~9999.99~4"
Campos[06]="Cl.Fiscal~Pro_Clfs~@!~1"
Campos[07]="."
HelpD(05,12,_Tecido,5,Campos,1,"Pro_Cod")
Set Filter To
Endif
If M_Nfi_Tipo == "I"
Sele &_Insumo
Campos[01]="Help De INSUMOS"
Campos[02]="Insumo~Ins_Nome~@!~2"
Campos[03]="Codigo~Ins_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Insumo,2,Campos,2,"Ins_Codi")
Endif
Endif
// INSUMOS & Materiais
If Var_in_Get == "M_Cus_Prod"
If M_Cus_Tipo == "M"
Sele &_Materiais
Campos[01]="Help De MATERIAIS"
Campos[02]="Material~Mat_Nome~@!~2"
Campos[03]="Codigo~Mat_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Materiais,2,Campos,2,"Mat_Codi")
Endif
If M_Cus_Tipo == "I"
Sele &_Insumo
Campos[01]="Help De INSUMOS"
Campos[02]="Insumo~Ins_Nome~@!~2"
Campos[03]="Codigo~Ins_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Insumo,2,Campos,2,"Ins_Codi")
Endif
Endif
// PROCESSOS
If Var_in_Get == "M_Pre_Proc"
Sele &_Proces
Campos[01]="Help De PROCESSOS INDUSTRIAIS "
Campos[02]="Processo~Pi_Nome~@!~2"
Campos[03]="Codigo~Pi_Codi~999999~1"
Campos[04]="."
HelpD(05,10,_Proces,2,Campos,2,"Pi_Codi")
Endif
// FAMILIA
If Var_In_Get == "M_Ins_Fami"
Sele &_Familia
Set Order To 2
Campos[01] = "Help De FAMILIAS DE PRODUTOS QUIMICOS"
Campos[02] = "Familia~Fam_Nome~@!~2"
Campos[03] = "Codigo~Fam_Codi~99999~1"
Campos[04] = "."
HelpD(05,12,_Familia,2,Campos,1,"Fam_Codi")
Endif
// HISTORICO DE LIQUIDACOES
If Var_in_Get == "M_Hli_Codi"
Sele &_HistoLiq
Campos[01]="Help De HISTORICO DE LIQUIDACOES"
Campos[02]="Historico~Hli_Desc~@!~2"
Campos[03]="Codigo~Hli_Codi~999~1"
Campos[04]="."
HelpD(05,10,_HistoLiq,2,Campos,2,"Hli_Codi")
Endif
// OPERACOES
If Var_in_Get == "M_Ope_Codi" .Or. Var_in_Get == "M_Dup_Oper" .Or. Var_in_Get == "M_Bdu_Ope"
Sele &_Operacoes
Campos[01]="Help De OPERACOES"
Campos[02]="Operacao~Ope_Nome~@!~2"
Campos[03]="Codigo~Ope_Codi~9999~1"
Campos[04]="."
HelpD(05,10,_Operacoes,2,Campos,2,"Ope_Codi")
Endif
// CLASSIFICACAO FISCAL
If Var_in_Get == "M_CLA_CODI" .Or. Var_in_Get == "M_Nfi_Clfi"
Sele &_ClasFisc
Campos[01]="Help De CLASSIFICACAO FISCAL"
Campos[02]="Desc.Clas.~Cla_Desc~9999.99.99~2"
Campos[03]="Codigo~Cla_Codi~999~1"
Campos[04]="."
HelpD(05,10,_ClasFisc,2,Campos,2,"Cla_Codi")
Endif
// TIPOS DE VENDAS
If Var_in_Get == "M_Ven_Codi" .Or. Var_in_Get == "M_Dev_Vend" .Or. Var_in_Get == "M_Nfi_Vend"
Sele &_Vendas
Campos[01]="Help De TIPOS DE VENDAS"
Campos[02]="Tipo De Venda~Ven_Nome~@!~2"
Campos[03]="Codigo~Ven_Codi~99~1"
Campos[04]="."
HelpD(05,10,_Vendas,2,Campos,2,"Ven_Codi")
Endif
// TIPOS DE EMBALAGENS
If Var_in_Get == "M_Nf_Emba" .Or. Var_in_Get == "M_Emb_Codi"
Sele &_Embalagem
Campos[01]="Help De EMBALAGENS "
Campos[02]="Tipo De Venda~Emb_Nome~@!~2"
Campos[03]="Codigo~Emb_Codi~99999~1"
Campos[04]="."
HelpD(05,10,_Embalagem,2,Campos,2,"Emb_Codi")
Endif
// PRODUTO DE TERCEIRO
If Var_in_Get == "M_Ind_Arti"
Sele &_ProTerceiro
If Var_In_Get == "M_Ind_Arti"
Set Filter To Pro_Cli == M_Ind_Clie
Endif
Campos[01]="Help De PRODUTOS DE TERCEIRO"
Campos[02]="Produto~Pro_Des~@!~2"
Campos[03]="Largura~Pro_Lar~9.999"
Campos[04]="Gramatura~Pro_Gra~9.99999"
Campos[05]="Cliente~Pro_nCli~@!~4"
Campos[06]="Codigo~Pro_Cod~@!~1"
Campos[07]="."
HelpD(05,12,_ProTerceiro,2,Campos,1,"Pro_Cod")
Set Filter To
Endif
// FILIAIS
If Var_in_Get == "M_Fil_Codi" .Or. Var_in_Get == "M_Nf_Fili" .Or. Var_in_Get == "M_Fili"
Sele &_Filial
Campos[01]="Help De FILIAIS"
Campos[02]="Cliente~Fil_Clie~99999"
Campos[03]="Endereco~Fil_Ende~@!"
Campos[04]="Codigo~Fil_Codi~99"
Campos[05]="."
HelpD(05,10,_Filial,1,Campos,2,"Fil_Codi")
Endif
// PRECOS
If Var_In_Get == "M_Pre_Codi"
Campos[01]="Help Da TABELA DE PRECOS"
Campos[02]="Cor~Pre_Cor~@!~2"
Campos[03]="Artigo~SubStr(Pre_Arti,1,20)~@!"
Campos[04]="Processo~Pre_Npi~@!"
Campos[05]="Cliente~Pre_Clie~9999999"
Campos[06]="Codigo~Pre_Codi~999999~4"
Campos[07]="Preco~Pre_V5~99999.99"
Campos[08]="Preco~Pre_V10~99999.99"
Campos[09]="Preco~Pre_V20~99999.99"
Campos[10]="."
HelpD(05,10,_Precos,2,Campos,2,"Pre_Codi")
Endif
// USUARIOS
If Var_In_Get == "M_Usu_Nome"
Campos[01]="Help De USUARIOS"
Campos[02]="Usuario~Usu_Nome~@!~1"
Campos[03]="."
HelpD(05,10,_Usuarios,1,Campos,1,"Usu_Nome")
Endif
// ICMS
If Var_in_Get == "M_Icm_Uf"
Sele &_Icms
Campos[01]="Help de ICMS"
Campos[02]="Uf~Icm_Uf~@!~1"
Campos[03]="Aliquota~Icm_Aliq~99.99"
Campos[04]="."
HelpD(05,10,_Icms,1,Campos,1,"Icm_Uf")
Endif
Set Key K_F2 To Helps
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Insert()
LOCAL ITela, Linha, Coluna
If Var_In_Get == "M_Nf_Clie" .Or. Var_In_Get == "M_Che_Clie"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_MCli(.F.,"Nota Fiscal")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Clie"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Nf_Repr"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mrep(.F.,"Nota Fiscal")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Repr"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Cli_Repr"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mrep(.F.,"Clientes")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Repr"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Nf_Praz"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mpra(.F.,"Nota Fiscal")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Praz"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Cli_CPag"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mpra(.F.,"Clientes")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Praz"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Nf_Trans"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mtra(.F.,"Nota Fiscal")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Trans"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Cli_Tran"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mtra(.F.,"Clientes")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Trans"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Cli_Rede"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mtra(.F.,"Clientes")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Trans"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Nf_Rede"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mtra(.F.,"Nota Fiscal")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_Rede"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Nf_Ccfo"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mcfo(.F.,"Nota Fiscal")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_CCfo"
SetPos(Linha,Coluna)
Endif
If Var_In_Get == "M_Cli_Cfop"
ITela := EfSaveScreen(00,00,24,79)
Linha := Row()
Coluna := Col()
Adm_Mcfo(.F.,"Clientes")
EfRestScreen(00,00,24,79,ITela)
Var_In_Get = "M_Nf_CCfo"
SetPos(Linha,Coluna)
Endif
Set Key K_F2 TO Helps
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Login
//If Abr_Pass() # 0
// CloseDbf()
// Return(0)
//Endif
//If !Call_Pass()
// Closedbf()
//Endif
Get_Usuario()
CloseDbf()
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Sobre
Local Tsobre
If A_Parame() > 0
CloseDBF()
Return
Endif
IniMemo(_Parame)
Sele &_Parame
Set Order To 1
Dbseek("001")
Inimemo(_Parame)
TSobre=EfSaveScreen(00,00,24,79)
CorJam3=CORQUA-1
Jan3(07,11,19,70,"SYS-ADM SISTEMA DE CONTROLE ADMINISTRATIVO",2)
Mostra(09,17,"Este software esta licensiado para a empresa ",248)
Mostra(10,17,X_Par_Emp ,249)
Mostra(11,17,"CNPJ "+M_Par_Cgc+ "`a partir de 14/11/2001" ,248)
Mostra(12,17,"pela SYSPLACE COMPUTADORES E SISTEMAS LTDA-ME",248)
Mostra(13,17,"sob o nro. ADM-02050010002. ",248)
Mostra(16,17,"Suporte : (19) 3408-0207 // 3405-8831 ",249)
Mostra(17,17,"E-Mail Suporte : suporte@sysplace.com.br",249)
INKEY(0)
EfRestScreen(00,00,24,79,Tsobre)
CloseDbf()
Return
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function LeData()
LOCAL MTela, M_Data
If X_Par_Dat == Date()
Return(0)
Endif
MTela := EfSaveScreen(00,00,24,79)
Do While .T.
Jan3(09,15,13,65," D A T A D O S I S T E M A ", 2)
Mostra(11,17,"Data Atual ..: " ,240)
Mostra(12,17,"Nova Data ...: " ,240)
Mostra(13,17,"(99)Confirma (88)Abandona : " ,240)
M_Opc := 0
M_Data := Date()
Set Color To &CorDispl
@11,33 Say X_Par_Dat
Set Color To &CorEntra
@12,33 Get M_Data
Read
If M_Data < X_Par_Dat
Aviso("ATENCAO !!! DATA DIGITADA MENOR QUE A DATA ATUAL !!! ")
Endif
Set Color To &CorDispl
@12,33 Say M_Data
Do While M_Opc # 99 .And. M_Opc # 88
Set Color To &CorEntra
@13,46 Get M_Opc Pict '99'
Read
Enddo
If M_Opc == 99
Sele &_Parame
Set Order To 1
If DbSeek("001")
Bloqueia(5)
Repla Par_Dat With M_Data
Libera(5)
Endif
CloseDbf()
Endif
Exit
Enddo
EfRestScreen(00,00,24,79,MTela)
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Reorganiza()
Run Cd\SYSADM\CLE\INDICES
Run Del *.Ntx
Run Cd\SYSADM\CLE\INDTESTE
Run Del *.Ntx
Run Cd\SYSADM\CLE\SISTEMAS
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function D_User
Bloqueia(5)
Repla D_Usuario With Gpw_User
Libera(5)
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function G_User
Bloqueia(5)
Repla G_Usuario With Gpw_User
Libera(5)
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function Get_Usuario()
PUBLIC Gpw_User, Gpw_Sist, Gpw_Nivel, M_User, Gpw_Excl
If A_Usuarios() # 0
CloseDbf()
Return(1)
Endif
Do While .T.
Jan3(10,20,16,60,"Login "+Abreviado,2)
Mostra(13,28, "USUARIO ..: " ,240)
Mostra(14,28, "SENHA.....: " ,240)
Mostra(13,40, SPACE(10) ,240)
Mostra(14,40, Repli(chr(15),8) ,031)
M_User := Space(10)
Set Color To B/W,W+/B
@13,40 Get M_User Pict '@!'
Read
If Empty(M_User)
Loop
//Return(1)
Endif
Sele &_Usuarios
Set Order To 1
If !DbSeek(M_User)
Aviso("ATENCAO !!! USUARIO "+M_User+" NAO CADASTRADO < ENTER >")
Loop
Endif
Inimemo(_Usuarios)
If Empty(M_Usu_Admi)
Aviso("ATENCAO !!! UTILIZACAO DESTE SISTEMA NAO E PERMITIDA !!! ")
Return(1)
Endif
Senha := Usu_Senh
P_Get := Get_Pass(14, 40)
If Len(P_Get) < 8
P_Get := (P_Get + Space(8 - Len(P_Get)))
Endif
Pass := F_Cripto(P_Get, 8)
If Pass # M_Usu_Senh
Aviso("ATENCAO !!! SENHA DE ACESSO AO SISTEMA ESTA INCORRETA !!!")
Loop
Endif
Gpw_Nivel := 9
Gpw_User := M_Usu_Nome
Gpw_Excl := M_Usu_Excl
Gpw_Sist := "A"
Exit
Enddo
Sele &_Usuarios
Use
CloseDbf()
Return(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function SetLpt()
Sele &_Parame
Go 1
Inimemo(_Parame)
Sele &_Usuarios
Set Order To 1
If !DbSeek(Gpw_User)
Aviso("ATENCAO !!! USUARIO "+Gpw_User+" NAO CADASTRADO < ENTER >")
Return(0)
Endif
M_Pass_Impr := Usu_Impr
Sele &_Impress
Set Order To 1
If !DbSeek(M_Pass_Impr)
Aviso("ATENCAO !!! IMPRESSORA NAO CADASTRADA < ENTER >")
Return(0)
Endif
Inimemo(_Impress)
ReTurn(0)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
Function LogDel(M_Arqu, M_Item, M_Area)
Sele &_Log
Set Order To 1
DbAppend()
Bloqueia(5)
Repla Log_Usua With Gpw_User
Repla Log_Sist With Gpw_Sist
Repla Log_Data With Date()
Repla Log_Hora With Time()
Repla Log_Arqu With M_Arqu
Repla Log_Item With M_Item
Libera(5)
Sele &M_Area
Return(0)
Return(0)