BlackTDN

Utilize a função EmpOpenFile() para abrir Tabela de Outras Empresas conforme exemplo abaixo: EmpOpenFile(cNewAls,cAlias,nOrder,lOpen,cEmpresa,cModo) Onde: cNewAls -> Apelido com o qual a Tabela será aberto cAlias -> Apelido da Tabela que se deseja abrir nOrder -> Ordem do Indice para abertura da Tabela lOpen -> .T. abre a Tabela .F. Fecha-a cEmpresa -> Codigo da Empresa para abertura da Tabela cModo -> Retornado por referência, define o Modo de acesso do arquivo Ex.: //Exemplo 1: Abrindo o SRA de outra empresa com um novo //Alias User Function Exemplo1() Local aArea := GetArea() Local aAreaSRA := SRA->( GetArea() ) Local cSvFilAnt := cFilAnt //Salva a Filial Anterior Local cSvEmpAnt := cEmpAnt //Salva a Empresa Anterior Local cSvArqTab := cArqTab //Salva os arquivos de //trabalho Local cModo //Modo de acesso do arquivo aberto //"E" ou "C" Local cNewAls := GetNextAlias() //Obtem novo Alias IF EmpOpenFile(cNewAls,"SRA",1,.T.,"

A dica de hoje é um exemplo de WebService em advpl para a consulta ao CEP (Código de Endereçamento Postal) baseado no site   Republica Virtual #INCLUDE "APWEBSRV.CH" #INCLUDE "PROTHEUS.CH" #DEFINE STR0001 "Servico de Constulta ao Codigo de Enderacamento Postal" #DEFINE STR0002 "Método para pesquisa do CEP" /*/ WSSERVICE: u_wsCEPInfo Autor: Marinaldo de Jesus Data: 20/09/2010 Descri‡…o: Servico de Constulta ao Codigo de Enderacamento Postal a partir da URL http://cep.republicavirtual.com.br/web_cep.php?cep=[cep] Uso: Consulta ao CEP (Codigo de Enderecamento Postal) /*/ WSSERVICE u_wsCEPInfo DESCRIPTION STR0001 NAMESPACE "http://localhost/naldo/ws/u_wscepinfo.apw" //"Servico de Constulta ao Codigo de Enderacamento Postal" WSDATA CEP As String WSDATA XML As String WSMETHOD CEPSearch DESCRIPTION STR0002 //"Método para pesquisa do CEP" ENDWSSERVICE /*/ WSMETHOD: CEPSearch Autor: M

A pedidos, a comprovação da Transformação do byYou no Protheus versão 10. Referência: byYou :: byYou appserver vs Protheus appserver Totvs Protheus Server e byYou application Server (A buid é igual. Observe o canto superior esquerdo da Imagem, é o coqueiro) A tela de abertura muda de acordo com o nome do executável e do rpo Observe que a Build do Totvs Development Studio é exatamente igual a Build do byYou Development Studio (Observe, novamente, a imagem no canto superior direito. O que vê, o coqueiro?) Considerando que a versão é Baseada no rpo, no byYou/Protheus vai mostrar 10 e no byYou/byYou vai mostrar 11 []s иαldσ dj

Será que todos vão entender o significado da nova imagem de fundo para o byYou?  Por curiosidade resolvi usar o "mestre-dos-burros" e "salvador-dos-ignorantes" o único, e por enquanto insuperável google , pra me elucidar e auxiliar na explicação: A nova imagem é o coqueiro. No Wikipédia , a origem do nome coqueiro é: "..De fato em Sânscrito o nome para o coqueiro é  kalpa vriksha , o qual se traduz como "a árvore que fornece todas as necessidades da vida".  Será que essa é a nova idéia? Dada a devida proporção: prover as empresas de todas as necessidades sistêmicas?  Bem, o coco e o coqueiro tem várias utilidades. Dentre elas: O branco, parte gorda da semente, é comestível (fresco) e usado (seco e dissecado) em culinária; A cavidade é cheia de "água de coco" que contém os açúcares que são usados como uma bebida refrescante, e na composição da sobremesa gelatinosa nata de coco; Leite de coco (que tem aproximadamente 17% de gordura) é

