Identificador de Regra

Definir Numero VSCODEMP;

Definir Numero VSCODFIL;

Definir Numero VSNumero;

Definir Alfa VSCodSnf;

Definir Numero VenNSeqIte;

Definir Alfa VSTNSPRO;

Definir Numero VSVlrDzf;

Definir Alfa xCursor;

Definir Alfa xSql;

SQL_Criar(xCursor);

xSql = " select tnspro from e140ipv " +

" where codemp = :VSCODEMP and codfil = :VSCODFIL" +

" and numnfv = :VSNUMNFV and codsnf = :VSCODSNF " +

" and seqipv = :VSSEQIPV ";

SQL_DefinirComando(xCursor, xSql);

SQL_DefinirInteiro(xCursor, "VSCODEMP", VSCODEMP);

SQL_DefinirInteiro(xCursor, "VSCODFIL", VSCODFIL);

SQL_DefinirInteiro(xCursor, "VSNUMNFV", VSNumero);

SQL_DefinirAlfa(xCursor, "VSCODSNF", VSCodSnf);

SQL_DefinirInteiro(xCursor, "VSSEQIPV", VenNSeqIte);

SQL_AbrirCursor(xCursor);

se (SQL_EOF(xCursor) = 0)

inicio

SQL_RetornarAlfa(xCursor,"tnspro",VSTNSPRO);

fim

SQL_FecharCursor(xCursor);

SQL_Destruir(xCursor);

se (VSTNSPRO = "6102")

inicio

VSVlrDzf = 0;

Nos cenários de faturamento de serviços, quando o parâmetro do cadastro de empresas Possui serviço com ICMS/IPI estiver igual a "S - Sim", sempre entrará no cálculo de ICMS Zona Franca. Nesses casos pode ser usado uma regra para zerar o cálculo do imposto nos itens de serviços que não tem ICMS:

Definir Alfa VSCodPro;

Definir Numero VSPerIcm;

Definir Numero VSVlrDzf;

SE ((VSPerIcm = 0) E (VSCodPro = ""))

{ VSVlrDzf = 0; }