Microsig@ ADVPL

Ás vezes, por uma questão de estética, não queremos janelas com borda. Para isso, podemos definir estilo usando a função: NOR(WS_VISIBLE,WS_POPUP). Veja o exemplo: user function fJanSemB() define msdialog ojan01 title "Janela sem borda" pixel from 180,180 to 550,700 style nor(WS_VISIBLE,WS_POPUP) cTGet := space(20) oTGet := tget():new( 1,1,{||cTGet}, oJan01, 80, 5,"@!",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet,,,,) @ 8, 5 button "Sair" action oJan01:end() activate dialog ojan01 centered return Já testamos, agora, é só usar!

Usando a integração do usuário do Protheus com o Active Directory (AD): 1) O ambiente deve estar atualizado (RPO, Update, LIB e Binário). 2) Entre no Configurador / Usuários / Senhas / Política. 3) Na primeira aba, em Parâmetros, defina no como "Habilitar single sign-on" se a integração será obrigatória ou opcional. 4) No combo "Modalidade de Single Sign-on", defina como "Active Directory". Clique em Confirmar. 5) Agora vá ao cadastro do usuário (Usuário / Senhas / Usuários), clique sobre o usuário e clique em Alterar. Na primeira aba (Usuário), selecione a aba Active Directory. 6) Clique duas vezes sobre o campo abaixo de "Domínio", e preencha o domínio da rede.  Clique duas vezes sobre o campo abaixo de "Usuário", e preencha o nome de usuário da rede que ficará vinculado a este usuário do Protheus. Clique em Confirmar. Ao entrar no Protheus, já irá aparecer por padrão o dom...

Os procedimentos de alterar programas, compilar e logar no Protheus, às vezes são repetidos dezenas de vezes, até que o programador chegue ao resultado desejado. Que tal então pular pelo menos a etapa de digitar Usuário e Senha, para agilizar os testes com programas? Bom, p ara entrar no Protheus sem digitar nem o Usuário, nem a Senha, siga os passos abaixo : 1 - Entre no Configurador. 2 - Clique em U suário, Senhas e Política . 3 - Na janela que se abre (abaixo), mude o listbox Habilitar single sign-on para Opcional e mude o listbox Modalidade de Single S ign-on para Sistema Operacional (conforme abaixo) : 4 - Saia do Configurador e entre no smartcliente (sigaadv por exemplo). Após a configuração acima, surge um campo checkbox na tela de login (ver abaixo) : 5 - Marque este checkbox e entre no Protheus. 6 - Agora, saia do Protheus. 7 - Entre no Protheus novamente e verá que este não pedirá mais o Usuário nem a Senha. Obs. 1: Para que o Protheus volte ...

Seguem os atalhos para o TOTVS Developer Studio  (Eclipse)  : CTRL+H Localizar vários locais CTRL+F Localizar / substituir CTRL+K Localizar proximo resultado abaixo CTRL+SHIFT+K Localizar proximo resultado acima F11 Depurar F5 Percorre linha F6 Pula linha CTRL+F8 Trocar perspectiva CTRL+F7 Mudar visualização CTRL+F6 Navegar entre os fontes abertos CTRL+M Maximiza / miniminiza fonte CTRL+N Novo (wizard) CTRL+L Ir para linha CTRL+D Deleta toda linha CTRL+ALT+DOWN Duplica linha para baixo CTRL+ALT+UP Duplica linha para cima CTRL+SHIFT+L Apresenta lista de atalhos ALT+UP Move linha para cima ALT+DOWN Move linha para baixo CTRL+SHIFT+I Indenta o fonte CTRL+F9 Compilar CTRL+ESPAÇO...

Já precisou escrever datas por extenso? A pequena função  fDatExt(),  abaixo pode resolver o problema. O resultado pode ser visto nas imagens abaixo: No fonte abaixo, substitua dDatabase , por sua variável (do tipo data): #include "protheus.ch" user function fDataExt() msgalert(u_fDatExt( dDataBase , .t.)) msgalert(u_fDatExt( dDataBase , .f.)) return user function fDatExt (dParDat, lParAbr) local cRetDat := "" if lParAbr cRetDat += cValToChar(day(dParDat)) cRetDat += " de " cRetDat += mesextenso(dParDat) cRetDat += " de " cRetDat += cValToChar(year(dParDat)) else cRetDat += capital(extenso(day(dParDat), .t.)) cRetDat += " de " cRetDat += mesextenso(dParDat) cRetDat += " de " cRetDat += capital(extenso(year(dParDat), .t.)) endif return cRetDat Veja também: Extenso  e Funções de Data

Conhecida como lei da transparência, que trata que todos os impostos devem vir descriminados no cupom fiscal. Para implantar, atualize o Protheus para última versão disponível no Portal da Totvs, em seguida execute as atualizações U_UPDLO112 e U_UMTFOFV9. Crie no menu a opção com o programa LJIMPNCM, com o nome de "Carrega Alíquota Imposto", que deverá importar o arquivo "IBPTax.0.0.2.csv", que está disponível no link  de olho no Imposto Estes impostos são ligados através do campo B1_POSIPI(SB1 - Produtos), YD_TEC e YD_ALIQIMP(SYD - Nomeclatura Merco Sul). Se tudo correr bem, será mostrada no cupom fiscal a mensagem "Valor aprox dos tributos R$ 14,36 (31.436%) Fonte:IBPT" por exemplo.

Resolvi substituir o emulador depois de vários problemas com a geração de títulos repetidos no emulador Bematech. Quando fiz a substituição, o problema acabou. Esse Emulador Sweda é muito estável, assim podemos testar melhor nossas customizações. Para começar acesse o site  Sweda  e faça os seguintes downloads: Connect/C : Windows - Biblioteca compatível com as DLLs de Alto Nível do Mercado. Connect/Sim :  Emulador da Impressora Sweda IF ST120.  Entre em outro link  lacrador Sweda  e faça o seguinte download: Instalar_Lacrador02.10.00 Agora acesse o site  Eterlogic  e faça o seguinte download: Virtual Serial Ports Emulator :  Emulador de serial. Configurando o Emulador de Serial Instale " Virtual Serial Ports Emulator ", depois abra-o, vá em "device", "create", na opção "Device Pair" escolha "Pair", em "avançar". Em "Virtual Serial Port 1" coloque "COM3" e na "Virtual Seria...