- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Legenda na MSNEWGETDADOS
×
Linguagem de Programação ADVPL
Perguntas Legenda na MSNEWGETDADOS
- cintra_daniel
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 95
- Obrigados Recebidos: 0
9 anos 6 meses atrás - 9 anos 6 meses atrás #27930
por cintra_daniel
Legenda na MSNEWGETDADOS foi criado 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
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 6 meses atrás por cintra_daniel.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Legenda na MSNEWGETDADOS
Tempo para a criação da página:0.083 segundos