Observaciones | DLGTOEXCEL()
Realiza la exportación de las informaciones del entorno Protheus en formato de arrays a una planilla del Microsoft Excel.
Sintaxis: DlgToExcel(cOrigem, cTitulo, aDadosCab, aDadosItens)
Parámetros:
cOrigem: Contenido fijo definido como: “GETDADOS”
cTitulo: Nombre para mostrar la planilla
aDadosCab: Array que contiene los nombres de los campos que se mostrarán en la planilla.
aDadosItens: Array que contiene las informaciones de los campos, de acuerdo con la orden del array del encabezado.
No genera devolución.
OBS: En la exportación de informaciones al Microsoft Excel se debe prestar atención a las
columnas que contengan informaciones alfanuméricas pero que contienen solamente
números.
Para que estas columnas se presenten correctamente se debe
agregar un carácter especial al inicio de la string de tal manera que el Microsoft
Excel las reconozca como texto y no como numéricas. |
Ejemplos | #include "protheus.ch"
User Function GExpExcel()
Local aCabExcel :={}
Local aItensExcel :={}
// AADD(aCabExcel, {"TITULO DO CAMPO", "TIPO", NTAMANHO, NDECIMAIS})
AADD(aCabExcel, {"A1_FILIAL" ,"C", 02, 0})
AADD(aCabExcel, {"A1_COD" ,"C", 06, 0})
AADD(aCabExcel, {"A1_LOJA" ,"C", 02, 0})
AADD(aCabExcel, {"A1_NOME" ,"C", 40, 0})
AADD(aCabExcel, {"A1_MCOMPRA" ,"N", 18, 2})
MsgRun("Por favor, espere.....", "Seleccionando los Registros",;
{|| GProcItens(aCabExcel, @aItensExcel)})
MsgRun("Por favor, espere.....", "Exportando los Registros al Excel",;
{||DlgToExcel({{"GETDADOS",;
"POSICIÓN DE TÍTULOS DE VENDOR EN EL PERÍODO",;
aCabExcel,aItensExcel}})})
Return |