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]

Array of records

aCols

X

PARAMIXB[2]

Array of records

aHeader

X

PARAMIXB[3]

Numérico

0 - Ao cancelar

1 - Ao confirmar

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]
Local ExpN1	:= PARAMIXB[3] //1 Confirmou - 0 Cancelou

// 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