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

Sem Formato
Static Function CadProdTAF()

local lIntTAF



Local lIntTAF	:=

FindFunction

	FindFunction( "TAFExstInt" ) .

AND

and. TAFExstInt()

/*verifica se o ambiente está preparado para integração online com o TAF*/local cLine := "|" + cLayInteg + "|" + ;

 //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 +


				cTipoPrd + "|" +;


				M->B1_POSIPI +

 "|" +;


				M->B1_EX_NCM +

 "|" +;

cCodGen +


				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 ,

 CRLF

Local aDadosST2	:=	FLine2Array( cLine, "T007"

/*converte a string enviada no formato do Layout TOTVS em Array*/

if lIntTAF

TAFProcLine(

 //Converte a string enviada no formato do Layout TOTVS em Array

If lIntTAF
	TAFProcLine( .T.,

""

, cFil, aDadosST2, /*aRecInt*/, /*aRecErr*/, @aErrChav, @aErrIntr, /*@aIncons*/,

 "T007"

endif


EndIf

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão 3

Chave