Utilizando a função PSWName()
Hoje me perguntaram se era possível validar a senha do usuário Protheus dentro de qualquer rotina do sistema, mesmo se o usuário não estivesse logado. Aí perguntei como assim, o que gostaria de criar?
Totvs libera pacote para alteração do layout NFe para versão 4.00
A Totvs liberou o pacote para alteração do layout NFe para versão 4.00, o pacote contempla novos arquivos que deverão ser compilados no Protheus 12.1.17, mas não se esqueçam de atualizar os últimos arquivos do danfe e nfesefaz. O download pode ser feito pelo portal da Totvs no link: https://suporte.totvs.com/portal/p/10098/download?e=625814 Implementado Leiaute NFe 4.00 no TSS…
Leia mais
Como abrir um determinado Pedido de Compras para edição
Olá, vai aí mais uma dica. Você fez uma customização com os pedido de compra e quer abrir o pedido para alteração a partir de sua tela. Para isso usaremos a função MATA120. O processo é bem simples, passa-se o recno e a opção desejada. Exemplo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Static Function AlteraPC(nRecno,nOpc) Local aArea := GetArea() Local aAreaSC7 := SC7->(GetArea()) dbSelectArea("SC7") MsGoto(nRecno) //Mata120(ExpN1,ExpA1,ExpA2,ExpN2,ExpA1) /* ExpN1 = 1-Pedido de compras ou 2-Autorizacao de entrega ExpA1 = Array Cabecalho para Rotina Automatica ExpA2 = Array Itens para Rotina Automatica ExpN2 = Opcao do aRotina para Rotina Automatica ExpA1 = Apresenta a Dialog da Rotina em Rotina Automatica (.T. ou .F.) */ Mata120(1,/*aCabec*/,/*aItens*/,nOpc,.T.) RestArea(aAreaSC7) RestArea(aArea) Return .T. |
Exemplos:
|
1 2 3 |
AlteraPC(67081,2) //Visualizar AlteraPC(67081,4) //Alterar AlteraPC(67081,5) //Excluir |