Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - Ponto de Entrada M460QRY

 Tempo aproximado para leitura: 00:03:00 min

Dúvida
Exemplo de utilização do Ponto de Entrada M460QRY - Adição de elementos

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - A partir da release 12.

Solução
Ponto de entrada executado antes da exibição da tela de seleção de itens para a geração de Doc. de Saída (Markbrowse), ao realizar o cálculo dos rateios de Despesas Acessórias (Frete/Seguro/Despesa) e de Desconto entre os itens do pedido a ser faturado.

O ponto de entrada é executado duas vezes para cada um desses cálculos (rateio de despesas acessórias e rateio de desconto) quando for necessário.

Ao utilizar o ponto de entrada M460QRY é necessário utilizar o ponto de entrada M460FIL.

Exemplo

#INCLUDE "RWMAKE.CH"

User Function M460QRY()

    Local _volta  := " and C9_CODISS = ' '"
    Local cQuery  := paramixb[1]
    Local cCodQry := paramixb[2]

    If cCodQry == 1
       cQuery += _volta
    EndIf

    Alert("Passou pelo PE M460QRY")

Return(cQuery)