Produto: | Solucoes_totvs_parceirosexptotvs |
---|
SolucaoParcsExpsTOTVS | TOTVS DMS |
---|
|
|
---|
Linha de Produto: | |
---|
Segmento: | |
---|
Módulo: | Modulos_totvs_prestadores_de_servicos |
---|
TOTVS DMS (Linha Protheus) - Auto Peças (SIGAPEC) |
---|
Função: | Orc. por Fases (OFIXA011) |
---|
País: | ArgentinaBrasil |
---|
Ticket: | Não se aplica. |
---|
Requisito/Story/Issue (informe o requisito relacionado) : | DVARMIL-5538 |
---|
Localização: Atualizações / Movimentos Oficina/ Orc. por Fases (OFIXA011)
Em que ponto? Ponto de entrada executado na rotina de Orçamento por Fases (OFIXA011). Este ponto de entrada possibilita que o usuário carregue automaticamente a TES de acordo com o tipo de fatura (Remito/Fatura com Entrega Futura), assim sem a necessidade de utilizar a tela de escolha da TES.
Parâmetro:
Nome | Tipo | Descrição |
---|
cTp (ParamIxb[01) | Caractere | Parametro 1 - cTp - Tipo: 1=Fatura / 2=Remito |
...
Bloco de código |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | VXX01TEA OX001PTES (AdvPL) |
---|
linenumbers | true |
---|
|
#INCLUDE "PROTHEUS.CH" User Function OX001PTES()
Local cTp := ParamIxb[01]// Parametro 1 - cTp - Tipo: 1=Fatura / 2=Remito
Local cRet := FM_PRODSBZ(SB1->B1_COD,"SB1->B1_TS")
If cTp == "1" // TES da Fatura -> Gera Dupl: SIM / Mov.Estoque: NAO
cRet := "501"
ElseIf cTp == "2" // TES de Remito -> Gera Dupl: NAO / Mov.Estoque: SIM
cRet := "503"
ElseIf cTp == "4" // TES de Entrega Futura -> Gera Dupl: Sim / Mov.Estoque: Não
cRet := "502"
EndIf
Return cRet |
...