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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas