Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 2 minutos

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Ativo Fixo (SIGAATF)

Função:ATFA012
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46748

02. DESCRIÇÃO

O ponto de entrada 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. Ele proporciona ao cliente a possibilidade de preencher de forma automatizada esses campos, garantindo maior eficiência e evitando erros manuais durante o processo de cadastro ou atualização de informações.

Com o AF012COPY, é possível agilizar o registro dos itens, reduzindo o tempo necessário para completar o preenchimento dos dados e assegurando a consistência e precisão das informações associadas ao item em questão.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If (ExistBlock("AF012COPY"))
	lAf012Copy	:= ExecBlock("AF012COPY",.F.,.F.)
	If VALTYPE(lAf012Copy) <> "L"
		lAf012Copy := .T.
	EndIf
EndIf
Exemplo de PE
#INCLUDE "PROTHEUS.CH"

User Function AF012COPY()

	Local lRet  := .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  := .T.
	Else
	 lRet  := .F.
	EndIf

Return(lRet)

Importante !!

  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS

  • Não se aplica.