× Linguagem de Programação ADVPL

Perguntas Legenda na MSNEWGETDADOS

Mais
9 anos 2 semanas atrás - 9 anos 2 semanas atrás #27930 por cintra_daniel
Boa tarde pessoal!

Estou tentando colocar legenda em uma MSNEWGETDADOS porém não estou conseguindo.. Vou colocar os códigos abaixo pro caso de alguém entender do assunto.

Aqui declaro as variáveis:

Local aLegenda := ""
Local oRed := LoadBitmap(GetResources(),"BR_VERMELHO")
Local oBlue := LoadBitmap(GetResources(),"BR_AZUL")
Local oYellow := LoadBitmap(GetResources(),"BR_AMARELO")
Local oGrey := LoadBitmap(GetResources(),"BR_CINZA")

Aqui eu crio no aHeader a coluna da legenda:

Aadd(aH1,{"OK","COR","@BMP",1, 0, .T.,"","" , "" ,"R" ,"" ,"" ,.F.,"V","","","",""})


Aqui eu faço um if pra definir qual cor a legenda irá assumir de acordo com o status:

If (cAlias)->STATUS == "ENTREGUE"
aLegenda := oBlue
ElseIf (cAlias)->STATUS == "EM TRANSITO"
aLegenda := oYellow
ElseIf (cAlias)->STATUS == "CANCELADO"
aLegenda := oRed
Else
aLegenda := oGrey
Endif


E por ultimo coloco dentro do aCols a Legenda, junto com os dados:

Aadd(aC1,{aLegenda,;
(cAlias)->DTP_LOTNFC,;
(cAlias)->STATUS,;
(cAlias)->DT6_RETCTE,;
(cAlias)->DT6_FILDOC,;
(cAlias)->DT6_DOC,;
(cAlias)->DT6_SERIE,; // Matheus
cNF,;
DtoC(StoD((cAlias)->DT6_DATEMI)),;
(cAlias)->DT6_VALTOT,;
IIF(Empty((cAlias)->STATCOMP),"NAO ENTREGUE","ENTREGUE"),; // Matheus
(cAlias)->AGENDAMENTO,;
(cAlias)->ORDEM_COLETA,;
(cAlias)->VIAGEM_COLETA,;
cViagem,;
cCodVeic,;
cCodRb1,;
cCodRb2,;
POSICIONE("DA4", 1, xFilial("DA4") + cCodMot, "DA4_NOME"),;
(cAlias)->NOMECLIREM,;
(cAlias)->NOMECLIDES,;
(cAlias)->DT6_VOLORI,;
(cAlias)->DT6_PESO,;
(cAlias)->REG_DESTINO,;
(cAlias)->TPFRE,;
cCNF,;
(cAlias)->DT6_CHVCTE,;
.F.})


Só que quando tento rodar o sistema gera um erro:

THREAD ERROR (daniel.cintra, SAYDER-TI01) 24/04/2015 14:12:28
type mismatch on $ on MSNEWGETDADOS:NEW(APLIB170.PRW) 21/12/2014 16:05:22 line : 318

[TOTVS build: 7.00.131227A-20150202]
Called from GERAGRID(XCONCTE.PRW) 24/04/2015 12:43:20 line : 253 // Linha Onde é executado o MSNEWGETDADOS
Called from {|| GERAGRID(CGET1,CVALTOCHAR(NCOMBOBOX1),AINFO)}(XCONCTE.PRW) 24/04/2015 12:43:20 line : 43
Ultima edição: 9 anos 2 semanas atrás por cintra_daniel.

Por favor Acessar ou Registrar para participar da conversa.

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