Histórico da Página

Portuguese

Pagetitle

	M460MARK - Validação de pedidos marcados
	M460MARK - Validação de pedidos marcados

Ponto-de-Entrada: M460MARK - Validação de pedidos marcados

Descrição:

O ponto de entrada M460MARK é utilizado para validar os pedidos que foram marcados, e está localizado no início da função a460Nota (endereça rotinas para a geração dos arquivos SD2/SF2).

Para obter o número da nota fiscal que foi selecionada, poderá ser utilizado a variável private cNumero.

Programa Fonte:

MATA461.PRX

Sintaxe:

M460MARK ( cMark , lInvert, cSerie, cSqlFil ) --> lExecuta

Parâmetros:

Nome	Tipo	Descrição
cMark	Caracter	Marca em uso pela Markbrowse.
lInvert	Lógico	Se o pedido esta marcado ou não no MarkBrowse, .T. marcado e .F. não marcado
cSerie	Caracter	Série selecionada na geração da nota fiscal.
cSqlFil	Caracter	Parâmetros do filtro em expressão SQL. Obs.: Esta opção estará disponível com o fonte MATA461.PRX com data superior a 03/04/2024.

Retorno:

lExecuta (lógico) - Determina se deverá prosseguir com o processamento para geração da nota fiscal.

Observações

Caso a variável "lInvert" esteja marcado como .T., será necessário inverter a ordem considerando os marcados como não marcados e os não marcados como marcados em conjunto com os campos necessários conforme as validações da regra e legenda.

Utilizar as funções de FrameWork (Thismark(), ThisInv() e Ismark()), para realizar as validações da marcação dos registros. Não utilizar as validações pelo campo C9_OK, devido orientações da equipe técnica.

Exemplo 1

Bloco de código

language	c#
linenumbers	true

#include 'protheus.ch'
#include 'parmtype.ch'
 
User Function M460MARK()
    local cMark   := PARAMIXB[1] // MARCA UTILIZADA
    local lInvert := PARAMIXB[2] // SELECIONOU "MARCA TODOS"
    local aArea   := GetArea("SC9")
    
    SC9->(DbGoTop())
    
    While (SC9->(!EOF()))
       If (lInvert) // "CHECK ALL" OPTION SELECTED
          If  SC9->(IsMark("C9_OK")) .AND. (AllTrim(SC9->C9_BLEST) =='' .AND. AllTrim(SC9->C9_BLCRED)=='') 
            MsgInfo("Marked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
          Else
            MsgInfo("Unmarked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
          EndIf
       Else // "CHECK ALL" OPTION NOT SELECTED
          If SC9->(IsMark("C9_OK"))
             MsgInfo("Marked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
          Else
             MsgInfo("Unmarked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
          EndIf
       EndIf
    
       SC9->(DbSkip())
    EndDo
    
    RestArea(aArea)
Return (MsgYesNo("Continue the current process?", "Entry Point M460MARK"))

Exemplo 2

Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Árvore de páginas

Versões comparadas

Versão antiga 16

Nova versão 17

Chave