Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 11

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão 12

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Portuguese

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

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


Versões:Todas
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos


Descrição:

O ponto de entrada M460MARK é utilizado para validar os pedidos marcados e está localizado no início da função a460Nota
(endereça rotinas para a geração dos arquivos SD2/SF2).
Será informado no terceiro parâmetro a série selecionada na geração
da nota e o número da nota fiscal poderá ser verificado pela variável private cNumero.

Programa Fonte
MATA461.PRX

Sintaxe

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


Parâmetros:


NomeTipoDescrição
cMarkCaracterMarca em uso pela Markbrowse.
lInvertLógicoSe o pedido esta marcado ou não no MarkBrowse, .T. marcado e .F. não marcado
cSerieCaracterSérie selecionada na geração da nota fiscal.


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 como  .T., será necessário inverter a ordem considerando os marcados como não marcados e os não marcados como marcados.

Exemplo:

Bloco de código
languagec#
linenumberstrue
#Include 'Protheus.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->C9_OK == cMark)
                MsgInfo("Unmarked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
            Else
                MsgInfo("Marked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
            EndIf
        Else // "CHECK ALL" OPTION NOT SELECTED
            If (SC9->C9_OK == cMark)
                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"))

...