| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | MatFilCalc (sigacus.prw) - Função para seleção das filiais para processamento por empresa |
| País: | Todos |
| Ticket: | 22636073 |
| Issue: | DMANMAT01-43940 |
Ponto de entrada utilizado para substituir a tela padrão de seleção das filiais em diversas rotinas do sistema.
Sua chamada ocorre somente em contextos onde a tela padrão para seleção de filiais seria apresentada, não sendo executado por padrão em chamadas via rotina automática ou schedule, por exemplo.
| Parâmetro | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Lógico | Determina se a filial será considerada (.T.) ou não (.F.) para processamento |
| PARAMIXB[2] | Caracter | Código da filial |
| PARAMIXB[3] | Caracter | Nome da filial |
| PARAMIXB[4] | Caracter | CNPJ da filial |
| PARAMIXB[5] | Caracter | Inscrição estadual da filial |
| PARAMIXB[6] | Caracter | Inscrição municipal da filial |
| Parâmetro | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Lógico | Determina se a filial será considerada (.T.) ou não (.F.) para processamento |
| PARAMIXB[2] | Caracter | Código da filial |
| PARAMIXB[3] | Caracter | Nome da filial |
| PARAMIXB[4] | Caracter | CNPJ da filial |
| PARAMIXB[5] | Caracter | Inscrição estadual da filial |
| PARAMIXB[6] | Caracter | Inscrição municipal da filial |
#INCLUDE 'Protheus.ch'
User Function MT010Jin()
Local cParam1 := ""
Local cJsonData := ""
Local uRet
Local oModel := FWModelActive()
Local lMVC := TableInDic("G3Q", .F.) .And. oModel <> Nil .And. oModel:cSource == "MATA010"
Local cCod := ""
Local aArea := GetArea()
Local oJson
cParam1 := PARAMIXB[1]
oJson := JsonObject():New()
uRet := oJson:FromJson(cParam1)
if ValType(uRet) == "U"
If lMVC
cCod := AllTrim(oModel:GetValue("SB1MASTER","B1_COD"))
cDesc := AllTrim(oModel:GetValue("SB1MASTER","B1_DESC")) + " MT010Jin"
else
cCod := M->B1_COD
cDesc := M->B1_DESC + " MT010Jin"
Endif
oJson["Content"]["TcOrthers"] := JsonObject():New()
oJson["Content"]["TcOrthers"]["Cust1"] := "TESTE DE CUSTOMIZADO1"
oJson["Content"]["TcOrthers"]["TESPROD"] := JsonObject():New()
oJson["Content"]["TcOrthers"]["TESTECOD"] := cCod
oJson["Content"]["TcOrthers"]["TESTEDESC"] := cDesc
cJsonData := oJson:toJSON(cParam1)
If ValType(ret) == "C"
//Falha ao transformar texto em objeto json
cJsonData := ''
Endif
EndIf
RestArea(aArea)
FreeObj(oJson)
Return cJsonData
|