Logística - Linha Protheus - TMS - Ponto de entrada TME75MRK Marque/Desmarque do Checkbox do EDI Automático

 Tempo aproximado para leitura: 00:00:50 min

Dúvida
Como implementar o ponto de entrada TME75MRK Marque/Desmarque do Checkbox do EDI Automático?

Ambiente
TOTVS Logística - TOTVS TMS (Linha Protheus) - Gestão de Transportes (TMS) - Todas as versões

Solução
O ponto de entrada TME75MRK está localizado na rotina EDI Automático TMSAE75 e permite ao usuário validar cada item selecionado pelo Checkbox - Marca/Desmarca. É possível Marcar ou Desmarcar todos os documentos ou selecioná-los um a um.

Programa Fonte: TMSAE75.PRW

Parâmetros:
1º CGC do Remetente
2º Número da Nota fiscal
3º Serie da Nota Fiscal
4º Posição
5º Checkbox lTodosMark
6º Vetor com itens da Nota fiscal

Retorno: Booleano

Exemplos:

User Function TME75MRK()

Local _cCGCREM := PARAMIXB[1] //--CGC do Remetente
Local _cNUMNFC := PARAMIXB[2] //--Numero da Nota fiscal
Local _cSERNFC := PARAMIXB[3] //--Serie da Nota Fiscal
Local _cPOSIC := PARAMIXB[4] //--Posição
Local _cTodosM := PARAMIXB[5] //--Checkbox lTodosMark
Local _ItensED := PARAMIXB[6] //--Vetor com itens da Nota Fiscal
Local lPEMRK := .T.　

If _cTodosM
     lPEMRK := .T.
     MsgAlert("Executando o P.E. TME75MRK, Marcar todos!")
Else
     lPEMRK := .F.
EndIf

Return (lPEMRK)