× Linguagem de Programação ADVPL

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

Mais
10 anos 5 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 5 meses atrás #23284 por kanaamlrr
Qual o erro apresentado?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 5 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 5 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 5 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 5 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.090 segundos
Joomla templates by a4joomla