Dificuldades no preenchimento COD_CRED do Registro M100

[fabiane_vieira]

Rapazes , estou com dúvida para o preenchimento do Registro M100 , atravéz de pesquisas pela net e tbm lendo o manual fiz um select mas ainda tenho duvidas se o retorno do select corresponde corretamente o para o Registro M100 , vejam :

QryRegistroM100.Close ;

QryRegistroM100.SQL.Clear ;

QryRegistroM100.SQL.Text := 'Select PIS_CST , PIS_PERCENTUAL , CFOP , sum(PIS_VALOR) '+

'From CADASTRO_NFS_ITENS '+

'Where DATA_ENTRADA between :DATA_INICIAL and :DATA_FINAL '+

'Group By PIS_CST , PIS_PERCENTUAL , CFOP ' +

'Order By PIS_CST asc' ;

QryRegistroM100.ParamByName('DATA_INICIAL').AsDate := DataInicial ;

QryRegistroM100.ParamByName('DATA_FINAL').AsDate := DataFinal ;

QryRegistroM100.Prepare ;

QryRegistroM100.Open ;

case (QryRegistroM100.fieldbyname('PIS_CST').AsInteger) of

50 : begin

Var_COD_CRED :=

end ;

51 : begin

Var_COD_CRED :=

end ;

// e assim as demais CST's por diante

end ;

Gostaria de saber se alguem de vcs tem um Select ou alguma forma de como preenchem corretamente este registro .

Obrigada .