Click here to load reader

Programação e Customizações AdvPL e Protheus. Aula 1 Evolução e Arquitetura do Sistema Arquivos Customizações Case – Sistema de Contas Correntes

  • View
    228

  • Download
    6

Embed Size (px)

Text of Programação e Customizações AdvPL e Protheus. Aula 1...

  • Slide 1
  • Programao e Customizaes AdvPL e Protheus
  • Slide 2
  • Aula 1 Evoluo e Arquitetura do Sistema Arquivos Customizaes Case Sistema de Contas Correntes
  • Slide 3
  • 1974 Assembler Batch 1978 Natural Adabas Online 1983 DBase II III, Clipper Summer 1990 Clipper 5 SIGA Advanced 1995 FiveWin/Top/Coencisa, VO, Delphi, SQL 2000 AdvPL Protheus 5... 8 Evoluo do Sistema da Microsiga
  • Slide 4
  • Server (MP8SRVWIN.EXE) Monitor RPO (MPDP811.RPO) Top Connect DB2OracleSQL Server MySQLPostGresSybase Client (WEB) ActiveX Remote (MP8RMT.EXE) Windows Linux Browser Windows Linux Unix Windows Linux Unix Client Aplication Server Database Server DBF/CTREE Multi-Camada
  • Slide 5
  • Mltiplas configuraes...... Hub..... Hub. modem Servidor Terminal Dados
  • Slide 6
  • Protheus Server COMPILADOR INTERPRETADOR Repositrio de Objetos Remote Protheus Base de Dados Remote Protheus Remote Protheus Remote Protheus WEB Services
  • Slide 7
  • Estrutura Protheus APO MATA010 APO MATA010 REMOTE Executa MATA010 Executa MATA010 Executa MATA410 Executa MATA410 Executa CTBR040 Executa CTBR040 RPO MATA010 MATA410 CTBR040 SERVER Programa Fonte MATA010 Cad.ProdutosPed.VendasBalancete Cont. Compilao
  • Slide 8
  • EXECUO SOLICITAO INSTNCIA CARGA Protheus Repositrio de Objetos OBJETO Memria Protheus UCP OBJETO
  • Slide 9
  • Interface de Banco de Dados (Top Connect) Interface de Banco de Dados (Top Connect) Banco de Dados Interface de Software Bsico (acesso ao Hardware) WEB Services. WEB Services. Soluo Protheus (Server). Soluo Protheus (Server). Interface de Apresentao (Remote). Interface de Apresentao (Remote). AP I REDE SGBD.
  • Slide 10
  • Projeto Repositrio de Objetos IDE Integrated Development Environment IDE Integrated Development Environment Programa Fonte
  • Slide 11
  • Protheus Server Protheus Remote Top Connect Monitor Aplicativos
  • Slide 12
  • Camadas Protheus Camada de Dados Camada de Aplicao Camada de Interface Camada de Repositrio de Objetos
  • Slide 13
  • RPO arquivo binrio com os APOs BUILD executveis, DLLs e RPO Patch atualizaes do RPO Conjuntos de arquivos
  • Slide 14
  • Windows Linux Hand Held (Palm ou Pocket PC) ActiveX Remote
  • Slide 15
  • Thin Client Baixo trfego na rede Multi-plataforma Atualizao automtica ASP - Aplication Server Provider Browser Internet (HTML) Terminal Remoto
  • Slide 16
  • Estrutura de pastas do sistema ERP811 APO (RPO) BIN REMOTE SERVER INCLUDE MP_DATA DATA (verso ISAM) SAMPLES SPOOL SYSTEM (Dic.Dados, Menus,...) SYSTEMLOAD MY PROJECTS
  • Slide 17
  • Slide 18
  • Atalhos Destino: c:\erp811\bin\server\mp811srvwin.exe debug Iniciar em: c:\erp811\bin\server Destino: c:\erp811\bin\remote\mp811rmt.exe Iniciar em: c:\erp811\bin\remote MP8 Server MP8 Remote
  • Slide 19
  • ERP811 APO BIN REMOTE SERVER INCLUDE MP_DATA DATA SAMPLES SPOOL SYSTEM SYSTEMLOAD MY PROJECTS SIGACFG TCP Environment MP8SRV.INI [Environment] SourcePath=C:\ERP811\APO RootPath=C:\ERP811\MP_Data StartPath=\system\ RpoDb=dbf RpoLanguage=portuguese RpoVersion=811 LocalFiles=ads localdbextension=.dbf PictFormat=DEFAULT DateFormat=DEFAULT [Drivers] Active=TCP [TCP] TYPE=TCPIP Port=1234 MP8SRV.INI
  • Slide 20
  • [environmentSQL] SourcePath=C:\ERP811\APO RootPath=C:\ERP811\MP_Data StartPath=\system\ RpoVersion=811 RpoDb=Top LocalFiles=ads localdbextension=.dbf RpoLanguage=portuguese PictFormat=DEFAULT DateFormat=DEFAULT [Topconnect] Alias=BASE810 ConType=TCPIP DataBase=MSSQL8 Server=SrvTOP01 [Drivers] Active=TCP [TCP] TYPE=TCPIP Port=1234
  • Slide 21
  • MP8RMT.INI [Config] LastMainProg=sigamdi [Drivers] Active=TCP [TCP] Server=localhost Port=1234
  • Slide 22
  • Slide 23
  • SIGACFG TCP Environment Configurador
  • Slide 24
  • Senha: admin Configurador
  • Slide 25
  • Slide 26
  • Slide 27
  • Arquivos Famlia SX ArquivoDescrio SX1Perguntas e Respostas SX2Mapeamento de Tabelas SX3Dicionrio de Dados SX4Agenda do Schedule de Processos SX5Tabelas SX6Parmetros SX7Gatilhos SX9Relacionamento entre Tabelas SXAPastas Cadastrais apontadas no SX3 SXBConsulta por meio da tecla F3 (Consulta Padro) SXDControle do Schedule de Processos SXESeqncia de Documentos (+1) SXFSeqncia de Documentos (prximo) SXGTamanho padro para campos SXKRespostas das Perguntas (SX1) por Usurio SXOControle de LOGs por Tabela SIXndices dos Arquivos.XNUMenu de Opes dos Mdulos Pasta \SYSTEM
  • Slide 28
  • SA- Cadastros SB- Estoques SC- Previses de E/S SD- Mov. De Estoque SE- Financeiro SF- Fiscal SG- Estruturas SH- Carga de Mquina SI- Contbil SJ- Estatsticas SM- Miscelneas SN- Ativo Fixo SO-Assist. Tcnica SP- Ponto Eletrnico SQ-Recr. e Seleo SR-Folha de Pagto ST-Manut. Industrial SU-Telemarketing SV-Concessionrias SW e SY- Export./Import. Q?-Qualidade (Celerina) R?-Recursos Humanos SZ,QZ,RZ- Livres P?-Projetos Especiais M.E.R. Modelo de Entidades e Relacionamento Famlias de Arquivos de Dados Pasta \DATA ou Banco de Dados
  • Slide 29
  • Principais Arquivos de Dados PrefixoDescrio SA1Cadastro de Clientes SA2Cadastro de Fornecedores SA3Cadastro de Vendedores SB1Cadastro de Produtos SB2Saldos dos Produtos por Almoxarifado SB5Dados Complementares de Produtos SC1Solicitaes de Compras SC5Cabealho dos Pedidos de Venda SC6Itens dos Pedidos de Venda SC7Pedidos de Compras SD1Itens das Notas Fiscais de Entrada SD2Itens das Notas Fiscais de Sada SD3Movimentaes Internas de Produtos SE1Ttulos a Receber SE2Ttulos a Pagar SF1Cabealho das Notas Fiscais de Entrada SF2Cabealho das Notas Fiscais de Sada SI1Plano de Contas SI2Lanamentos Contbeis
  • Slide 30
  • Arquivos de Dados por Empresa O sistema permite controlar at 99 Empresas. Cada Empresa pode ter at 99 Filiais: Empresa 01 Filiais01Empresa 02 Filiais0102...99 Para cada Empresa criado um jogo de arquivos: SXXnn0 onde:XX = Prefixo do arquivo nn = Empresa Exemplo: Empresa 99 -> SA1990, SA2990, SB1990...
  • Slide 31
  • Arquivos de Dados Nomenclatura dos campos: Arquivo SA1:A1_FILIALSA2:A2_FILIALSB1:B1_FILIALQA1:QA1_FILIAL A1_CODA2_CODB1_CODQA1_COD A1_NOMEA2_NOMEB1_DESCQA1_DESC A1_ENDA2_ENDB1_TIPO Filiais Os dados das Filiais ficam dentro do arquivo de cada Empresa. Todo arquivo, exceto SM2, tem um campo XX_Filial que identifica a Filial: 01 02
  • Slide 32
  • Arquivos de Dados Compartilhado registros compartilhados entre as filiais Campo Filial: em branco Exclusivo o registro exclusivo da filial Campo Filial: cdigo da Filial (varivel cFilAnt) C5_FILIAL C5_NUM C5_EMISSAO C5_CLIENTE C5_PROD C5_VALOR 01 000001 01/01/04 000002 11.11014 15.000,00 01 000005 01/01/04 000023 13.13000 5.600,00 01 000007 20/01/04 000016 15.15140 5.600,00 02 000001 01/01/04 000002 11.11014 15.000,00 02 000005 01/01/04 000023 13.13000 5.600,00 02 000007 20/01/04 000016 15.15140 5.600,00 03 000001 01/01/04 000002 11.11014 15.000,00 03 000005 01/01/04 000023 13.13000 5.600,00 03 000007 20/01/04 000016 15.15140 5.600,00 A1_FILIAL A1_COD A1_NOME 000015 FABRICA DE TINTAS E VERINIZES LTDA /SP 000016 TEX MALHAS E CONFECCOES S.A /SP 000001 CLIENTE PADRAO 000020 ARMANDO JOSE FLORES /SC 000007 COMERCIO SOM DO MUNDO /SP xFilial(SA1) xFilial(SC5) cFilAnt Ex: SA1 - Compartilhado Ex: SC5 - Exclusivo Modo de Acesso
  • Slide 33
  • Arquivos de ndices REGISTRO A1_FILIAL A1_COD A1_NOME 01 000015 FABRICA DE TINTAS E VERINIZES LTDA /SP 02 000016 TEX MALHAS E CONFECCOES S.A /SP 03 000001 CLIENTE PADRAO 04 000020 ARMANDO JOSE FLORES /SC 05 000007 COMERCIO SOM DO MUNDO /SP Todo arquivo precisa ter pelo menos um ndice ndice Primrio: acesso direto ao registro verificao de chave duplicada Ordenao de registros CHAVE REGISTRO 000001 03 000007 05 000015 01 000016 02 000020 04 ndices
  • Slide 34
  • Arquivos de ndices Um arquivo pode ter at 35 ndices (1...9, A...Z) dbSetOrder(n), onde n = 1...35 funo para selecionar o ndice. Alm dos ndices originais, usurios podem incluir seus prprios ndices. Caso a Microsiga inclua novos ndices, os do usurio sero renumerados. ndices Portanto, ndices de usurio devem sempre ter um NickName. Deve-se usar a funo dbOrderNickName(NICKNAME) ndices do sistema, nunca tero NickName. Usa-se dbSetOrder(). SA1 ndices do Sistema1 2... 7 ndice do Usurio8A1_TIPO Nos programas: dbSetOrder(8) novo ndice do Sistema8 ndice do Usurio9A1_TIPO ndice do Usurio8A1_TIPO NickName: TIPO novo ndice do Sistema8 ndice do Usurio9A1_TIPO NickName: TIPO Nos programas: dbOrderNickName(TIPO) X
  • Slide 35
  • Parmetros, Tabelas, Perguntas Frmulas - Expresses em AdvPL / User Function Validaes, Gatilhos, Campos de Arquivos User Function via menu Pontos de Entrada Dicionrio de Dados Ativo SigaRPM, Crystal, Excel Customizao
  • Slide 36
  • Slide 37
  • Parmetros: arquivo SX6 cESTNEG := GetMV(MV_ESTNEG) If cESTNEG == S.Or. QtdVenda < B2_Saldo tratamento normal Else tratamento de erro EndIf S 100 200 V S 201 200 V F N 100 200 F V N 201 200 F Customizao Parmetros
  • Slide 38
  • Tabelas: arquivo SX5 Tabela 12: Estados do Brasil Tabela 13: CFOP Tabela 33: Estado Civil Customizao Tabelas
  • Slide 39
  • Perguntas: arquivo SX1 Do Cli