Linha Microsiga Protheus

Árvore de páginas

Versões:Microsiga Protheus 11
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português, Espanhol, Inglês

Descrição: 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.

Localização: Function MontaTela  - Monta interface de visualização e vínculo do documento.

Eventos:  no momento da gravação do vínculo de documento no monitor do TOTVS Colaboração

Programa fonte: COMXCOL.PRW

Sintaxe: COMCOLSD - Permite a Verificação dos dados alterados na Tabela SDT após o vínculo de documento  ([PARAMIXB[1]) -> aCols ,  ([PARAMIXB[2]) -> aHeader

Parâmetros: 

NOME
TIPO
DESCRIÇÃO
OBRIGATÓRIO


PARAMIXB[1]

PARAMIXB[2]



Array of records

Vetor contendo

os campos da SDT

após o momento de

vinculo de documento Ex:

Vinculo com Pedido de compras


X

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
#Include 'Protheus.ch'
User Function COMCOLSD()
Local ExpA1 := PARAMIXB[1]
Local ExpA2 := PARAMIXB[2]
// Validações do usuário  
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
 
Return






  • Sem rótulos