Linha Microsiga Protheus

Árvore de páginas

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

ATFA012

Cadastro de Ativos Imobilizados

Ponto de Entrada:

AF012COPY

Chamados Relacionados

1333570

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

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.


Ponto de Entrada

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.

Eventos:

ExistBlock("AF012COPY")

Programa Fonte:

ATFA012.PRX

Função:

AF012COPY() - Popula os campos [] mantendo a compatibilidade executada na versão P11.

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

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

Se .F. Mantém o padrão.

SIM


Exemplo:

#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)