Tempo aproximado para leitura: 00:05:00 min
Duda
¿Cúal es la función del punto de entrada M460MARK?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - Facturación (SIGAFAT) - Todas las versiones
Solución
El punto de entrada M460MARK se utiliza para validar las órdenes marcadas y está ubicado al comienzo de la función a460Nota (direcciona rutinas para generar archivos SD2/SF2).
La serie seleccionada al generar la factura se informará en el tercer parámetro y el número de factura se podrá consultar mediante la variable privada cNumero.
Ejemplo:
#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"))
0 Comentarios