× Linguagem de Programação ADVPL

Perguntas Inclusão de divisão ao gerar carga de xml

Mais
10 anos 10 meses atrás #23282 por eliveltons
Pessoal estou tentando incluir mais uma divisão neste programa para gerar arquivo de xml
é A divisão GERMED o grupo e o 0106 mas tentei de varias formas mas sempre dá erro fatal
alguém tem uma ideia de como incluir esta divisão????
Grato...


If TRB->B1_GRUPO != cGrupo
If !Empty(cGrupo)
cString += '</familia>'
EndIf
cString += '<familia>'
cString += PedTag('divisao',If(TRB->B1_GRUPO $ "0105/0107","EMS","LEGRAND") )
cString += PedTag('unidadenegocio',If(TRB->B1_GRUPO $ "0107/0108","MARCAS","GENERICO") )
cString += PedTag('nomefamilia',Alltrim(Posicione("SBM",1,xFilial("SBM") + TRB->B1_GRUPO,"BM_DESC")) )
EndIf

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 10 meses atrás #23284 por kanaamlrr
Qual o erro apresentado?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 10 meses atrás #23286 por eliveltons
desde ja agraço a ajuda.
se eu incluo o grupo da seguinte forma:
EndIf
cString += '<familia>'
cString += PedTag('divisao',If(TRB->B1_GRUPO $ "0105/0106/0107","EMS","GERMED","LEGRAND") )
cString += PedTag('unidadenegocio',If(TRB->B1_GRUPO $ "0107/0108","MARCAS","GENERICO") )
cString += PedTag('nomefamilia',Alltrim(Posicione("SBM",1,xFilial("SBM") + TRB->B1_GRUPO,"BM_DESC")) )
EndIf

apresenta o erro assim:

Erro de compilação:
RMPED01.PRW(188) C2003 Syntax Error
Processo interrompido por erro FATAL de compilação.

Compilação finalizada - 1 arquivo(s) - 1 mensagem(s)

Tempo de duração da compilação: 4 segundos

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 10 meses atrás #23307 por kanaamlrr
É erro de sintaxe na linha 188.
Qual linha é essa no seu fonte?
Você não cometeu nenhum erro de digitação?
Se puder, coloque seu fonte aqui.
Abraço!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 10 meses atrás #23315 por eliveltons
Desculpa da demora segue a fonte.....
Mas agora o erro é na linha 187
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 10 meses atrás #23320 por kanaamlrr
O problema está aqui:

If(TRB->B1_GRUPO $ "0105/0106/0107","EMS","GERMED","LEGRAND")

nesse caso, você deveria usar If(<condição>,<verdadeiro>,<falso>)
E está assim:
If(<condição>,<verdadeiro>,<falso>,<??>)
Esse último parâmetro está incorreto.
Qual era sua intenção nesse caso?
Talvez um if encadeado?

por exemplo:
If TRB->B1_GRUPO $ "0105/0106/0107"
   "EMS"
ElseIf TRB->B1_GRUPO $ "0108/0109/0110"
   "GERMED"
Else
   "LEGRAND"
EndIf

deveria ficar assim:
If(TRB->B1_GRUPO $ "0105/0106/0107","EMS",If(TRB->B1_GRUPO $ "0108/0109/0110","GERMED","LEGRAND"))

Entendeu?

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.099 segundos
Joomla templates by a4joomla