Cuando los usuarios ejecutan el fragmento de código al mismo tiempo, aparece el siguiente mensaje de error.
Código: Seleccionar todo
For ContEscalas := 1 To Len(aryEscala)
strData := StrZero(Year(aryEscala[ContEscalas, 01]), 4) + '-' + StrZero(Month(aryEscala[ContEscalas, 01]), 2) + '-' + StrZero(Day(aryEscala[ContEscalas, 01]), 2)
Application:oMainForm:oMariaDB:Execute( 'Insert INTO movimentacoes( data, tipo, codposto, codescala, codcolabprog, HE, HSI1, HRI1, HSI2, HRI2, HSI3, HRI3, HS) ' +;
'values ("' + strData + '", ' +;
AllTrim(Str(aryEscala[ContEscalas, 02])) + ', ' + ;
AllTrim(Str(::oPostos:codigo)) + ', ' + ;
AllTrim(Str(::oEscalas:codigo)) + ', ' + ;
AllTrim(Str(::oPostos:codcolaborador)) + ', ' + ;
'"' + aryEscala[ContEscalas, 03] + '", ' +;
'"' + aryEscala[ContEscalas, 04] + '", ' +;
'"' + aryEscala[ContEscalas, 05] + '", ' +;
'"' + aryEscala[ContEscalas, 06] + '", ' +;
'"' + aryEscala[ContEscalas, 07] + '", ' +;
'"' + aryEscala[ContEscalas, 08] + '", ' +;
'"' + aryEscala[ContEscalas, 09] + '", ' +;
'"' + aryEscala[ContEscalas, 10] + '")' )
Next ContEscalas