Histórico da Página

...

field   cd-unidade                           like procguia.cd-unidade
field   cd-unidade-prestador-exec  like procguia.cd-unidade-prestador
field   cd-prestador-exec                like procguia.cd-prestador
field   qt-servico                             like insuguia.qt-insumo
field   tp-servico                             as char format "x(1)"
field   cd-servico                            as int int64 format "9999999999999999999"
field   tipo-insumo                          like mov-insu.cd-tipo-insumo
index serv-1 as primary
          cd-servico.

...