...
Producto: |
| |||||||||||||
Línea de | Produtoproducto: | Linhas_totvs | | Linha | Linha||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Segmento: |
| Servicios | ||||||||||||
Módulo: |
ModulosCrossSegmentos | TOTVS Backoffice (Linha Línea Protheus) - Ativo Fixo Activo fijo (SIGAATF)
| ||||||||||||
Función: | ATFA200 | |||||||||||||
País: | Brasil | |||||||||||||
Ticket: | Interno | |||||||||||||
Requisito/ | StoryStory/Issue | DSERCTR1-46829 |
...
...
El punto de entrada AT200AN1
...
se activa después de grabar el bloqueo o desbloqueo de un bien en la rutina ATFA200. Permite el manejo directo del registro del activo que se está cambiando, como por ejemplo bloquear o desbloquear el bien, permitiendo ajustes personalizados antes de que finalice el proceso. Este punto de entrada es útil para realizar personalizaciones específicas que implican el manejo de bloqueos o desbloqueos, asegurando una mayor flexibilidad en la lógica aplicada a los activos.
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
If ExistBlock("AT200AN1") ExecBlock("AT200AN1",.F.,.F.) EndIf |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function AT200AN1() Local aSaveArea := GetArea() Local cFilial := xFilial("SN1") Local nBem := 123456 // Número de umun bembien específico para oel exemploejemplo Local Local dDataBloqueio := Date() dbSelectArea("SN1") dbSetOrder(1) dbSeek(cFilial + StrZero(nBem, 6), .T.) // Verifica sesi oel bembien foise encontradoencontro If !SN1->(Eof()) If SN1->N1_DTBLOQ == CTOD(" / / ") // BloqueiaBloquea oel bembien Reclock("SN1", .F.) SN1->N1_DTBLOQ := dDataBloqueio MsUnlock() Else // DesbloqueiaDesbloquea oel bembien Reclock("SN1", .F.) SN1->N1_DTBLOQ := CTOD(" / / ") MsUnlock() EndIf EndIf RestArea(aSaveArea) Return |
Aviso | ||
---|---|---|
| ||
|
...