[DW-8]No me funciona la funcion captcha
Hola, estoy probando poniendo captcha en mi web, pero estoy
haciendo pruebas
y no me funciona, lo que hago es el en form, es llamar a una
funcion
Comprobar que tiene en esa misma pagina, pero no me funciona,
os pongo el
codigo asi se ve mejor
<body>
<?php
function Comprobar(){
if ($_SESSION['captcha_code']==$_REQUEST['codigo'])
echo "alert('SI')";
else
echo "alert('NO')";
?>
<form id="form1" name="form1" method="post"
action="<?php Comprobar(); ?>">
<p>CODIGO:
<?php $captcha = new
CaptchaImage(110,30,5,'FFFFFF','000000','FFFFFF');
?></p>
<p>REPETIR:
<label>
<input name="codigo" type="text" id="codigo" />
</label>
</p>
<p>
<label>
<input type="submit" name="Submit" value="Enviar" />
</label>
</p>
</form>
Preferiria que para validar sea en la misma pagina, ya que
tengo unos
cuantos formularios distintos para vlidar
This is a multi-part message in MIME format.
------=_NextPart_000_004F_01C8CA20.5E9CAEB0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Te recomiendo este script..
http://www.archreality.com/jcap/
Saludos
Daniel Naranjo
Lo Ultimo Group, C.A.=20
(+58) 414 7962406 / 416 2917532 / 295 6117632=20
www.loultimoenlaWEB.com
www.loultimoenHosting.com
www.loultimoenViajes.com
"Sergio" <[email protected]> escribi=F3 en el mensaje
=
news:[email protected]...
Hola, estoy probando poniendo captcha en mi web, pero estoy
haciendo =
pruebas=20
y no me funciona, lo que hago es el en form, es llamar a una
funcion=20
Comprobar que tiene en esa misma pagina, pero no me
funciona, os pongo =
el=20
codigo asi se ve mejor
<body>
<?php
function Comprobar(){
if ($_SESSION['captcha_code']=3D=3D$_REQUEST['codigo'])
echo "alert('SI')";
else
echo "alert('NO')";
?>
<form id=3D"form1" name=3D"form1" method=3D"post"
action=3D"<?php =
Comprobar(); ?>">
<p>CODIGO:
<?php $captcha =3D new =
CaptchaImage(110,30,5,'FFFFFF','000000','FFFFFF');=20
?></p>
<p>REPETIR:
<label>
<input name=3D"codigo" type=3D"text" id=3D"codigo" />
</label>
</p>
<p>
<label>
<input type=3D"submit" name=3D"Submit" value=3D"Enviar"
/>
</label>
</p>
</form>
Preferiria que para validar sea en la misma pagina, ya que
tengo unos=20
cuantos formularios distintos para vlidar=20
------=_NextPart_000_004F_01C8CA20.5E9CAEB0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.6000.16640"
name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DVerdana size=3D2>Te recomiendo
este =
script..</FONT></DIV>
<DIV><FONT face=3DVerdana
size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2><A=20
href=3D"
/</A></FONT></DIV>
<DIV><FONT face=3DVerdana
size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana
size=3D2>Saludos</FONT></DIV>
<DIV>
<P></P>
<P><FONT face=3D"Arial, Helvetica, sans-serif"
size=3D2><STRONG>Daniel=20
Naranjo</STRONG><BR>Lo Ultimo Group, C.A.
</FONT><BR><FONT=20
face=3D"Arial, Helvetica, sans-serif" size=3D1>(+58) 414
7962406 / 416 =
2917532 / 295=20
6117632 <BR><U><A=20
href=3D"
R><U><A=20
href=3D"
U><BR><U><A=20
href=3D"
<BR></FONT></P></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT:
5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Sergio" <<A =
href=3D"mailto:[email protected]">[email protected]</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:[email protected]">news:g2gush$e5q$1@forums=
.macromedia.com</A>...</DIV>Hola,=20
estoy probando poniendo captcha en mi web, pero estoy
haciendo pruebas =
<BR>y=20
no me funciona, lo que hago es el en form, es llamar a una
funcion=20
<BR>Comprobar que tiene en esa misma pagina, pero no
me funciona, os =
pongo el=20
<BR>codigo asi se ve=20
mejor<BR><BR>.....<BR><body><BR><?php<BR>function
=
Comprobar(){<BR>if=20
($_SESSION['captcha_code']=3D=3D$_REQUEST['codigo'])<BR>echo=20
"alert('SI')";<BR>else<BR>echo =
"alert('NO')";<BR>}<BR>?><BR><form=20
id=3D"form1" name=3D"form1" method=3D"post"
action=3D"<?php =
Comprobar();=20
?>"><BR><p>CODIGO:<BR><?php
$captcha =3D new=20
CaptchaImage(110,30,5,'FFFFFF','000000','FFFFFF');=20
<BR>?></p><BR><p>REPETIR:<BR><label><BR><input
=
name=3D"codigo" type=3D"text" id=3D"codigo"=20
=
/><BR></label><BR></p><BR><p><BR><label><BR>&l=
t;input=20
type=3D"submit" name=3D"Submit" value=3D"Enviar"=20
=
/><BR></label><BR></p><BR></form><BR>....<BR><BR>Pre=
feriria=20
que para validar sea en la misma pagina, ya que tengo unos
<BR>cuantos =
formularios distintos para vlidar
<BR></BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_004F_01C8CA20.5E9CAEB0--
Similar Messages
-
I am reading XML tags from the Spool and converting that into a XML file and displaying in the screen. But it is not displaying
I am using the following code for that.,
p_regex = '.[^.]+$'.
condense p_regex.
create object regex
exporting
pattern = p_regex
ignore_case = ''.
* For REGEX match
matcher = cl_abap_matcher=>create(
pattern = p_regex
ignore_case = ' '
table = i_files ).
lt_result = matcher->find_all( ).
find first occurrence of regex '.[^.]+$' in lt_result match offset v_offset.
add 1 to v_offset.
v_extension = v_filename+v_offset.
call function 'SDOK_MIMETYPE_GET'
exporting
extension = v_extension
importing
mimetype = v_mimetype.
v_mime_string = v_mimetype.
call method cl_wd_runtime_services=>attach_file_to_response
exporting
i_filename = v_filename
i_content = v_xstring
i_mime_type = v_mime_string
i_in_new_window = abap_true
i_inplace = abap_true.
a®hi check this example .......
Moises Moreno
PROGRAMA : ZHR02597 Batch Input Datos Reloj Checador *
leyendo un archivo XML *
AUTOR : Moises Moreno De Leon (GALVAK) *
FECHA : Junio 23, 2004 *
REPORT ZHR02597 MESSAGE-ID ZG LINE-SIZE 80 LINE-COUNT 65
NO STANDARD PAGE HEADING.
Tablas *
TABLES:
PA0000, "HR Master Record: Infotype 0000 (Events)
PA0001, "HR Master Record: Infotype 0001 (Org. Assignment
PA0007, "HR Master Record: Infotype 0007 (Work Schedule)
PA0008, "HR Master Record: Infotype 0008 (Basic Pay)
PA2003, "HR Time Record: Infotype 2003 (Substitutions)
T508A, "Work Schedule Rules
T552A, "Monthly Work Schedules
T550A, "Daily Work Schedules
ZCATEGORIA. "Pay Scale Groups - Categorias
Fin de Tablas *
Estructura *
DATA: BEGIN OF BDC_TABLE OCCURS 100. "Tabla para BIS
INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDC_TABLE.
DATA BEGIN OF TH_MESSTAB OCCURS 10.
INCLUDE STRUCTURE BDCMSGCOLL.
DATA END OF TH_MESSTAB.
DATA: BEGIN OF TH_ARCHIVO OCCURS 100,
NUMERO(8), "P2011-PERNR Numero del empleado
FECHA LIKE SY-DATUM, "P2011-LDATE Logical date
AUSENTISMO(4), "
HORA(4), "P2011-LTIME Logical time
TERMINAL(3), "P2011-TERID Terminal ID
RAZON(4), "P2011-ABWGR Att/absence reason
TURNO(2), "PA2003-TPROG Daily work schedule
DEPARTAMENTO(4), "KOSTL Cost center
EMPLEADO2(8), "PA2003-VPERN Personnel no.to be
COORDINADOR_AUTORIZA(8),
IN_OUT(2) TYPE N,
END OF TH_ARCHIVO.
DATA: BEGIN OF TH_ERROR OCCURS 100,
NUMERO(5), "P2011-PERNR Numero del empleado
FECHA LIKE SY-DATUM, "P2011-LDATE Logical date
AUSENTISMO(4),
HORA(4), "P2011-LTIME Logical time
TERMINAL(3), "P2011-TERID Terminal ID
RAZON(4), "P2011-ABWGR Att/absence reason
TURNO(2), "PA2003-TPROG Daily work schedule
DEPARTAMENTO(4), "KOSTL Cost center
EMPLEADO2(5), "PA2003-VPERN Personnel no.to be
END OF TH_ERROR.
TYPES: BEGIN OF REG,
CAMBIO_TURNO,
DIA(10),
AUSENTISMO(4),
TURNO(2),
HORA(5),
TIPO,
INCIDENCIA(3),
CCOSTOS(4),
SOCIO_REEMPLAZA(8),
END OF REG.
DATA: REGISTRO TYPE REG OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF EMPLEADO,
NUMERO(8),
REGISTRO LIKE REGISTRO OCCURS 0,
END OF EMPLEADO.
DATA: BEGIN OF CIERRE OCCURS 0,
EMPLEADO TYPE EMPLEADO,
END OF CIERRE.
DATA: CHECADAS TYPE REG OCCURS 0 WITH HEADER LINE.
Fin de estrucutras *
Variables *
DATA: SW_ERROR, "Swich existencia de empleado
SW_I2002(1) TYPE C VALUE 'F',
WC_FECHA(10), "Fecha con formato dd.mm.aaaa
WC_DIA(2), "Filtra el día de la fecha
WC_MES(2), "Filtra el mes de la fecha
WC_YEAR(4), "Filtra el año de la fecha
WC_TIPO(2), "Tipo de Substitución
WC_TPR00(4), "Turno del empleado
WC_TURNO(4), "Turno del empleado GK(Turno)
WC_TURNO_SUST(4), "Turno Sustitucion
WC_TURNO_R(4), "Turno del RELOJ GK(Turno)
WC_TURNO_S(4), "Turno del SAP GK(Turno)
WC_CATEGORIA(8), "Categoria del empleado
WN_IN_OUT(2) TYPE N, "Tipo de evento IN/OUT
WN_PERNR LIKE PA2003-PERNR,
WI_BETRG1 LIKE ZCATEGORIA-BETRG, "Cantidad por turno Emple. 1
WI_BETRG2 LIKE ZCATEGORIA-BETRG, "Cantidad por turno Emple. 2
WT_TIEMPO LIKE P2011-LTIME, "Hora de chacada
WT_INICIO(4) TYPE N, "Hora de chacada I2002
WT_FINAL(4) TYPE N, "Hora de chacada I2002
WT_HORA LIKE P2011-LTIME VALUE '120000', "Sumar Doce horas
ARCH1(40) TYPE C VALUE '/users/interf/datos/hr/errores.txt',
WC_ARCHIVO(40) TYPE C, "Nombre del archivo
WI_LC TYPE I VALUE 0, "Contador lineas
WD_FECHA_DESC LIKE SY-DATUM, "Fecha de Descanso
WD_FECHA LIKE SY-DATUM,
WI_INDICE LIKE SY-TABIX, "Indice de la tabla interna
SW_DELETE(1) TYPE C VALUE 'F',
WC_REGISTRO1(35) TYPE C, "Registro de la tabla interna
WC_REGISTRO2(35) TYPE C. "Registro de la tabla interna
DATA: QID LIKE APQI-QID,
B-NAME LIKE RFPDO-ALLGBINA,
EXCEPT TYPE I.
DATA: ME TYPE REF TO CL_XML_DOCUMENT.
DATA: SUBRC LIKE SY-SUBRC.
DATA: GVK_MODE.
Fin de variables *
Parámetros de Selección *
SELECTION-SCREEN BEGIN OF BLOCK BL_01 WITH FRAME TITLE TEXT-001.
PARAMETERS: ARCHIVO TYPE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK BL_01.
Fin de parametros de sleccion *
AT SELECTION SCREEN *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ARCHIVO.
PERFORM ESPECIFICA_RUTA USING '0'.
AT SELECTION SCREEN *
Start of selection *
START-OF-SELECTION.
CLEAR GVK_MODE.
GVK_MODE = 'N'.
IF SY-UNAME0(6) NE 'GKRHUM' AND SY-UNAME0(6) NE 'GK_961' AND
SY-UNAME+0(6) NE 'GKSIST' AND SY-UNAME NE 'EXUANL_MML'.
WRITE:/ 'Usuario no pertenece a GALVAK, S.A. de C.V.'.
LEAVE PROGRAM.
ENDIF.
PERFORM LEE_ARCHIVO_XML.
PERFORM LLENA_TH_ARCHIVO.
SORT TH_ARCHIVO BY NUMERO FECHA HORA.
PERFORM ELIMINA_DUPLICADOS.
LOOP AT TH_ARCHIVO.
PERFORM VALIDA_INFO.
MOVE ' ' TO : WC_DIA, WC_MES, WC_YEAR, WC_FECHA,
WC_TIPO, WC_TPR00, WC_TURNO, WC_CATEGORIA,
WT_TIEMPO, WN_PERNR, WN_IN_OUT, WT_INICIO,
WT_FINAL.
MOVE 0 TO: WI_LC.
IF SW_ERROR EQ '0'.
SELECT *
FROM PA0001
WHERE PERNR = TH_ARCHIVO-NUMERO.
ENDSELECT.
IF SY-SUBRC EQ 0.
IF TH_ARCHIVO-DEPARTAMENTO = PA0001-KOSTL+6(4).
TH_ARCHIVO-DEPARTAMENTO = ' '.
ENDIF.
ENDIF.
PERFORM FORMATO_FECHA.
MOVE TH_ARCHIVO-HORA TO WT_TIEMPO.
IF TH_ARCHIVO-EMPLEADO2 NE ' '.
WN_PERNR = TH_ARCHIVO-EMPLEADO2.
ELSE.
WN_PERNR = TH_ARCHIVO-NUMERO.
ENDIF.
IF TH_ARCHIVO-AUSENTISMO = 'DESC'.
CONCATENATE WD_FECHA6(2) '.' WD_FECHA4(2) '.' WD_FECHA(4)
INTO WC_FECHA.
PERFORM DATOS_DESC. "Actualiza 2003
ELSE.
PERFORM EVENTO_IN_OUT.
CONCATENATE WD_FECHA6(2) '.' WD_FECHA4(2) '.' WD_FECHA(4)
INTO WC_FECHA.
PERFORM TRANS_PA61.
CALL TRANSACTION 'PA61' USING BDC_TABLE MODE GVK_MODE
UPDATE 'S' MESSAGES INTO TH_MESSTAB.
IF SY-SUBRC EQ 0.
IF WC_TURNO <> WC_TPR00 OR
WC_TURNO <> WC_TURNO_SUST OR
WC_TURNO = 'DESC' OR
WC_TURNO = 'FREE'.
IF TH_ARCHIVO-IN_OUT = '01'.
PERFORM OTROS_DATOS. "Actualiza 2003
ENDIF.
ELSE.
ENDIF.
ELSE.
MOVE-CORRESPONDING TH_ARCHIVO TO TH_ERROR.
APPEND TH_ERROR.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
DESCRIBE TABLE TH_ERROR LINES WI_LC.
Fin de start of selection *
End of selection *
END-OF-SELECTION.
IF WI_LC NE 0.
PERFORM ARCHIVO_ERROR.
ENDIF.
PERFORM BDC_CLOSE USING EXCEPT.
MESSAGE I100.
DELETE DATASET ARCHIVO. "moises 02.06.1999
Fin de end of slection *
Funcion valida_info *
FORM VALIDA_INFO.
MOVE '0' TO SW_ERROR.
SELECT DISTINCT *
FROM PA0000
WHERE PERNR EQ TH_ARCHIVO-NUMERO.
EXIT.
ENDSELECT.
IF SY-SUBRC NE 0.
FORMAT INTENSIFIED OFF.
WRITE:/ 'El empleado ', TH_ARCHIVO-NUMERO,
' no esta dado de alta'.
FORMAT INTENSIFIED ON.
MOVE '1' TO SW_ERROR.
ENDIF.
ENDFORM.
Fin de funcion valida_info *
Funcion formato_fecha *
FORM FORMATO_FECHA.
WC_DIA = TH_ARCHIVO-FECHA(2).
WC_MES = TH_ARCHIVO-FECHA+2(2).
WC_YEAR = TH_ARCHIVO-FECHA+4(4).
CONCATENATE WC_YEAR WC_MES WC_DIA INTO WD_FECHA.
ENDFORM.
Fin de funicon formato_fecha *
Funcion evento_in_out *
FORM EVENTO_IN_OUT.
SELECT *
FROM PA0007
WHERE PERNR EQ WN_PERNR
AND BEGDA <= WD_FECHA
AND ENDDA >= WD_FECHA.
ENDSELECT.
IF SY-SUBRC EQ 0 AND PA0007-SCHKZ NE ' '.
SELECT *
FROM T508A
WHERE MOFID EQ 'GK'
AND SCHKZ = PA0007-SCHKZ.
ENDSELECT.
SELECT *
FROM T552A
WHERE SCHKZ EQ PA0007-SCHKZ
AND KJAHR EQ WC_YEAR
AND MONAT EQ WC_MES.
ENDSELECT.
IF SY-SUBRC EQ 0.
PERFORM BUSCA_DIA.
WC_TURNO = WC_TPR00.
PERFORM VERIFICA_P2003.
IF WC_TURNO_SUST IS INITIAL.
WC_TURNO_SUST = WC_TURNO.
ENDIF.
IF WC_TURNO EQ 'FREE' OR WC_TURNO EQ 'DESC'.
WC_TIPO = '02'.
IF TH_ARCHIVO-RAZON NE 'ETI ' AND
TH_ARCHIVO-RAZON NE 'EPM ' AND
TH_ARCHIVO-RAZON NE 'ERP ' AND
TH_ARCHIVO-RAZON NE 'STI ' AND
TH_ARCHIVO-RAZON NE 'SPM ' AND
TH_ARCHIVO-RAZON NE 'SRP '.
PERFORM VALIDA_SIGUIENTE_DIA.
IF WC_TPR00 = 'GM11' OR WC_TPR00 = 'GK01'.
WC_TURNO = WC_TPR00.
ENDIF.
ENDIF.
ELSEIF WC_TPR00 = 'DESC' OR WC_TPR00 = 'FREE'.
WC_TIPO = '02'.
ELSE.
WC_TIPO = '01'.
ENDIF.
ENDIF.
PERFORM TIEMPOS_EXTRA.
WC_TURNO_S = WC_TURNO.
IF TH_ARCHIVO-TURNO NE ' '.
IF TH_ARCHIVO-TURNO = 'S1' OR TH_ARCHIVO-TURNO = 'S2' OR
TH_ARCHIVO-TURNO = 'S3'.
CONCATENATE 'DE' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
WC_TURNO = WC_TURNO_R.
ELSEIF TH_ARCHIVO-TURNO = 'T1' OR TH_ARCHIVO-TURNO = 'T2'.
CONCATENATE 'GK' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
WC_TURNO = WC_TURNO_R.
ELSE.
IF TH_ARCHIVO-TURNO < 10.
CONCATENATE 'GK' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
ELSEIF TH_ARCHIVO-TURNO > 10.
CONCATENATE 'GM' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
ENDIF.
IF WC_TURNO NE WC_TURNO_R. " and th_archivo-razon = ' '. moises
WC_TURNO = WC_TURNO_R.
ENDIF.
ENDIF.
ENDIF.
IF WC_TURNO EQ 'GM11' OR WC_TURNO = 'GK01'.
WT_TIEMPO = WT_TIEMPO + WT_HORA.
ENDIF.
SELECT *
FROM T550A
WHERE MOTPR EQ T508A-MOTPR
AND TPROG EQ WC_TURNO.
IF ( T550A-BTBEG <= WT_TIEMPO AND T550A-BTEND >= WT_TIEMPO ) OR
( TH_ARCHIVO-RAZON = 'IJ ' OR TH_ARCHIVO-RAZON = 'II ' OR
TH_ARCHIVO-RAZON = 'ESU ' OR TH_ARCHIVO-RAZON = 'EPM ' OR
TH_ARCHIVO-RAZON = 'ERP ' OR TH_ARCHIVO-RAZON = 'ETI ' ).
WN_IN_OUT = '01'.
IF WC_TURNO EQ 'GM11' OR WC_TURNO = 'GK01'.
WD_FECHA = WD_FECHA + 1.
ENDIF.
ELSEIF ( T550A-ETBEG <= WT_TIEMPO AND
T550A-ETEND >= WT_TIEMPO ) OR
( TH_ARCHIVO-RAZON = 'FJ ' OR
TH_ARCHIVO-RAZON = 'FI ' OR
TH_ARCHIVO-RAZON = 'SSU ' OR
TH_ARCHIVO-RAZON = 'SPM ' OR
TH_ARCHIVO-RAZON = 'SRP ' OR
TH_ARCHIVO-RAZON = 'STI ' ).
WN_IN_OUT = '02'.
ELSE.
WN_IN_OUT = '02'.
ENDIF.
IF TH_ARCHIVO-RAZON = 'ETI ' AND
( T550A-BTBEG <= WT_TIEMPO AND T550A-BTEND >= WT_TIEMPO ).
WT_INICIO = WT_TIEMPO(4).
WT_FINAL = T550A-SOBEG(4).
SW_I2002 = 'T'.
ELSEIF TH_ARCHIVO-RAZON = 'STI ' AND
( T550A-ETBEG <= WT_TIEMPO AND T550A-ETEND >= WT_TIEMPO ).
WT_INICIO = T550A-SOEND(4).
WT_FINAL = WT_TIEMPO(4).
SW_I2002 = 'T'.
ENDIF.
ENDSELECT.
IF SW_I2002 = 'T'.
SW_I2002 = 'F'.
CONCATENATE WD_FECHA6(2) '.' WD_FECHA4(2) '.' WD_FECHA(4)
INTO WC_FECHA.
PERFORM ALTA_I2002.
ENDIF.
ENDIF.
ENDFORM.
Fin de funcion evento_in_out *
Funcion busca_dia *
FORM BUSCA_DIA.
CASE WC_DIA.
WHEN 01.
MOVE T552A-TPR01 TO WC_TPR00.
WHEN 02.
MOVE T552A-TPR02 TO WC_TPR00.
WHEN 03.
MOVE T552A-TPR03 TO WC_TPR00.
WHEN 04.
MOVE T552A-TPR04 TO WC_TPR00.
WHEN 05.
MOVE T552A-TPR05 TO WC_TPR00.
WHEN 06.
MOVE T552A-TPR06 TO WC_TPR00.
WHEN 07.
MOVE T552A-TPR07 TO WC_TPR00.
WHEN 08.
MOVE T552A-TPR08 TO WC_TPR00.
WHEN 09.
MOVE T552A-TPR09 TO WC_TPR00.
WHEN 10.
MOVE T552A-TPR10 TO WC_TPR00.
WHEN 11.
MOVE T552A-TPR11 TO WC_TPR00.
WHEN 12.
MOVE T552A-TPR12 TO WC_TPR00.
WHEN 13.
MOVE T552A-TPR13 TO WC_TPR00.
WHEN 14.
MOVE T552A-TPR14 TO WC_TPR00.
WHEN 15.
MOVE T552A-TPR15 TO WC_TPR00.
WHEN 16.
MOVE T552A-TPR16 TO WC_TPR00.
WHEN 17.
MOVE T552A-TPR17 TO WC_TPR00.
WHEN 18.
MOVE T552A-TPR18 TO WC_TPR00.
WHEN 19.
MOVE T552A-TPR19 TO WC_TPR00.
WHEN 20.
MOVE T552A-TPR20 TO WC_TPR00.
WHEN 21.
MOVE T552A-TPR21 TO WC_TPR00.
WHEN 22.
MOVE T552A-TPR22 TO WC_TPR00.
WHEN 23.
MOVE T552A-TPR23 TO WC_TPR00.
WHEN 24.
MOVE T552A-TPR24 TO WC_TPR00.
WHEN 25.
MOVE T552A-TPR25 TO WC_TPR00.
WHEN 26.
MOVE T552A-TPR26 TO WC_TPR00.
WHEN 27.
MOVE T552A-TPR27 TO WC_TPR00.
WHEN 28.
MOVE T552A-TPR28 TO WC_TPR00.
WHEN 29.
MOVE T552A-TPR29 TO WC_TPR00.
WHEN 30.
MOVE T552A-TPR30 TO WC_TPR00.
WHEN 31.
MOVE T552A-TPR31 TO WC_TPR00.
ENDCASE.
ENDFORM.
Fin de funcion busca_dia *
Funcion verifica_p2003 *
FORM VERIFICA_P2003.
DATA: WFECHA LIKE SY-DATUM.
CONCATENATE TH_ARCHIVO-FECHA4(4) TH_ARCHIVO-FECHA2(2)
TH_ARCHIVO-FECHA(2) INTO WFECHA.
CLEAR WC_TURNO_SUST.
SELECT SINGLE *
FROM PA2003
WHERE PERNR = WN_PERNR
AND BEGDA <= WFECHA
AND ENDDA >= WFECHA.
CHECK SY-SUBRC EQ 0.
IF PA2003-TPROG NE ' ' AND PA2003-TPROG NE WC_TURNO.
MOVE PA2003-TPROG TO: WC_TURNO, WC_TURNO_SUST.
ELSEIF PA2003-SCHKZ NE ' '.
SELECT *
FROM T552A
WHERE SCHKZ EQ PA2003-SCHKZ
AND KJAHR EQ WC_YEAR
AND MONAT EQ WC_MES.
ENDSELECT.
IF SY-SUBRC EQ 0.
PERFORM BUSCA_DIA.
IF WC_TPR00 NE WC_TURNO.
WC_TURNO = WC_TPR00.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " VERIFICA_P2003
Fin de funcion verifica_p2003 *
Funion valida_siguiente_dia *
FORM VALIDA_SIGUIENTE_DIA.
WD_FECHA_DESC = WD_FECHA + 1.
WC_DIA = WD_FECHA_DESC+6(2).
SELECT *
FROM T552A
WHERE SCHKZ EQ PA0007-SCHKZ
AND KJAHR EQ WC_YEAR
AND MONAT EQ WC_MES.
ENDSELECT.
IF SY-SUBRC EQ 0.
PERFORM BUSCA_DIA.
ENDIF.
ENDFORM. " VALIDA_SIGUIENTE_DIA
Fin de funcion valida_siguiente_dia *
Funcion alta_i2002 *
FORM ALTA_I2002.
IF TH_ARCHIVO-TURNO = 'S1' OR TH_ARCHIVO-TURNO = 'S2' OR
TH_ARCHIVO-TURNO = 'S3'.
ELSE.
REFRESH BDC_TABLE.
PERFORM DYNPRO_START USING 'SAPMP50A' '1000'.
PERFORM DYNPRO_FIELD USING 'RP50G-PERNR' TH_ARCHIVO-NUMERO.
PERFORM DYNPRO_FIELD USING 'RP50G-CHOIC' '2002'.
PERFORM DYNPRO_FIELD USING 'RP50G-SUBTY' '0020'.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=INS'. "MML QA&C 08.02.00
PERFORM DYNPRO_START USING 'MP200000' '2050'.
PERFORM DYNPRO_FIELD USING 'P2002-BEGDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'P2002-ENDDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'P2002-BEGUZ' WT_INICIO.
PERFORM DYNPRO_FIELD USING 'P2002-ENDUZ' WT_FINAL.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=UPD'. "MML QA&C 08.02.00
CALL TRANSACTION 'PA61' USING BDC_TABLE MODE GVK_MODE UPDATE 'S'
MESSAGES INTO TH_MESSTAB.
IF SY-SUBRC NE 0.
MOVE-CORRESPONDING TH_ARCHIVO TO TH_ERROR.
APPEND TH_ERROR.
ENDIF.
ENDIF.
ENDFORM. " ALTA_I2002
Fin de funcion alta_i2002 *
Funcion trnas_pa61 *
FORM TRANS_PA61.
REFRESH BDC_TABLE.
IF TH_ARCHIVO-AUSENTISMO IS INITIAL.
PERFORM DYNPRO_START USING 'SAPMP50A' '1000'.
PERFORM DYNPRO_FIELD USING 'RP50G-PERNR' TH_ARCHIVO-NUMERO.
PERFORM DYNPRO_FIELD USING 'RP50G-CHOIC' '2011'.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=INS'. "MML QA&C 20.08.00
PERFORM DYNPRO_START USING 'MP200000' '2500'.
PERFORM DYNPRO_FIELD USING 'P2011-LDATE' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'P2011-LTIME' WT_TIEMPO.
PERFORM DYNPRO_FIELD USING 'P2011-SATZA' WN_IN_OUT.
PERFORM DYNPRO_FIELD USING 'P2011-SATZA' TH_ARCHIVO-IN_OUT.
IF TH_ARCHIVO-RAZON <> 'ARR'.
PERFORM DYNPRO_FIELD USING 'P2011-ABWGR' TH_ARCHIVO-RAZON.
ENDIF.
PERFORM DYNPRO_FIELD USING 'P2011-TERID' TH_ARCHIVO-TERMINAL.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=UPD'. "MML QA&C 08.02.00
ELSE.
PERFORM DYNPRO_START USING 'SAPMP50A' '1000'.
PERFORM DYNPRO_FIELD USING 'RP50G-PERNR' TH_ARCHIVO-NUMERO.
PERFORM DYNPRO_FIELD USING 'RP50G-ENDDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'RP50G-CHOIC' '2001'.
PERFORM DYNPRO_FIELD USING 'RP50G-SUBTY' TH_ARCHIVO-AUSENTISMO..
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=INS'. "MML QA&C 20.08.00
PERFORM DYNPRO_START USING 'MP200000' '2001'.
PERFORM DYNPRO_FIELD USING 'P2001-BEGDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'P2001-ENDDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=UPD'. "MML QA&C 08.02.00
ENDIF.
ENDFORM. " TRANS_PA61
Fin de funcion trans_pa61 *
Funcion otros_datos *
FORM OTROS_DATOS.
IF WC_TURNO_SUST = 'DESC' OR WC_TURNO_SUST = 'FREE'.
PERFORM ELIMINA_SUSTITUCION.
ENDIF.
IF TH_ARCHIVO-TURNO = 'S1' OR TH_ARCHIVO-TURNO = 'S2' OR
TH_ARCHIVO-TURNO = 'S3'.
PERFORM GENERA_SUSTITUCION_S.
CALL TRANSACTION 'PA61' USING BDC_TABLE MODE GVK_MODE
UPDATE 'S' MESSAGES INTO TH_MESSTAB.
IF SY-SUBRC NE 0.
MOVE-CORRESPONDING TH_ARCHIVO TO TH_ERROR.
APPEND TH_ERROR.
ENDIF.
ELSE.
IF WN_IN_OUT = '01'. "or wn_in_out = '02'.
PERFORM GENERATE_BDC_DATA_1. "Actualiza 2003
CALL TRANSACTION 'PA61' USING BDC_TABLE MODE GVK_MODE
UPDATE 'S' MESSAGES INTO TH_MESSTAB.
IF SY-SUBRC NE 0.
MOVE-CORRESPONDING TH_ARCHIVO TO TH_ERROR.
APPEND TH_ERROR.
ENDIF.
ENDIF.
IF WN_IN_OUT = '02'.
IF TH_ARCHIVO-RAZON = 'SSU'.
PERFORM GENERATE_BDC_DATA_1.
CALL TRANSACTION 'PA61' USING BDC_TABLE MODE GVK_MODE
UPDATE 'S' MESSAGES INTO TH_MESSTAB.
IF SY-SUBRC NE 0.
MOVE-CORRESPONDING TH_ARCHIVO TO TH_ERROR.
APPEND TH_ERROR.
ENDIF.
ELSE.
PERFORM GENERATE_BDC_DATA_1.
CALL TRANSACTION 'PA61' USING BDC_TABLE MODE GVK_MODE
UPDATE 'S' MESSAGES INTO TH_MESSTAB.
IF SY-SUBRC NE 0.
MOVE-CORRESPONDING TH_ARCHIVO TO TH_ERROR.
APPEND TH_ERROR.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " OTROS_DATOS
Fin de funicion ortors_datos *
Funcion generate_bdc_data_1 *
FORM GENERATE_BDC_DATA_1.
REFRESH BDC_TABLE.
PERFORM DYNPRO_START USING 'SAPMP50A' '1000'.
PERFORM DYNPRO_FIELD USING 'RP50G-PERNR' TH_ARCHIVO-NUMERO.
PERFORM DYNPRO_FIELD USING 'RP50G-CHOIC' '2003'.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=INS'. "MML QA&C 08.02.00
PERFORM DYNPRO_START USING 'MP200000' '2100'.
PERFORM DYNPRO_FIELD USING 'P2003-BEGDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'P2003-ENDDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'P2003-VTART' WC_TIPO.
IF TH_ARCHIVO-EMPLEADO2 NE ' ' AND
TH_ARCHIVO-EMPLEADO2 NE TH_ARCHIVO-NUMERO.
PERFORM BUSCA_CATEGORIA.
ENDIF.
IF WC_TURNO <> WC_TURNO_SUST.
PERFORM DYNPRO_FIELD USING 'P2003-TPROG' WC_TURNO.
ELSE.
IF TH_ARCHIVO-TURNO NE ' ' AND TH_ARCHIVO-TURNO NE WC_TURNO_S.
PERFORM DYNPRO_FIELD USING 'P2003-TPROG' WC_TURNO.
ENDIF.
IF WC_TURNO <> WC_TPR00.
PERFORM DYNPRO_FIELD USING 'P2003-TPROG' WC_TURNO.
ENDIF.
ENDIF.
IF WI_BETRG1 < WI_BETRG2. "Cambia categoria del Empleado 1
PERFORM BUSCA_CATEGORIA.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' 'DIFP'.
PERFORM DYNPRO_START USING 'MP200000' '2221'.
PERFORM DYNPRO_FIELD USING 'P2APL-TRFGR' WC_CATEGORIA.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '/8'.
PERFORM DYNPRO_START USING 'MP200000' '2100'.
ENDIF.
IF TH_ARCHIVO-DEPARTAMENTO NE ' '.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' 'PRIM'.
PERFORM DYNPRO_START USING 'SAPLHRTV' '0300'.
PERFORM DYNPRO_FIELD USING 'COBL-KOSTL' TH_ARCHIVO-DEPARTAMENTO.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '/8'.
PERFORM DYNPRO_START USING 'MP200000' '2100'.
ENDIF.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=UPD'. "MML QA&C 08.02.00
ENDFORM. " GENERATE_BDC_DATA_1
Fin de funcion generate_bdc_data_1 *
Funcion busca_categoria *
FORM BUSCA_CATEGORIA.
SELECT *
FROM PA0008
WHERE PERNR EQ TH_ARCHIVO-NUMERO. "Empleado 1
IF SY-SUBRC EQ 0.
SELECT *
FROM ZCATEGORIA
WHERE TRFGR EQ PA0008-TRFGR.
WI_BETRG1 = ZCATEGORIA-BETRG.
ENDSELECT.
ENDIF.
ENDSELECT.
SELECT *
FROM PA0008
WHERE PERNR EQ TH_ARCHIVO-EMPLEADO2. "Empleado 2
IF SY-SUBRC EQ 0.
SELECT *
FROM ZCATEGORIA
WHERE TRFGR EQ PA0008-TRFGR.
WI_BETRG2 = ZCATEGORIA-BETRG.
WC_CATEGORIA = ZCATEGORIA-TRFGR.
ENDSELECT.
ENDIF.
ENDSELECT.
ENDFORM.
Fin de funcin busca_categoria *
Fucion archivo_error *
FORM ARCHIVO_ERROR.
OPEN DATASET ARCH1 FOR OUTPUT IN TEXT MODE.
IF SY-SUBRC NE 0.
STOP. EXIT.
ENDIF.
LOOP AT TH_ERROR.
TRANSFER TH_ERROR TO ARCH1.
ENDLOOP.
CLOSE DATASET ARCH1.
ENDFORM.
Fin de archivo_error *
Funcion bdc_close *
FORM BDC_CLOSE USING EXCEPT.
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3.
EXCEPT = SY-SUBRC.
ENDFORM.
Fin de funicon bdc_close *
Funcion dynpro_start *
FORM DYNPRO_START USING PROGRAM DYNPRO.
CLEAR BDC_TABLE.
BDC_TABLE-PROGRAM = PROGRAM.
BDC_TABLE-DYNPRO = DYNPRO.
BDC_TABLE-DYNBEGIN = 'X'.
APPEND BDC_TABLE.
ENDFORM. " DYNPRO_START
Fin de funcion dynpro_start *
Funion dynpro_field *
FORM DYNPRO_FIELD USING FIELD VALUE.
CLEAR BDC_TABLE.
BDC_TABLE-FNAM = FIELD.
BDC_TABLE-FVAL = VALUE.
APPEND BDC_TABLE.
ENDFORM. " DYNPRO_FIELD
Fin de funcion dypro_field *
Fucnion tiempos_extra *
FORM TIEMPOS_EXTRA.
IF TH_ARCHIVO-TURNO = 'S1' OR TH_ARCHIVO-TURNO = 'S2' OR
TH_ARCHIVO-TURNO = 'S3'.
CONCATENATE 'DE' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
WC_TURNO = WC_TURNO_R.
ELSEIF TH_ARCHIVO-TURNO = 'T1' OR TH_ARCHIVO-TURNO = 'T2'.
CONCATENATE 'GK' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
WC_TURNO = WC_TURNO_R.
ELSE.
IF ( TH_ARCHIVO-RAZON = 'ETI ' OR TH_ARCHIVO-RAZON = 'EPM ' OR
TH_ARCHIVO-RAZON = 'ERP ' ) AND TH_ARCHIVO-TURNO NE ' '.
IF TH_ARCHIVO-TURNO < 10.
CONCATENATE 'GK' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
ELSEIF TH_ARCHIVO-TURNO > 10.
CONCATENATE 'GM' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
ENDIF.
IF ( WC_TURNO = 'FREE' OR WC_TURNO = 'DESC' ).
IF WC_TURNO_R = 'GM13' OR WC_TURNO_R = 'GK03'.
PERFORM VALIDA_SIGUIENTE_DIA.
IF WC_TPR00 = 'GM11' OR WC_TPR00 = 'GK01'.
IF WC_TPR00 = 'GK01'.
WC_TURNO = 'GK01'.
ELSEIF WC_TPR00 = 'GM11'.
WC_TURNO = 'GM11'.
ENDIF.
ELSE.
WC_TURNO = WC_TURNO_R.
ENDIF.
ELSE.
WC_TURNO = WC_TURNO_R.
ENDIF.
ENDIF.
IF ( WC_TURNO NE 'FREE' OR WC_TURNO NE 'DESC' ).
IF WC_TURNO_R = 'GK02' AND WC_TURNO = 'GK03'.
WC_TURNO = 'GK03'.
ENDIF.
IF WC_TURNO_R = 'GK03' AND WC_TURNO = 'GK01'.
WC_TURNO = 'GK01'.
ENDIF.
IF WC_TURNO_R = 'GK01' AND WC_TURNO = 'GK02'.
WC_TURNO = 'GK02'.
ENDIF.
ENDIF.
ENDIF.
IF ( TH_ARCHIVO-RAZON = 'STI ' OR TH_ARCHIVO-RAZON = 'SPM ' OR
TH_ARCHIVO-RAZON = 'SRP ' ) AND TH_ARCHIVO-TURNO NE ' '.
IF TH_ARCHIVO-TURNO < 10.
CONCATENATE 'GK' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
ELSEIF TH_ARCHIVO-TURNO > 10.
CONCATENATE 'GM' TH_ARCHIVO-TURNO INTO WC_TURNO_R.
ENDIF.
IF ( WC_TURNO = 'FREE' OR WC_TURNO = 'DESC' ).
IF WC_TURNO_R = 'GM11' OR WC_TURNO_R = 'GK01'.
WD_FECHA_DESC = WD_FECHA - 2.
PERFORM VALIDA_SIGUIENTE_DIA. "En realidad DIA ANTERIOR
IF WC_TPR00 = 'GM13' OR WC_TPR00 = 'GK03'.
IF WC_TPR00 = 'GK03'.
WC_TURNO = 'GK03'.
ELSEIF WC_TPR00 = 'GM13'.
WC_TURNO = 'GM13'.
ENDIF.
ELSE.
WC_TURNO = WC_TURNO_R.
ENDIF.
ELSE.
WC_TURNO = WC_TURNO_R.
ENDIF.
ENDIF.
IF ( WC_TURNO NE 'FREE' OR WC_TURNO NE 'DESC' ).
IF WC_TURNO_R = 'GK03' AND WC_TURNO = 'GK02'.
WC_TURNO = 'GK02'.
ENDIF.
IF WC_TURNO_R = 'GK01' AND WC_TURNO = 'GK03'.
WC_TURNO = 'GK03'.
ENDIF.
IF WC_TURNO_R = 'GK02' AND WC_TURNO = 'GK01'.
WC_TURNO = 'GK01'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
Fin de funicon tiempos_extra *
Funcion elimina_duplicados *
FORM ELIMINA_DUPLICADOS.
DELETE ADJACENT DUPLICATES FROM TH_ARCHIVO.
ENDFORM.
Fin de funcion elimina_duplicados *
Form LEE_ARCHIVO_XML *
FORM LEE_ARCHIVO_XML.
CREATE OBJECT ME.
REFRESH CIERRE.
CALL METHOD ME->CREATE_WITH_FILE
EXPORTING
FILENAME = ARCHIVO
RECEIVING
RETCODE = SUBRC.
CALL METHOD ME->GET_DATA
IMPORTING
RETCODE = SUBRC
CHANGING
DATAOBJECT = CIERRE[].
ENDFORM.
Form LEE_ARCHIVO_XML *
FORM ESPECIFICA_RUTA *
FORM ESPECIFICA_RUTA USING PAR_VALOR.
CASE PAR_VALOR.
WHEN '0'.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
MASK = 'C:*.xml'
STATIC = 'X'
CHANGING
FILE_NAME = ARCHIVO.
WHEN '1'.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
MASK = 'C:*.txt'
STATIC = 'x'
CHANGING
FILE_NAME = DESCARGA.
ENDCASE.
ENDFORM.
FORM ESPECIFICA_RUTA *
Form LLENA_TH_ARCHIVO *
FORM LLENA_TH_ARCHIVO.
CONSTANTS GVK_12HRS LIKE P2011-LTIME VALUE '120000'.
CONSTANTS GVK_1159 LIKE P2011-LTIME VALUE '115900'.
CONSTANTS GVK_0630 LIKE P2011-LTIME VALUE '063000'.
CONSTANTS GVK_0715 LIKE P2011-LTIME VALUE '071500'.
CONSTANTS GVK_1830 LIKE P2011-LTIME VALUE '183000'.
CONSTANTS GVK_1915 LIKE P2011-LTIME VALUE '191500'.
DATA: GVK_HORA LIKE P2011-LTIME.
DATA: GVK_FECHA LIKE SY-DATUM.
CLEAR CIERRE.
REFRESH TH_ARCHIVO.
LOOP AT CIERRE.
CLEAR TH_ARCHIVO.
CHECADAS[] = CIERRE-EMPLEADO-REGISTRO[].
LOOP AT CHECADAS.
CLEAR TH_ARCHIVO.
MOVE: CIERRE-EMPLEADO-NUMERO TO TH_ARCHIVO-NUMERO,
CHECADAS-INCIDENCIA TO TH_ARCHIVO-RAZON,
CHECADAS-CCOSTOS TO TH_ARCHIVO-DEPARTAMENTO,
CHECADAS-SOCIO_REEMPLAZA TO TH_ARCHIVO-EMPLEADO2.
CONCATENATE CHECADAS-DIA(2) CHECADAS-DIA+3(2)
CHECADAS-DIA+6(4) INTO TH_ARCHIVO-FECHA.
CONCATENATE CHECADAS-HORA(2) CHECADAS-HORA+3(2)
INTO TH_ARCHIVO-HORA.
IF CHECADAS-TURNO = 'S1' OR CHECADAS-TURNO = 'S2' OR
CHECADAS-TURNO = 'S3'.
MOVE CHECADAS-TURNO TO TH_ARCHIVO-TURNO.
IF CHECADAS-TIPO = 'E'.
MOVE 'ETI' TO TH_ARCHIVO-RAZON.
ELSEIF CHECADAS-TIPO = 'S'.
MOVE 'STI' TO TH_ARCHIVO-RAZON.
ENDIF.
ELSE.
MOVE CHECADAS-TURNO TO TH_ARCHIVO-TURNO.
ENDIF.
IF CHECADAS-CAMBIO_TURNO = 1.
MOVE CHECADAS-TURNO TO TH_ARCHIVO-TURNO.
ENDIF.
MOVE CHECADAS-AUSENTISMO TO TH_ARCHIVO-AUSENTISMO.
CASE CHECADAS-TURNO.
WHEN '01' OR 'S1'.
IF CHECADAS-TIPO = 'E'.
CLEAR GVK_FECHA.
CONCATENATE CHECADAS-DIA6(4) CHECADAS-DIA3(2)
CHECADAS-DIA(2)
INTO GVK_FECHA.
GVK_FECHA = GVK_FECHA + 1.
CONCATENATE GVK_FECHA6(2) GVK_FECHA4(2) GVK_FECHA(4)
INTO TH_ARCHIVO-FECHA.
ELSEIF CHECADAS-TIPO = 'S'.
GVK_HORA = TH_ARCHIVO-HORA.
IF GVK_HORA > GVK_1159.
CLEAR GVK_FECHA.
CONCATENATE CHECADAS-DIA6(4) CHECADAS-DIA3(2)
CHECADAS-DIA(2)
INTO GVK_FECHA.
GVK_FECHA = GVK_FECHA + 1.
CONCATENATE GVK_FECHA6(2) GVK_FECHA4(2)
GVK_FECHA(4)
INTO TH_ARCHIVO-FECHA.
ENDIF.
ENDIF.
CLEAR GVK_HORA.
GVK_HORA = TH_ARCHIVO-HORA.
GVK_HORA = GVK_HORA + GVK_12HRS.
CLEAR TH_ARCHIVO-HORA.
CONCATENATE GVK_HORA(2) GVK_HORA+2(2)
INTO TH_ARCHIVO-HORA.
WHEN 'T1'.
IF CHECADAS-TIPO = 'E'.
CLEAR GVK_FECHA.
CLEAR GVK_HORA.
CONCATENATE CHECADAS-DIA6(4) CHECADAS-DIA3(2)
CHECADAS-DIA(2)
INTO GVK_FECHA.
GVK_FECHA = GVK_FECHA + 1.
CONCATENATE GVK_FECHA6(2) GVK_FECHA4(2) GVK_FECHA(4)
INTO TH_ARCHIVO-FECHA.
GVK_HORA = TH_ARCHIVO-HORA.
GVK_HORA = GVK_HORA + GVK_12HRS.
CLEAR TH_ARCHIVO-HORA.
CONCATENATE GVK_HORA(2) GVK_HORA+2(2)
INTO TH_ARCHIVO-HORA.
ELSEIF CHECADAS-TIPO = 'S'.
MOVE 'STI' TO TH_ARCHIVO-RAZON.
GVK_HORA = TH_ARCHIVO-HORA.
IF GVK_HORA > GVK_1159.
CLEAR GVK_FECHA.
CONCATENATE CHECADAS-DIA6(4) CHECADAS-DIA3(2)
CHECADAS-DIA(2)
INTO GVK_FECHA.
GVK_FECHA = GVK_FECHA + 1.
CONCATENATE GVK_FECHA6(2) GVK_FECHA4(2)
GVK_FECHA(4)
INTO TH_ARCHIVO-FECHA.
ENDIF.
GVK_HORA = TH_ARCHIVO-HORA.
IF GVK_HORA BETWEEN GVK_0630 AND GVK_0715.
GVK_HORA = GVK_0630.
ENDIF.
GVK_HORA = GVK_HORA + GVK_12HRS.
CLEAR TH_ARCHIVO-HORA.
CONCATENATE GVK_HORA(2) GVK_HORA+2(2)
INTO TH_ARCHIVO-HORA.
ENDIF.
WHEN 'T2'.
IF CHECADAS-TIPO = 'S'.
MOVE 'STI' TO TH_ARCHIVO-RAZON.
CLEAR GVK_HORA.
GVK_HORA = TH_ARCHIVO-HORA.
IF GVK_HORA BETWEEN GVK_1830 AND GVK_1915.
GVK_HORA = GVK_1830.
CONCATENATE GVK_HORA(2) GVK_HORA+2(2)
INTO TH_ARCHIVO-HORA.
ENDIF.
ENDIF.
ENDCASE.
IF CHECADAS-TIPO = 'E'.
TH_ARCHIVO-IN_OUT = '01'.
ELSEIF CHECADAS-TIPO = 'S'.
TH_ARCHIVO-IN_OUT = '02'.
ENDIF.
APPEND TH_ARCHIVO.
ENDLOOP.
ENDLOOP.
ENDFORM.
Form LLENA_TH_ARCHIVO *
*& Form DATOS_DESC
text
--> p1 text
<-- p2 text
FORM DATOS_DESC.
REFRESH BDC_TABLE.
PERFORM DYNPRO_START USING 'SAPMP50A' '1000'.
PERFORM DYNPRO_FIELD USING 'RP50G-PERNR' TH_ARCHIVO-NUMERO.
PERFORM DYNPRO_FIELD USING 'RP50G-CHOIC' '2003'.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=INS'. "MML QA&C 08.02.00
PERFORM DYNPRO_START USING 'MP200000' '2100'.
PERFORM DYNPRO_FIELD USING 'P2003-BEGDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'P2003-ENDDA' WC_FECHA.
PERFORM DYNPRO_FIELD USING 'P2003-VTART' '01'.
PERFORM DYNPRO_FIELD USING 'P2003-TPROG' 'DESC'.
PERFORM DYNPRO_FIELD USING 'BDC_OKCODE' '=UPD'. "MML QA&C 08.02.00
CALL TRANSACTION 'PA61' USING BDC_TABLE MODE GVK_MODE UPDATE 'S'
MESSAGES INTO TH_MESSTAB.
IF SY-SUBRC NE 0.
MOVE-CORRESPONDING TH_ARCHIVO TO TH_ERROR.
APPEND TH_ERROR. -
Having some problems with Xcode and C++
hi guys , I am learning C++ and I am having the following problem when trying to use .h files.
Example. I make a new document using Xcode2.3.
in the source folder I got my main.cpp and i 2nd click it, choose add/file/BSD/header file.
main.cpp
#include "funtest.h"
int main ()
print_num ( 9 );
return 0;
funtest.h
void print_num (int iNum);
When I compile with Cmd+R , I get:
[Session started at 2006-06-26 01:59:31 -0400.]
ZeroLink: unknown symbol '_Z9printnumi'
complex2 has exited due to signal 6 (SIGABRT).Thanks a lot! I don't recommend you to code too early in the morning :P
The program now looks like this:
funciones.cpp
#include "funciones.h"
#include <iostream>
int main ()
print_num ( 9 );
return 0;
funciones.h
/*funciones utilizadas en el programa*/
#include <iostream.h>
void print_num (int iNum)
std::cout << iNum << endl;
now it builds and prints a fine "9" as output.
The only thing that is killing me , is in funciones.h, if I don't use #include <iostream.h> the app doesn't run. And if I include it , it runs but Xcode gives me a warning of old headers.
thanks again. -
Hola:
Estaba probando ya funcionalidad después de implementar varias notas, creía que todas las indicadas, pero no consigo ver los nuevos 4 campos en el report del IVA para seleccionarlos en el layout.
Los campos se añaden tanto para el 340 como para la declaración de IVA / Libro de facturas, entendía que con las notas OSS pertinentes 1966352 y 1966589 pero no me aparecen!.
Alguien puede ayudarme porfa.
Saludos,
JoanHola Joan de nuevo,
Primero muchísimas gracias por contestar y más por la rapidez.
He revisado todos los objetos que comenta la nota en cuestión, y parece que todo está activo. Y la clase que comentas también.
He comparado la clase de ese sistema con otro que si muestra los textos, y sólo he encontrado está diferencia:
Si funciona:
No funciona:
Ya lo único que se me ocurre es desimplementar y volver a implementar, pero es que relacionada con la nota 1966589, van 5 o 6 y me tocaría desimplementar todas las demás primero...
¿No sé te ocurre alguna idea más, alguna orientación?
Siento volver a pedirte ayuda, pero no sé que hacer...
¡¡Muchas gracias!!
un saludo, -
Maquetación texto en hebreo en mac
Hola a todos, estoy maquetando un libro que tiene un montón de textos en hebreo (están compuestos en arial unicode ms) el caso es que me salen al revés, he visto en la web que existe una versión de idd que puede hacer el texto de derecha a izquierda. ¿Sabéis como funciona?, ¿funciona con texto normal intercalado? o ¿tiene que ser solo hebreo?
¿Existe alguna otra forma de hacerlo?
Gracias
AgurHola, buenos días, tengo una explicación para el tema de texto de hebreo, a ver si me explico bien:
Con determinadas fuentes (arial unicode, times new roman y con las que tengan incorporado el hebreo), cuando compones textos en word con estas fuentes el programa automáticamente las pone en orden de derecha a izquierda (no hay otra opción), entonces cuando importas ese archivo a idd, salen en orden inverso (izda. a dcha.), el problema viene con los acentos al darle la vuelta el acento se considera un carácter individual y sale desplazado. Con el script que nos paso Mateo no hay problema en darle la vuelta a la palabra, pero no corrige el tema de los acentos y hay que arreglar la palabra a mano.
Hablando con el autor del libro, me dijo que se había vuelto loco porque no conseguía escribir los textos de izquierda a derecha (porque cuando hay palabras hebreas en textos en español, la composición siempre es de izquierda a derecha, porque sino es muy farragoso leer). Ahora está intentando cambiar el tipo de letra en el original para volver a dármelo.
Después de todo este rollo, la única solución que veo es que se sigan usando fuentes que no contengan la opción de hebreo extendido en la ventana de símbolos en word.
También he estado mirando el plug-in que nos paso Federico, pero lo único que consigo es que todo el párrafo se posicione de derecha a izquierda, no afecta a palabras sueltas dentro del párrafo.
Bueno, hasta otra y gracias
agur -
Hi
i use the function IMAQ optical FLOW (LKP) but the only way to see the output of this funcion (motion of objectes) es call IMAQ Overlay Motion Vector to paint the result as a overlay on the image i need to used these data on my calculation but i can´t use it first there is no output from motion funcions , seconde i dont i ahve a funciones that convert the overlay image as a data (points ,lines , rectangle, arc,...etc) i can save the image with overlaydata and readit but i cannt use it.
1- i need output from the motion funciones
2- funciones that conevrt the overlay image to data as point , lines, rectangles... etc.You are using LKP right? as far asI understood, the data was given in points, so there is an output, the distance array and the points out.
-
Olá,
No Layout padrão do SAP, para impressão do livro diário, tem um campo de variável (F_252, na Área de repetição 0) com varável 606, mas ele não funciona e não está na lista de variáveis disponível no site,( pelo menos eu não encontrei)
1) - Existe uma lista com varáveis específico para o livro Diário?
2) - Os campos F_220, F_221, F_201 e F_202 dependem do campo F_252 para ser exibido, mas não exibe.
A funcionalidade desses campo é:
F_220 - Trazer a soma total de Débido até a página anterior
F_221 - Trazer a soma total de Crédito até a página anterior
F_201 - Trazer a soma total de Créditos da página atual
F_202 - Trazer a soma total de débidos da página atual
O pach que estou usando é 2007B Pach 13
3) - Se não tiver como usar essa variável como fazer para exibir os canmpo acima, no print?
Grato
LucidioOi Lucidio
1. Não existe
2. Esses campos tem funcionalidades internas no próprio PLD, nem sempre significa que não funciona.
3. A melhor maneira é utilizar o Crystal Reports for SAP Business One. Neste momento é somente liberada para a release 8.8 que ainda está em ramp-up, mas que se prevê estar disponível nos próximos meses para o mercado.
O Crystal Reports for SAP Business One permite de uma maneira mais fácil, rápida e flexivel a elaboração de documentos e relatórios.
Paulo Calado
SAP Business One Forums Team -
Whatsapp para iPhone 3G não funciona mais
Whatsapp para iPhone 3G não funciona mais!
Eu pedi uma ajuda no suporte do aplicativo e tive a seguinte resposta:
Olá,
Obrigado por entrar em contato conosco!
Para que você possa conectar ao WhatsApp, ou ativar o seu número, você precisará ter a última versão do WhatsApp instalada - v2.8.7 -, a qual está disponível na App Store no seu iPhone. Lembre-se de que iPod e iPad não são compatíveis.
A versão mais recente do WhatsApp para o iPhone requer iOS 4.3 ou superior. Infelizmente, a Apple não permite que novos updates sejam compatíveis tanto com o novo iOS 6 e as versões anteriores do iOS, desta forma, terminando o suporte do WhatsApp para iPhone 3G e o iPhone original. Devido as novas políticas da Apple para publicações na App Store, infelizmente não há nada que possamos fazer neste momento para usuários com versões anteriores do iOS.
Se você estiver usando um iPhone 3GS ou mais recente, por favor atualize para o iOS 4.3 ou superior.
Este email é um serviço de WhatsApp Support. Delivered by Zendesk.
Ou seja, jogaram o problema para a Apple! É isso mesmo? Vou ficar sem o aplicativo? Preciso dele para trabalhar!3G goes to iOS 4.2.1 the highest.
Need to upgrade iPhone, minimum 3GS, to use mentioned Apps.
Cheers -
Boa tarde.
Meu layout de teclado é o Brasil - ABNT2 e funciona corretamente dentro do Google Chrome, Internet Explorer, Word, Excel ou qualquer outro programa, mas dentro do Firefox não consigo colocar qualquer acento, e o "Ç" funciona normalmente, aqui no caso esta mensagem foi enviada através do Firefox, mas o texto foi copiado e colado a partir do Word...!
O layout esta selecionado corretamente e usando a codificação Unicode (UTF-8) a pagina é exibida corretamente, e ao ler outros foruns com duvidas semelhantes, o pessoal costuma recomendar a troca para Ocidental (ISO-8859-1) e nestes caso, os acentos já existentes na pagina exibida também ficam incorretos, como pode ser visto no link abaixo:
http://prntscr.com/23i6ua
Grato pela atenção!Olá,
'''Execute o Firefox em Modo Seguro''' para verificar se o problema é resolvido. O Modo Seguro é utilizado para resolução de problemas, ele desabilita a maioria dos add-ons.
Existem duas maneiras de iniciar o Firefox em Modo Seguro:
#Segure a tecla '''Shift''' quando for iniciar o Firefox através do menu Iniciar ou por um atalho.
#Execute o Firefox normalmente, vá até o menu '''Ajuda''' e em seguida clique em '''Reiniciar com extensões desativadas...'''.
''Quando o pop-up for exibido, selecione "Iniciar em Modo Seguro" ''
'''Se o problema não ocorrer no Modo Seguro''', uma extensão pode estar causando o erro e você precisa descobrir qual é a correta. Por favor, leia o artigo [[Troubleshooting extensions and themes]] para determinar isso.
''Para fechar o Firefox em Modo Seguro, basta sair normalmente e aguardar alguns segundos para reabrí-lo.''
''Quando você descobrir qual o problema, por favor mande um retorno! :) Isso poderá ajudar outros usuários que tenham o mesmo problema.''
Por faor, veja também o seguinte artigo de ajuda da Microsoft, sobre como exibir a barra de idiomas:
* [http://windows.microsoft.com/pt-BR/windows7/The-Language-bar-overview]
Por favor, certifique-se de que o idioma correto é selecionado nos dois campos, '''botão de idioma de entrada''' e '''botão de layout de teclado''', ao acessar o Firefox.
Experimente também adicionar o layout e idioma de entrada "Inglês (Internacional)". Com este idioma de entrada, você pode criar acentos com uma combinação de teclas. Por exemplo:
* '''`''' e em seguida pressionar '''a''' = à
* ''' ' ''' e e seguida pressionar '''c''' = ç
* ''' ~ ''' e em seguida pressionar '''a''' = ã
Obrigado e conte conosco!
- Ralph -
ERROR while uploading data from EXCEl to sap using ALSM_EXCEL FUNCION MODULE
Hi Experts,
I am uploading excel data into sap suing function module ALSM_EXCEl_TO_INTERNAL_TABLE , used this funcion module in the program while running the program one blank excel sheet is opening and data is not uploading into internal table . even same blank sheet is opeining if we user
CONVERT_EXCEL_TO_INTERNAL function module also.
can you please tell me why this error is coming how to over come this error.
My excel sheet data records are less then 10000.
Thanks & regards
kiranHi Taranam,
Use FM ALSM_EXCEL_TO_INTERNAL_TABLE.
Regards,
Atish -
After ios 5 update, bluetooth on ipod touch not funcioning-keynote app no longer pairing with ipad
Since the ios 5 update--bluetooth longer funcioning on ipod touch. iPad no longer syncing with keynote remote app on ipod touch. My iPad no longer sees the iPod touch. The Bluetooth indicator does not come on or flash on the ipod touch.
any help or suggestions?alex.g wrote:
I've got a fix, even for those who don't have hotspot (like me) who want to get the ipad and iphone talking over bluetooth again.
First, I should say that I said when I got my 4s, the problem was solved. It was not. I was just connecting via wifi, but I wanted bluetooth back.
Here is how I got it back without hotspot.
1. Launch keynote on one device and the remote on the other as you normall would.
2. Find another app that bluetooth links ipad and iphone (I used 'pictransfer light'). Install on both devices and launch on both devices. Follow the promt to get a bluetooth sync.
3. Double push the home button both devices to pull up the multi-tasking and open keynote and keynote remote on the relevant devices.
4. In keynote, go to settings; advances; remote. You should now be able to get the remote to link (you may, on the device running the remote, need to hit settings and then 'new keynote link'.
Once I launched pictransfer, the bluetooth logo was blue on both devices the whole time I ran through the other steps. I suspect that that was also the point of using the hotspot service.
Also noteworthy: I am yet to try this 'in the field'. For all I know, this won't keep a connection for as long as one might need. I'll find out on Thursday when I rely on the remote for 90min. On the positive side, I was able to keep the connection even when I double clicked home and closed pictransfer while leaving keynote and keynote remote open...
This work-around worked -- I found that as long as I launched the "Pictransfer for iPad Lite" app just before the presentation that it seemed to work fine. However, if Bluetooth gets turned off or you disconnect I think you will have to repeat the work-around -- nice find.
Apple really needs to fix this. They even have a posted document describing how to link two devices by Bluetooth and the truth is that it just does not work as they say. They need to add whatever code into the Keynote & Keynote Remote apps to initiate bluetooth to connect the devices. It's fine if it prefers WiFi, but it should give you the bluetooth option as well. -
Adobe createPDF Desktop Printer no funciona
Buenos días.
Instale y ejecute Adobe CrearePDF Desktop Printer y no funciona.
Envio documento a "imprimir" y me envia un mensaje de error por E-mail diciendo no ha podido convertir el archivo.
Los documentos son .doc por lo que no encuentro el problema.
Gracias
AnaThe CreatePDF Desktop Printer has been retired. Please see https://forums.adobe.com/docs/DOC-5131 for more information.
-
tengo problema con mi tascam 1082 tengo una mac bookpro i7 y no logro tener un conectividad correta la conexcion de mi puerto fire wire 800 pero la de la consola usa una coneccion fire wire 600 como saber si la macboook pro i7 que tengo pueda funciona no hay manera de introducirle SD-EXPC34-2F 2 x Port 1394A Firewire ExpressCard porque ya mac no hace ese puerto y quisiera que ustedes me puedan dar una solucion para no seguir gastar dinero asi por asi
I have problem with my mac I have a tascam 1082 bookpro i7 and I can not have a liaison connectivity the correct one of my fire wire port 800 but the console using a fire wire connection 600 as pro macboook know if I have to work i7 that no way to introduce SD-EXPC34-2F 2 x 1394A Firewire ExpressCard port mac because you do not want that port and you can give me a solution for not going to spend money like this for so -
Mi boton home no funciona, como hago para arreglarlo? My home button doesn't work, how can I fix it?
Mi boton de home no funciona, desde hace rato, pero no se como arreglarlo? la garantia de un año ya expiro, asi que no se que hacer! alguien sabe? gracias!
My home button doesn't work, since for some time, but I don't know how to fix it? the one year warranty already expired, so don't know what to do! does anyone know? Thank you!Hola PaulaVila,
Has probado a calibrarlo por si acaso? Para hacerlo tienes que abrir una de las aplicaciones preinstaladas (Contactos es la que suelo usar yo). Una vez abierta, pulsa el botón de encendido del dispositivo hasta que aparezca el cuadro de dialogo de apagado. Luego pulsa el botón de inicio (el que no te funciona) hasta que salgas de la aplicación (el cuadro de dialogo de apagado también desaparecerá).
Si así no lo consigues te sugiero que te acerques a un Apple Store o a un servicio técnico autorizado.
Un saludo, -
Actualice iPhone 4s a ios7.1 no funciona wifi.
Actualice iPhone 4s a ios7.1 no funciona wifi.
I too discovered the grayed out wifi after my update to 7.1 on my 4S, however I did a search myself. On a Canadian website they recommended the following:
http://www.iphoneincanada.ca/how-to/fix-wifi-greyed-out-iphone4s-ios7/
I did this and then the following:
After taking it out of the refrigerator I then put it in "Airplane" mode, then did a hard shut down by pushing the off button and home button simultaneously, waiting until the apple logo reappears. Then my wifi showed up, I moved the button to wifi and then turned off "Airplane" mode. This worked for me after weeks of not having wifi.
I hope this helps someone else who is just as frustrated as I was.
Maybe you are looking for
-
how can i add a new device to Itunes
-
How to show start time in week mode on ical?
I'm looking for a way to show the start time of an event in week mode in iCal. I know you can just click on the event but I want to be able to print and glance at it instantly. Any help would be great! Thks!
-
Logical Facts not all joined to Dimensions in an OBIEE model
We have a few OBIEE logical models where some of the fact rows don't have a corresponding dimension member. Essentially the FKs on the Fact don't have matching PKs in the Dimensions This has come about over time as we've made enhancements to our mode
-
How to disable Save & Print functionality in PDF form?
Hi, This is the requrement, client need to disable Save & Print functionality in PDF form. (They not allow employee save & print the hrforms payslip) May I know how to do it. Thank you. What is the parameter value in structure SFPOUTPUTPARAMS that I
-
Different results for same query on different servers
1. database being converted from 7.3.4 to 9.2 2. query is executed on both servers 3. different results! The tables and data are the same, and indexes are setup on new server. EXPLAIN PLAN was run on both but with (predictably) widely different resul