Codigo
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Codigo as PDF for free.
More details
- Words: 47
- Pages: 1
declare cliente integer; cantidad number; fechas date; begin cliente := get_item_property('codigo_clientetxt',database_value); select count(*) into cantidad from clientes where codigo_cliente = cliente; if(cantidad > 0) then fechas := get_item_property('fecha',database_value); insert into encabezados values(fechas,cliente,seq_encabezado.nextval); commit; message('bien'); message('bien'); else message('el cliente no existe'); message('el cliente no existe'); end if; end;
