Histórico da Página
Ponto de entrada AF060VLC que permite validar o cancelamento de transferência de ativos
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | SIGAATF - Ativo Fixo | ||||
Rotina: |
| ||||
Ponto de Entrada: | AF060VLCAF012COPY | ||||
Chamados Relacionados | TVKFEX1333570 | ||||
País(es): | Todos homologados pelo Protheus | ||||
Banco(s) de Dados: | Todos homologados pelo Protheus | ||||
Sistema(s) Operacional(is): | Todos homologados pelo Protheus |
Descrição
Implementado o O ponto de entrada AF060VLC que permite o usuário criar validações na efetivação de um cancelamento de transferência de um ativo imobilizadoentrada AF012COPY permite o preenchimento automático dos campos [ N1_CBASE, N1_ITEM, N1_CHAPA, N1_FORNEC, N1_LOJA, N1_NSERIE e N1_NFISCAL ], do item posicionado.
Ponto de Entrada
Descrição: | Ponto O ponto de entrada que AF012COPY permite validar o prosseguimento do cancelamento de uma transferência efetuada de um ativoo preenchimento automático dos campos [ N1_CBASE, N1_ITEM, N1_CHAPA, N1_FORNEC, N1_LOJA, N1_NSERIE e N1_NFISCAL ], do item posicionado. | ||||||||
Eventos: | lAf060Vlc := ExistBlock("AF060VLC") | ||||||||
Programa Fonte: | ATFA060ATFA012.PRX | ||||||||
Função: | AF060ExeCa() - Executa o cancelamento de transferência (filial ou contábil) dos ativos imobilizados selecionados | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'#INCLUDE "PROTHEUS.CH"
User Function AF060VLCAF012COPY()
Local nOpcao lRet := paramixb[1]
Local cLoteAtf := paramixb[2].F.
Local cMsg0 := ""
cMsg0 := oEmToAnsi("Popula os campos chave [N1_CBASE, N1_ITEM, N1_CHAPA], ") + CRLF
cMsg0 += oEmToAnsi("do fornecedor/loja [N1_FORNEC, N1_LOJA] e") + CRLF
cMsg0 += oEmToAnsi("da nota/serie [N1_NSERIE, N1_NFISCAL] do ") + CRLF
cMsg0 += oEmToAnsi("item posicionado? ") + CRLF
If MsgYesNo(cMsg0)
lRet If MsgYesNo ("Deseja prosseguir com o cancelamento de transferência? ","Cancelamento Transferência")
lRet:= .T.
Else
lRet lRet := .F.
MsgInfo ("Transferência não permitida!")
EndIf
Return(lRet)