...
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 |
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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
|
...
| Templatedocumentos |
|---|
...
