|
EVENTS |
|
C Function: Função para trabalhar com arrays |
|
Data Structure: D57ARRAYB - Finaliza o Array |
|
BF idArray [GENLNG] |
|
BF cCodigoErro [EV01] |
|
BF szMensagemErro [STR350] |
|
|
|
Header File: b57array.h |
|
|
|
/***************************************************************************** |
|
* Header File: B57ARRAY.h |
|
* |
|
* Description: Função para trabalhar com arrays Header File |
|
* |
|
* History: |
|
* Date Programmer SAR# - Description |
|
* ---------- ---------- ------------------------------------------- |
|
* Author 03/05/16 MATEU Unknown - Created |
|
* |
|
* |
|
* Copyright (c) J.D. Edwards World Source Company, 1996 |
|
* |
|
* This unpublished material is proprietary to J.D. Edwards World Source |
|
* Company. All rights reserved. The methods and techniques described |
|
* herein are considered trade secrets and/or confidential. Reproduction |
|
* or distribution, in whole or in part, is forbidden except by express |
|
* written permission of J.D. Edwards World Source Company. |
|
****************************************************************************/ |
|
|
|
#ifndef __B57ARRAY_H |
|
#define __B57ARRAY_H |
|
|
|
/***************************************************************************** |
|
* Table Header Inclusions |
|
****************************************************************************/ |
|
|
|
/***************************************************************************** |
|
* External Business Function Header Inclusions |
|
****************************************************************************/ |
|
|
|
/***************************************************************************** |
|
* Global Definitions |
|
****************************************************************************/ |
|
|
|
/***************************************************************************** |
|
* Structure Definitions |
|
****************************************************************************/ |
|
typedef struct tagDDINFO { |
|
|
|
LPGLOBALCOL lpGlobalCol; |
|
LPVOID lpValue; |
|
PJSTR lpScreenValue; |
|
WORD wStatus; |
|
DWORD dwOverrideFlag; |
|
LPDDEDIT lpEditRules; |
|
LPDDFORMAT lpFormatRules; |
|
|
|
} DSDDINFO; |
|
|
|
typedef struct tagVector { |
|
|
|
JCHAR szDataItem[11]; |
|
void **lpArray; |
|
int nTamanho; |
|
|
|
} Vector; |
|
|
|
/***************************************************************************** |
|
* DS Template Type Definitions |
|
****************************************************************************/ |
|
|
|
/** |
|
* TYPEDEF for Data Structure |
|
* D57ARRAYA : Inicializa o Array |
|
* |
|
* Copyright Oracle USA |
|
* |
|
* This is a JDEdwards EnterpriseOne generated file. |
|
* Do not modify this file. |
|
* Only re-generate with the appropriate tool. |
|
* Generation Date : 10/05/16 |
|
*/ |
|
|
|
#ifndef DATASTRUCTURE_D57ARRAYA |
|
#define DATASTRUCTURE_D57ARRAYA |
|
|
|
typedef struct tagDSD57ARRAYA |
|
{ |
|
ID idArray; |
|
JCHAR cCodigoErro; |
|
int nTamanhoInicial; |
|
JCHAR szMensgemErro[351]; |
|
JCHAR szDataItem[11]; |
|
} DSD57ARRAYA , *LPDSD57ARRAYA; |
|
|
|
#define IDERRidArray_1 1L |
|
#define IDERRcCodigoErro_2 2L |
|
#define IDERRnTamanhoInicial_4 4L |
|
#define IDERRszMensgemErro_5 5L |
|
#define IDERRszDataItem_6 6L |
|
|
|
#endif /* DATASTRUCTURE_D57ARRAYA */ |
|
|
|
/** |
|
* TYPEDEF for Data Structure |
|
* D57ARRAYB : Finaliza o Array |
|
* |
|
* Copyright Oracle USA |
|
* |
|
* This is a JDEdwards EnterpriseOne generated file. |
|
* Do not modify this file. |
|
* Only re-generate with the appropriate tool. |
|
* Generation Date : 03/05/16 |
|
*/ |
|
|
|
#ifndef DATASTRUCTURE_D57ARRAYB |
|
#define DATASTRUCTURE_D57ARRAYB |
|
|
|
typedef struct tagDSD57ARRAYB |
|
{ |
|
ID idArray; |
|
JCHAR cCodigoErro; |
|
JCHAR szMensagemErro[351]; |
|
} DSD57ARRAYB , *LPDSD57ARRAYB; |
|
|
|
#define IDERRidArray_1 1L |
|
#define IDERRcCodigoErro_2 2L |
|
#define IDERRszMensagemErro_4 4L |
|
|
|
#endif /* DATASTRUCTURE_D57ARRAYB */ |
|
|
|
/** |
|
* TYPEDEF for Data Structure |
|
* D57ARRAYC : Insere Novo Elemento no Array |
|
* |
|
* Copyright Oracle USA |
|
* |
|
* This is a JDEdwards EnterpriseOne generated file. |
|
* Do not modify this file. |
|
* Only re-generate with the appropriate tool. |
|
* Generation Date : 11/05/16 |
|
*/ |
|
|
|
#ifndef DATASTRUCTURE_D57ARRAYC |
|
#define DATASTRUCTURE_D57ARRAYC |
|
|
|
typedef struct tagDSD57ARRAYC |
|
{ |
|
ID idArray; |
|
JCHAR cCodigoErro; |
|
JCHAR cTipoOperacao; |
|
int nInteger; |
|
JCHAR cChar; |
|
JDEDATE jdData; |
|
JCHAR szMensgemErro[351]; |
|
int nIndice; |
|
MATH_NUMERIC mnMathNumeric; |
|
JCHAR szString[241]; |
|
} DSD57ARRAYC , *LPDSD57ARRAYC; |
|
|
|
#define IDERRidArray_1 1L |
|
#define IDERRcCodigoErro_2 2L |
|
#define IDERRcTipoOperacao_4 4L |
|
#define IDERRnInteger_6 6L |
|
#define IDERRcChar_7 7L |
|
#define IDERRjdData_9 9L |
|
#define IDERRszMensgemErro_10 10L |
|
#define IDERRnIndice_12 12L |
|
#define IDERRmnMathNumeric_13 13L |
|
#define IDERRszString_14 14L |
|
|
|
#endif /* DATASTRUCTURE_D57ARRAYC */ |
|
|
|
/***************************************************************************** |
|
* Source Preprocessor Definitions |
|
****************************************************************************/ |
|
#if defined (JDEBFRTN) |
|
#undef JDEBFRTN |
|
#endif |
|
|
|
#if defined (WIN32) |
|
#if defined (WIN32) |
|
#define JDEBFRTN(r) __declspec(dllexport) r |
|
#else |
|
#define JDEBFRTN(r) __declspec(dllimport) r |
|
#endif |
|
#else |
|
#define JDEBFRTN(r) r |
|
#endif |
|
|
|
/***************************************************************************** |
|
* Business Function Prototypes |
|
****************************************************************************/ |
|
JDEBFRTN (ID) JDEBFWINAPI InicializaVetor (LPBHVRCOM lpBhvrCom, LPVOID lpVoid, LPDSD57ARRAYA lpDS); |
|
JDEBFRTN (ID) JDEBFWINAPI FinalizaVetor (LPBHVRCOM lpBhvrCom, LPVOID lpVoid, LPDSD57ARRAYB lpDS); |
|
JDEBFRTN (ID) JDEBFWINAPI InsereBuscaSetaVetor (LPBHVRCOM lpBhvrCom, LPVOID lpVoid, LPDSD57ARRAYC lpDS); |
|
|
|
|
|
/***************************************************************************** |
|
* Internal Function Prototypes |
|
****************************************************************************/ |
|
|
|
#endif /* __B57ARRAY_H */ |
|
|
|
|
|
|
|
Source File: b57array.c |
|
#include <jde.h> |
|
|
|
#define b57array_c |
|
|
|
|
|
/***************************************************************************** |
|
* Source File: b57array |
|
* |
|
* Description: Função para trabalhar com arrays Source File |
|
* |
|
* History: |
|
* Date Programmer SAR# - Description |
|
* ---------- ---------- ------------------------------------------- |
|
* Author 03/05/16 MATEU Unknown - Created |
|
* |
|
* Copyright (c) J.D. Edwards World Source Company, 1996 |
|
* |
|
* This unpublished material is proprietary to J.D. Edwards World Source Company. |
|
* All rights reserved. The methods and techniques described herein are |
|
* considered trade secrets and/or confidential. Reproduction or |
|
* distribution, in whole or in part, is forbidden except by express |
|
* written permission of J.D. Edwards World Source Company. |
|
****************************************************************************/ |
|
/************************************************************************** |
|
* Notes: |
|
* |
|
**************************************************************************/ |
|
|
|
#include <b57array.h> |
|
|
|
|
|
/************************************************************************** |
|
* Business Function: InicializaVetor |
|
* |
|
* Description: Inicializa Vetor |
|
* |
|
* Parameters: |
|
* LPBHVRCOM lpBhvrCom Business Function Communications |
|
* LPVOID lpVoid Void Parameter - DO NOT USE! |
|
* LPDSD57AR lpDS Parameter Data Structure Pointer |
|
* |
|
*************************************************************************/ |
|
|
|
JDEBFRTN (ID) JDEBFWINAPI InicializaVetor (LPBHVRCOM lpBhvrCom, LPVOID lpVoid, LPDSD57ARRAYA lpDS) |
|
|
|
{ |
|
/************************************************************************ |
|
* Variable declarations |
|
************************************************************************/ |
|
ID idJDEDBReturn = ER_SUCCESS; |
|
HUSER hUser = NULL; |
|
DSDDINFO *lpItemDados = (DSDDINFO *)NULL; |
|
Vector *dsArray = NULL; |
|
int nCont = 0; |
|
|
|
/************************************************************************ |
|
* Check for NULL pointers |
|
************************************************************************/ |
|
if ((lpBhvrCom == (LPBHVRCOM) NULL) || |
|
(lpVoid == (LPVOID) NULL) || |
|
(lpDS == (LPDSD57ARRAYA) NULL)) |
|
{ |
|
jdeErrorSet (lpBhvrCom, lpVoid, (ID) 0, _J("4363"), (LPVOID) NULL); |
|
lpDS->cCodigoErro = _J('S'); |
|
return ER_ERROR; |
|
} |
|
|
|
idJDEDBReturn = JDB_InitBhvr(lpBhvrCom, &hUser, (JCHAR *) NULL, JDEDB_COMMIT_AUTO); |
|
|
|
if (idJDEDBReturn == JDEDB_FAILED) |
|
{ |
|
jdeSetGBRError ( lpBhvrCom, lpVoid, (ID)0, _J("3143")); |
|
lpDS->cCodigoErro = _J('S'); |
|
return ER_ERROR; |
|
} |
|
|
|
/************************************************************************ |
|
* Main Processing |
|
************************************************************************/ |
|
lpDS->cCodigoErro = _J(' '); |
|
lpItemDados = jdeDDCreate(NULL, lpDS->szDataItem, 0, NULL); |
|
|
|
if (lpItemDados->wStatus == 0) { |
|
|
|
dsArray = jdeAlloc(COMMON_POOL, sizeof(Vector), MEM_ZEROINIT); |
|
dsArray->lpArray = jdeAlloc(COMMON_POOL, lpDS->nTamanhoInicial * sizeof(void*), MEM_ZEROINIT); |
|
dsArray->nTamanho = lpDS->nTamanhoInicial; |
|
jdeStrncpyTerminate(dsArray->szDataItem, lpDS->szDataItem, DIM(lpDS->szDataItem)); |
|
|
|
if (lpItemDados->lpGlobalCol->idEverestType == EVDT_MATH_NUMERIC) { |
|
|
|
for (nCont = 0; nCont < lpDS->nTamanhoInicial; nCont++) { |
|
dsArray->lpArray[nCont] = jdeAlloc(COMMON_POOL, sizeof(MATH_NUMERIC), MEM_ZEROINIT); |
|
} |
|
|
|
} else if (lpItemDados->lpGlobalCol->idEverestType == EVDT_STRING) { |
|
|
|
for (nCont = 0; nCont < lpDS->nTamanhoInicial; nCont++) { |
|
dsArray->lpArray[nCont] = jdeAlloc(COMMON_POOL, (sizeof(JCHAR)*241), MEM_ZEROINIT); |
|
} |
|
|
|
} else if (lpItemDados->lpGlobalCol->idEverestType == EVDT_CHAR) { |
|
|
|
for (nCont = 0; nCont < lpDS->nTamanhoInicial; nCont++) { |
|
dsArray->lpArray[nCont] = jdeAlloc(COMMON_POOL, sizeof(JCHAR), MEM_ZEROINIT); |
|
} |
|
|
|
} else if (lpItemDados->lpGlobalCol->idEverestType == EVDT_JDEDATE) { |
|
|
|
for (nCont = 0; nCont < lpDS->nTamanhoInicial; nCont++) { |
|
dsArray->lpArray[nCont] = jdeAlloc(COMMON_POOL, sizeof(int), MEM_ZEROINIT); |
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
jdeDDDestroy(lpItemDados); |
|
|
|
lpDS->idArray = jdeStoreDataPtr( hUser, dsArray ); |
|
|
|
/************************************************************************ |
|
* Function Clean Up |
|
************************************************************************/ |
|
|
|
JDB_FreeBhvr( hUser ); |
|
return (ER_SUCCESS); |
|
} |
|
|
|
/************************************************************************** |
|
* Business Function: FinalizaVetor |
|
* |
|
* Description: Finaliza Vetor |
|
* |
|
* Parameters: |
|
* LPBHVRCOM lpBhvrCom Business Function Communications |
|
* LPVOID lpVoid Void Parameter - DO NOT USE! |
|
* LPDSD57AR lpDS Parameter Data Structure Pointer |
|
* |
|
*************************************************************************/ |
|
|
|
JDEBFRTN (ID) JDEBFWINAPI FinalizaVetor (LPBHVRCOM lpBhvrCom, LPVOID lpVoid, LPDSD57ARRAYB lpDS) |
|
{ |
|
/************************************************************************ |
|
* Variable declarations |
|
************************************************************************/ |
|
ID idJDEDBReturn = ER_SUCCESS; |
|
HUSER hUser = (HUSER)NULL; |
|
Vector *dsArray = NULL; |
|
int nCont = 0; |
|
/************************************************************************ |
|
* Check for NULL pointers |
|
************************************************************************/ |
|
if ((lpBhvrCom == (LPBHVRCOM) NULL) || |
|
(lpVoid == (LPVOID) NULL) || |
|
(lpDS == (LPDSD57ARRAYB) NULL)) |
|
{ |
|
jdeErrorSet (lpBhvrCom, lpVoid, (ID) 0, _J("4363"), (LPVOID) NULL); |
|
lpDS->cCodigoErro = _J('S'); |
|
return ER_ERROR; |
|
} |
|
|
|
idJDEDBReturn = JDB_InitBhvr(lpBhvrCom, &hUser, (JCHAR *) NULL, JDEDB_COMMIT_AUTO); |
|
|
|
if (idJDEDBReturn == JDEDB_FAILED) |
|
{ |
|
lpDS->cCodigoErro = _J('S'); |
|
jdeSetGBRError ( lpBhvrCom, lpVoid, (ID)0, _J("3143")); |
|
return ER_ERROR; |
|
} |
|
|
|
/************************************************************************ |
|
* Main Processing |
|
************************************************************************/ |
|
lpDS->cCodigoErro = _J(' '); |
|
dsArray = jdeRetrieveDataPtr( hUser, lpDS->idArray ); |
|
for (nCont = 0; nCont < dsArray->nTamanho; nCont++) jdeFree (dsArray->lpArray[nCont]); |
|
jdeFree( dsArray->lpArray ); |
|
jdeFree( dsArray ); |
|
jdeRemoveDataPtr( hUser, lpDS->idArray ); |
|
|
|
/************************************************************************ |
|
* Function Clean Up |
|
************************************************************************/ |
|
JDB_FreeBhvr( hUser ); |
|
return (ER_SUCCESS); |
|
} |
|
|
|
|
|
/************************************************************************** |
|
* Business Function: InsereBuscaSetaVetor |
|
* |
|
* Description: Inserte Busca Seta Vetor |
|
* |
|
* Parameters: |
|
* LPBHVRCOM lpBhvrCom Business Function Communications |
|
* LPVOID lpVoid Void Parameter - DO NOT USE! |
|
* LPDSD57AR lpDS Parameter Data Structure Pointer |
|
* |
|
*************************************************************************/ |
|
|
|
JDEBFRTN (ID) JDEBFWINAPI InsereBuscaSetaVetor (LPBHVRCOM lpBhvrCom, LPVOID lpVoid, LPDSD57ARRAYC lpDS) |
|
|
|
{ |
|
/************************************************************************ |
|
* Variable declarations |
|
************************************************************************/ |
|
ID idJDEDBReturn = ER_SUCCESS; |
|
HUSER hUser = (HUSER)NULL; |
|
Vector *dsArray = NULL; |
|
DSDDINFO *lpItemDados = (DSDDINFO *)NULL; |
|
MATH_NUMERIC mnZero = {'0'}; |
|
int nCont = 0; |
|
|
|
/************************************************************************ |
|
* Check for NULL pointers |
|
************************************************************************/ |
|
if ((lpBhvrCom == (LPBHVRCOM) NULL) || |
|
(lpVoid == (LPVOID) NULL) || |
|
(lpDS == (LPDSD57ARRAYC) NULL)) |
|
{ |
|
jdeErrorSet (lpBhvrCom, lpVoid, (ID) 0, _J("4363"), (LPVOID) NULL); |
|
lpDS->cCodigoErro = _J('S'); |
|
return ER_ERROR; |
|
} |
|
|
|
idJDEDBReturn = JDB_InitBhvr(lpBhvrCom, &hUser, (JCHAR *) NULL, JDEDB_COMMIT_AUTO); |
|
|
|
if (idJDEDBReturn == JDEDB_FAILED) |
|
{ |
|
jdeSetGBRError ( lpBhvrCom, lpVoid, (ID)0, _J("3143")); |
|
lpDS->cCodigoErro = _J('S'); |
|
return ER_ERROR; |
|
} |
|
|
|
/************************************************************************ |
|
* Main Processing |
|
************************************************************************/ |
|
lpDS->cCodigoErro = _J(' '); |
|
IntToMathNumeric(0, &mnZero); |
|
dsArray = (Vector*)jdeRetrieveDataPtr( hUser, lpDS->idArray ); |
|
|
|
lpItemDados = jdeDDCreate(NULL, dsArray->szDataItem, 0, NULL); |
|
|
|
if (lpItemDados->wStatus == 0) { |
|
|
|
switch( lpDS->cTipoOperacao ) { |
|
|
|
case _J('S'): //Seta |
|
|
|
switch(lpItemDados->lpGlobalCol->idEverestType) { |
|
case EVDT_CHAR : dsArray->lpArray[lpDS->nIndice] = &lpDS->cChar; break;// Char |
|
case EVDT_STRING : jdeStrncpyTerminate((JCHAR *)dsArray->lpArray[lpDS->nIndice], lpDS->szString, DIM(lpDS->szString)); break;// String |
|
case EVDT_MATH_NUMERIC : MathCopy(dsArray->lpArray[lpDS->nIndice], &lpDS->mnMathNumeric); break;// Math Numeric |
|
case EVDT_INT : dsArray->lpArray[lpDS->nIndice] = &lpDS->nInteger; break;// Integer |
|
case EVDT_JDEDATE : memcpy(dsArray->lpArray[lpDS->nIndice], &lpDS->jdData, sizeof(JDEDATE)); break;// Date |
|
} |
|
|
|
break; |
|
|
|
case _J('A'): //Acumula |
|
|
|
switch(lpItemDados->lpGlobalCol->idEverestType) { |
|
case EVDT_CHAR : dsArray->lpArray[lpDS->nIndice] = &lpDS->cChar; break;// Char |
|
//case EVDT_STRING : jdeStrcat();jdeStrncpyTerminate((JCHAR *)dsArray->lpArray[lpDS->nIndice], lpDS->szString, DIM(lpDS->szString)); break;// String |
|
case EVDT_MATH_NUMERIC : MathAdd((MATH_NUMERIC*)dsArray->lpArray[lpDS->nIndice], (MATH_NUMERIC*)dsArray->lpArray[lpDS->nIndice], &lpDS->mnMathNumeric); break;// Math Numeric |
|
case EVDT_INT : dsArray->lpArray[lpDS->nIndice] = (int*)(*(int*)dsArray->lpArray[lpDS->nIndice] + lpDS->nInteger); break;// Integer |
|
case EVDT_JDEDATE : memcpy(dsArray->lpArray[lpDS->nIndice], &lpDS->jdData, sizeof(JDEDATE)); break;// Date |
|
} |
|
|
|
break; |
|
|
|
case _J('P'): //Pega |
|
|
|
switch(lpItemDados->lpGlobalCol->idEverestType) { |
|
case EVDT_CHAR : lpDS->cChar = *(JCHAR*)dsArray->lpArray[lpDS->nIndice]; break;// Char |
|
case EVDT_STRING : jdeStrncpyTerminate(lpDS->szString, (JCHAR *)dsArray->lpArray[lpDS->nIndice], DIM(lpDS->szString)); break;// String |
|
case EVDT_MATH_NUMERIC : MathCopy(&lpDS->mnMathNumeric, dsArray->lpArray[lpDS->nIndice]); break;// Math Numeric |
|
case EVDT_INT : lpDS->nInteger = *(int*)dsArray->lpArray[lpDS->nIndice]; break;// integer |
|
case EVDT_JDEDATE : memcpy (&lpDS->jdData, dsArray->lpArray[lpDS->nIndice], sizeof(JDEDATE)); break;// Date*/ |
|
} |
|
|
|
break; |
|
|
|
case _J('Z'): //Zera |
|
|
|
switch(lpItemDados->lpGlobalCol->idEverestType) { |
|
case EVDT_CHAR : for (nCont = 0; nCont < dsArray->nTamanho; nCont++) dsArray->lpArray[nCont] = (JCHAR*)' '; |
|
case EVDT_MATH_NUMERIC : for (nCont = 0; nCont < dsArray->nTamanho; nCont++) MathCopy(dsArray->lpArray[nCont], &mnZero); break;// Math Numeric |
|
case EVDT_INT : for (nCont = 0; nCont < dsArray->nTamanho; nCont++) dsArray->lpArray[nCont] = 0; break;// Integer |
|
} |
|
|
|
break; |
|
|
|
case _J('B'): //Busca o indice |
|
|
|
switch(lpItemDados->lpGlobalCol->idEverestType) { |
|
|
|
case EVDT_CHAR : |
|
for (nCont = 0; nCont < dsArray->nTamanho; nCont++) { |
|
if (*(JCHAR*)dsArray->lpArray[nCont] == lpDS->cChar) { |
|
lpDS->nIndice = nCont; |
|
nCont = dsArray->nTamanho+1; |
|
}; |
|
} |
|
|
|
break; |
|
|
|
case EVDT_INT : |
|
for (nCont = 0; nCont < dsArray->nTamanho; nCont++) { |
|
if (*(int*)dsArray->lpArray[nCont] == lpDS->nInteger) { |
|
lpDS->nIndice = nCont; |
|
nCont = dsArray->nTamanho+1; |
|
}; |
|
} |
|
|
|
break; |
|
|
|
case EVDT_MATH_NUMERIC : |
|
for (nCont = 0; nCont < dsArray->nTamanho; nCont++) { |
|
if ( MathCompare(dsArray->lpArray[nCont], &lpDS->mnMathNumeric) == 0 ) { |
|
lpDS->nIndice = nCont; |
|
nCont = dsArray->nTamanho+1; |
|
}; |
|
} |
|
|
|
break; |
|
|
|
case EVDT_STRING : |
|
for (nCont = 0; nCont < dsArray->nTamanho; nCont++) { |
|
if ( jdeStrcmp((JCHAR*)dsArray->lpArray[nCont], (JCHAR*)lpDS->szString) == 0 ) { |
|
lpDS->nIndice = nCont; |
|
nCont = dsArray->nTamanho+1; |
|
}; |
|
} |
|
|
|
break; |
|
|
|
} |
|
|
|
if (nCont == dsArray->nTamanho){ |
|
|
|
lpDS->cCodigoErro = _J('S'); |
|
jdeStrcpyAndTerminate(lpDS->szMensgemErro, _J("Não localizou o elemento !!!"), DIM(lpDS->szMensgemErro)); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
jdeDDDestroy(lpItemDados); |
|
/************************************************************************ |
|
* Function Clean Up |
|
************************************************************************/ |
|
JDB_FreeBhvr( hUser ); |
|
return (ER_SUCCESS); |
|
|
|
} |
|
|
|
|
|
EVENTS |
|
C Function: Função para trabalhar com arrays |
|
Data Structure: D57ARRAYA - Inicializa o Array |
|
BF idArray [GENLNG] |
|
BF cCodigoErro [EV01] |
|
BF nTamanhoInicial [CIP] |
|
BF szMensgemErro [STR350] |
|
BF szDataItem [DTAI] |
|
EVENTS |
|
C Function: Função para trabalhar com arrays |
|
Data Structure: D57ARRAYC - Insere Novo Elemento no Array |
|
BF idArray [GENLNG] |
|
BF cCodigoErro [EV01] |
|
BF cTipoOperacao [EV01] |
|
BF nInteger [CIP] |
|
BF cChar [EV01] |
|
BF jdData [UPMJ] |
|
BF szMensgemErro [STR350] |
|
BF nIndice [CIP] |
|
BF mnMathNumeric [MN29D9] |
|
BF szString [D240] |