TOTVS Automação Fiscal

Árvore de páginas

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ísesTodos
Sistemas OperacionaisTodos
Bases de DadosTodos
Nível de AcessoNível 1 ( Acesso Clientes )
IdiomasTodos
VersãoP11 R.5

Parâmetros

NomeTipoDescriçãoDefaultObrigatórioReferência
lNativeLógicoDefine se a rotina foi chamada atraves de integração nativa ou não..F.X 
cST2AliasCaracteresAlias da Tabela TAFST2.""X 
cFilRegIntCaracteresFilial de destino dos registros integrados.FWCodFil()  
aDadosST2ArrayArray contendo a mensagem a ser integrada ( cada linha da mensagem TXT representa uma linha do array )( vazio )X 
aRecIntArrayArray que retorna os Recnos que foram integrados com sucesso.( vazio ) X
aRecErrArrayArray que retorna os Recnos que não foram integrados devido à erros.( vazio ) X
aErrChavArrayArray que retorna os Recnos que não foram excluídos no TAF quando a chave não foi encontrada ( utilizado quando registro T999 ).  X
aErrIntrArrayArray que retornar os Recnos que não foram excluídos no TAF devido a Integridade de dadis ( utilizado quando registro T999 ).  X
aInconsArrayArray que retorna as mensagens de inconsistência encontradas durante a integração.  X
cLayIntegCaracteresRegistro do Layout TOTVS que será integrado.""  
cXERPAliasCaracteresAlias 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