Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user José Renato July

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user José Renato July

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Ponto de entrada AF060VLC que permite validar o cancelamento de transferência de ativos

Popular automaticamente os campos [ N1_CBASE, N1_ITEM, N1_CHAPA, N1_FORNEC, N1_LOJA, N1_NSERIE e N1_NFISCAL ], mantendo a compatibilidade da versão P11.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAATF - Ativo Fixo

Rotina:

Rotina

Nome Técnico

ATFA060ATFA012

Transferência Cadastro de Ativos Imobilizados

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 ativo

o 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

AF012COPY")

Programa Fonte:

ATFA060

ATFA012.PRX

Função:

AF060ExeCa

AF012COPY() -

Executa o cancelamento de transferência (filial ou contábil) dos ativos imobilizados selecionados

Popula os campos [] mantendo a compatibilidade executada na versão P11.

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lCont

 lRet

Lógico

Se .T.

permite o cancelamento da transferência

, popula os campos [N1_CBASE, N1_ITEM, N1_CHAPA, N1_FORNEC, N1_LOJA, N1_NSERIE e N1_NFISCAL ].

Se .F.

não permite o prosseguimento do cancelamento da transferência

Mantém o padrão.

SIM

 


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)