
DROP VIEW VIEWEMPUNIDS;

CREATE VIEW VIEWEMPUNIDS ( EMPRESA, NOME, NOMEABREV, UNIDADE, TIPOEMPRESA, CODIGOEMPRESA, MOEDA, ENDPEDIDO, ENDCOBRANCA ) AS
SELECT SUBSTR(GRLATABS.ATABS_DESC_ABREV,7,2),
       AEMPR_RAZAO_SOCIAL,  
       AEMPR_NOME_ABREV,  
       SUBSTR(GRLATABS.ATABS_DESC_ABREV,9,8), 
       AEMPR_TIPO,
       AEMPR_CODIGO,
      (SELECT SUBSTR(GRLATABS.ATABS_DESC_ABREV,1,5) FROM GRLATABS WHERE GRLATABS.ATABS_TABELA = 'PDRA' AND GRLATABS.ATABS_CODIGO_ALFA   = 'MOEDA          '),
       END_ENTR_PEDIDO,
       END_COBR_PEDIDO 
FROM GRLATABS, SUPAEMPR, GRLAPPED
WHERE GRLATABS.ATABS_TABELA        = 'PDRA' 
 AND  GRLATABS.ATABS_CODIGO_ALFA   = 'PARAM-SIS      '
 AND  SUBSTR(ATABS_DESC_ABREV,1,1) = AEMPR_TIPO 
 AND  SUBSTR(ATABS_DESC_ABREV,2,5) = AEMPR_CODIGO 
 AND  SUBSTR(ATABS_DESC_ABREV,7,2) = GRLAPPED.EMPRESA 
 AND  SUBSTR(ATABS_DESC_ABREV,9,8) = GRLAPPED.UNIDADE;

COMMENT ON VIEW VIEWEMPUNIDS IS "EMPRESA/UNIDADE ERPB";