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 | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
...