Além do erro no MP710TO110 ocorrido por falta de uma Tabela para Update, na Manutenção de Grupos de Usuários, rotina CFGA520, constatei, pelo error.log abaixo, que o Dicionário Padrão, disponibilizado pela Totvs/Microsiga para a nova versão do seu Sistema de Gestão, vem com informações “faltantes”. Nesse caso, a definição para a tabela GTA . ByYou Build 7.00.090818P ERRO THREAD ([4328], marinaldo.jesus, NALDO-NOTE) 18/09/2010 20:51:39 Alias does not exist: GTA on HS_2RTPGON(HSPPGONL.PRW) 03/05/2010 line : 127 [build:7.00.090818P] [environment: naldo] [thread 4328] [dbthread: 4192] [remark: Emp :00/01 Logged :Administrador SIGACFG Obj :CFGA520 - Grupos] Called from HSPPGONL(HSPPGONL.PRW) 03/05/2010 line : 53 Called from { || HSPPGONL(OPGONLINE) } line : 104 Called from eval line : 103 Called from LOADPGONL(CFGPGONLINE.PRW) 11/05/2010 line : 103 Called from PGLONLINE(CFGA520.PRX) 13/05/2010 line : 478 Called from {|OOWNER| PGLONLINE(OOWNER,OMODEL,@APGONLINE)}(CFGA

Considerando que não consegui efetuar o update do Protheus 10 para o byYou versão 11 decidi criar uma base “zerada” para avaliar as alterações e melhorias implementadas nessa nova versão. Constatei o seguinte. Algumas tabelas dos Dicionários de Dados já vem com registros duplicados e ou inconsistentes. Sendo elas: SIX – Dicionário de Índices: Possui índice duplicado para as tabelas SFX e SKB. Para o Alias SFX o índice duplicado é o de ordem 2. Chave: FX_FILIAL+FX_TIPOMOV+FX_ESPECIE+FX_SERIE+FX_DOC+FX_CLIFOR+FX_LOJA+FX_ITEM+FX_COD. Recno 7472 da instalação padrão. Para o Alias SKB o índice duplicado é o de ordem 1.  Chave: KB_FILIAL+KB_CODTELE, Recno 7650 da instalação padrão. SX1 – Dicionário de Perguntas: Possui 96 registros duplicados para um “Grupo de Perguntas” inválido. Pois está em branco. Recnos de 1 a 96. Inconsistência: Grupo em Branco e ordem 01 duplicada noventa e seis vezes. SX5 – Dicionário de Tabelas Genéricas do Sistema Possui Chaves duplicadas para a seguint

Baixei o byYou para testá-lo e verificar as novas implementações. Ao executar a rotina de compatibilização de versão usando os dicionários padrões do sistema para a nova versão, o erro abaixo é apresentado. Alias does not exist: TCK on NGUPDTOP(NGUPDATE.PRX) 27/03/2010 line : 992 [ByYou build:7.00.090818P] Called from NGUPDATEPR(NGUPDATE.PRX) 27/03/2010 line : 65 Called from NGUPDATE(NGUPDATE.PRX) 27/03/2010 line : 37 Called from UPDFUNEXEC(APUPD030.PRW) 26/03/2010 line : 7802 Called from UPDFUN(APUPD030.PRW) 26/03/2010 line : 7671 Called from _UPDUPDATE(APUPD030.PRW) 26/03/2010 line : 916 Called from UPDUPDATE(APUPD030.PRW) 26/03/2010 line : 23 Called from {||(OWIZARD:OCANCEL:DISABLE(),OWIZARD:OCANCEL:HIDE(),OWIZARD:ONEXT:DISABLE(),OWIZARD:OBACK:DISABLE(),UPDUPDATE(),EVAL(OWIZARD:ONEXT:BACTION))}(APUPDATE.PRW) line : 390 Called from eval line : 158 Called from {|| IF(EVAL(SELF:ACBVALID[SELF:NPANEL,2]),(SELF:NPANEL+=1,SELF:NAVIGATOR(2),EVAL(SELF:ACBEXECUTE[SELF:NPANEL])),)}

Ainda não consegui ententer o porque desse erro ocorrer sempre que a conexão do meu vivo3G cai. “ERR0032: Conexão entre byYou/Protheus SmartCliente byYou Application Server interrompida. Contate o administrador do sistema Erro de comunicação, erro de sincronismo…” Contactar  o Administrador do sistema pra que, o que ele vai poder fazer quanto a isso. []s иαldσ dj

Você já teve a curiosidade de comparar a diferença entre os Binários do byYou com os binários do Protheus 10, eu tive, e abaixo o relatório. Comparar o D:\totvs\p10\naldo\appserver com o D:\totvs\p11\naldo\bin\appserver 18/9/2010 15:20:58 Nome do Arquivo Pasta Resultado da comparação Data da Esquerda Data da Direita Extensão ace32.dll Os arquivos binários são idênticos 21/10/2005 08:00:00 21/10/2005 08:00:00 dll ads.ini Os arquivos texto são idênticos 23/11/2005 15:13:00 * 23/11/2005 16:13:36 ini adsloc32.dll Os arquivos binários são idênticos 21/10/2005 08:00:00 21/10/2005 08:00:00 dll adslocal.cfg Os arquivos texto são idênticos 23/11/2005 15:16:00 * 23/11/2005 16:16:26 cfg amqcmema.dll Os arquivos binários são idênticos * 3/2/2005 13:39:00 18/6/2002 17:03:52 dll amqrmqia.dll Os arquivos binários são idênticos * 3/2/2005 13:39:00 18/6/2002 17:03:54 dll amqxcs2.dll Os arquivos binários são idênticos * 3/2/2005 13:39:00 18/6/2002 17:03:56 dll amqzsaic.dll Os arquivos

Quando ainda trabalhava na "siga", ouvia muito pelos corredores sobre a idéia de mudar para Porto Seguro e vender "Côco". Para isso pensavam em desenvolver o " SIGACOCO ". Será que byYou , com o seu tema extravagante, não é o inicio dessa empreitada? Alguns versos para byYou : "Baiano bom e o que sobe no coqueiro Tira o coco do coqueiro e deixa tudo no lugar Baiano bom e o que toca berimbau Que joga capoeira de angola e regional O que é que eu sou..." "A bananeira caiu Mas o facão bateu em baixo A bananeira caiu Mas o facão bateu em baixo A bananeira caiu Cai, cai bananeira A bananeira caiu Do coqueiro eu quero um coco, da banana eu quero um cacho Tira o coco do coqueiro, meu facão bateu em baixo..." []s иαldσ dj

A proposta do "Ponto de Entrada"  U_F050ALT() , pela sua descrição, "ser executado após a confirmação da alteração", não é de fato verdadeira. Ele sempre será executado independente de ter ocorrido alteração ou não na função FA050Alter() do programa   FINA050 . Isso pode gerar a ocorrência de efeitos colaterais, principalmente se, para a execução do Ponto de" Entrada" "  U_F050ALT , a condição seja que alguma informação tenha sido alterada no SE2. A questão é que a pessoa que implementou a chamada ao "Ponto de Entrada"  U_F050ALT  não verifica, de fato, se ocorreu alguma alteração, e muito menos o retorno da a xAltera . Para resolver esse problema, tive que abrir mão do uso de um outro "Ponto de Entrada" o  FA050UPD (que pode ser executado para a "pré-validação" da Alteração e é chamado antes da axAltera) . Nesse "Ponto de Entrada" vamos ter que salvar em memória o conteúdo do registro a ser alterado e compa

  UDCs - User Defined Commands (Comandos Definidos Pelo Usuário ) Iniciarei uma série de "posts" sobre os Comandos Definidos Pelo Usuário ou UDCs. Eles servem para pesquisa e substituição mais complexas pelo "pré-processador" do Protheus.  UDCs são um método de converter comandos no estilo da linguagem em instruções. O pessoal de Tecnologia Protheus usam muito esse recurso pra facilitar a vida dos "programadores" da linguagem e são muito utilizados para facilitar a implementação e uso de funções ou de "objetos" que possuem muitos parâmetros onde a grande maioria são opcionais ou não. Anteriormente em " Protheus :: Diretivas do Pré-Processador, Constantes Simbólicas e outros Bichos " explanei um pouco sobre a diretiva #DEFINE e iniciei um exemplo do uso de #TRANSLATE e #XTRANSLATE. Vamos nos aprofundar um pouco mais agora. Considerando os exemplos para #DEFINE, podemos afirmar que os padrões de capacidade de comparação de #DEFINE sã