...
| Produto: | ||||
|---|---|---|---|---|
| Solucoes_totvs_cross | Producto: | TOTVS Backoffice | ||
| Linha Línea de Produtoproducto: | | Linhas_totvs | | Linha | Linha|
Segmento: | ||||
| Segmentos_totvs | Backoffice | |||
Módulo: | | Modulos_cross_segmentos |
TOTVS Backoffice ( LinhaLínea Protheus) - Compras (SIGACOM) | ||
| Função Función: | MATA116 - ConhecimentoConocimiento de Freteflete | |||
País: | Brasil | |||
Ticket: | ||||
Requisito/ | StoryStory/Issue (informe | o el requisito relacionado) | : |
...
Este Ponto Punto de Entrada tem como função a validação da Nota selecionada na rotina de Conhecimento de Freteentrada tiene como función la validación de la Factura seleccionada en la rutina de Conocimiento de flete.
...
El punto se activa al seleccionar la factura que generará Conocimiento de fleteO ponto é chamado ao selecionar a nota que irá gerar Conhecimento de Frete.
...
Nombre | Tipo | DescriçãoDescripción | ||||
{ThisMark(),ThisInv()} | Array | Identificam se o Identifica si el documento de entrada | foi selecionadofue seleccionado, verificar | se passou si pasó True(Marcado) | ou o False( | Não MarcadoNo marcado) |
...
Não háNo existen.
...
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} User Function M116MARK
FunçãoFunción para validar la afactura notaseleccionada selecionadaen noel ConhecimentoConocimiento de Freteflete.
@type Function
@since 26/09/2024
@version P12
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
/*/
User Function M116MARK()
Local lRet := .T.
Local _cMArk := ThisMark()
Local nPos := aScan(aRecMark,{|x| x == SF1->(Recno())})
lRet:= FWAlertYesNo("Deseja¿Desea prosseguirproseguir comcon ala açãoacción? SimSí / NãoNo", "ValidaçãoValidación dade Notala fiscalfactura")
If lRet
RecLock("SF1",.F.)
If IsMark('F1_OK',_cMark)
SF1->F1_OK :=Space(2)
If nPos > 0
ADEL( aRecMark, nPos )
ASIZE( aRecMark, Len(aRecMark)-1 )
Endif
Else
SF1->F1_OK :=_cMark
If nPos== 0
AAdd( aRecMark, SF1->(Recno()) )
EndIf
EndIf
MsUnLock()
EndIf
Return
|
...