Olá senhores, me chamo Leandro Lemos sou analista de sistemas trabalho com erp Protheus da TOTVS onde trabalho com implantação de módulos, treinamentos, customizações, integrações entre outros processos, durante minha carreira atuei tanto por por parceiros, clientes e pela TOTVS e hoje exclusivamente como cliente.
Resolvi montar esse blog por alguns motivos, entre eles essa pandemia causada pelo Covid-19 que acabou limitando a circulação de todos e também reduzindo a quantidade de demandas que recebo.
Para começo de conversa vou compartilhar um PE que desenvolvi a algum tempo que é bem simples o MT100OK, que desenvolvi para resolver um problema no cliente que durante a operação de devolução de nota fiscal de saída utilizando a opção “Retornar” do Mata103 não validava o campo “Form. Prop.”, marcando Sim, mesmo nos casos em que tinha NF de retorno do cliente.
Vamos ao fonte
/*/{Protheus.doc} User Function MT100TOK
Ponto de entrada criado para que o usuário confirme a operação quando a opção Form Próprio está marcada como Sim
@type Function
@author Leandro Lemos
@since 05/02/2018
@version Protheus 12
@param
@return
@example
(examples)
@see
https://tdn.totvs.com/pages/releaseview.action?pageId=6085400
/*/
User Function MT100TOK()
Local cFormProprio := cFormul //Variavel do Mata103
Local cEol :=Chr(10)+Chr(13)
Local lRet := .T.
Local cMensagem := "O campo Form. Prop. está marcado como SIM e irá gerar "+cEol
cMensagem += "uma NF eletrônica de entrada, que deve ser transmitida"+cEol
cMensagem += "pelo faturamento, deseja prosseguir?"+cEol
If (cFormProprio == 'S')
cMens:="Caso o fornecedor tenha enviado com NFe com retorno dos"+cEol
cMens+="produtos, você deve clicar em Alterar e corrigir o campo"+cEol
cMens+="Form. Prop. = Não"+cEol
lRet:=(2==Aviso("Validação Form. Prop.",cMensagem+cEol+cMens,{"Alterar","Confirmar"},3))
Endif
Return lRet
Bem, esse foi o fonte, como havia dito é bem simples e comentado onde podem haver duvidas.
