EXECUTE BLOCK
AS
  DECLARE VARIABLE VCODIND      VARCHAR(30);
  DECLARE VARIABLE VFRETE       NUMERIC(15,2);
  DECLARE VARIABLE VPRECO       NUMERIC(15,2);
  DECLARE VARIABLE VPRECOAQUI   NUMERIC(15,2);
  DECLARE VARIABLE VCREDICMS    NUMERIC(15,2);
  DECLARE VARIABLE VPISENT      NUMERIC(15,2);
  DECLARE VARIABLE VCOFENT      NUMERIC(15,2);
  DECLARE VARIABLE VCODFABRI    VARCHAR(30);
BEGIN
  FOR
    SELECT
        PAS.CODBARRAS,
        PAS.FRETE,
        PAS.PRECO,
        PAS.PRECOAQUISICAO,
        PAS.CREDITOICMS,
        PAS.PISENTRADA,
        PAS.COFINSENTRADA,
	PAS.CODORIGINAL
    FROM PRODUTOS_ATACADO_SOFT PAS
    WHERE COALESCE (CODBARRAS,'') <> ''
    INTO :VCODIND, :VFRETE, :VPRECO, :VPRECOAQUI, :VCREDICMS, :VPISENT, :VCOFENT, :VCODFABRI
  DO
  BEGIN
    UPDATE PROD
       SET FRETE  = :VFRETE,
           PVEND2 = :VPRECO,
           PCIF   = :VPRECOAQUI,
           ICMS   = :VCREDICMS,
           PIS    = :VPISENT,
           COFINS = :VCOFENT,
	   CODIGODOFABRICANTE = :VCODFABRI
     WHERE CODIND = :VCODIND;
  END
END;