PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - EXEMPLO DE COMO CADASTRAR UM REGISTRO USANDO UMA PROCEDURE
WX - EXEMPLO DE COMO CADASTRAR UM REGISTRO USANDO UMA PROCEDURE
Iniciado por BOLLER, jul., 25 2019 2:44 PM - 1 resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 25 2019 - 2:44 PM
Procedure Cadastrar_PRODXFORN(CNPJ,FOR_ID,PROD_IDD,CODPROD_FORN,EAN_CODBARRA,DESCPROD,UNIDADE_ORIGEM,UNIDADE_DESTINO)

OK is boolean

BUSCA is string = CNPJ +""+ CODPROD_FORN +""+ EAN_CODBARRA

IF HReadSeek(F004_APS_PRODXFORN,F004_KUNICO,BUSCA,hIdentical) = True THEN
IF HFound(F004_APS_PRODXFORN) = True
OK = 1
END
END

F004_APS_PRODXFORN.F006_FOR_CNPJ = CNPJ
F004_APS_PRODXFORN.F006_FOR_ID = FOR_ID
F004_APS_PRODXFORN.F004_CODPROD_SYS = PROD_IDD
F004_APS_PRODXFORN.F006_CODPROD_FORN = CODPROD_FORN
F004_APS_PRODXFORN.F004_EAN_CODBARRA = EAN_CODBARRA
F004_APS_PRODXFORN.F004_DESCPROD = DESCPROD
F004_APS_PRODXFORN.F004_KUNICO = CNPJ +""+ CODPROD_FORN +""+ EAN_CODBARRA
F004_APS_PRODXFORN.F004_UNIDADE_ORIGEM = UNIDADE_ORIGEM
F004_APS_PRODXFORN.F004_UNIDADE_DESTINO= UNIDADE_DESTINO

IF OK <> True THEN
F004_APS_PRODXFORN.F004_CORRELACAO_ID = GET_SEQ("F004_APS_PRODXFORN")
OK = HAdd(F004_APS_PRODXFORN,hForceIdAuto)
ELSE
OK = HModify(F004_APS_PRODXFORN)
END

RESULT OK


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 25 2019 - 2:47 PM
//NO BANCO DE DADOS CRIE ESSA FUNCTION
//return number
//is
//
//ret_val number :=0;
//
//begin
//
//execute immediate 'select SEQ_'||tabName||'.nextval as vlr_seq from dual' into ret_val;
//
//return ret_val;
//
//end;

Procedure GET_SEQ(pSeqName)

ds_query is Data Source

query is string = "SELECT F_GETSEQ('"+pSeqName+"') AS SEQ_VLR FROM DUAL"

nIsseq is 8-byte int

IF HExecuteSQLQuery(ds_query,CONN_X,hQueryDefault+hQueryWithoutCorrection,query) = True THEN

FOR EACH ds_query
nIsseq = ds_query.SEQ_VLR
END

END

RESULT nIsseq


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, julho, 25 2019 - 2:48 PM