Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Compras (SIGACOM)

Função:COMXCOL
País:Brasil
Ticket:21653321
Requisito/Story/Issue (informe o requisito relacionado) :DMANMAT02-50176


02. DESCRIÇÃO

LOCALIZAÇÃO: Function MontaTela  - Monta interface de visualização e vínculo do documento.

EM QUE PONTO: Ponto de entrada utilizado para verificar os campos alterados na tabela SDT depois da gravação do vínculo de documento no Monitor do TOTVS Colaboração / Importador XML


03. DEMAIS INFORMAÇÕES


Parâmetros: 

NomeTipoDescriçãoObrigatório
PARAMIXB[1]ArrayaColsX
PARAMIXB[2]ArrayaHeaderX
PARAMIXB[3]Numérico

0 - Ao cancelar

1 - Ao confirmar

X


Retorno: Não há

Observação: não tem retorno, pois, é somente para análise do que foi tratado após vínculo de documento. A partir do resultado encontrado pode ser realizada uma validação própria.


Exemplo de utilização:

Exemplo
#Include 'Protheus.ch'
User Function COMCOLSD()

Local ExpA1 := PARAMIXB[1]
Local ExpA2 := PARAMIXB[2]
Local ExpN1	:= PARAMIXB[3] //1 Confirmou - 0 Cancelou

// Validações do usuário
If ExpN1 == 1  
	SDT->(dBSetOrder(1))
	If SDT->(MsSeek(xFilial("SDT")+SDS->DS_CNPJ+SDS->DS_FORNEC+SDS->DS_LOJA+SDS->DS_DOC+SDS->DS_SERIE))
		While SDS->DS_CNPJ == SDT->DT_CNPJ .And. SDS->DS_FORNEC == SDT->DT_FORNEC .And. SDS->DS_LOJA == SDT->DT_LOJA .And. SDS->DS_DOC == SDT->DT_DOC 
			If !Empty(SDT->DT_PEDIDO) 
				RecLock("SDT",.F.)
					SDT->DT_CFOP := 'N'
				MsUnLock()
			EndIF
			SDT-> (DbSkip())
		End
	EndIf
Endif
 
Return


04. ASSUNTOS RELACIONADOS

  • Não se aplica