U_Function()

Atendimento TOTVS

2013-06-19T13:05:00.002-03:00

Suporte...

A TOTVS contribui para que mais de 23 mil clientes alcancem a excelência nos processos de gestão, tornando-os mais competitivos, integrados e rentáveis.

Como Cliente TOTVS, percebi uma dificuldade no compartilhamento de informações e de acompanhamento de minhas duvidas com suporte. Muitas são as reclamações, mas temos que acompanhar o crescimento da fabrica de software.
Se possui algum conhecimento ou alguma duvida não exite em deixar aqui seu comentario;

Espero que de alguma forma esse blog sirva para compatilhar conhecimento.
As notas abaixo são informações do site www.totvs.com

•	Treinamento

Visando um maior apoio ao usuário, a TOTVS possui cursos para cada módulo adquirido que esteja relacionado no Programa de Treinamento.

Para melhor aproveitamento, é sugerida a participação do usuário nos cursos, somente após o recebimento do software e a primeira leitura do manual. Desta forma, o usuário pode esclarecer suas dúvidas a partir do primeiro contato com o software.

•	Atendimento Personalizado

A TOTVS oferece toda assessoria para informatização de empresas, desde o desenvolvimento do projeto piloto até os serviços de programação, implantação, cursos de treinamento e manutenção de Sistemas.

O contrato de evolução tecnológica garante a melhoria dos sistemas, a atualização tecnológica e o acesso aos sistemas de apoio por meio da internet. O contrato de atendimento e relacionamento garante o Help-Desk que auxilia o usuário na solução de suas dúvidas.

Através da Central de Atendimento e Relacionamento é possível efetuar os seguintes serviços:

•	Remessa de dúvidas e não-conformidades dos produtos TOTVS, seja de sistemas, módulos, ou qualquer serviço prestado como pós-venda, suporte, treinamento, ou ainda, em qualquer relacionamento administrativo/financeiro;

•	Retorno com esclarecimentos e/ou soluções de dúvidas ou não-conformidades;

•	Coleta de novas atualizações, produzidas para reverter situações de emergência, evitando prazos incompatíveis de distribuição;

•	Consultas sobre planejamento de melhorias e novas versões, inclusive sobre solução de não-conformidades que não interferiram no andamento dos trabalhos (não-conformidades brandas).

O acesso aos sistemas de apoio via Internet é feito mediante o seguinte endereço:

http://www.suporte.totvs.com.br

•

Help-Desk

Plantão telefônico, por meio do qual o cliente expõe suas dúvidas bem como sugestões para o bom funcionamento do Sistema. As dúvidas também podem ser recebidas via fax/e-mail, o que facilita a interpretação da ocorrência.

Dica:

Consulte o Guia de Relacionamento TOTVS do seu país.

Estrutura de um Programa ADVPL

2012-12-01T12:00:00.001-02:00

Um programa de computador nada mais é do que um grupo de comandos logicamente dispostos com o objetivo de executar determinada tarefa. Esses comandos são gravados em um arquivo texto que é transformado em uma linguagem executável por um computador através de um processo chamado compilação. A compilação substitui os comandos de alto nível (que os humanos compreendem) por instruções de baixo nível (compreendida pelo sistema operacional em execução no computador). No caso do ADVPL, não é o sistema operacional de um computador que irá executar o código compilado, mas sim o Protheus Server.

Dentro de um programa, os comandos e funções utilizados devem seguir regras de sintaxe da linguagem utilizada, pois caso contrário o programa será interrompido por erros. Os erros podem ser de compilação ou de execução.

Erros de compilação são aqueles encontrados na sintaxe que não permitem que o arquivo de código do programa seja compilado. Podem ser comandos especificados de forma errônea, utilização inválida de operadores, etc.

Erros de execução são aqueles que acontecem depois da compilação, quando o programa está sendo executado. Podem ocorrer por inúmeras razões, mas geralmente se referem as funções não existentes, ou variáveis não criadas ou inicializadas, etc.

Blogger Labels: Estrutura,Programa,ADVPL,computador,tarefa,Esses,texto,compilação,pelo,sistema,Protheus,Server,Dentro,funções,sintaxe,Erros,Podem,utilização

Linhas de Programa

As linhas existentes dentro de um arquivo texto de código de programa podem ser linhas de comando, linhas de comentário ou linhas mistas.

_ Linhas de Comando

Linhas de comando possuem os comandos ou instruções que serão executadas. Por exemplo:

Local nCnt
Local nSoma := 0
For nCnt := 1 To 10
nSoma += nCnt
Next nCnt

_ Linhas de Comentário

Linhas de comentário possuem um texto qualquer, mas não são executadas. Servem apenas para documentação e para tornar mais fácil o entendimento do programa. Existem três formas de se comentar linhas de texto. A primeira delas é utilizar o sinal de * (asterisco) no começo da linha:

* Programa para cálculo do total
* Autor: Microsiga Software S.A.
* Data: 2 de outubro de 2001

Todas as linhas iniciadas com um sinal de asterisco são consideradas como comentário. Podese utilizar a palavra NOTE ou dois símbolos da letra "e" comercial (&&) para realizar a função do sinal de asterisco. Porém todas estas formas de comentário de linhas são obsoletas e existem apenas para compatibilização com o padrão xBase. A melhor maneira de comentar linhas em ADVPL é utilizar duas barras transversais:

// Programa para cálculo do total
// Autor: Microsiga Software S.A.
// Data: 2 de outubro de 2001

Outra forma de documentar textos é utilizar as barras transversais juntamente com o asterisco, podendo-se comentar todo um bloco de texto sem precisar comentar linha a linha:

/*
Programa para cálculo do total
Autor: Microsiga Software S.A.
Data: 2 de outubro de 2001
*/

Todo o texto encontrado entre a abertura (indicada pelos caracteres /*) e o fechamento (indicada pelos caracteres */) é considerado como comentário.

_ Linhas Mistas

O ADVPL também permite que existam linhas de comando com comentário. Isto é possível adicionando-se as duas barras transversais (//) ao final da linha de comando e adicionando-se o texto do comentário:

Local nCnt
Local nSoma := 0 // Inicializa a variável com zero para a soma
For nCnt := 1 To 10
nSoma += nCnt
Next nCnt

_ Tamanho da Linha

Assim como a linha física, delimitada pela quantidade de caracteres que pode ser digitado no editor de textos utilizado, existe uma linha considerada linha lógica. A linha lógica, é aquela considerada para a compilação como uma única linha de comando.

A princípio, cada linha digitada no arquivo texto é diferenciada após o pressionamento da tecla <Enter>. Ou seja, a linha lógica, é a linha física no arquivo. Porém algumas vezes, por limitação física do editor de texto ou por estética, pode-se "quebrar" a linha lógica em mais de uma linha física no arquivo texto. Isto é efetuado utilizando-se o sinal de ponto-e-vírgula (;).

If !Empty(cNome) .And. !Empty(cEnd) .And. ; <enter>
!Empty(cTel) .And. !Empty(cFax) .And. ; <enter>
!Empty(cEmail)
GravaDados(cNome,cEnd,cTel,cFax,cEmail)
Endif

Neste exemplo existe uma linha de comando para a checagem das variáveis utilizadas. Como a linha torna-se muito grande, pode-se dividi-la em mais de uma linha física utilizando o sinal de ponto-e-vírgula. Se um sinal de ponto-e-vírgula for esquecido nas duas primeiras linhas, durante a execução do programa ocorrerá um erro, pois a segunda linha física será considerada como uma segunda linha de comando na compilação. E durante a execução esta linha não terá sentido.

Desenvolvendo aplicações em ADVPL

2012-11-29T11:52:00.001-02:00

A Linguagem ADVPL teve seu início em 1994, sendo na verdade uma evolução na utilização de
linguagens no padrão xBase pela Microsiga Software S.A. (Clipper, Visual Objects e depois
FiveWin). Com a criação da tecnologia Protheus, era necessário criar uma linguagem que
suportasse o padrão xBase para a manutenção de todo o código existente do sistema de ERP
Siga Advanced. Foi então criada a linguagem chamada Advanced Protheus Language.
O ADVPL é uma extensão do padrão xBase de comandos e funções, operadores, estruturas de
controle de fluxo e palavras reservadas, contando também com funções e comandos
disponibilizados pela Microsiga que a torna uma linguagem completa para a criação de
aplicações ERP prontas para a Internet. Também é uma linguagem orientada a objetos e
eventos, permitindo ao programador desenvolver aplicações visuais e criar suas próprias
classes de objetos.
Quando compilados, todos os arquivos de código tornam-se unidades de inteligência básicas,
chamados APO´s (de Advanced Protheus Objects). Tais APO´s são mantidos em um
repositório e carregados dinamicamente pelo PROTHEUS Server para a execução. Como não
existe a linkedição, ou união física do código compilado a um determinado módulo ou
aplicação, funções criadas em ADVPL podem ser executadas em qualquer ponto do ambiente

Advanced Protheus.

O compilador e o interpretador da linguagem ADVPL é o próprio servidor PROTHEUS
(PROTHEUS Server), e existe um ambiente visual para desenvolvimento integrado
(PROTHEUSIDE) onde o código pode ser criado, compilado e depurado.
Os programas em ADVPL podem conter comandos ou funções de interface com o usuário. De
acordo com tal característica, tais programas são subdivididos nas seguintes categorias:

Programação Com Interface Própria com o Usuário

Nesta categoria entram os programas desenvolvidos para serem executados através do
terminal remoto do Protheus, o Protheus Remote. O Protheus Remote é a aplicação
encarregada da interface e da interação com o usuário, sendo que todo o processamento do
código em ADVPL, o acesso ao banco de dados e o gerenciamento de conexões é efetuado no
Protheus Server. O Protheus Remote é o principal meio de acesso a execução de rotinas
escritas em ADVPL no Protheus Server, e por isso permite executar qualquer tipo de código,
tenha ele interface com o usuário ou não. Porém nesta categoria são considerados apenas os
programas que realizem algum tipo de interface remota utilizando o protocolo de comunicação
do Protheus.
Podem-se criar rotinas para a customização do sistema ERP Microsiga Protheus, desde
processos adicionais até mesmo relatórios. A grande vantagem é aproveitar todo o ambiente
montado pelos módulos do ERP Microsiga Protheus. Porém, com o ADVPL é possível até
mesmo criar toda uma aplicação, ou módulo, do começo.
Todo o código do sistema ERP Microsiga Protheus é escrito em ADVPL.

Programação Sem Interface Própria com o Usuário

As rotinas criadas sem interface são consideradas nesta categoria porque geralmente têm uma
utilização mais específica do que um processo adicional ou um relatório novo. Tais rotinas não
têm interface com o usuário através do Protheus Remote, e qualquer tentativa nesse sentido
(como a criação de uma janela padrão) ocasionará uma exceção em tempo de execução. Estas
rotinas são apenas processos, ou Jobs, executados no Protheus Server. Algumas vezes, a
interface destas rotinas fica a cargo de aplicações externas, desenvolvidas em outras
linguagens, que são responsáveis por iniciar os processos no servidor Protheus através dos
meios disponíveis de integração e conectividade no Protheus.
De acordo com a utilização e com o meio de conectividade utilizado, estas rotinas são
subcategorizadas assim:

Programação por Processos

Rotinas escritas em ADVPL podem ser iniciadas como processos individuais (sem interface) no
Protheus Server através de duas maneiras: Iniciadas por outra rotina ADVPL através da
chamada de funções como StartJob() ou CallProc() ou iniciadas automaticamente na
inicialização do Protheus Server (quando propriamente configurado).

Programação de RPC

Através de uma biblioteca de funções disponível no Protheus (uma API de comunicação),
podem-se executar rotinas escritas em ADVPL diretamente no Protheus Server, através de
aplicações externas escritas em outras linguagens. Isto é o que se chama de RPC (de Remote
Procedure Call, ou Chamada de Procedimentos Remota).
O servidor Protheus também pode executar rotinas em ADVPL em outros servidores Protheus
através de conexão TCP/IP direta utilizando o conceito de RPC. Do mesmo modo, aplicações
externas podem requisitar a execução de rotinas escritas em ADVPL através de conexão
TCP/IP direta.

Programação Web

O Protheus Server pode também ser executado como um servidor Web, respondendo a
requisições HTTP. No momento destas requisições, pode executar rotinas escritas em ADVPL
como processos individuais, enviando o resultado das funções como retorno das requisições
para o cliente HTTP (como por exemplo, um Browser de Internet). Qualquer rotina escrita em
ADVPL que não contenha comandos de interface pode ser executada através de requisições
HTTP. O Protheus permite a compilação de arquivos HTML contendo código ADVPL embutido.
São os chamados arquivos ADVPL ASP, para a criação de páginas dinâmicas.

Programação TelNet

TelNet é parte da gama de protocolos TCP/IP que permite a conexão a um computador remoto
através de uma aplicação cliente deste protocolo. O PROTHEUS Server pode emular um
terminal TelNet, através da execução de rotinas escritas em ADVPL. Ou seja, pode-se escrever
rotinas ADVPL cuja interface final será um terminal TelNet ou um coletor de dados móvel.

Pedido de Vendas (ExecAuto)

2012-09-11T18:44:00.001-03:00

Abrangências:	Microsiga Protheus 11 , Protheus 10
Versões:	Protheus 10
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Português (Brasil)

Descrição:

MATA410 - Geração automática de Pedido de Vendas (ExecAuto) ( [ aCabec ] [ aItens ] [ nOpc ] )

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
/*
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Fun‡„o    ³MyMata410 ³ Autor ³ Eduardo Riera         ³ Data ³17.04.2003 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³          ³Rotina de teste da rotina automatica do programa MATA410     ³±±
±±³          ³                                                             ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Parametros³Nenhum                                                       ³±±
±±³          ³                                                             ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Retorno   ³Nenhum                                                       ³±±
±±³          ³                                                             ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡„o ³Esta rotina tem como objetivo efetuar testes na rotina de    ³±±
±±³          ³pedido de venda                                              ³±±
±±³          ³                                                             ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso       ³ Materiais                                                   ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

Function MyMata410()
Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local nX     := 0
Local nY     := 0
Local cDoc   := ""
Local lOk    := .T.
PRIVATE lMsErroAuto := .F.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Abertura do ambiente                                         |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

ConOut(Repl("-",80))ConOut(PadC("Teste de Inclusao de 10 pedidos de venda  com 30 itens cada",80))
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "SC5","SC6","SA1","SA2","SB1","SB2","SF4"

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Verificacao do ambiente para teste                           |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

dbSelectArea("SB1")
dbSetOrder(1)
If !SB1->(MsSeek(xFilial("SB1")+"PA001")) 
 lOk := .F. 
 ConOut("Cadastrar produto: PA001")
EndIf

dbSelectArea("SF4")
dbSetOrder(1)
If !SF4->(MsSeek(xFilial("SF4")+"501"))
 lOk := .F. 
 ConOut("Cadastrar TES: 501")
EndIf

dbSelectArea("SE4")
dbSetOrder(1)
If !SE4->(MsSeek(xFilial("SE4")+"001"))
 lOk := .F. 
 ConOut("Cadastrar condicao de pagamento: 001")
EndIf

If !SB1->(MsSeek(xFilial("SB1")+"PA002")) 
 lOk := .F. 
 ConOut("Cadastrar produto: PA002")
EndIf

dbSelectArea("SA1")
dbSetOrder(1)
If !SA1->(MsSeek(xFilial("SA1")+"CL000101"))
 lOk := .F. 
 ConOut("Cadastrar cliente: CL000101")
 EndIf
 
If lOk 
 ConOut("Inicio: "+Time()) 
 For nY := 1 To 10  
 cDoc := GetSxeNum("SC5","C5_NUM")  
 RollBAckSx8()  
 aCabec := {}  
 aItens := {}  
 
 aadd(aCabec,{"C5_NUM"   ,cDoc,Nil})  
 aadd(aCabec,{"C5_TIPO" ,"N",Nil})  
 aadd(aCabec,{"C5_CLIENTE",SA1->A1_COD,Nil})    
 aadd(aCabec,{"C5_LOJACLI",SA1->A1_LOJA,Nil})  
 aadd(aCabec,{"C5_LOJAENT",SA1->A1_LOJA,Nil})  
 aadd(aCabec,{"C5_CONDPAG",SE4->E4_CODIGO,Nil})  
 
If cPaisLoc == "PTG"   
 aadd(aCabec,{"C5_DECLEXP","TESTE",Nil})  
Endif  

For nX := 1 To 30   
aLinha := {}   
aadd(aLinha,{"C6_ITEM",StrZero(nX,2),Nil})   
aadd(aLinha,{"C6_PRODUTO",SB1->B1_COD,Nil})   
aadd(aLinha,{"C6_QTDVEN",1,Nil})   
aadd(aLinha,{"C6_PRCVEN",100,Nil})   
aadd(aLinha,{"C6_PRUNIT",100,Nil})   
aadd(aLinha,{"C6_VALOR",100,Nil})   
aadd(aLinha,{"C6_TES","501",Nil})   
aadd(aItens,aLinha)  
Next nX  

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  
//| Teste de Inclusao                                            |  
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  

MATA410(aCabec,aItens,3)  

If !lMsErroAuto   
 ConOut("Incluido com sucesso! "+cDoc) 
Else     
 ConOut("Erro na inclusao!")  
EndIf 

Next nY 
ConOut("Fim  : "+Time()) 

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ 
//| Teste de alteracao                                           | 
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
aCabec := {} 
aItens := {} 
 aadd(aCabec,{"C5_NUM",cDoc,Nil}) 
 aadd(aCabec,{"C5_TIPO","N",Nil}) 
 aadd(aCabec,{"C5_CLIENTE",SA1->A1_COD,Nil}) 
 aadd(aCabec,{"C5_LOJACLI",SA1->A1_LOJA,Nil}) 
 aadd(aCabec,{"C5_LOJAENT",SA1->A1_LOJA,Nil}) 
 aadd(aCabec,{"C5_CONDPAG",SE4->E4_CODIGO,Nil}) 

If cPaisLoc == "PTG"  
 aadd(aCabec,{"C5_DECLEXP","TESTE",Nil})
Endif 

For nX := 1 To 30  
aLinha := {}
 aadd(aLinha,{"LINPOS","C6_ITEM",StrZero(nX,2)})
 aadd(aLinha,{"AUTDELETA","N",Nil})  
 aadd(aLinha,{"C6_PRODUTO",SB1->B1_COD,Nil})  
 aadd(aLinha,{"C6_QTDVEN",2,Nil})  
 aadd(aLinha,{"C6_PRCVEN",100,Nil})  
 aadd(aLinha,{"C6_PRUNIT",100,Nil})  
 aadd(aLinha,{"C6_VALOR",200,Nil})  
 aadd(aLinha,{"C6_TES","501",Nil})  
 aadd(aItens,aLinha) 
Next nX  

 ConOut(PadC("Teste de alteracao",80)) 
 ConOut("Inicio: "+Time()) 

 MATA410(aCabec,aItens,4) 
 ConOut("Fim  : "+Time()) 
 ConOut(Repl("-",80))  
 
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ 
//| Teste de Exclusao                                            | 
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 

 ConOut(PadC("Teste de exclusao",80)) 
 ConOut("Inicio: "+Time()) 
 MATA410(aCabec,aItens,5) 

If !lMsErroAuto    
 ConOut("Exclusao com sucesso! "+cDoc)
Else 
 ConOut("Erro na exclusao!")
EndIf 

 ConOut("Fim  : "+Time()) 
 ConOut(Repl("-",80))

EndIf

RESET ENVIRONMENT

Return(.T.)

ProtheusXBestsales

2012-09-11T18:20:00.001-03:00

Função: MATA030 - Cadastro de Clientes (ExecAuto)

Abrangências:	Microsiga Protheus 11 , Protheus 10
Versões:	Protheus 10
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Português (Brasil)

Descrição:

Função utilizada para inclusão, alteração e exclusão de clientes via rotina automática (ExecAuto).MATA030 - Cadastro de Clientes (ExecAuto) ( [ aVetor ] [ nOpc ] ) --> Nil



/*
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄN’ z¿
//³Inicio personalização para importar pré cadastro de clientes ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄN’ zÙ
*/
    


  ELSEIF cCampo=="160"
//inicializa Cadastro
  aVetor := {} 
//inicia leitura da linha
 nCon := 1
//percorrendo a linha
 WHILE xPos!=xTam
 xAnt := xPos
 xPos := AT(CHR(94),SUBSTR(cBuffer,xAnt+1,xTam)) + xAnt
 cCampo := SUBSTR(cBuffer,xAnt+1,xPos-xAnt-1)
           DO CASE
         CASE nCon == 3
             cRsocial   := cCampo
         CASE nCon == 4
             cNfantasia := cCampo
  CASE nCon == 6
      cCnpj      := cCampo
  CASE nCon == 7
             cInscri  := cCampo
  CASE nCon == 11
             cMpagto  := cCampo
    ENDCASE
 nCon++
 ENDDO
     

 ELSEIF cCampo=="161"
  //inicia leitura da linha
nCon := 1
 //percorrendo a linha
 WHILE xPos!=xTam
 xAnt := xPos
 xPos := AT(CHR(94),SUBSTR(cBuffer,xAnt+1,xTam)) + xAnt
 cCampo := SUBSTR(cBuffer,xAnt+1,xPos-xAnt-1)
  DO CASE
  CASE nCon == 3
              cRua       := cCampo
  CASE nCon == 4
              cNumero := cCampo
  CASE nCon == 5
              cComplem := cCampo
  CASE nCon == 6
              cBairro := cCampo
  CASE nCon == 7
              cCidade := cCampo
  CASE nCon == 8
              cUf        := cCampo
  CASE nCon == 9
              cCep       := cCampo
  CASE nCon == 12
              cTel       := cCampo
  CASE nCon == 14
              cEmail := cCampo
  ENDCASE
nCon++
       ENDDO
 
 aVetor:={     {"A1_LOJA"      ,"01"                      ,Nil},; 
        {"A1_NOME"      ,cRsocial               ,Nil},; 
                      {"A1_PESSOA"    ,"F"                    ,Nil},; 
                      {"A1_NREDUZ"    ,cNfantasia       ,Nil},; 
                      {"A1_END"       ,cRua        ,Nil},; 
                      {"A1_TIPO"      ,"F"                           ,Nil},; 
                      {"A1_EST"       ,cUf        ,Nil},; 
                      {"A1_COD_MUN"   ,"03205"        ,Nil},; 
                      {"A1_MUN"       ,cCidade        ,Nil},; 
                      {"A1_BAIRRO"    ,cBairro        ,Nil},; 
                      {"A1_CEP"       ,cCep        ,Nil},; 
                      {"A1_CGC"       ,"11111111111"                ,Nil},; 
                      {"A1_INSCR"     ,"ISENTO"               ,Nil},; 
                      {"A1_MSBLQL"    ,"1"               ,Nil},; 
                      {"A1_COMPLEM"   ,"CGC/CNPJ -> "+cCnpj      ,Nil},; 
                      {"A1_VEND"      ,vPastas[ip][1]            ,Nil},; 
                      {"A1_CODPAIS"   ,"01058"                       ,Nil},; 
                      {"A1_RISCO"     ,"B"                     ,Nil},; 
                      {"A1_YMEIO"     ,cMpagto                      ,Nil},; 
                      {"A1_YRESTRI"   ,"N"                         ,Nil},; 
                      {"A1_YRAMO"     ,"91"                         ,Nil},; 
                      {"A1_YDTVISI"   ,"02"                    ,Nil}} 


 lMsErroAuto := .F.
 MSExecAuto({|x,y| Mata030(x,y)},aVetor,3)
 If lMsErroAuto
   MostraErro()
 Endif
   
/*
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´[¿
//³Final da rotina de importação de clientes³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´[Ù
*/

I
r para o final dos metadados

Exemplos

Manipulação de Data e Hora

2012-09-11T12:45:00.002-03:00

http://advplbrasil.com.br/advpl/manipulacao-de-data-e-hora/

by Rogério Rafael Lino

Abaixo segue várias funções para manipulação de Data e Hora.

CDOW()

Função que converte uma data para uma cadeia de caracteres.
Sintaxe: CDOW( dExp )
Parâmetros:
dExp Data que será convertida.
Retorno:
cDayWeek Nome do dia da semana como uma cadeia de caracteres. A primeira letra é
maiúscula e as demais minúsculas.
Exemplo:

Código
1 2 3 4	dData := DATE() // Resultado: 09/01/90 cDiaDaSemana := CDOW(DATE()) // Resultado: Friday cDiaDaSemana := CDOW(DATE() + 7) // Resultado: Friday cDiaDaSemana := CDOW(CTOD("06/12/90")) // Resultado: Tuesday

A função FG_CDOW(dExp) retorna o nome do dia da semana de acordo com
o idioma em uso pelo ERP.

CMONTH()
Função de conversão de datas que retorna uma cadeia de caracteres com o nome do mês em inglês.
Sintaxe: CMONTH( dData )
Parâmetros:
dData Data que será convertida.
Retorno:
cMonth Retorna o nome do mês em uma cadeia de caracteres. A primeira letra do retorno em maiúscula e o restante do nome, em minúsculas.
Exemplo:

Código
1 2 3 4	cMes := CMONTH(DATE()) // Resultado: September cMes := CMONTH(DATE() + 45) // Resultado: October cMes := CMONTH(CTOD("12/01/94")) // Resultado: December cMes := SUBSTR(CMONTH(DATE()), 1, 3) + STR(DAY(DATE())) // Resultado: Sep 1

DATE()
Função que retorna a data do atual sistema. O formato de saída é controlado pelo comando SET DATE, sendo que o formato padrão é mm/dd/yy.
Sintaxe: DATE()
Parâmetros:
Nenhum .
Retorno:
dData Data do sistema.
Exemplo:

Código
1 2 3 4 5	dData := DATE() // Resultado: 09/01/01 dData := DATE() + 30 // Resultado: 10/01/01 dData := DATE() - 30 // Resultado: 08/02/90 dData := DATE() cMes := CMONTH(dData) // Resultado: September

DAY()
Função de conversão de datas usada para converter o valor data em um número inteiro que representa o dia do mês. Esta função pode ser usada em conjunto com CMONTH() e YEAR() para formatar datas. Pode ser usada também em diversos cálculos envolvendo datas.
Sintaxe: DAY( dData )
Parâmetros:
dData Data que será convertida.
Retorno:
nDias Se o mês do argumento dData for fevereiro, anos bissextos são
considerados. Se a data do argumento dData for 29 de fevereiro e o ano não
for bissexto, ou se o argumento dData for vazio.
Exemplo:
// Estes exemplos mostram a função DAY() de diversas maneiras:

Código
1 2 3 4 5 6 7 8	dData := DATE() // Resultado: 09/01/01 nDia := DAY(DATE()) // Resultado: 1 nDia := DAY(DATE()) + 1 // Resultado: 2 nDia := DAY(CTOD("12/01/94")) // Resultado: 1 // Este exemplo mostra a função DAY() usada em conjunto com CMONTH() e //YEAR() para formatar o valor da data: dData := Date() cData := CMONTH(dData) + STR(DAY(dData)) + "," + STR(YEAR(dData)) // Resultado: June 15, 2001

DOW()
Função que converte uma data para o valor numérico que representa o dia da semana. Útil quando se deseja fazer cálculos semanais. DOW() é similar a CDOW(), que retorna o dia da semana como uma cadeia de caracteres.
Sintaxe: DOW( dData )
Parâmetros:
dData Data que será convertida.
Retorno:
nDia Retorna um número entre zero e sete, representando o dia da semana. O primeiro dia da semana é 1 (Domingo) e o último é 7 (Sábado). Se a data for vazia ou inválida, DOW() retorna zero.
Exemplo:

Código
1 2 3 4 5	dData := DATE() // Resultado: 09/01/01 nDiaDaSemana := DOW(DATE()) // Resultado: 3 cDiaDaSemana := CDOW(DATE()) // Resultado: Tuesday nDiaDaSemana := DOW(DATE() - 2) // Resultado: 1 cDiaDaSemana := CDOW(DATE() - 2) // Resultado: Sunday

DTOC()
Função para conversão de uma data para uma cadeia de caracteres formatada segundo o padrão corrente, definido pelo comando SET DATE. Se for necessária a utilização de formatação especial, use a função TRANSFORM().
Em expressões de índices de arquivo, use DTOS() no lugar de DTOC() para converter datas para cadeia de caracteres.
Sintaxe: DTOC( dData )
Parâmetros:
dData Data que será convertida.
Retorno:
cData É uma cadeia de caracteres representando o valor da data. O retorno é formatado utilizando-se o formato corrente definido pelo comando SET DATE FORMAT. O formato padrão é mm/dd/yy. Para uma data nula ou inválida, o
retorno será uma cadeia de caracteres com espaços e tamanho igual ao formato atual.
Exemplo:

Código
1 2 3	cData := DATE() // Resultado: 09/01/90 cData := DTOC(DATE()) // Resultado: 09/01/90 cData := "Today is " + DTOC(DATE()) // Resultado: Today is 09/01/90

DTOS()
Função para conversão de uma data que pode ser usada para criar expressões de índice. O resultado é estruturado visando manter a ordem correta do índice (ano, mês, dia).
Sintaxe: DTOS( dData )
Parâmetros:
dData Data que será convertida.
Retorno:
sData Retorna uma cadeia de caracteres com oito byte de tamanho no formato yyyymmdd. Quando dData é nulo ou invalido, DTOS() retorna uma cadeia de caracteres com oito espaços. O valor retornado não é afetado pela
formato da data corrente.
Exemplo:

Código
1 2 3	cData := DATE() // Resultado: 09/01/90 cData := DTOS(DATE()) // Resultado: 19900901 nLen := LEN(DTOS(CTOD(""))) // Resultado: 8

ELAPTIME()
Função que retorna uma cadeia de caracteres contendo a diferença de tempo no formato hh:mm:ss, onde hh é a hora ( 1 a 24 ), mm os minutos e ss os segundos.
Sintaxe: ElapTime( cHoraInicial , cHoraFinal )
Parâmetros:
cHoraInicial Informe a hora inicial no formato hh:mm:ss, onde hh é a hora ( 1 a 24 ), mm os minutos e ss os segundos
CHoraFinal Informe a hora final no formato hh:mm:ss, onde hh é a hora ( 1 a 24 ), mm os minutos e ss os segundos.
Retorno:
Caracter A diferença de tempo no formato hh:mm:ss, onde hh é a hora ( 1 a 24 ), mm os minutos e ss os segundos.
Exemplo:

Código
1 2	cHoraInicio := TIME() // Resultado: 10:00:00 cElapsed := ELAPTIME(TIME(), cHoraInicio)

MONTH()
Função de conversão que extrai da data o valor numérico do mês, semelhante a função que retorna o nome do mês a partir do valor de dData.
Sintaxe: MONTH( dData )
Parâmetros:
dData Data que será convertida.
Retorno:
Numérico >=0 e <=12 Para uma data válida.
0 Se a data for nula ou inválida
Exemplo:

Código
1 2 3	dData := DATE() // Resultado: 09/01/01 nMes := MONTH(DATE()) // Resultado: 9 nMes := MONTH(DATE()) + 1 // Resultado: 10

SECONDS()
Esta função retorna o número de segundos decorridos desde a meia-noite, segundo a hora do sistema. Está relacionada à função TIME() que retorna a hora do sistema como uma cadeia de caracteres no formato hh:mm:ss.
Sintaxe: SECONDS()
Parâmetros:
Nenhum .
Retorno:
Numérico >=0 e <=86399 Retorna a hora do sistema em segundos. O valor numérico representa o número de segundos decorridos desde a meia-noite, baseado no relógio de 24 horas e varia de 0 a 86399.
Exemplo:

Código
1 2 3 4	cHora := TIME() // Resultado: 10:00:00 cSegundos := SECONDS() // Resultado: 36000.00 //Este exemplo usa a função SECONDS() para cronometrar o tempo decorrido: LOCAL nStart, nElapsed<br />nStart:= SECONDS()

TIME()
Função que retorna a hora do sistema como uma cadeia de caracteres, e que está relacionada com SECONDS(), que retorna o valor inteiro representando o número de segundos desde a meia-noite. SECONDS() é geralmente usada no lugar de TIME() para cálculos.
Sintaxe: TIME()
Parâmetros:
Nenhum .
Retorno:
Caracter A hora do sistema como uma cadeia de caracteres no formato hh:mm:ss onde hh é a hora ( 1 a 24 ), mm os minutos e ss os segundos.
Exemplo:

Código
1 2 3 4	cTime := TIME() // Resultado: 10:37:17 cHora := SUBSTR(cTime, 1, 2) // Resultado: 10 cMinutos := SUBSTR(cTime, 4, 2) // Resultado: 37 cSegundos := SUBSTR(cTime, 7, 2) // Resultado: 17

YEAR()
YEAR() é uma função de conversão de data que extrai o valor numérico do ano. YEAR() é membro de um grupo de funções que retornam valores numéricos de uma data. O grupo inclui DAY() e MONTH() que retornam o dia e o mês como valores numéricos.
Sintaxe: YEAR( dData )
Parâmetros:
dData Data que será convertida.
Retorno:
Numérico Valor numérico do ano da data especificada em dData incluindo os dígitos do século. O valor retornado não é afetado pelos valores especificados pelos comandos SET DATE ou SET CENTURY.
Para uma data inválida ou nula será retornado o valor 0.
Exemplo 01:

Código
1 2 3	dData := DATE() // Resultado: 09/20/01 dAno := YEAR(dData) // Resultado: 2001 dAno := YEAR(dData) + 11 // Resultado: 2012

Exemplo 02:

Código
1 2 3 4	// Este exemplo cria uma função de usuário que usa a função YEAR() para formatar o valor da data: cData := Mdy(DATE()) // Result: September 20, 1990 FUNCTION Mdy( dDate ) RETURN CMONTH(dDate) + " " + LTRIM(STR(DAY(dDate))) + "," + STR(YEAR(dDate))

Integração Advpl - GMaps via XML

2012-09-10T12:46:00.003-03:00

Rdmake cria xml que pode posicionar dados no Google Maps num html.

*-------------------------------------------------------------------------------------------------

#INCLUDE 'protheus.ch'
#INCLUDE "XMLXFUN.CH"

*-------------------------------------------------------------------
* Retorna  CLiente Posicionado no Google Maps via XML
*-------------------------------------------------------------------
User Function MpsCli()
Local cCliente  := ""//_QryChec_->C9_CLIENTE
Local cLoja   := ""//_QryChec_->C9_LOJA                               
Local cEol2   := "&lt;br&gt;"
Local cError    := ""
Local cWarning  := ""
Local oScript
Local nRet       



dbselectarea("SA1")

cString := '<markers> '
While !Eof()

  If  Alltrim(SA1->A1_MUN) == "LINHARES"  .and. ;
 Alltrim(SA1->A1_BAIRRO) == "INTERLAGOS" //SA1->A1_ULTCOM > dDate

   cCodigo  := SA1->A1_COD+"-"+SA1->A1_LOJA
  cNome  := SA1->A1_NOME
  cLogad  := SA1->A1_END
  cEstMun  := SA1->A1_MUN
  cEstado  := SA1->A1_EST
                                      
 cEnd := "http://maps.google.com/maps/geo?q="+Alltrim(cLogad)+'+'+;
 Alltrim(cEstMun)+'+'+Alltrim(cEstado)+"&output=csv&sensor=true_or_false&key=abcdefg"
   
 cEnd := strtran(cEnd, " ", "%20")
    cLatiLonge := HTTPGET(cEnd)
    cEnd1 := '{'+cLatiLonge+'}'
 aMaps := &cEnd1
 
 cString += '<marker lat="'+cValtoChar(aMaps[3])+'" lng="'+cValToChar(aMaps[4])+'" html="Endereco&lt;br&gt;'
 cString += cLogad+'"'+'  label='+'"'+cNome+'"'+' />'
 Endif
 dbskip()
Enddo 

cString += '</markers> '
                                
dbgotop()
 //Gera o Objeto XML ref. ao script
 oScript := XmlParser( cString, "_", @cError, @cWarning )

   SAVE oScript XMLFILE "c:\maps\example.xml"

DEFINE MSDIALOG oMaps FROM 0,0 TO 850,1000 PIXEL TITLE "Consulta Cliente"
 oTIBrowser:= TIBrowser():New(0,0,850,650,"c:\maps\map3.htm",oMaps )
          oButton:= TButton():New(310,0070,"OK",oMaps,{||oMaps:End(),lContinue := .T.},40,10,,,,.T.)     
          oButton:= TButton():New(310,0150,"Cancela",oMaps,{||oMaps:End(),lContinue :=.F.},40,10,,,,.T.)     
          oButton:= TButton():New(310,0190,"Imprimir",oMaps,{||oTIBrowser:Print(),lContinue :=.F.},40,10,,,,.T.)     
          //@ 20, 160 BUTTON oBtnPrint PROMPT "Imprimir" SIZE 50,10 ACTION oTIBrowser:Print() OF oDlg PIXEL
ACTIVATE MSDIALOG oMaps CENTERED

Return

Geomind

2012-09-08T10:49:00.001-03:00

GeoMind é uma avançada ferramenta de geoprocessamento que permite uma visualização geográfica de todos os seus clientes, capaz de gerar inúmeras informações de mercado indispensáveis para o melhor gerenciamento do seu negócio. Toda e qualquer informação que sua empresa possua pode ser associada a um ponto geográfico em mapas digitais abrangendo 100% do território nacional. Com esta visão dos dados, é possível fazer um estudo através de uma nova ótica mais poderosa das regiões de atuação dos seus vendedores, melhor definição das rotas e acompanhamento das vendas. O Gestor pode visualizar no mapa informações de seu interesse como: clientes inadimplentes, últimas vendas, ticket médio etc.

Como são feitas as análises de informações?

A obtenção dos dados pode ser feita através do SoftSite Mobile®, pois todas as informações coletadas podem ser integradas e analisadas pelo GeoMind. Além disso, outras fontes poderão ser utilizadas e obter dados do ERP, planilhas do Excel, dentre outras possibilidades, serão possíveis devido à grande flexibilidade que o GeoMind dispõe para categorizar as informações a serem visualizadas pelo Gestor.

Com o objetivo de facilitar essa visualização, o sistema dispõe de diversos ícones para ilustrar quaisquer indicadores de acordo com os critérios definidos pelo Gestor, e ainda possibilita o uso de imagens personalizadas como fotos dos vendedores e logo dos clientes, tornando as análises muito mais significativas.

O SoftSite GeoMind permite que o gestor delimite qualquer área separando-as por cor e gere relatórios específicos dessas áreas com ícones personalizados, podendo inclusive atribuir clientes a rota de um vendedor.

Com todas essas possibilidades, é possível ter um maior poder de decisão e uma gerência muito mais precisa, captando todas as informações que você necessita, de forma prática e inovadora.

DW Portal do Representante®

2012-09-08T10:45:00.000-03:00

Sistema inovador que otimiza o relacionamento entre empresa e representante, disponibilizando informações completas sobre os clientes, contribuindo de forma decisiva para o sucesso dos negócios desenvolvido pela Developweb - Sistemas Web.

Integrado com o ERP Protheus da TOTVS (conexão direta com o banco de dados)
Seus representantes incluem pedidos online.
Formulário de pedidos customizado para atender as regras de negócios de sua empresa
Consultas, relatórios e gráficos essencias para o representante: Pedidos, Títulos, NFs, Informações Gerais, Financeiras e Estratégicas de Clientes, Prospects, entre outros.
Compatível com smartphones (Android, iPhone) e tablets (Android, iPad)
Gerenciamento de Pendências (correio eletrônico exclusivo para os usuários do DW Portal do Representante®)
Acompanhamento da agenda do representante
Registro e acompanhamento de prospecção (com registro de históricos e podendo ser convertido em cliente)
Ideal para qualquer empresa que venda através de representantes
Controle e monitoramento de acesso do representante
Inclusão de orçamentos (podendo ser convertido

u_WordImp() .DOT

2012-09-08T10:32:00.000-03:00

//Por http://www.luislacombe.com.br/Fontes.aspx

Essa integração visa automatizar a criação de contratos, cartas etc. Basicamente,

podemos ter um arquivo modelo e a partir dele informar valores para as DocVariables e assim ter um documento personalizado. Nesta documentação irei fazer um passo a passo aonde vamos simular a geração de um contrato de compra e venda a partir de um cliente cadastrado no Protheus.

O Primeiro passo será criar um documento do tipo .DOT no Word e inserir as

DocVariables nos lugares corretos para que elas sejam substituídas por valores

definidos para elas. Vamos então abrir um novo documento do Word e colocar um

trecho de um contrato de compra e venda de um imóvel:

CONTRATO DE COMPRA E VENDA DE IMÓVEL

Pelo presente instrumento particular, de um lado , nacionalidade , profissão , estado civil, portador da Cédula de Identidade, RG nº , inscrito no CPF sob o nº , residente e domiciliado à

_________________________________________________________________

Agora clique em salvar e escolha o tipo .DOT. Pronto, podemos então inserir as

DocVariables dentro do modelo do Word. Abaixo eu listei as DocVariables que irei

usar neste exemplo:

Nome_vendedor

Nacionalidade_vendedor

Profissão_vendedor

EstCivil_vendedor

RG_vendedor

CPF_vendedor

Endereco_vendedor

Para inserir uma DocVariable,deixe o curso posicionado no local aonde ela

deverá ficar e clique em inserir campo docvariable

Repita o mesmo procedimento para as demais variáveis e após isso é só

compilar o fonte WordImp e chamá-lo pelo menu. Verifique que no fonte temos que

dizer em qual local está o arquivo .DOT sendo possível também definir esse caminho

através de parâmetros do Protheus.

*------------------------------------------------------------------------------------------------


#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'RWMAKE.CH'


User Function WordImp
                    
                    // caminho do arquivo .DOT
Local cPathDot  := "X:\INTEGRACAO.dot"     

//Conecta ao word
Private oWord := OLE_CreateLink()
OLE_NewFile(oWord, cPathDot ) 

                  // OLE_SetDocumentVar(objeto link,nome da docvariable no word,conteúdo a ser passado para o word)
OLE_SetDocumentVar(oWord,"Nome_vendedor","Fulano da Silva Nobre") 
OLE_SetDocumentVar(oWord,"Nacionalidade_vendedor","brasileira") 
OLE_SetDocumentVar(oWord,"Profissão_vendedor","Programador") 
OLE_SetDocumentVar(oWord,"EstCivil_vendedor","Casado") 
OLE_SetDocumentVar(oWord,"RG_vendedor","02344332 SSP/RJ") 
OLE_SetDocumentVar(oWord,"CPF_vendedor","065746342-53")
OLE_SetDocumentVar(oWord,"Endereco_vendedor","Av Marques de Andrade n° 123, Bairro Novo, Rio de Janeiro, RJ.")


OLE_UpdateFields(oWord) 

If MsgYesNo("Imprime o Documento ?")
 Ole_PrintFile(oWord,"ALL",,,1)
EndIf
  
If MsgYesNo("Fecha o Word e Corta o Link ?")
 OLE_CloseFile( oWord )
 OLE_CloseLink( oWord )
Endif 

Return

Rdmake VerCep()

2012-09-08T10:02:00.000-03:00

//Por http://www.luislacombe.com.br/Fontes.aspx
*-----------------------------------------------------------------------------------------------------------

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'RWMAKE.CH'
#INCLUDE 'FONT.CH'
#INCLUDE 'COLORS.CH'

User Function VerCep()

/*ÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±± Declaração de cVariable dos componentes ±±
Ù±±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
Private cBairro := Space(100)
Private cCidade := Space(100)
Private cLog := Space(100)
Private cTipLog := Space(20)
Private cUF := Space(20)
Private cCep := Space(9)

/*ÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±± Declaração de Variaveis Private dos Objetos ±±
Ù±±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
SetPrvt("oDlg1","oSay1","oSay2","oSay3","oSay4","oSay5","oSay6","oGet1","oSBtn1")

/*ÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±± Definicao do Dialog e todos os seus componentes. ±±
Ù±±ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ*/
oDlg1 := MSDialog():New( 088,232,316,624,"Consulta Online CEP",,,.F.,,,,,,.T.,,,.T. )
oSay1 := TSay():New( 012,012,{||"Digite o CEP:"},oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,036,008)
oSay2 := TSay():New( 044,016,,oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,032,008)
oSay3 := TSay():New( 044,056,,oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,128,012)
oSay4 := TSay():New( 064,016,,oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,168,012)
oSay5 := TSay():New( 084,012,,oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,032,012)
oSay6 := TSay():New( 084,052,,oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,132,012)
oGet1 := TGet():New( 012,052,{|u| If(PCount()>0,cCep:=u,cCep)},oDlg1,060,008,'99999-999',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cCep",,)
oSBtn1 := SButton():New( 012,160,1,,oDlg1,,"", )

oSBtn1:bLClicked := {|| LoadCEP() }

oDlg1:Activate(,,,.T.)

Return

Static Function LoadCEP()
Local cError := ""
Local cWarning := ""
Local aRetorno := {}
Local cRETORNO

cRETORNO := HttpGet( 'http://republicavirtual.com.br/web_cep.php?cep='+cCep+'&formato=xml' )

if cRETORNO == nil
MsgStop( Alert( "Servidor de CEP indisponível." ) )
else
oScript := XmlParser( cRETORNO, "_", @cError, @cWarning )
if oScript <> nil
if XmlChildEx( oSCRIPT, "_WEBSERVICECEP" ) <> nil
if Val(oSCRIPT:_WEBSERVICECEP:_RESULTADO:TEXT) > 0
cUF := oSCRIPT:_WEBSERVICECEP:_UF:TEXT
cCidade := oSCRIPT:_WEBSERVICECEP:_CIDADE:TEXT
cBairro := oSCRIPT:_WEBSERVICECEP:_BAIRRO:TEXT
cTipLog := oSCRIPT:_WEBSERVICECEP:_TIPO_LOGRADOURO:TEXT
cLog := oSCRIPT:_WEBSERVICECEP:_LOGRADOURO:TEXT
endif
endif
endif
endif

oSay2 := TSay():New( 044,016,{||"UF: " + cUF},oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,032,008)
oSay3 := TSay():New( 044,056,{||"Cidade: " + cCidade},oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,128,012)
oSay4 := TSay():New( 064,016,{||"Bairro: " + cBairro},oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,168,012)
oSay5 := TSay():New( 084,012,{|| cTipLog},oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,032,012)
oSay6 := TSay():New( 084,052,{|| cLog},oDlg1,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,132,012)

Return

Integração com o Excel

2012-09-06T19:07:00.002-03:00

Esta funcao deve ser chamada a partir da planilha Excel. O dados contidos no array serao distribuidos nas celulas. Na planilha, digitar na celula A1 o comando:

MSGetArray(A1,Siga(“U_PLANMOV”))
ou
MSGetArray(A1,Siga(“U_PLANMOV(p1,p2,pN)”)) –> passando parametros para a funcao. A funcao deverá receber os parametros.
Ou, escrever a seguinte macro e associa-la a um botao:
Sub Atualiza()
Range(“A1″).FormulaR1C1 = “=MSGetArray(RC,Siga(“”U_PLANMOV”"))”
ou
aMovimentos = MSExecArray(siga(“U_PLANMOV”))
End Sub
User Function PlanMOV()
// A funcao poderá receber parametros: User Function PlanMOV(p1,p2,pN)
Local aMovim := {}
dbSelectArea("SZ2")
dbOrderNickName("NOME_NR_IT") // Filial + Nome + Nro.Trans. + Item
dbGoTop()
While !SZ2->(Eof())
AAdd(aMovim, {SZ2->Z2_Nome, SZ2->Z2_Numero, SZ2->Z2_Item,
SZ2->Z2_Data, SZ2->Z2_Tipo, SZ2->Z2_Hist, SZ2->Z2_Valor, SZ2->Z2_Aprov})
SZ2->(dbSkip())
End
Return aMovim
//----------------------------------------------------------------------------//
User Function PlanCAD()
Local aCad := {}
dbSelectArea("SZ1")
dbOrderNickName("NOME")
dbGoTop()
While !SZ1->(Eof())
AAdd(aCad, {SZ1->Z1_Nome, SZ1->Z1_EMail, SZ1->Z1_Saldo})
SZ1->(dbSkip())
End
Return aCad

Exemplo - Email Marketing

2012-09-06T18:37:00.000-03:00

*------------------------------------------------------------------
* Consulta cadastro clientes e filtra registros bloqueados
*------------------------------------------------------------------
#include "Ap5Mail.ch"

User function fmailcli()

dbselectarea("SA1")
cExpressao := "SA1->A1_MSBLQL<>'1' .and. !empty(SA1->A1_EMAIL"
bExpressao := {|| SA1->A1_MSBLQL<>'1' .and. !empty(SA1->A1_EMAIL) }
DbSetFilter(bExpressao ,cExpressao)
dbgotop()

While !Eof()
fSend(SA1->A1_EMAIL)
dbskip()
Enddo

Return

Static function fSend(_cTo)

Local cSubject, cBCC, cCC := ''
lHtml := .f.
cFrom := 'Exemplo Email <faturamento@empresa.com.br>'
cSubject := 'Lista de Produtos'
_cHTML := MemoRead("\workflow\mailings\mCalend.html")

U_SduMandaEmail(_cTo,cCC,cBCC,cSubject,cFrom,_cHTML,lHtml)

Return

*----------------------------------------------------------------------------------------------

User Function SduMandaEmail(cPara,cCopia,cConhCopia,cAssunto,cDe,cTexto,lHtml,cFile)

Local lHtml := Iif(ValType(lHtml)="U",.f.,lHtml)
Local lOk := .F.
Local cAccount := GetMv("MV_RELACNT")
Local cPassword := GetMv("MV_RELPSW")
Local cServer := GetMv("MV_RELSERV")
Local cDe := Iif(cDe==Nil,'Servidor Protheus <workflow@empresa.com.br>',cDe)

Connect Smtp Server cServer Account cAccount Password cPassword Result lOk

If lOk
If ! MailAuth(cAccount,cPassword)
Get Mail Error cErrorMsg
Help("",1,"AVG0001056",,"Error: "+cErrorMsg,2,0)
Disconnect Smtp Server Result lOk
if !lOk
Get Mail Error cErrorMsg
Help("",1,"AVG0001056",,"Error: "+cErrorMsg,2,0)
endif
Return ( .f. )
EndIf
If !Empty(cCopia)
if lHtml
If !Empty(cFile)
Send Mail From cDe To cPara CC cCopia Subject cAssunto Body cTexto Attachment cFile Result lOk
Else
Send Mail From cDe To cPara CC cCopia Subject cAssunto Body cTexto Result lOk
EndIf
else
If !Empty(cFile)
Send Mail From cDe To cPara CC cCopia Subject cAssunto Body cTexto Format Text Attachment cFile Result lOk
Else
Send Mail From cDe To cPara CC cCopia Subject cAssunto Body cTexto Format Text Result lOk
EndIf
endif
Else
if lHtml
If !Empty(cFile)
Send Mail From cDe To cPara BCC cConhCopia Subject cAssunto Body cTexto Attachment cFile Result lOk
Else
Send Mail From cDe To cPara BCC cConhCopia Subject cAssunto Body cTexto Result lOk
EndIf
else
If !Empty(cFile)
Send Mail From cDe To cPara BCC cConhCopia Subject cAssunto Body cTexto Format Text Attachment cFile Result lOk
Else
Send Mail From cDe To cPara BCC cConhCopia Subject cAssunto Body cTexto Format Text Result lOk
EndIf
endif
EndIf
If ! lOk
Get Mail Error cErrorMsg
Help("",1,"AVG0001056",,"Error: "+cErrorMsg,2,0)
EndIf
Else
Get Mail Error cErrorMsg
Help("",1,"AVG0001057",,"Error: "+cErrorMsg,2,0)
EndIf
Disconnect Smtp Server

Return

Exemplo TSay com HTML

2012-09-06T18:23:00.000-03:00

*-----------------------------------------------------------------------------------------

#Include "TOTVS.CH"
User Function TSayHtml()
DEFINE DIALOG oDlg TITLE "Exemplo TSay com HTML" FROM 180,180 TO 550,700 PIXEL

// Cria fonte para ser usada na Get
oFont := TFont():New('Courier new',,-18,.T.)

// Monta o Texto no formato HTML
cTextHtml := '<img src="C:\Totvs\ApData\system\BB_Logo.bmp"> '+;
'Linha 01 Vermelha '+;
'Linha 02 Verde '+;
'Linha 03 Pink '+;
'Linha 04 Azul'+;
'<hr>'+;
''+;
'<table border=1 cellpadding=0 cellspacing=0>'+;
'<tr>'+;
'<td width=100 bgcolor="#FFFF87">Coluna 01a'+;
'<td width=200 bgcolor="#FFFF87">Coluna 02a'+;
'<td width=100 bgcolor="#FFFF87">Coluna 03a'+;
'<tr>'+;
'<td>Coluna 01b'+;
'<td>Coluna 02b'+;
'<td>Coluna 03b'+;
'<tr>'+;
'<td>Coluna 01c'+;
'<td>Coluna 02c'+;
'<td>Coluna 03c'+;
'</table>'

// Cria o Say permitindo texto no formato HMTL
lHtml := .T.
oSay:= TSay():New(01,01,{||cTextHtml},oDlg,,oFont,,,,.T.,,,200,50,,,,,,lHtml)

ACTIVATE DIALOG oDlg CENTERED
Return

*-----------------------------------------------------------------------------------------
Resultado:

Arena TOTVS'

2012-09-04T10:10:00.004-03:00

SOLUÇÕES - aRENA toTVS

A TOTVS fornece ao mercado soluções administrativas, sistêmicas, de processos, de
desempenho e de infraestrutura.

As soluções TOTVS garantem maior competitividade e permitem que cada cliente terceirize
suas operações administrativas/sistêmicas, focando energia e tranquilidade para pensar
apenas no que é seu próprio negócio.

	SOFTWARE Torna a empresa mais competitiva, com maior velocidade de decisão, oferecendo soluções que organizam, disciplinam, definem e impõem processos, armazenam dados, geram informação e auxiliam a gestão. Ler Mais

	TECNOLOGIA Oferece mobilidade, flexibilidade, personalização e integração por meio de soluções empresariais de uma plataforma tecnológica que utiliza linguagens (AdvPL, 4GL), sistemas operacionais e bancos de dados múltiplos. Ler Mais

	SERVIÇOS CLOUD & OUTSOURCING Serviços que contribuem de forma eficaz na operação de cada cliente, sem interferir na execução do negócio principal. A TOTVS oferece, por meio dos produtos BPO, Marketplace, Service Desk,Infraestrutura e Educação, soluções que proporcionam... Ler Mais CONSULTORIA Alavanca os resultados dos clientes por meio de consultoria em gestão empresarial, com a aplicação das melhores práticas de gestão de negócios, envolvendo estratégia, gestão, tecnologia, pessoas e os processos da empresa. Ler Mais

	BY YOU O by You é a primeira rede social de propósitos corporativos e profissionais, em que stakeholders tanto corporativos, como pessoais, rigorosamente qualificados e autenticados, interagem, colaboram, buscam e geram negócios. Ler Mais Conteúdo extraído de http://www.totvs.com/arena *TOTVS e Microsiga são marcas registradas pertencentes ao Grupo TOTVS S/A.

Tabblet Corporativo - Motorola ET1

2012-09-01T11:20:00.001-03:00

Como sera o futuro do Varejo?

2012-09-01T11:12:00.001-03:00