Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
VersõesVersiones:Microsiga Protheus 11
Compatível Compatible Países:Todos
Sistemas Operacionaisoperativos:Todos
Compatível às Compatible a las Bases de DadosDatos:Todos
Idiomas:PortuguêsPortugués,  EspanholEspañol, InglêsInglés

DescriçãoDescripción:  ponto punto 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.los campos modificados en la tabla SDT después de grabar el vínculo del documento en el monitor del TOTVS Colaboración.

UbicaciónLocalização: Function MontaTela  - Monta interface interfaz de visualização e visualización y vínculo do del documento.

Eventos:  no momento da gravação do vínculo de documento no monitor do TOTVS Colaboração en el momento de grabar el vínculo del documento en el monitor del TOTVS Colaboración

Programa fuentePrograma fonte: COMXCOL.PRW

SintaxeSintaxis: COMCOLSD - Permite a Verificação dos dados alterados na Tabela SDT após o vínculo de verificar los datos modificados en la tabla SDT después de vincular el documento  ([PARAMIXB[1]) -> aCols ,  ([PARAMIXB[2]) -> aHeader

ParâmetrosParámetros: 

NOMENOMBRE
TIPO
DESCRIÇÃODESCRIPCIÓN
OBRIGATÓRIOOBLIGATORIO


PARAMIXB[1]

PARAMIXB[2]



Array of records

Vector que contiene

los campos de la SDT

después del

Vetor contendo

os campos da SDT

após o momento de

vinculo de vincular el documento ExEj:

Vinculo com Pedido con pedido de compras


X

ObservaçãoObservación:  não tem retorno, pois, é somente para análise do que foi tratado após vínculo de no tiene respuesta, porque solamente es para análisis de lo que se trató después de vincular el documento. A partir do del resultado encontrado pode ser realizada uma validação própriase puede realizar una validación propia.


Bloco de código
languagedelphi
themeMidnight
titleExemploEjemplo
linenumberstrue
#Include 'Protheus.ch'
User Function COMCOLSD()
Local ExpA1 := PARAMIXB[1]
Local ExpA2 := PARAMIXB[2]
// ValidaçõesValidaciones dodel usuáriousuario  
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 

...