@Título de imposto via regra@

definir numero VSVLRIMP;
definir numero ValorImpostoNota;
definir numero VSCodEmp;
definir numero VSCodFil;
definir alfa VSCodSnf;
definir numero VSNumNfv; 
definir alfa vCursor_E140NFV;



inicio
SQL_CRIAR(vCursor_E140NFV);
SQL_USARSQLSENIOR2(vCursor_E140NFV,0);
SQL_USARABRANGENCIA(vCursor_E140NFV,0);

SQL_DEFINIRCOMANDO(vCursor_E140NFV,"SELECT VLRICM FROM E140NFV \
									WHERE \
									  E140NFV.CODEMP = :VSCODEMP AND \
									  E140NFV.CODFIL = :VSCODFIL AND \
									  E140NFV.CODSNF = :VSCODSNF AND \
									  E140NFV.NUMNFV = :VSNUMNFV");  					
					
SQL_DEFINIRINTEIRO(vCursor_E140NFV,"VSCODEMP",VSCODEMP);
SQL_DEFINIRINTEIRO(vCursor_E140NFV,"VSCODFIL",VSCODFIL);
SQL_DEFINIRALFA(vCursor_E140NFV,"VSCODSNF",VSCODSNF);
SQL_DEFINIRINTEIRO(vCursor_E140NFV,"VSNUMNFV",VSNUMNFV);


SQL_ABRIRCURSOR(vCursor_E140NFV);
SQL_RetornarInteiro(vCursor_E140NFV,"VLRICM",ValorImpostoNota);
SQL_FECHARCURSOR(vCursor_E140NFV);
fim;

Se (ValorImpostoNota > 0)
VSVLRIMP=ValorImpostoNota*0.4711;