Identificador de Regra

Definir Alfa VSACodBar;

Definir Numero VSNCodFor;

Definir Numero VSNSeqOrm;

Definir Alfa VSACodDep;

Definir Alfa VSACodPro;

Definir Alfa VSACodDer;

Definir Numero VSNSnfPro;

Definir Numero VSNNfcPro;

Definir Alfa nIniBar;

Definir Alfa nFimBar;

Definir Alfa aInsEst;

Definir Alfa aSnfPro;

Definir Alfa aNfcPro;

Definir Alfa aCnpjPro;

Definir Alfa aChave;

Definir Alfa aTipoPro;

Definir Numero nCodFor;

Definir Numero nCodSeq;

Definir Numero nTamStr;

nIniBar = VSACodBar;

nFimBar = VSACodBar;

aSnfPro = VSACodBar;

aNfcPro = VSACodBar;

aCnpjPro = VSACodBar;

aChave = VSACodBar;

LimpaEspacos(aChave);

TamanhoStr(aChave,nTamStr);

CopiarAlfa(nIniBar, 2, 3);

CopiarAlfa(nFimBar, 5, 7);

CopiarAlfa(aCnpjPro, 7, 14);

aInsEst =nIniBar+nFimBar;

Definir Cursor Cur_A095PRE;

Cur_A095PRE.Sql "Select e095orm.CodFor, e095orm.SeqOrm, e095orm.TipOrm \

From e095orm \

Where ((e095orm.InsOrm = :aInsEst) or (e095orm.CgcOrm = :aCnpjPro)) and e095orm.SitOrm = 'A'";

Cur_A095PRE.AbrirCursor()

Se(Cur_A095PRE.Achou){

Definir Numero nCodEmp;

Definir Numero nCodFil;

Definir Numero nCodFor;

Definir Alfa aCodPro;

Definir Alfa aCodDep;

 

Se(nTamStr = 44){

CopiarAlfa(aSnfPro, 23, 3);

AlfaParaInt(aSnfPro, nSnfPro);

CopiarAlfa(aNfcPro, 26, 9);

AlfaParaInt(aNfcPro, nNfcPro);

}

Senao {

CopiarAlfa(aSnfPro, 12, 3);

AlfaParaInt(aSnfPro, nSnfPro);

CopiarAlfa(aNfcPro, 15, 6);

AlfaParaInt(aNfcPro, nNfcPro);

};

nCodEmp = CodEmp;

nCodFil = CodFil;

nCodFor = Cur_A095PRE.CodFor;

nCodSeq = Cur_A095PRE.SeqOrm;

aCodPro = "G1S10001";

aCodDep = "1";

VSNCodFor = nCodFor;

VSNSeqOrm = nCodSeq;

VSACodDep = aCodDep;

VSACodPro = aCodPro;

VSACodDer = " ";

VSNSnfPro = nSnfPro;

VSNNfcPro = nNfcPro;

 

Cur_A095PRE.FecharCursor();

};