Histórico da Página

Função

TAFProcLine

Sintaxe

TAFProcLine( lNative , cST2Alias , cFilRegInt , aDadosST2 , aRecInt , aRecErr , aErrChav , aErrIntr , aIncons , cLayInteg , cXERPAlias )

Descrição

Função que recebe a mensagem que deve ser integrada ao TAF e realiza a cargas das tabelas de acordo com o Layout TOTVS. Não realiza a validação de estrutura nem de conteúdo, que devem ser consistidos previamente.

Compatível Países	Todos
Sistemas Operacionais	Todos
Bases de Dados	Todos
Nível de Acesso	Nível 1 ( Acesso Clientes )
Idiomas	Todos
Versão	P11 R.5

Parâmetros

Nome	Tipo	Descrição	Default	Obrigatório	Referência
lNative	Lógico	Define se a rotina foi chamada atraves de integração nativa ou não.	.F.	X
cST2Alias	Caracteres	Alias da Tabela TAFST2.	""	X
cFilRegInt	Caracteres	Filial de destino dos registros integrados.	FWCodFil()
aDadosST2	Array	Array contendo a mensagem a ser integrada ( cada linha da mensagem TXT representa uma linha do array )	( vazio )	X
aRecInt	Array	Array que retorna os Recnos que foram integrados com sucesso.	( vazio )		X
aRecErr	Array	Array que retorna os Recnos que não foram integrados devido à erros.	( vazio )		X
aErrChav	Array	Array que retorna os Recnos que não foram excluídos no TAF quando a chave não foi encontrada ( utilizado quando registro T999 ).			X
aErrIntr	Array	Array que retornar os Recnos que não foram excluídos no TAF devido a Integridade de dadis ( utilizado quando registro T999 ).			X
aIncons	Array	Array que retorna as mensagens de inconsistência encontradas durante a integração.			X
cLayInteg	Caracteres	Registro do Layout TOTVS que será integrado.	""
cXERPAlias	Caracteres	Alias da Tabela TAFXERP.		X

Retorno

Nulo

Programa

TAFAINTEG.PRW

Exemplo

Exemplo de uso pelo SIGAFIS, na tentativa de inclusão de um novo Produto que está sendo cadastrado na tabela SB1 do ERP. A chamada da TAFProcLine faz com que o produto seja automaticamente cadastrado no TAF.

static function CadProdTAF()

local lIntTAF := FindFunction("TAFExstInt") .AND. TAFExstInt() /*verifica se o ambiente está preparado para integração online com o TAF*/

local cLine := "|" + cLayInteg + "|" + ;
M->B1_COD + "|" +;
M->B1_DESC + "|" +;
M->B1_CODBAR + "|" +;
M->B1_UM + "|"+;
cTipoPrd + "|"+;
M->B1_POSIPI + "|"+;
M->B1_EX_NCM + "|"+;
cCodGen + "|"+;
M->B1_CODISS + "|"+;
  "" + "|"+;
/*B5_TABINC*/"" + "|"+;
/*B5_CODGRU*/"" + "|"+;
M->B1_ORIGEM + "|"+;
DToS( dDataBase ) + "|"+;
Val2Str( nAlqProd, 6, 2 ) + "|"+;
  "" + "|" +;
Val2Str( M->B1_IPI, 5, 2 ) + "|"+;
  "" + "|"+ CRLF

local aDadosST2 := FLine2Array( cLine , "T007" ) /*converte a string enviada no formato do Layout TOTVS em Array*/

if lIntTAF

TAFProcLine( .T. , "" , cFil , aDadosST2 , /*aRecInt*/ , /*aRecErr*/ , @aErrChav , @aErrIntr , /*@aIncons*/ , "T007" )

endif

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave