Fórum recuperar os 2 primeiros números de um determinado registro #552260
25/04/2016
0
tenho uma tabela de cidades com o código das cidades, nome das cidades e estados, os dois primeiros números desse código diz respeito ao estado 'UF'. por exemplo 1100189 onde o 11 é o estado RO
como faço para recuperar na tabela apenas esses dois primeiros números
aXML := spdNFe.EnviarCCe(FDLerNotaNF_IDNFE.Value,Trim(MemoRetorno.Text), LblDataRegistroFormatada.Caption,
DtMdl.FDInformacoesCI_NUMERO.Value, >> aqui dessa maneira ele está pegando o código completo 1100189 e nesse caso eu preciso apenas do 11
FormatFloat( '000', FDProxLote.fieldbyname('proxlote').value),
FDLerSeqPROXIMO.value, '-03:00');
Emanuel Gonçalves
Curtir tópico
+ 0Posts
25/04/2016
Raimundo Pereira
var codigo completo,Dig :integer;
begin
codigo completo:=0;
Dig:=0;
codigo completo:=DtMdl.FDInformacoesCI_NUMERO.Value;// Pega a numeração completa no caso 1100189
Dig:=StrToInt(Copy(IntToStr(codigo completo),1,2)); // Copia os dois primeiros dígitos no caso 11
end;
Gostei + 0
25/04/2016
Emanuel Gonçalves
var codigo completo,Dig :integer;
begin
codigo completo:=0;
Dig:=0;
codigo completo:=DtMdl.FDInformacoesCI_NUMERO.Value;// Pega a numeração completa no caso 1100189
Dig:=StrToInt(Copy(IntToStr(codigo completo),1,2)); // Copia os dois primeiros dígitos no caso 11
end;
P2 obrigado
será que assim LeftStr(DtMdl.FDInformacoesCI_NUMERO.Value, 2) funciona??
Gostei + 0
25/04/2016
Mateus Ribeiro
Sim, desta maneira vc consegue o resultado esperado.
Numero := LeftStr(DtMdl.FDInformacoesCI_NUMERO.AsString, 2)
Gostei + 0
25/04/2016
Emanuel Gonçalves
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)