Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versiones:Microsiga Protheus 11
Compatible Países:Todos
Sistemas operativos:Todos
Compatible a las Bases de Datos:Todos
Idiomas:Portugués, Español, Inglés

Descripción: punto de entrada utilizado para verificar los campos modificados en la tabla SDT después de grabar el vínculo del documento en el monitor del TOTVS Colaboración.

Ubicación: Function MontaTela  - Monta interfaz de visualización y vínculo del documento.

Eventos:  en el momento de grabar el vínculo del documento en el monitor del TOTVS Colaboración

Programa fuente: COMXCOL.PRW

Sintaxis: COMCOLSD - Permite verificar los datos modificados en la tabla SDT después de vincular el documento  ([PARAMIXB[1]) -> aCols ,  ([PARAMIXB[2]) -> aHeader

Parámetros: 

NOMBRE
TIPO
DESCRIPCIÓN
OBLIGATORIO


PARAMIXB[1]

PARAMIXB[2]



Array of records

Vector que contiene

los campos de la SDT

después del momento de

vincular el documento Ej:

Vinculo con pedido de compras


X

Observación: no tiene respuesta, porque solamente es para análisis de lo que se trató después de vincular el documento. A partir del resultado encontrado se puede realizar una validación propia.


Ejemplo
#Include 'Protheus.ch'
User Function COMCOLSD()
Local ExpA1 := PARAMIXB[1]
Local ExpA2 := PARAMIXB[2]
// Validaciones del usuario  
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