BEGIN
   UPDATE MODPGTO
   SET CDMODPGTO = RIGHT(REPLICATE('0',5) + CDMODPGTO, 5);

   UPDATE CLIENTE
   SET CDMODPGTO = RIGHT(REPLICATE('0',5) + CDMODPGTO, 5);

   UPDATE PEDIDO
   SET CDMODPGTO = RIGHT(REPLICATE('0',5) + CDMODPGTO, 5);

   UPDATE PROPOSTA
   SET CDMODPGTO = RIGHT(REPLICATE('0',5) + CDMODPGTO, 5);

   UPDATE PRAZOMODPGTO
   SET CDMODPGTO = RIGHT(REPLICATE('0',5) + CDMODPGTO, 5);

   UPDATE PRECOUTI
   SET CDMODPGTO = RIGHT(REPLICATE('0',5) + CDMODPGTO, 5);

   UPDATE PARAMPEDIDO
   SET CDMODPGTO = RIGHT(REPLICATE('0',5) + CDMODPGTO, 5);
END;
GO

