RH - Linha Protheus - GPE - Ponto de Entrada PE GP650CFO Grava Dados Fornecedor

Descrição

Ponto de entrada criado antes da execução da "ExecAuto" do cadastro de fornecedores automático na geração de títulos com o objetivo de adicionar mais campos ao "array" passado para o cadastro de fornecedores para serem levados mais dados do funcionário para o novo fornecedor cadastrado.

Segue o trecho do fonte que chama o ponto de entrada:

-------------------------------------------------------------------------------------------------

aDadosAuto:= {{'A2_COD'    , cCpoFornec      , Nil},;

                        {'A2_LOJA'   , cLoja               , Nil},;

                        {'A2_NOME'   , SRA->RA_NOME       , Nil},;

                        {'A2_NREDUZ' , SRA->RA_NOME    , Nil},;

                        {'A2_END'    , SRA->RA_ENDEREC , Nil},;

                        {'A2_EST'    , SRA->RA_ESTADO  , Nil},;

                        {'A2_MUN'    , SRA->RA_MUNICIP , Nil},;

                        {'A2_TIPO'   , 'F'             , Nil},;

                        {'A2_CGC'    , SRA->RA_CIC     , Nil},;

                        {'A2_BAIRRO' , SRA->RA_BAIRRO  , Nil}}

If lGP650CFO

aDadosPE := ExecBlock("GP650CFO",.F.,.F.,aDadosAuto)

If ValType(aDadosPE) == "A" .And. Len(aDadosPE) >= 10

aDadosAuto := aDadosPE

EndIf

EndIf

//Cadastra um novo Fornecedor

MSExecAuto({|x, y| MATA020(x, y)},aDadosAuto, 3)

-------------------------------------------------------------------------------------------------

Ponto de Entrada - Exemplo:

#Include 'Protheus.ch'

User Function GP650CFO()
    Local aCampos := PARAMIXB
    
    aAdd(aCampos,{'A2_COD_MUN' , SRA->RA_CODMUN  , Nil})
Return aCampos

BASE TDN: https://tdn.totvs.com/display/public/PROT/PE+GP650CFO+Grava+Dados+Fornecedor 

Saiba Mais
Artigos sobre Integração de Títulos