mukasc

USE gx_kb_atual
DECLARE @tabela VARCHAR(500) = 'RHF_ColabIntermitenteItem';
DECLARE @sql NVARCHAR(4000);
SELECT @sql = comandosql FROM DELSOFTX_TABELA(@tabela)
USE fanavid
EXEC(@sql)
* CAMPOS
USE gx_kb_atual
DECLARE @coluna VARCHAR(500) = 'RHF_COLABINTERCALCULADO';
DECLARE @sql NVARCHAR(4000);

mukasc

create FUNCTION DELSOFTX_PK (@tabela char(50))
RETURNS TABLE
AS
RETURN
(
SELECT posicao, tb, campo
FROM (
SELECT c.obj_name as tb, b.attri_name as campo, e.attri_type as tipo, e.length as tamanho, e.decimals as decimais, 1 AS iskey,
a.position_ck+1 AS posicao
FROM CK_ATRI a

mukasc

package br.com.delsoftsistemas;

import br.com.delsoftsistemas.comum.FuncoesComuns;
import java.io.IOException;
import java.io.UnsupportedEncodingException;
import java.security.InvalidAlgorithmParameterException;
import java.security.InvalidKeyException;
import java.security.NoSuchAlgorithmException;
import java.security.spec.InvalidKeySpecException;
import org.apache.commons.codec.binary.Base64;

mukasc

Main Program: True
encryppt parameters: no
call protocol: HTTP

webservice

csharp try{
	
	PrcSaveLog.Call(!'ANNAINTEGRATIONLOG',&UserCelphone,&Pgmname+ !' / '+!'Entrou')
	

mukasc

	Parm(
in:&WSPlace,
inout:&NextPlace,
inout:&Saudacao,
inout:&CallHash,
out:&SdtWSContainersContainer);


&LinkWSIntegracao = 'http://itda.com.br/mxns/aPrcWSAnnAMxns.aspx'
	&LinkWSCallBack = 'http://itda.com.br/mxns/aPrcAnnACallBack.aspx'

mukasc

Parm(in:&LogType,in:&LogUser,in:&LogDescription);

New
	LogType = &LogType
	LogUser = &LogUser
	LogDescription = &LogDescription
	LogDate = now()
	
endnew

mukasc

Parm(In: &Json, In: &EncKEY, In: &DecKEY, In: &IV, Out: &StringResponse);

&CryptoEncrypt = new()
&CryptoEncrypt.Algorithm = CryptoEncryptAlgorithm.TripleDES
&Result = &CryptoEncrypt.Encrypt(!'DUMMY')
&NewIV = &CryptoEncrypt.IV
&NewIVCript     = PrcEncryptTripleDES.Udp(&NewIV, &DecKEY, &IV   )
&StringResponse = PrcEncryptTripleDES.Udp(&Json,  &EncKEY, &NewIV) + &IV + &NewIVCript

mukasc

Parm(In:&Text, In:&Key, In:&IV, Out:&OutText);

//Encrypted using the TripleDES algorithm using CBC mode (Cipher Block Chaining). 
&CryptoEncrypt.Algorithm = CryptoEncryptAlgorithm.TripleDES
&CryptoEncrypt.Key = &Key
&CryptoEncrypt.IV = &IV

&OutText = &CryptoEncrypt.Encrypt(&Text) //The text is encrypted and the result obtained.

mukasc

Parm(in:&CallHash,in:&SdtMacroAnswers,in:&UserCelphone,inout:&Place,inout:&NextPlace,in:&Provider,out:&WSPlace,out:&SdtWSContainers);


	&SdtWSContainers = new()
	&SdtWSContainers.ClientStatus = !'OK'

	do case
		case  &Place.ToUpper() = 'QUESTIONS'
			
			//Chamo a sub com a pergunta 1

mukasc

parm(out:&CallHash);

&Agora = now()
&AgoraStr = &Agora.Year().ToString().Trim() 
&AgoraStr += substr(trim(str(&Agora.Month() + 100)),2,2)
&AgoraStr += substr(trim(str(&Agora.Day() + 100)),2,2)
&AgoraStr += substr(trim(str(&Agora.Hour() + 100)),2,2)
&AgoraStr += substr(trim(str(&Agora.Minute() + 100)),2,2)
&AgoraStr += substr(trim(str(&Agora.Second() + 100)),2,2)
&RandomStr = trim(str(int(Random()*9)))