No artigo de hoje vamos demonstrar em como alterar o E1_TIPO na geração do documento de saída.

Recentemente nos perguntaram se era possível definir o E1_TIPO no momento da geração da nota de saída.

Pensando nisso, montamos esse exemplo, onde:

1. Foi usado o ponto de entrada M460COND
2. Dentro dele é feito um teste condicional
3. E por fim é alterado a variável MVNOTAFIS com o tipo desejado

Abaixo segue o fonte:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function M460COND
Ponto de entrada para alterar a data que irá considerar para gerar as parcelas e vencimentos
@type  Function
@author Atilio
@since 16/06/2023
@see https://tdn.totvs.com/pages/viewpage.action?pageId=6784176
/*/

User Function M460COND()
    Local aArea     := FWGetArea()
    Local aAreaSC5  := SC5->(FWGetArea())
    Local dDataCond := ParamIXB[1] //Por padrão pega do SF2->F2_EMISSAO
	Local cCliMV    := SuperGetMV("MV_X_MSMCL", .F., "000001;") //Se for clientes que são do mesmo grupo de empresa

    //Se for clientes do mesmo CNPJ, muda o tipo para MSM (para lembrar que é do MESMO grupo)
    If Alltrim(SF2->F2_CLIENTE) $ cCliMV
        MVNOTAFIS := AvKey("MSM", "E1_TIPO")
    Else
        MVNOTAFIS := AvKey("NF",  "E1_TIPO")
    EndIf

    FWRestArea(aAreaSC5)
    FWRestArea(aArea)
Return dDataCond

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus