FAQs - Suporte técnico

MP - SIGACOM - TOTVS COLABORAÇÃO - PONTO DE ENTRADA COMCOL2 - CUSTOMIZAÇÃO PARA PROCESSAR SOMENTE DOCUMENTOS DO TIPO TRANSFERÊNCIA ENTRE FILIAIS

Dúvida
COMO UTILIZAR O COMCOL2 - CUSTOMIZAÇÃO PARA PROCESSAR SOMENTE DOCUMENTOS DO TIPO TRANSFERÊNCIA ENTRE FILIAIS

Ambiente
Protheus – compras – A partir da versão 11.80

Solução

Ponto-de-Entrada: COMCOL2 - CUSTOMIZAÇÃO PARA PROCESSAR SOMENTE DOCUMENTOS DO TIPO TRANSFERÊNCIA ENTRE FILIAIS.

 

Versões:  
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: (Acesso Clientes)
Idiomas: Todos

 

Descrição:
Localização: Function COLNFeAut - Função responsável por validar as tabelas SE4/SF4 para geração automática dos documentos do TOTVS Colaboração. Em que Ponto: Na função COLNFeAut antes de entrar no laço para carregar os itens do documento importado, deve ser usado para verificar se somente serão processados os documentos do tipo transferência entre filiais, para permitir o processamento automático dos documentos importados somente quando for transferência entre filiais.
Programa Fonte:
COMXCOL.PRW                   
Parametros:

 

  Nome Tipo Descrição Default Obrigatório Referência
  PARAMIXB[1] Array of Records  Array contendo o cabeçalho do documento importado.      
  PARAMIXB[2] Array of Records  Array contendo os itens do documento importado.      

 

Retorno:
Lógico
RETORNA SE O DOCUMENTO QUE ESTA SENDO PROCESSADO É DO TIPO TRANSFERÊNCIA ENTRE FILIAIS.

Programa Fonte:
COMXCOL.PRW                   
Exemplo:
User Function COMCOL2() 
Local aAreaSM0 := SM0->(GetArea())
Local aAreaSA2 := SA2->(GetArea())
Local aCabec   := PARAMIXB[1]  //Cabecalho dos principais campos da tabela SF1 (Cabecalho do documento de entrada)
Local aItens   := PARAMIXB[2]	//Itens dos principais campos da tabela SD1 (Itens do documento de entrada)
Local nPosFor  := aScan(aCabec,{|x| AllTrim(x[1]) == "F1_FORNECE"})
Local nPosLoj  := aScan(aCabec,{|x| AllTrim(x[1]) == "F1_LOJA"})
Local lRet	:= .F.

SA2->(DbSetOrder(1))
SA2->(dbSeek(xFilial("SA2")+aCabec[nPosFor,2]+aCabec[nPosLoj,2]))
If UsaFilTrf()
	lRet := (!Empty(SA2->A2_FILTRF))
Else
	SM0->(DbSetOrder(1))
	SM0->(MsSeek(cEmpAnt))
	Do While !SM0->(Eof()) .And. SM0->M0_CODIGO == cEmpAnt
		If (SM0->M0_CGC == AllTrim(SA2->A2_CGC))
			lRet := .T.
			Exit
		EndIf
		SM0->(DbSkip())
	EndDo
EndIf

RestArea(aAreaSM0)
RestArea(aAreaSA2)
Return lRet
Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _